;在本论坛里东拼西凑,找来了lsp代码。
;想将它们合并在同一个lisp里,不知道如何写,请教大家。
;设置动态块的状态为“允许分解”状态,才可以被炸开
(defun C:TT (/ X)
(if (and (setq X (entsel “\n选择图块: “))
(setq X (vlax-ename->vla-object (car X)))
)
(vl-catch-all-apply
‘(lambda ()
(setq X (vla-item
(vla-get-blocks
(vla-get-ActiveDocument (vlax-get-acad-object))
)
(vla-get-name X)
)
)
(vla-put-Explodable X :VLAX-TRUE)
)
)
)
(princ)
;;用 Burst 命令炸开动态块,并且属性值不发生改变。
(command “burst”) ;此处出错,请教该如何写?
)