程序运行第一次良好，二次以后出现“参数太多”，或是结果不对

bearbear1 · 发表于 2010-6-11 09:01:00

(
defun c:wc( / hh p1 p2 p3 p4 pa pb pc pd w1 ww)
        (setvar "cmdecho" 0 )
        (setvar "blipmode" 0 )
(setq pa (getpoint "请输入第一点"))
(setq ww (getreal "\n请输入门洞宽度"))
(setq hh (getreal "\n请输入门洞高度"))
(setq w1 (getreal "\n请输入周边框宽度"))

(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pa (/ pi 2) hh))        ;矩形四角点pa,pb,pc,pd

(setq p1 (polar pa 0 w1))
(setq p2 (polar pa 0 (- ww w1)))
(setq p3 (polar p2 (/ pi 2) (- hh w1)))
(setq p4 (polar p1 (/ pi 2) (- hh w1))) ;内四角点p1,p2,p3,p4
(command "pline" pa pd pc pb p2 p3 p4 p1 "c")

(prin1)

)

(prompt ***********<< uad wc >>***********)
(prin1)

问题：第二次再运行出来的结果是，只画出pa pd pc pb 就结束了，

file://C:\Documents and Settings\SJ\桌面\未命名.jpg( 如何让截图显示，本人不会发贴子，技术问题太弱)

bearbear1 · 发表于 2010-6-11 09:01:00

图出来了？？呵呵

明经网友 *发表于 2010-6-11 09:25:00* · 发表于 2010-6-11 09:25:00

我试了一下，三次运行均正常。 AutoCAD 2010

bearbear1 · 发表于 2010-6-11 09:28:00

我再试试，我用的2004，

NetBee · 发表于 2010-6-11 17:57:00

没有问题

(defun c:wc (/ hh p1 p2 p3 p4 pa pb pc pd w1 ww)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq pa (getpoint "请输入第一点"))
(setq ww (getreal "\n请输入门洞宽度"))
(setq hh (getreal "\n请输入门洞高度"))
(setq w1 (getreal "\n请输入周边框宽度"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pa (/ pi 2) hh)) ;矩形四角点pa,pb,pc,pd
(setq p1 (polar pa 0 w1))
(setq p2 (polar pa 0 (- ww w1)))
(setq p3 (polar p2 (/ pi 2) (- hh w1)))
(setq p4 (polar p1 (/ pi 2) (- hh w1))) ;内四角点p1,p2,p3,p4
(command "pline" pa pd pc pb p2 p3 p4 p1 "c")
(princ)
)
(prompt "绘制门洞 wc")

xfyy · 发表于 2010-6-12 08:26:00

图出来了？？呵呵

szmaicy · 发表于 2010-6-12 08:52:00

(command "_.pline" "non" pa "non" pd "non" pc "non" pb "non" p2 "non" p3 "non" p4 "non" p1 "c")

账号		自动登录	找回密码
密码			注册

[基础] 程序运行第一次良好，二次以后出现“参数太多”，或是结果不对