如何在visual lisp的dwg命令反应器中加入(command ".....")

zxwbq

(vl-load-com)
;**************************************************************
;setup and intilise the reactor
(vlr-dwg-reactor "timespurge" '((:vlr-beginclose . timespurge)))
;**************************************************************

(defun timespurge (rctr param)
;get the reactor Object

(vl-cmdf "autopurge");

(princ)
);defun
;********************************************************
(princ)
;********************************************************

以上代码似乎不能工作。每次cad文字窗口都不显示purge结果。请高手指点如何在reactor中
调用AutoCAD命令。(不是autolisp命令噢)
e.g. line, circle,

夜未眠

告诉你，反映器是不可能包含CAD命令的！想其他的方法吧。

onej

可以的!!很简单,去CAD官方论坛看吧