[编程申请]：智能explode程序！

coolzhb

先碰到一个情况，在外国人给的图纸，做模板图！但图中块很多，而且大部分是块中块！
请大家编个程序炸开它：

   要求：只炸开图块，不炸开尺寸线，hatch，pline等实体，同时也要炸开块中块！即做到炸开所有的块！
   不知道有没有这样的程序！

zxp

想法不错，命令很有用，但能不能做到要看高手们了！

coolzhb

最初由 zxp 发布
[B]想法不错，命令很有用，但能不能做到要看高手们了！ [/B]

还是自己写了一个！

2. 
   
3.   [FONT=courier new]
   
4. (defun c:eb(/)
   
5.         (setvar "cmdecho" 0)
   
6.         (prompt "\n*** 智能炸开图块V1.1-2003.12.23, (c) 1999-2003 By Zhou Haibing.")
   
7.         (setq p1 (getpoint "\n*** 选择图块，第一点<全选>:"))
   
8.         (if p1
   
9.                 (progn
   
10.                         (initget 1)
    
11.                         (setq p2 (getcorner p1 "\n*** 第二点: "))
    
12.                 )
    
13.         )
    
14.         (setq ss t)
    
15.         (while ss
    
16.                 (progn
    
17.                         (if p1
    
18.                                 (if (> (car p1) (car p2))
    
19.                                         (setq ss (ssget "w" p1 p2 '((0 . "insert"))))
    
20.                                         (setq ss (ssget "c" p1 p2 '((0 . "insert"))))
    
21.                                 )
    
22.                                 (setq ss (ssget "x" '((0 . "insert"))))
    
23.                         )
    
24.                         (if ss
    
25.                                 (command "_explode" ss)
    
26.                         )
    
27.                 )
    
28.         )
    
29.         (princ)
    
30. )
    
31.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:eb(/)<br />         (setvar "cmdecho" 0)<br />         (prompt "\n*** 智能炸开图块V1.1-2003.12.23, (c) 1999-2003 By Zhou Haibing.")<br />         (setq p1 (getpoint "\n*** 选择图块，第一点<全选>:"))<br />         (if p1<br />                 (progn<br />                         (initget 1)<br />                         (setq p2 (getcorner p1 "\n*** 第二点: "))<br />                 )<br />         )<br />         (setq ss t)<br />         (while ss<br />                 (progn<br />                         (if p1<br />                                 (if (> (car p1) (car p2))<br />                                         (setq ss (ssget "w" p1 p2 '((0 . "insert"))))<br />                                         (setq ss (ssget "c" p1 p2 '((0 . "insert"))))<br />                                 )<br />                                 (setq ss (ssget "x" '((0 . "insert"))))<br />                         )<br />                         (if ss<br />                                 (command "_explode" ss)<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )<br />   [/FONT]<br />

LUCAS

用VLISP炸開會快一些!

coolzhb

最初由 LUCAS 发布
[B]用VLISP炸開會快一些! [/B]

我在R14下工作，速度是有点慢，因为图很大很大！但再慢也比手工操作快多了，再说也不常用此命令，一幅图用一次而已，我的同事对我说，非常非常的好，完全可以了！

zzg123good

首先对楼主表示一下敬意，另外我有一点不明白，你为什么还用R14啊

coolzhb

最初由 zzg123good 发布
[B]首先对楼主表示一下敬意，另外我有一点不明白，你为什么还用R14啊 [/B]

因为需要二次开发的软件，他们在Cad2K上不兼容，所以只能忍痛割爱了！