這樣的lisp問題出在那

formz

5

(defun c:5test3 ()
  (setq a1 (getpoint "\n输入插入点:"))
  (setq w1 (getreal "\n输入w1长:"))
         (setq w2 (getreal "\n输入w2长:"))
         (setq a  (getreal "\n输入a长角度:"))
         (setq b  (getreal "\n输入b长:"))  
         (setq d (getreal "\n输入d长:"))  
   (setq pt1 (polar a1 (* 1.5 pi)(* 0.5 b )))
   (setq pt2 (polar pt1 0 w2))
   (setq pt3 (polar pt2 0 b))
   (setq pt4 (polar pt3 pi w2))
   (setq n   (/ (w1 (cos a)))
   (setq n1  (sqrt(-(*n  n)(*w1 w1))))
   (setq pt5 (polar pt4 (* 0.5 pi)n1))
   (setq pt6 (polar pt5 (*(- 90 a)(/180 pi)n)))
   (setq pt7 (polar pt6 (*1.5 pi) d))
   (setq pt8 (polar pt1 (*1.5 pi) n1))
 (command "line" pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8"c")
(prin1)
)

tcsl9621

关闭捕捉。你可以用LISP编辑器调试一下。

rongyifei

粗略地看了一下,问题还是比较多的.

1.(/ (w1 (cos a)))应该为(/ w1 (cos a));

2.诸如此类*(- 90 a)(/180 pi)n)))都不符合语法格式:

应改为* (- 90 a) (/ 180 pi) n),该有的空格绝对不能省;

3. 这一句polar pt5 (*(- 90 a)(/180 pi)n))

少了参数,应改为polar pt5 (* (- 90 a) (/ 180 pi)) n);