((if command-s command-s vl-cmdf)"_.select" ss "")
08下
(defun ACET-CMD-EXIT ()
(while (/= "" (GETVAR "CMDNAMES"))
;;((if command-s command-s vl-cmdf) nil)
(command nil)
)
)
如果用(if command-s command-s vl-cmdf)代替(command nil),会出问题的。 command虽然慢点,但是容错性是最好的,对于trim、extend、break等支持(实体点)这样的参数的命令,command-s是无法执行的 很讨厌的是command-s不支持带指定点的对象,必须去除点(car (entsel)),但很多调用的cad命令又需要这个点。
这个如何解决? 学习了,谢谢
页:
1
[2]