lisp调用天正命令参数修改_在lisp中模拟运行CAD的command命令函数

自定义一个gxl-Command 函数，在lisp中自定义运行任何CAD的command命令，返回选择集，无需考虑cad命令所需参数，

;;;参数 cad命令字符串，例如：(gxl-Command "line")，返回line命令所画的全部直线选择集

(defun gxl-Command (cmd / EN SS)

(SETQ EN (ENTLAST))

(SETQ SS (SSADD))

(command cmd)

(while (= 1 (getvar "cmdactive"))

(command pause)

)

(IF EN

(while (setq en (entnext en))

(SSADD EN SS)

)

(PROGN

(SETQ EN (ENTNEXT))

(IF EN

(PROGN

(SSADD EN SS)

(while (setq en (entnext en))

(SSADD EN SS)

)

)

)

)

)

SS

)