炸開屬性塊并且屬性值不改變,如何合并這兩個命令?

;在本论坛里东拼西凑,找来了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”)  ;此处出错,请教该如何写?

)

閱讀全文

為您推薦

發表評論

電子郵件地址不會被公開。 必填項已用*標注

聯系我們

聯系我們

18511713368

在線咨詢: QQ交談

郵箱: [email protected]

工作時間:周一至周五,9:00-17:30,節假日休息http://www.8913776.live
返回頂部

關于本站 || 下載幫助 ||版權聲明 || 免責條款 || 隱私條款 || 站點地圖 || ||

Copyright??2018 CAD之家 All Rights Reserved·黔ICP備15000265號-2

nba2kol2过人 星网锐捷股票行情 一分钟快速赛车开奖规律 北京快3直播视频 000858五粮液 免费股票推荐 股票指数可以买 广西快三计划公式 黑龙江6 1中奖规则 20选8稳赚技巧规律 山东省十一选五开奖结果五