pascal1209 发表于 2009-2-5 16:28:00

[求达人]惨被“参数太少”蹂躏

本帖最后由 作者 于 2009-2-5 16:31:42 编辑 <br /><br /> <p>请大家看看这个程序可以加载，但输入命令后提示参数太少，为什么呀，调试了很久，我看不出问题出在哪儿，功能是画一个矩形，代码如下：</p><p>(defun C:diban(/ ss pt1 pt2 pt3 pt4 ww ll e)<br/>&nbsp; (setq ss (getvar "OSMODE"))<br/>&nbsp; (setvar "OSMODE" 0)<br/>&nbsp; (setq pt1 (getpoint "\n定位点:"))<br/>&nbsp; (setq ww (getint "\n矩形的宽度:"))<br/>&nbsp; (setq ll (getint "\n矩形的长度:"))<br/>&nbsp; (setq pt2 (list (car pt1)(+ ww (cadr pt1))))<br/>&nbsp; (setq pt3 (list (+ ll (car pt2))(cadr pt2)))<br/>&nbsp; (setq pt4 (list (+ ll (car pt1))(cadr pt1)))<br/>&nbsp; (command "pline" pt1 pt2 pt3 pt4 "c")<br/>&nbsp; (setq e (entlast))<br/>&nbsp; (command "move" e "" pt1 pause)<br/>&nbsp; (setvar "OSMODE" ss)<br/>)</p>

Andyhon 发表于 2009-2-5 17:03:00

...我看不出问题出在哪儿...2004 测试ok!
重启CAD再试!
页: [1]
查看完整版本: [求达人]惨被“参数太少”蹂躏