autolisp赋值请教

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

请教各位大大，语句(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

厉害～

账号		自动登录	找回密码
密码			注册

[已解答] autolisp赋值请教