(+ ang (* n1 pi)) ; Pi 的 倍数值 << 内定值相
<p>p1为<font face="Verdana">二點的距離</font></p>
<p>p_d1是倍数值；比如1：500的图，尺寸的倍数</p>
<p>n1是任意数据</p>
<p>就是采取<font face="Verdana">依極座標法取得另一座標點</font></p>
<p>现在主要不明白为什么</p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">(setq xn1 (getreal "\n请输入数据 <>: ")) </font></p>
<p>赋值就出错，采取内定值，可以是任意数据都能行。</p>
<p>是否可以理解为：不能用getreal语句，而要采用其它的命令？</p>
<p>或者说，这句话要改成什么样的语句？</p>
<p>谢谢您</p>
<p>也请其他高手指教指教</p>
<p>在此先谢了</p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
(defun c:test ()
(setq xn1 (getreal "\n请输入数据 <>: ")) ; 2.25
(if (/= xn1 nil)
(setq n1 xn1)
(setq n1 2.25)
)
(setq p0 (getpoint "\n请选取第一点:"))
(setq pt1 (getpoint P0 "\n请选取第二点:"))
(setq pl (distance p0 pt1))
(setq ang (angle p0 pt1))
(setq p_d1 5)
(setq w1 (polar p0 (+ ang (* n1 pi)) (* n1 p_d1)))
(setq w2 (polar (polar p0 (+ ang (* n1 pi)) (* n1 p_d1)) ang pl))
(command "line" "None" w1 "None" w2 "")
)
(defun c:test ()
(setq xn1 (getreal "\n请输入数据 <>: ")) ;2.25
(if (/= xn1 nil)
(setq n1 xn1)
(setq n1 2.25)
)
(setq p0 (getpoint "\n请选取第一点:"))
(setq pt1 (getpoint P0 "\n请选取第二点:"))
(setq pl (distance p0 pt1))
(setq ang (angle p0 pt1))
(setq p_d1 5)
(setq w1 (polar p0 (+ ang (* n1 pi)) (* n1 p_d1)))
(setq w2 (polar w1 ang pl))
(command "line" "None" w1 "None" w2 "")
)
依此代码调试结果相同
赋值就出错!?可有对照样本?
<p>谢谢<font color="#61b713" face="Verdana"><b>Andyhon</b></font></p>
<p><strong><font color="#000000">根据您的代码运行后，领悟到：是我弄错了，将角度也给了赋值，所以总是出错。</font></strong></p>
<p><strong>现在解决了</strong></p>
<p><strong>谢谢您一直的指教。耽误了您不少的时间。</strong></p>
<p><strong>再次深表谢意</strong></p>
<p> </p> jxlsp发表于2010-11-23 13:14:00static/image/common/back.gif(setq w1 (polar p0 (+ ang (* 0.5 pi)) (* n1 p_d1)))
<p>谢谢<font color="#61b713" face="Verdana"><b>jxlsp</b></font></p>
<p>正是问题所在，问题解决了</p>
<p>谢谢</p>
页:
1
[2]