让全局变量释放为 nil

千秋雪 · 发表于 2017-12-11 20:24:19

本帖最后由千秋雪于 2017-12-11 20:24 编辑

(defun c:tt (/ a)
  (if (= b nil) (setq b 100))
  (setq a (getreal (strcat "\n a值<" b ">:")))
  (if (= a nil) (setq a b))

  (setq b a)  ；将 a值赋予 b，保留状态，方便使用

  (if (= a 0) (setq b nil))  ；有时想将全局变量 b释放掉，复归为  nil，此时a以值输入为0为条件，不知这样可不可行？
  (princ)
)

另外，非常奇怪，这段代码第一行就出错，参数类型错误: stringp 1，不知问题出在那里？

自贡黄明儒 · 发表于 2017-12-11 20:30:32

应该是第二行出错。
(strcat "\n a值<" b ">:")，第一行b=100是数字，strcat不行的。

vectra · 发表于 2017-12-11 20:30:45

b可能是nil或浮点数
第3行应改为

(setq a (getreal (strcat "\n a值<" (rtos b) ">:")))

千秋雪 · 发表于 2017-12-11 21:35:53

多谢楼上两位指正

LIULISHENG · 发表于 2018-2-5 16:00:39

学习了

llsheng_73 · 发表于 2018-2-6 10:51:33

(setq a (getreal (strcat "\n a值<" (VL-PRINC-TO-STRING b) ">:")))

VL-PRINC-TO-STRING 可以无视变量有没值和它的类型

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

[提问] 让全局变量释放为 nil