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洞口宽,高:"))
(setqW_dist (car p) h_dist (cadr p))
)

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

可以getstring,然后分解

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

(GETCORNER PT )
页: [1]
查看完整版本: 合并赋值语句