yangwunhong 发表于 2014-10-21 20:20:51

autolisp赋值请教

请教各位大大，语句(setq dim (entsel "请选择含有数字的文本："))，但是当我不选择文本，而是直接输入数字比如55.5，如何让dim自动赋值为55.5?

ZZXXQQ 发表于 2014-10-21 21:25:20

(initget "S ")
(setq dim (entsel "请选择含有数字的文本(S=键盘输入): "))
(if (= dim "S") (setq dim (getdist "\n键入数据: ")))

yangwunhong 发表于 2014-10-22 08:50:46

多谢ZZXXQQ，

Andyhon 发表于 2014-10-22 09:14:31

如果键入数据较频繁可调整一下执行顺序

(or
(setq dim (getdist "\n键入数据: "))
(setq dim (entsel "请选择含有数字的文本："))
)

另外比较费神的是改用 Grread 函数...

自贡黄明儒 发表于 2014-10-22 12:00:13

本帖最后由 自贡黄明儒 于 2014-10-22 12:05 编辑

楼主左问，Z版右答，居然满足楼主要求了。Z版神了，猜中楼主要求！！

reyun 发表于 2014-10-22 18:28:38

厉害～
页: [1]
查看完整版本: autolisp赋值请教