cad_ 发表于 2011-5-25 01:45:49

求助 参数类型错误: numberp: nil 急!急!急!

一段画轴程序输入完参数后就显示:参数类型错误: numberp: nil
程序如下:
(defun c:zhou1()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0);
(setq p0(getpoint"\n 插入点:");
   a(getangle"\n 旋转角度:");
   d(getdist"\n 轴的直径:");
   L(getdist"\n 轴的长度:"));
setq p2(polar p0(+(* 0.5pi) a) (* 0.5d)
      p1(polar p2 a L)
      p3(polar p2(+(* 1.5pi) a) d)
      p4(polar p3 a- L))
   (command"line"p1 p2 p3 p4"")
)

求助搞人指点!!

236004 发表于 2011-5-25 01:54:46

(defun c:zhou1()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0);
(setq p0(getpoint"\n 插入点:")
        a(getangle"\n 旋转角度:")
        d(getdist"\n 轴的直径:")
        L(getdist"\n 轴的长度:")
        )
(setq p2(polar p0(+(* 0.5 pi) a) (* 0.5 d))
        p1(polar p2 a L)
        p3(polar p2 (+ (* 1.5 pi) a) d)
        p4(polar p3 a L))
(command"line"p1 p2 p3 p4 "")
)

236004 发表于 2011-5-25 01:55:55

变量,常数之间要加空格

cad_ 发表于 2011-5-25 01:57:00

回复 236004 的帖子

谢谢啊   先去试试

啵浪鼓 发表于 2011-5-25 01:59:56

回复 cad_ 的帖子

晕,2句前都少了空格嘛

setq p2(polar p0(+(* 0.5pi) a) (* 0.5d)
==>
(setq p2(polar p0(+(* 0.5 pi) a) (* 0.5 d))

p3(polar p2(+(* 1.5pi) a) d)
==>
p3(polar p2 (+ (* 1.5 pi) a) d)

cad_ 发表于 2011-5-25 02:03:07

回复 236004 的帖子

解决了
页: [1]
查看完整版本: 求助 参数类型错误: numberp: nil 急!急!急!