合并赋值语句

szx025 · 发表于 2015-2-13 16:25:40

(setq W_dist (getreal (strcat "\洞口宽:")))
(setq h_dist (getreal (strcat "\洞口高:")))
这样的语句需要A回车，B回车来完成赋值
是否可以改为A,B回车完成两个这个赋值，而不是A回车，B回车。

Gu_xl · 发表于 2015-2-13 16:47:29

一个简单的方法：
(if (setq p (getpoint "\n洞口宽,高:"))
(setq W_dist (car p) h_dist (cadr p))
)

自贡黄明儒 · 发表于 2015-2-13 19:41:24

可以getstring,然后分解

lijiao · 发表于 2015-2-13 20:24:04

(GETCORNER PT [MSG])

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

[讨论] 合并赋值语句