请指点一下 为什么会出现参数太少呢

onlyonewolf

(defun c:rect2(/w h alf p1 p2 p3 p4)
        (setq p1 (getpoint "输入矩形一个角点")
              w  (getdist p1 "输入矩形的宽")
              h  (getdist p1 "输入矩形的高")
              alf (getangle p1 "输入矩形的旋转角")
        )
        (setq p2 (polar p1 alf w))
        (setq p3 (polar p2 (+ alf (* 0.5 pi)) h))
        (setq p4 (polar p3 (+ alf pi) w))
        (command "pline" p1 p2 p3 p4 "c")
        (princ)
)
我是新手  在lisp编辑器中 我进行语法检查 并没有说参数太少呀 为什么在cad运行中就会出现参数太少

MaKaiJin

当然少了，你要明确确定坐标的用法，建议看看坐标函数的定义.

zml84

1. (defun c:rect2 (/ w h alf p1 p2 p3 p4)
   
2.   (setq        p1  (getpoint "输入矩形一个角点")
   
3.         w   (getdist p1 "输入矩形的宽")
   
4.         h   (getdist p1 "输入矩形的高")
   
5.         alf (getangle p1 "输入矩形的旋转角")
   
6.   )
   
7.   (setq p2 (polar p1 alf w))
   
8.   (setq p3 (polar p2 (+ alf (* 0.5 pi)) h))
   
9.   (setq p4 (polar p3 (+ alf pi) w))
   
10.   (command "_.pline" p1 p2 p3 p4 "c")
    
11.   (princ)
    
12. )

(defun c:rect2 (/ w h alf p1 p2 p3 p4)<br />   (setq        p1  (getpoint "输入矩形一个角点")<br />         w   (getdist p1 "输入矩形的宽")<br />         h   (getdist p1 "输入矩形的高")<br />         alf (getangle p1 "输入矩形的旋转角")<br />   )<br />   (setq p2 (polar p1 alf w))<br />   (setq p3 (polar p2 (+ alf (* 0.5 pi)) h))<br />   (setq p4 (polar p3 (+ alf pi) w))<br />   (command "_.pline" p1 p2 p3 p4 "c")<br />   (princ)<br /> )

Andyhon

(/w h alf p1 p2 p3 p4)
==>
(/ w h alf p1 p2 p3 p4)       这个空格不能 漏

onlyonewolf

学习了  谢谢各位的指导