询问

zyf482142

(defun C:cir(/ p1 p2 r)  ;p1、p2是函数参数，也是局部变元
(set p1(getpoint"\n请指示圆心"))
(set p2(getpoint"\n请指示圆上一点："))
(set r(distance p1 p2));得到圆心和圆上一点的距离，也就是圆的半径
(command"circle"p1 r)
)


显示错误: 参数类型错误: symbolp nil  请高手指导一下 急

wowan1314

怎么用SET不用SETQ呢？？    SET没用过哦。

ll_j

沙发是说到点子上了，但不知原因，我来解释一下。
set的解释是“将一个被引起来的符号名的值设置成一个表达式的值”，setq的解释是“将一个或多个符号的值设置为相应表达式的值”。
set和setq都是给变量赋值，比如“(setq a 3)”，就是给变量a赋值3，同样，set也是给变量赋值赋值，但不同的是，set是给“一个被引起来的符号名”赋值，很难理解是吧？说得通俗一点，就是这个“符号名”是“算”出来的，也就是说变量符号名也可以不是一个固定值，比如“(set (read (strcat "a" "1")) 3)”，等于“(setq a1 3)”，好像很复杂，但特殊时候这是需要的。

zyf482142

wowan1314 发表于 2012-12-3 10:16
怎么用SET不用SETQ呢？？    SET没用过哦。

哦 嘿嘿  解决了

zyf482142

ll_j 发表于 2012-12-3 10:39
沙发是说到点子上了，但不知原因，我来解释一下。
set的解释是“将一个被引起来的符号名的值设置成一个表达 ...

哦 谢谢 虽然好像还很模糊 我初学