如题,要在Lisp里加上什么语句,才会自动重复呢?比如标注,完成了一个尺寸的标注要怎么样才能实现标注命令的自动载入?
可能说得不是太清楚,主要想表达的意思是,怎么才能实现标完一个尺寸后,程序仍处在标注命令下没有退出,而是呈现选择待标注对象的状态。按下ESC或者空格或者回车才会退出标注命令。
AutoLisp,怎么实现重复执行命令
答案:2 悬赏:10 手机版
解决时间 2021-02-15 07:17
- 提问者网友:临风不自傲
- 2021-02-14 11:48
最佳答案
- 五星知识达人网友:毛毛
- 2021-02-14 12:36
不知道你具体想做什么,就编了一小段,大概可以实现你说的功能,在Vlisp控制台运行。提示选择一点后,判断是否有效,有效则作为标注的第一点,否则退出循环。
(setq a 0)
(while (/= a nil)
(progn
(setq a (getpoint "选择标注的第一点:"))
(if (/= a nil)
(command "_dimlinear" a pause pause)
)
)
)
(setq a 0)
(while (/= a nil)
(progn
(setq a (getpoint "选择标注的第一点:"))
(if (/= a nil)
(command "_dimlinear" a pause pause)
)
)
)
全部回答
- 1楼网友:長槍戰八方
- 2021-02-14 13:17
你好!
假设你的定义是RRV
(defun c:RRV ()
(---------)
(--------)
(c:rrv)
)
这样就行了
我的回答你还满意吗~~
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯