[討論]lisp小小麻煩請大大幫忙解答一下
3 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[討論]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,肯請大大們幫忙指正一下吧!
希望完成圖如下
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,肯請大大們幫忙指正一下吧!
希望完成圖如下
Tiger&蘋果爸 在 2010-12-16, 17:10 作了第 3 次修改 (原因 : 改為討論類型)
liuif1018- 初級會員
- 文章總數 : 31
年齡 : 42
來自 : 花蓮
職業 : 石材建築
愛好 : 公仔
個性 : 天真無邪開朗活潑
使用年資 : 半年
使用版本 : 2011
積分 : 1
經驗值 : 5377
威望值 : 9
注冊日期 : 2010-06-17
回復: [討論]lisp小小麻煩請大大幫忙解答一下
(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 或是寫入程式內以防出錯**
(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 或是寫入程式內以防出錯**
阿希- 高級會員
- 文章總數 : 348
年齡 : 43
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 6813
威望值 : 226
發帖精華 : 1
注冊日期 : 2008-09-22
回復: [討論]lisp小小麻煩請大大幫忙解答一下
首先謝謝希大大的幫忙^^
追加問題:polar 弳角一問,之前書還沒到時我的角度是用一點一點試出來 的,不知其原理。現在有參考書了但還是有一點小問題(數理太差 了)
弳度值 十進位轉弳度
→ 0度 0 0
↑ 90度 1/2pi (/ pi 2) or (* pi 0.5)
← 180度 pi pi
↓ 270度 -1/2pi or 3/2 (/ pi 2) or (* pi 1.5)
? N度 N*pi/180 (* N(/ pi 180))
0度、90度、180度 我都能理解,但是270為什麼和90一樣都是/2
再來是N度,我跟本就不知什麼是N度,他是要用來?@@"
有請好心的前輩指點一下!謝謝
追加問題:polar 弳角一問,之前書還沒到時我的角度是用一點一點試出來 的,不知其原理。現在有參考書了但還是有一點小問題(數理太差 了)
弳度值 十進位轉弳度
→ 0度 0 0
↑ 90度 1/2pi (/ pi 2) or (* pi 0.5)
← 180度 pi pi
↓ 270度 -1/2pi or 3/2 (/ pi 2) or (* pi 1.5)
? N度 N*pi/180 (* N(/ pi 180))
0度、90度、180度 我都能理解,但是270為什麼和90一樣都是/2
再來是N度,我跟本就不知什麼是N度,他是要用來?@@"
有請好心的前輩指點一下!謝謝
liuif1018 在 2010-10-15, 20:09 作了第 1 次修改
liuif1018- 初級會員
- 文章總數 : 31
年齡 : 42
來自 : 花蓮
職業 : 石材建築
愛好 : 公仔
個性 : 天真無邪開朗活潑
使用年資 : 半年
使用版本 : 2011
積分 : 1
經驗值 : 5377
威望值 : 9
注冊日期 : 2010-06-17
回復: [討論]lisp小小麻煩請大大幫忙解答一下
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
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
回復: [討論]lisp小小麻煩請大大幫忙解答一下
liuif1018 寫到:首先謝謝希大大的幫忙^^
追加問題:polar 弳角一問,之前書還沒到時我的角度是用一點一點試出來 的,不知其原理。現在有參考書了但還是有一點小問題(數理太差 了)
弳度值 十進位轉弳度
→ 0度 0 0
↑ 90度 1/2pi (/ pi 2) or (* pi 0.5)
← 180度 pi pi
↓ 270度 -1/2pi or 3/2 (/ pi 2) or (* pi 1.5)
? N度 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度
阿希- 高級會員
- 文章總數 : 348
年齡 : 43
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 6813
威望值 : 226
發帖精華 : 1
注冊日期 : 2008-09-22
回復: [討論]lisp小小麻煩請大大幫忙解答一下
謝謝各位前輩的詳細解答…讓我很清楚的了解了角度這方面的關念
liuif1018- 初級會員
- 文章總數 : 31
年齡 : 42
來自 : 花蓮
職業 : 石材建築
愛好 : 公仔
個性 : 天真無邪開朗活潑
使用年資 : 半年
使用版本 : 2011
積分 : 1
經驗值 : 5377
威望值 : 9
注冊日期 : 2010-06-17
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章