AutoLisp,怎么实现重复执行命令

如题,要在Lisp里加上什么语句,才会自动重复呢?比如标注,完成了一个尺寸的标注要怎么样才能实现标注命令的自动载入?
可能说得不是太清楚,主要想表达的意思是,怎么才能实现标完一个尺寸后,程序仍处在标注命令下没有退出,而是呈现选择待标注对象的状态。按下ESC或者空格或者回车才会退出标注命令。

第1个回答  2010-04-02
不知道你具体想做什么,就编了一小段,大概可以实现你说的功能,在Vlisp控制台运行。提示选择一点后,判断是否有效,有效则作为标注的第一点,否则退出循环。

(setq a 0)
(while (/= a nil)
(progn
(setq a (getpoint "选择标注的第一点:"))
(if (/= a nil)
(command "_dimlinear" a pause pause)
)
)
)
第2个回答  2010-03-26
假设你的定义是RRV
(defun c:RRV ()
(---------)
(--------)
(c:rrv)

这样就行了
相似回答