230问答网 > cad中autolisp编程中实现“指定基点或 [位移(D)⼀模式(O)⼀多个(M)] <位移>: ”

cad中autolisp编程中实现“指定基点或 [位移(D)⼀模式(O)⼀多个(M)] <位移>: ”

2024-12-17 09:21:27

推荐回答（2个）

回答1：

用initget函数可实现，下面实例就是在获取距离的时候，还可以键盘输入S来运行SE程序。
(initget "S")
(setq ds(getdist "\n输入距离或 [参照(S)]: "))
(cond
((= ds "S") (se)) ;选择参照实体并处理
((= ds nil) (end)) ;空输入退出，可在前面initget中禁止
(t nil) ;正常输入，向下继续
)

回答2：

这个不是三言两语就可以说得清楚的，建议你还是先看看入门的lisp教程书。