还是老问题 2004运行第二次，结果出问题
( 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)
<font face="Verdana">(<br/>defun c:wc( / hh p1 p2 p3 p4 pa pb pc pd w1 ww)<br/> (setvar "cmdecho" 0 )<br/> (setvar "blipmode" 0 )<br/> (setq pa (getpoint "请输入第一点"))<br/> (setq ww (getreal "\n请输入门洞宽度")) <br/> (setq hh (getreal "\n请输入门洞高度"))<br/> (setq w1 (getreal "\n请输入周边框宽度"))<br/> <br/> <br/> (setq pb (polar pa 0 ww))<br/> (setq pc (polar pb (/ pi 2) hh))<br/> (setq pd (polar pa (/ pi 2) hh)) ;矩形四角点pa,pb,pc,pd<br/> <br/> (setq p1 (polar pa 0 w1))<br/> (setq p2 (polar pa 0 (- ww w1)))<br/> (setq p3 (polar p2 (/ pi 2) (- hh w1)))<br/> (setq p4 (polar p1 (/ pi 2) (- hh w1))) ;内四角点p1,p2,p3,p4<br/> (command "pline" pa pd pc pb p2 p3 p4 p1 "c")<br/> (command "line" p1 p2 "" )<br/> (command "zoom" "a" "")<br/> <br/> (setq en (entlast)) ;取line (p1,p2)<br/> (setq txgd (getreal "通行高度"))<br/> (setq htgd (getreal "\n横套高度"))<br/> (setq pup(polar p1 (/ pi 2) txgd))<br/> (setq pup2(polar p1 (/ pi 2) (+ txgd htgd)))<br/> (command "copy" en "" p1 pup "")<br/> (command "copy" en "" p1 pup2 "") ;横套绘制<br/> <br/> <br/> <br/> <br/> <br/> (prin1)<br/> <br/>)<br/>(prompt "***********<< c:wc >>***********")<br/> (prin1)</font> <p>我在不同的机子上，都用04的运行，第二次的时候，老出现右边的结果</p>
<p> </p>
<p> </p>
<p>周边的框100 老出来，，</p>
<p> </p>
<p>或请教有没有好的画图方法</p> <p>没细看程序</p>
<p>如果点的输入或计算没问题</p>
<p>试下command命令前关闭捕捉模式</p> 试试
页:
[1]