[求助]：请各位高手帮忙看看这是怎么回事？？？

czg09180274

下面的这个是一个编辑练习题，我写了程序之后加载运行总是提示参数类型错误但我实在没搞清哪能里有问题。
请高手帮帮忙看看是怎么一回事，
先谢过各位了。

ll_j

计算部分的第一句中e前面未给定。

WYQ4517

计算部分的第一、第二句前后对调，否则出现空值开方。未试，仅参考。

SLMin

求出了E的距离，F的距离也可以不要了！
getangle 函数返回的是弧度，下面的（setq a (* a (/ pi 180)))还有用吗？
这样写：
   [php](defun c:test()
  (setq os (getvar "osmode"))
  (setq pw (getvar "plinewid"))
  (setvar "osmode" 0)
  (setvar "plinewid" 2)
  (setvar "cmdecho" 0)
  (setq w1 (getreal "\n左端长:"))
  (setq w2 (getreal "\n右端长:"))
  (setq ang (getangle "\n倾角:"))
  (setq d1 (getreal "\n左端直径:"))
  (setq d2 (getreal "\n右端直径:"))
  (setq pt (getpoint "\n基点:"))
  (setq p1 (polar pt (* pi 1.5) (/ d2 2)))
  (setq p2 (polar p1 0 w2))
  (setq p3 (polar p2 (/ pi 2) d2))
  (setq p4 (polar p3 pi w2))
  (setq pt2 (polar pt pi w1))
  (setq p6 (polar pt2 (/ pi 2) (/ d1 2)))
  (setq p7 (polar pt2 (* pi 1.5) (/ d1 2)))
  (setq e (/ w1 (cos ang)))
  (setq p5 (polar p6 ang e))
  (setq p8 (polar p7 (-(* pi 2) ang) e))
  (vl-cmdf "pline" p5 p6 p7 p8 "c")
  (vl-cmdf "pline" p1 p2 p3 p4 "")
  (setvar "osmode" os)
  (setvar "plinewid" pw)
  (princ)
  )
  [/php]

czg09180274

谢谢楼上各位的指点。

我照楼上讲的“删掉（setq a (* a (/ pi 180)))”这一行，
并将e的定义移到f的前面
将：(command "line" p5 p8 "c")
改成：(command "line" p5 p8 "")
后运行就正常了。