本帖最后由 mokson 于 2019-5-19 08:03 编辑
;在本论坛里东拼西凑，找来了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") ;此处出错，请教该如何写？
)
网友答: 太神们走近看看吧。网友答: burst 不是 acad 原生的内置命令吧，好像也是用 lsp 写的，所以试试用 (c:burst) 调用看。网友答:
Burst 命令是ET扩展工具里面的网友答: _$ (type burst)
nil
_$ (type c:burst)
USUBR
_$ (type acet-ui-txted)
EXRXSUBR网友答: 向你们致敬，向你们学习，感谢你们的热情帮助！谢谢。网友答: 这个问题，目前还没有完美代码。。。。。。。。。。。。。。
网友答: 你找找我以前发的代码分享过网友答: 向你们致敬，向你们学习网友答: 谢谢分享谢谢分享谢谢分享
;在本论坛里东拼西凑，找来了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") ;此处出错，请教该如何写？
)
网友答: 太神们走近看看吧。网友答: burst 不是 acad 原生的内置命令吧，好像也是用 lsp 写的，所以试试用 (c:burst) 调用看。网友答:
dunkel 发表于 2019-5-20 09:05
burst 不是 acad 原生的内置命令吧，好像也是用 lsp 写的，所以试试用 (c:burst) 调用看。
Burst 命令是ET扩展工具里面的网友答: _$ (type burst)
nil
_$ (type c:burst)
USUBR
_$ (type acet-ui-txted)
EXRXSUBR网友答: 向你们致敬，向你们学习，感谢你们的热情帮助！谢谢。网友答: 这个问题，目前还没有完美代码。。。。。。。。。。。。。。
网友答: 你找找我以前发的代码分享过网友答: 向你们致敬，向你们学习网友答: 谢谢分享谢谢分享谢谢分享