yang686526

[求达人]惨被“参数太少”蹂躏
www.dimcax.com
[求达人]惨被“参数太少”蹂躏
请大家看看这个程序可以加载，但输入命令后提示参数太少，为什么呀，调试了很久，我看不出问题出在哪儿，功能是画一个矩形，代码如下：
(defun c:diban(/ ss pt1 pt2 pt3 pt4 ww ll e)
(setq ss (getvar "osmode"))
(setvar "osmode" 0)
(setq pt1 (getpoint "\n定位点:"))
(setq ww (getint "\n矩形的宽度:"))
(setq ll (getint "\n矩形的长度:"))
(setq pt2 (list (car pt1)(+ ww (cadr pt1))))
(setq pt3 (list (+ ll (car pt2))(cadr pt2)))
(setq pt4 (list (+ ll (car pt1))(cadr pt1)))
(command "pline" pt1 pt2 pt3 pt4 "c")
(setq e (entlast))
(command "move" e "" pt1 pause)
(setvar "osmode" ss)
)
d
...我看不出问题出在哪儿...
d