[討論]lisp小小麻煩請大大幫忙解答一下

(setq p1 (getpoint "\n插入點：")
l1 (getreal "\n長：")
t1 (getreal "\n厚：")
l2 (/ l1 2 )
t2 (/ t1 10 )
)
(setq p2 (polar p1 0 l1)
p3 (polar p1 1.57 t1)
p4 (polar p3 0 l1)
p5 (polar p1 0 l2)
p6 (polar p5 1.57 t1)
p7 (polar p6 1.57 t2)
)
(command "line" p1 p2 ""
"line" p1 p3 ""
"line" p3 p4 ""
"circle" p7 p6 ""
)

這幾天很努力的在看和試大大們寫的lisp下摸出點線索…
只是前面到要畫好ㄈ字型都很順利，到最後面要換那個t1/10的圓就破功了，想很久就是
找不到問題也找不到相關文…我的魔法書訂好了還沒寄到qq，肯請大大們幫忙指正一下吧！

希望完成圖如下

(defun C:nnn()
(setq p1 (getpoint "\n插入點：")
l1 (getreal "\n長：")
t1 (getreal "\n厚：")
l2 (/ l1 2 )
t2 (/ t1 10 )
)
(setq p2 (polar p1 0 l1)
p3 (polar p1 1.57 t1)
p4 (polar p3 0 l1)
p5 (polar p1 0 l2)
p6 (polar p5 1.57 t1)
p7 (polar p6 (- 0 1.57) t2)
)
(command "line" p1 p2 "" "line" p1 p3 "" "line" p3 p4 "" "circle" p7 (distance p6 p7)
)
)


修正程式如上
**程式內未考慮鎖點問題,建議執行前將鎖點模式設定為0 或是寫入程式內以防出錯**

首先謝謝希大大的幫忙^^

追加問題：polar 弳角一問，之前書還沒到時我的角度是用一點一點試出來　　　　　　的，不知其原理。現在有參考書了但還是有一點小問題（數理太差　　　　　了）

　　　　　　　　　　　　弳度值　　　　　　 十進位轉弳度
→　　　　　０度　　　　　０　　　　　　　　 　　０
↑　　　　９０度　　　　1/2pi　　　　　　(/ pi 2) or (* pi 0.5)
←　　　１８０度　　　　 pi　　　　　　　　　 　pi
↓　　　２７０度　　　-1/2pi or 3/2　　　(/ pi 2) or (* pi 1.5)
？　　　　　Ｎ度　　　N*pi/180　　　　　　(* N(/ pi 180))

0度、90度、180度 我都能理解，但是270為什麼和90一樣都是/2
再來是N度，我跟本就不知什麼是N度，他是要用來？@@"

有請好心的前輩指點一下！謝謝

270度 --> (* PI 1.5)
N度 -- > (/ (* N PI) 180.0)

另外, 妳的程式中角度為1.57的值

(setq p2 (polar p1 0 l1)
p3 (polar p1 1.57 t1)
p4 (polar p3 0 l1)
p5 (polar p1 0 l2)
p6 (polar p5 1.57 t1)
p7 (polar p6 (- 0 1.57) t2)
)

最好改為 (* PI 0.5)
而 (- 0 1.57)
最好改為 (* PI 1.5)

因為 90度正確的值應該是 PI * 0.5 , 其值為1.57079632.......
而非 1.57

liuif1018 寫到:首先謝謝希大大的幫忙^^

追加問題：polar 弳角一問，之前書還沒到時我的角度是用一點一點試出來　　　　　　的，不知其原理。現在有參考書了但還是有一點小問題（數理太差　　　　　了）

　　　　　　　　　　　　弳度值　　　　　　 十進位轉弳度
→　　　　　０度　　　　　０　　　　　　　　 　　０
↑　　　　９０度　　　　1/2pi　　　　　　(/ pi 2) or (* pi 0.5)
←　　　１８０度　　　　 pi　　　　　　　　　 　pi
↓　　　２７０度　　　-1/2pi or 3/2　　　(/ pi 2) or (* pi 1.5)
？　　　　　Ｎ度　　　N*pi/180　　　　　　(* N(/ pi 180))

0度、90度、180度 我都能理解，但是270為什麼和90一樣都是/2
再來是N度，我跟本就不知什麼是N度，他是要用來？@@"

有請好心的前輩指點一下！謝謝

簡單來說 ~ 你只要把 pi 當作180去計算即可
180 * 0.5 = pi * 0.5 = 90度
180 * 1.5 = pi * 1.5 = 270度
而你的N度 = pi / 180 * n = N度

謝謝各位前輩的詳細解答…讓我很清楚的了解了角度這方面的關念