求一键炸开图中所有动态块

theisland

求一键炸开图中所有动态块，并提示炸开了多少个动态块，如果没有动态块则提示没有动态块，谢谢！

鱼与熊掌

2. (defun c:tt(/ *acad* *doc* *docs* *ms* cx-isdynamic i)
   
3.   (defun cx-Isdynamic ( obj  )
   
4.     (and (vlax-property-available-p obj 'isdynamicblock)
   
5.       (= :vlax-true (vla-get-isdynamicblock obj))
   
6.     )
   
7.   )
   
8.   (vl-load-com)
   
9.   (setq
   
10.     *ACAD*  (vlax-get-acad-object)
    
11.     *DOC*   (vla-get-ActiveDocument *ACAD*)
    
12.     *DOCS*  (vla-get-Documents *ACAD*)
    
13.     *MS*    (vla-get-modelSpace *DOC*)
    
14.   )
    
15.   (setq i 0)
    
16.   (vlax-for x *MS*
    
17.     (if (cx-Isdynamic x)
    
18.       (progn
    
19.         (vla-Explode x)
    
20.         (vla-Delete x)
    
21.         (setq i(1+ i))
    
22.       )
    
23.     )
    
24.   )
    
25.   (if(> i 0)
    
26.     (alert(strcat "一共炸开" (itoa i) "个动态块."))
    
27.     (alert"无动态块.")
    
28.   )
    
29.   (princ)
    
30. )

(defun c:tt(/ *acad* *doc* *docs* *ms* cx-isdynamic i)<br />   (defun cx-Isdynamic ( obj  )<br />     (and (vlax-property-available-p obj 'isdynamicblock)<br />       (= :vlax-true (vla-get-isdynamicblock obj))<br />     )<br />   )<br />   (vl-load-com)<br />   (setq<br />     *ACAD*  (vlax-get-acad-object)<br />     *DOC*   (vla-get-ActiveDocument *ACAD*)<br />     *DOCS*  (vla-get-Documents *ACAD*)<br />     *MS*    (vla-get-modelSpace *DOC*)<br />   )<br />   (setq i 0)<br />   (vlax-for x *MS*<br />     (if (cx-Isdynamic x)<br />       (progn<br />         (vla-Explode x)<br />         (vla-Delete x)<br />         (setq i(1+ i))<br />       )<br />     )<br />   )<br />   (if(> i 0)<br />     (alert(strcat "一共炸开" (itoa i) "个动态块."))<br />     (alert"无动态块.")<br />   )<br />   (princ)<br /> )

theisland

鱼与熊掌 发表于 2015-11-18 21:30

非常好！能把提示改成命令行形式的吗？不想去点那个提示框，还有图纸比较大（有几百个动态块）的时候运行等待时间稍长

鱼与熊掌

theisland 发表于 2015-11-18 22:04
非常好！能把提示改成命令行形式的吗？不想去点那个提示框，还有图纸比较大（有几百个动态块）的时候运行 ...

Alert改成prompt

theisland

鱼与熊掌 发表于 2015-11-19 11:59
Alert改成prompt

搞定，谢谢！

theisland

鱼与熊掌 发表于 2015-11-19 11:59
Alert改成prompt

朋友，如果我有部分动态块不想炸开怎么办呢？比如图中有名为“动态块1”、“动态块2”、“动态块3”的动态块（这3个动态块里面都有可见性参数）不需要炸开，其他大部分都是要炸开的该怎么改？