社区 › AutoCAD基础应用 › 炸开属性块并且属性值不改变，如何合并这两个命令？

mokson 发表于 2019-5-18 16:28:53

炸开属性块并且属性值不改变，如何合并这两个命令？

本帖最后由 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");此处出错，请教该如何写？

)

mokson 发表于 2019-5-19 08:04:35

太神们走近看看吧。

dunkel 发表于 2019-5-20 09:05:49

burst 不是 acad 原生的内置命令吧，好像也是用 lsp 写的，所以试试用 (c:burst) 调用看。

aichong 发表于 2019-5-20 09:17:18

dunkel 发表于 2019-5-20 09:05
burst 不是 acad 原生的内置命令吧，好像也是用 lsp 写的，所以试试用 (c:burst) 调用看。

Burst 命令是ET扩展工具里面的

satan421 发表于 2019-5-22 15:12:20

_$ (type burst)
nil
_$ (type c:burst)
USUBR
_$ (type acet-ui-txted)
EXRXSUBR

mokson 发表于 2019-5-23 08:23:52

向你们致敬，向你们学习，感谢你们的热情帮助！谢谢。

尘缘一生 发表于 2019-10-9 07:16:32

这个问题，目前还没有完美代码。。。。。。。。。。。。。。

zhangcan0515 发表于 2020-9-20 13:49:41

你找找我以前发的代码分享过

行天下 发表于 2022-10-7 18:35:58

向你们致敬，向你们学习

yefei812678 发表于 2024-3-21 18:04:23

谢谢分享谢谢分享谢谢分享

查看完整版本: 炸开属性块并且属性值不改变，如何合并这两个命令？