[求助]：如何实现批量成图

TLHMQH

才明白是怎么回事，请报书名。害人！
ZUOZHE JINGSHEN

zml84

楼主的问题想以LISP实现的话，可以参见http://www.xdcad.net/forum/showt ... 3021182#post3021182

<br>
另：11楼的代码改作这样，是不是更好一点：

2. 
   
3. ;;;删除全部
   
4. (defun DelAll (/  ss)
   
5.     (if        (setq ss (ssget "all"))
   
6.         (progn
   
7.             (princ (strcat "\n实体个数为: "
   
8.                            (itoa (sslength ss))
   
9.                            " 个。"
   
10.                    )
    
11.             )
    
12.             (command "_.erase" "ss" "")
    
13.         )
    
14.     )
    
15.     (princ)
    
16. )
    

<br /> ;;;删除全部<br /> (defun DelAll (/  ss)<br />     (if        (setq ss (ssget "all"))<br />         (progn<br />             (princ (strcat "\n实体个数为: "<br />                            (itoa (sslength ss))<br />                            " 个。"<br />                    )<br />             )<br />             (command "_.erase" "ss" "")<br />         )<br />     )<br />     (princ)<br /> )<br />

c3a139

zml84楼上的程序我试了，非常好，作用一样但却更简练，短小精悍，真不愧为高手，谢谢！
(command "_.erase" "ss" "")应改为(command "_.erase" ss "")

happyboy75

测试通过