[求助]如何消除setq给的结果已解决

461045462 · 发表于 2010-10-3 23:33:00

本帖最后由作者于 2010-10-5 6:24:35 编辑

在cad作图是，有时需要给一个数字加上前缀，有时又不需要。如果不加前缀命令，一个一个的敲很麻烦，我加载后，在不需要时，却不知道要如何消除，也就是前缀为空的。

见下面：

(if k
          ()
           (setq k "")
            )

     (setq nk (getstring (strcat "\n请输入前缀<" k ">: " )))
             (if (/= nk "")
                (setq k nk)
               )

请问要如何修改，望高手指教。

谢谢

已解决

crazylsp · 发表于 2010-10-4 17:58:00

本帖最后由 crazylsp 于 2011-4-21 11:30 编辑

我也是瞎掰, 思路参考哈

(initget "K KK")

461045462 · 发表于 2010-10-5 06:24:00

crazylsp发表于2010-10-4 17:58:00我也是瞎掰, 思路参考哈 (initget \"K KK\") (setq i (getkword \"\n<要加前缀(K)>/<不加前缀(KK)>:\")) (if (= i \"K\") (while

谢谢您的答复。

学习了，我没有想到用这样的办法。

我后来采取了判断的方式解决。

谢谢

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

[求助]如何消除setq给的结果 已解决