[求助]：小弟练习了一个画矩形的，不能运行，帮忙给改一下

飘荡

(defun c:pbox()
  (setq pa (getpoint"enter left/low point:"))
  (setq ww (getreal"width:"))
  (setq hh (getreal"height:"))
  (setq pb (polar pa 0 ww)
  (setq pc (polar pb(/pi 2)hh)
   (setq pd (polar pc pi ww)
(command"pline" pa pb pc pd"c")
)

netbee

2. 
   
3. (defun c:pbox ()
   
4.   (setq pa (getpoint "enter left/low point:"))
   
5.   (setq ww (getreal "width:"))
   
6.   (setq hh (getreal "height:"))
   
7.   (setq pb (polar pa 0 ww));;;最后少个右括号
   
8.   (setq pc (polar pb (/ pi 2) hh)) ;;;除号与PI没有分开,;最后少个右括号
   
9.   (setq pd (polar pc pi ww));;最后少个右括号
   
10.   (command "pline" pa pb pc pd "c")
    
11. )

<br /> (defun c:pbox ()<br />   (setq pa (getpoint "enter left/low point:"))<br />   (setq ww (getreal "width:"))<br />   (setq hh (getreal "height:"))<br />   (setq pb (polar pa 0 ww));;;最后少个右括号<br />   (setq pc (polar pb (/ pi 2) hh)) ;;;除号与PI没有分开,;最后少个右括号<br />   (setq pd (polar pc pi ww));;最后少个右括号<br />   (command "pline" pa pb pc pd "c")<br /> )

yjtdkj

2. 
   
3.   [FONT=courier new]
   
4. (defun c:pbox (/ HH PA PB PC PD WW)
   
5.   (setq pa (getpoint "enter left/low point:"))
   
6.   (setq ww (getreal "width:"))
   
7.   (setq hh (getreal "height:"))
   
8.   (setq pb (polar pa 0 ww))
   
9.   (setq pc (polar pb (/ pi 2) hh))
   
10.   (setq pd (polar pc pi ww))
    
11.   (command "pline" pa pb pc pd "c")
    
12. )
    
13.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:pbox (/ HH PA PB PC PD WW)<br />   (setq pa (getpoint "enter left/low point:"))<br />   (setq ww (getreal "width:"))<br />   (setq hh (getreal "height:"))<br />   (setq pb (polar pa 0 ww))<br />   (setq pc (polar pb (/ pi 2) hh))<br />   (setq pd (polar pc pi ww))<br />   (command "pline" pa pb pc pd "c")<br /> )<br />   [/FONT]<br />

有三点
1。要记住加括号，你用的是VLISP编辑器吗？如果是就格式化代码，这样比较容易找到不匹配的括号。
2。(/ pi 2)三者之间要用空格。
3。(/ HH PA PB PC PD WW)要记住使用局部变量，不然就会使CAD运行太慢。

Alick

上述三点对我等初学者来说是一定要注意的。

墨色寒冰

看来问题已经解决了，我以后也要注意的问题。
(/ HH PA PB PC PD WW)要记住使用局部变量，不然就会使CAD运行太慢。

hpfchm

我觉得引号也有问题啊!你必须在英文输入法下输入,括号也是如此啊

saltxf

(/ HH PA PB PC PD WW)   
如果局部变量太多怎么办？