スケールブロック定義

[77marco77]

おはようございます。
登りたい ログイン エディタをそれぞれ入力することなく、より多くのブロック(参照ではなく定義)。
私はこのコードのlibsを見つけました:

(defun c:sbd ; = スケールブロック定義
(/ ssf n )
(コマンド "_.layer" "_thaw" "*" "_unlock" "*" "*" "*" "*" "")
(if)
(と)
(setq ss (ssget '(0 . "insert")))))))))
(setq sf (getreal "\nscale 要因: ")))
;および
(repeat (setq n)); それから
(コマンド)
"_.-bedit" (cdr (ssname ss (setq n (1- n)))))))
"_.scale" "_all" "" "0,0" sf
"_.bclose" "_save"
)
;繰り返して下さい
; 場合
(コマンド "_.layerp")
(プライアンス)
; 詐欺

誰:

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

そして、私が必要とするものではなく、私が必要とするすべてを行う。

コードを変更できるので、 ログイン ブロックは "sign" のみで、属性ではありませんか? i.e. 小さい "simbolo" が、変更されていない属性のサイズ?
提案と助けを借りて、事前にありがとう!

 

[confutatis]

(defun c:sbd2 ; = スケールブロック定義
(/ sssf n インデックス gru)
(コマンド "_.layer" "_thaw" "*" "_unlock" "*" "*" "*" "*" "")
(if)
(と)
(setq ss (ssget '(0 . "insert")))))))))
(setq sf (getreal "\nscale 要因: ")))
;および
(repeat (setq n)); それから
(コマンド "_.-bedit" (cdr (assoc 2 (sssname ss))))))))))))))
(setq gru (ssget "x")))
(setq gru1 (追加))
(repeat (setq インデックス (sslength gru)))))
(setq ent (ssname gru (setq インデックス (1- インデックス)))))))
(例:(= (= (cdr (assoc 0 (entget entget ent))))) "attdef")
(ssadd ent gru1)
)
)
(コマンド "_.scale" gru1 "" "0,0" sf "_.bclose" "_save")
;繰り返して下さい
; 場合
(コマンド "_.layerp")
(プライアンス)
; 詐欺

 

[77marco77]

完璧に、素晴らしい作品です。
お問い合わせ