Die Waage... Definition Block

[77marco77]

Guten Morgen.
Ich möchte klettern Definition mehr Blöcke ohne den Editor für jeden (die Definition nicht die Referenz) eingeben zu müssen.
Ich fand diesen Code lisp:

(defun c:sbd ; = Skalenblockdefinitionen
(/ ss sf n)
(Befehl "_.layer" "_thaw" "*" "_unlock" "*" "_on" "*"")
(falls
(und
(setq ss (ssget '((0. "Insert"))))
(setq sf (getreal "\nscale factor: "))
, und
(Repeat (setq n (sslength ss)); dann
(Befehl)
"_.-bedit" (cdr (Zeichnung 2 (Zeichnung ss)))
"_.scale" "_all" "" "0,0" sf
"_.bclose" "_save"
)
— Wiederholung
wenn
(Befehl "_.layerp")
(princ)
); defun

Wer:

https://forums.autodesk.com/t5/visu...need-to-scale-block-definitions/td-p/10115167

und tun, was ich brauche, aber nicht alles, was ich brauche..

Sie können den Code so ändern, dass Definition der Block ist nur der "Zeichen" und nicht die Attribute? d.h. kleinere "simbolo" aber Größe unverändert Attribute?
Danke im Voraus für Anregungen und Hilfe!

 

[confutatis]

(defun c:sbd2; = Skalenblockdefinitionen
(/ ss sf n Index gru gru gru)
(Befehl "_.layer" "_thaw" "*" "_unlock" "*" "_on" "*"")
(falls
(und
(setq ss (ssget '((0. "Insert"))))
(setq sf (getreal "\nscale factor: "))
, und
(Repeat (setq n (sslength ss)); dann
(Verpflichtung "_.-bedit" (cdr (Verzeichnis 2 (Verzeichnis ss (Setq n (1- n)))))))
(setq gru (ssget "x"))
(setq gru1 (ssadd))
(Repeat (Setq-Index)
(setq ent (ssname gru (setq index (1- index))))
(falls (nicht (= (cdr (assoc 0 (entget ent)))) "attdef"))
(ssadd ent gru1)
)
)
(Befehl "_.scale" gru1 "" "0,0" sf "_.bclose" "_save")
— Wiederholung
wenn
(Befehl "_.layerp")
(princ)
); defun

 

[77marco77]

perfekt, es funktioniert super.
Vielen Dank!