[求助]lsp输入一个数据的命令 已解决

461045462

Andyhon发表于2010-11-23 9:24:00(setq xn1 (getreal \"\n请输入数据 <>: \")) .....(setq w1 (polar p0 (+ ang (* n1 pi)) (* n1 p_d1))) (+ ang (* n1 pi))   ; Pi 的 倍数值   << 内定值相

p1为二點的距離

p_d1是倍数值；比如1：500的图，尺寸的倍数

n1是任意数据

就是采取依極座標法取得另一座標點

现在主要不明白为什么

(setq xn1 (getreal "\n请输入数据 <>: "))

赋值就出错，采取内定值，可以是任意数据都能行。

是否可以理解为：不能用getreal语句，而要采用其它的命令？

或者说，这句话要改成什么样的语句？

谢谢您

也请其他高手指教指教

在此先谢了

 

 

 

 

Andyhon

3. (defun c:test ()
4.   (setq xn1 (getreal "\n请输入数据 <>: "))    ; 2.25
5.   (if (/= xn1 nil)
6.     (setq n1 xn1)
7.     (setq n1 2.25)
8.   )
9.   
10.   (setq p0 (getpoint "\n请选取第一点:"))
11.   (setq pt1 (getpoint P0 "\n请选取第二点:"))
12.   (setq pl (distance p0 pt1))
13.   (setq ang (angle p0 pt1))
14.   (setq p_d1 5)
15.    
16.   (setq w1 (polar p0 (+ ang (* n1 pi)) (* n1 p_d1)))
17.   (setq w2 (polar (polar p0 (+ ang (* n1 pi)) (* n1 p_d1)) ang pl))
18.   
19.   (command "line" "None" w1 "None" w2 "")
20. )
21. (defun c:test ()
22.   (setq xn1 (getreal "\n请输入数据 <>: "))   ;  2.25
23.   (if (/= xn1 nil)
24.     (setq n1 xn1)
25.     (setq n1 2.25)
26.   )
27.   
28.   (setq p0 (getpoint "\n请选取第一点:"))
29.   (setq pt1 (getpoint P0 "\n请选取第二点:"))
30.   (setq pl (distance p0 pt1))
31.   (setq ang (angle p0 pt1))
32.   (setq p_d1 5)
33.    
34.   (setq w1 (polar p0 (+ ang (* n1 pi)) (* n1 p_d1)))
35.   (setq w2 (polar w1 ang pl))
36.   
37.   (command "line" "None" w1 "None" w2 "")
38. )

(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 "") )

依此代码调试结果相同
赋值就出错!?  可有对照样本?

461045462

谢谢Andyhon

根据您的代码运行后，领悟到：是我弄错了，将角度也给了赋值，所以总是出错。

现在解决了

谢谢您一直的指教。耽误了您不少的时间。

再次深表谢意

 

461045462

jxlsp发表于2010-11-23 13:14:00(setq w1 (polar p0 (+ ang (* 0.5 pi)) (* n1 p_d1)))

谢谢jxlsp

正是问题所在，问题解决了

谢谢