cad的分解能不能编成所有CAD版本都可以用或者帮我改进

那一抹微笑

(DEFUN C:X1(/ ENT DIST)
(SETVAR "CMDECHO" 1)
(SETQ ENT (SSGET))
(COMMAND "_EXPLODE"ENT)
)
这个能不能改进一下，这个一次只能分解一个对象，改为框选可以分解多个对象

marting

1. (defun c:tt ()
   
2.   (if (setq ss (ssget))
   
3.     (progn
   
4.       (setvar "qaflags" 1)
   
5.       (command ".explode" ss "")
   
6.       (setvar "qaflags" 0)
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )
    

(defun c:tt ()<br />   (if (setq ss (ssget))<br />     (progn<br />       (setvar "qaflags" 1)<br />       (command ".explode" ss "")<br />       (setvar "qaflags" 0)<br />     )<br />   )<br />   (princ)<br /> )<br />

那一抹微笑

额，你好，加载不了，怎么破啊

Lisphk

那一抹微笑 发表于 2018-5-15 08:21
额，你好，加载不了，怎么破啊

就几行代码，有什么加载不了的。你拷贝回去。不行，就自己重新输下。

那一抹微笑

好的，谢谢啊，，，，