cad_ 发表于 2011-5-25 02:32:49

错误:输入的列表有缺陷!!!

程序加载完显示错误:输入的列表有缺陷
(defun c:zhou8()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0);
(setq p0(getpoint"插入点:")
      d(getdist"轴直径:")
      b(getdist"键槽宽:")
      d1(getdist"输入轴径减键槽深:")
   )
(setq r(* 0.5d)
      b1(* 0.5b)
      s(sqrt(-(* r r) (* b1 b1)
      alfa(atan b1 s)
(setq p1(polar p0(+ a alfa) r)
      p2(polar p0(+ a pi) r)
      p3(polar p0(- a alfa) r)
      p4(polar p3(+ a pi) (- d d1))
      p5(polar p1(+ a pi) (- d d1))
)
(command"arc"p1 p2 p3)
   (command"line"p3 p4 p5 p1"")
求助谢谢大家!!

啵浪鼓 发表于 2011-5-25 02:37:25

下面这段至少3个括号,你要自已看清语法问题,不是让大家帮你说括号数量的
(setq r(* 0.5d)
      b1(* 0.5b)
      s(sqrt(-(* r r) (* b1 b1)
      alfa(atan b1 s)

cad_ 发表于 2011-5-25 02:39:41

回复 啵浪鼓 的帖子

谢谢啊   新手水平有限赶急要交了基础没打好 做起来问题就多很多基础的东西都还不是很清楚

啵浪鼓 发表于 2011-5-25 02:45:19

你看你几分钟就几一个贴,都是最起码的空格啊,括号啊这些基础问题,照你这样的问法,论坛首页将满是你的问题了

你用cad自带的编辑器来编啊
页: [1]
查看完整版本: 错误:输入的列表有缺陷!!!