[求助]mline之后lisp如何操作

henwuqing

我画完平行线后想让他自动打碎为线,我尝试的办法由2个，代码都用lisp
1，在划线命令后，直接写炸碎命令，发现炸碎命令没有执行
    （defun c:123()
          (command "mline")
          (c:ai_selall)
          (command "explode")
     )
2，在其他命令前执行打碎，发现打碎还是没有执行
    （defun c:321()
          (c:ai_selall)
          (command "explode")
          (command "break")
      )
代码写的很烂，大家不要笑话...帮忙解决下问题,谢谢了～～～～～

sailorcwx

2. (defun c:123()
3.   ;启动绘制双线命令
4.   (command "mline")
5.   ;检测命令是否结束
6.   (while (= (getvar "CMDACTIVE") 1)
7.     ;没有结束，等待用户输入
8.     (command pause)
9.    
10.     )
11.   ;获取上面命令生成的多线
12.   (setq ent (entlast))
13.   ;执行分解命令
14.   (command "EXPLODE" ent)
15.   ;静默退出
16.   (princ)
17.   )

(defun c:123()   ;启动绘制双线命令   (command "mline")   ;检测命令是否结束   (while (= (getvar "CMDACTIVE") 1)     ;没有结束，等待用户输入     (command pause)         )   ;获取上面命令生成的多线   (setq ent (entlast))   ;执行分解命令   (command "EXPLODE" ent)   ;静默退出   (princ)   )

henwuqing

感谢sailorcwx,测试过了，代码完全正确