scale block definition

[77marco77]

Good morning.
I would like to climb definition more blocks without having to enter the editor for each (the definition not the reference).
I found this code lisp:

(defun c:sbd ; = scale block definitions
  (/ ss sf n)
  (command "_.layer" "_thaw" "*" "_unlock" "*" "_on" "*" "")
  (if
    (and
      (setq ss (ssget '((0 . "insert"))))
      (setq sf (getreal "\nscale factor: "))
    ); and
    (repeat (setq n (sslength ss)); then
      (command
        "_.-bedit" (cdr (assoc 2 (entget (ssname ss (setq n (1- n))))))
        "_.scale" "_all" "" "0,0" sf
        "_.bclose" "_save"
      )
    ); repeat
  ); if
  (command "_.layerp")
  (princ)
); defun

who:

LISP needed to Scale block definitions

I have a drawing template with about 200 block definitions. We need to adjust the scale of all these blocks. Currently the process is to edit each block, select all entities and then run the scale command and then move on to the next block. I would like to be able to run a lisp that would...

forums.autodesk.com

and do what I need but not everything I need.. .

you can change the code so that in definition of the block is only the "sign" and not the attributes? i.e. smaller "simbolo" but size unchanged attributes?
thanks in advance for suggestions and help!

 

[confutatis]

(defun c:sbd2 ; = scale block definitions
  (/ ss sf n index gru gru1)
  (command "_.layer" "_thaw" "*" "_unlock" "*" "_on" "*" "")
  (if
    (and
      (setq ss (ssget '((0 . "insert"))))
      (setq sf (getreal "\nscale factor: "))
    ); and
    (repeat (setq n (sslength ss)); then
      (command "_.-bedit" (cdr (assoc 2 (entget (ssname ss (setq n (1- n)))))))
      (setq gru (ssget "x"))
      (setq gru1 (ssadd))
      (repeat (setq index (sslength gru))
       (setq ent (ssname gru (setq index (1- index))))
       (if (not (= (cdr (assoc 0 (entget ent))) "attdef"))
        (ssadd ent gru1)
       )
      )
      (command "_.scale" gru1 "" "0,0" sf "_.bclose" "_save")
    ); repeat
  ); if
  (command "_.layerp")
  (princ)
); defun

 

[77marco77]

perfect, it works great.
Thank you so much!