还是老问题 2004运行第二次，结果出问题

bearbear1

3. ( defun c:wc( / hh p1 p2 p3 p4 pa pb pc pd w1 ww)
4. (setvar "cmdecho" 0 )
5. (setvar "blipmode" 0 )
6. (setq pa (getpoint "请输入第一点"))
7. (setq ww (getreal "\n请输入门洞宽度"))
8. (setq hh (getreal "\n请输入门洞高度"))
9. (setq w1 (getreal "\n请输入周边框宽度"))
10. (setq pb (polar pa 0 ww))
11. (setq pc (polar pb (/ pi 2) hh))
12. (setq pd (polar pa (/ pi 2) hh))
13. ;矩形四角点pa,pb,pc,pd
14. (setq p1 (polar pa 0 w1))
15. (setq p2 (polar pa 0 (- ww w1)))
16. (setq p3 (polar p2 (/ pi 2) (- hh w1)))
17. (setq p4 (polar p1 (/ pi 2) (- hh w1)))
18. ;内四角点p1,p2,p3,p4
19. (command "pline" pa pd pc pb p2 p3 p4 p1 "c")
20. (command "line" p1 p2 "" )
21. (command "zoom" "a" "")
22. (setq en (entlast))
23. ;取line (p1,p2)
24. (setq txgd (getreal "通行高度"))
25. (setq htgd (getreal "\n横套高度"))
26. (setq pup(polar p1 (/ pi 2) txgd))
27. (setq pup2(polar p1 (/ pi 2) (+ txgd htgd)))
28. (command "copy" en "" p1 pup "")
29. (command "copy" en "" p1 pup2 "")
30. ;横套绘制
31. (prin1)
32. )
33. (prompt "***********<< c:wc >>***********")
34. (prin1)

( 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") (command "line" p1 p2 "" ) (command "zoom" "a" "") (setq en (entlast)) ;取line (p1,p2) (setq txgd (getreal "通行高度")) (setq htgd (getreal "\n横套高度")) (setq pup(polar p1 (/ pi 2) txgd)) (setq pup2(polar p1 (/ pi 2) (+ txgd htgd))) (command "copy" en "" p1 pup "") (command "copy" en "" p1 pup2 "") ;横套绘制 (prin1) ) (prompt "***********<< c:wc >>***********") (prin1)

bearbear1

(
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")
 (command "line" p1 p2 "" )
 (command "zoom" "a" "")
 
 (setq en (entlast))  ;取line (p1,p2)
        (setq txgd (getreal "通行高度"))
        (setq htgd (getreal "\n横套高度"))
        (setq pup(polar p1 (/ pi 2) txgd))
        (setq pup2(polar p1 (/ pi 2) (+ txgd htgd)))
        (command "copy" en "" p1 pup "")
        (command "copy" en "" p1 pup2 "")  ;横套绘制
 
 
 
 
 
 (prin1)
 
)
(prompt "***********<< c:wc >>***********")
 (prin1)

bearbear1

我在不同的机子上，都用04的运行，第二次的时候，老出现右边的结果

 

 

周边的框100 老出来，，

 

或请教有没有好的画图方法

masterlong

没细看程序

如果点的输入或计算没问题

试下command命令前关闭捕捉模式

bearbear1

试试