AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]lisp小小麻煩請大大幫忙解答一下 Aoe1-113[討論]lisp小小麻煩請大大幫忙解答一下 Ioaoe110[討論]lisp小小麻煩請大大幫忙解答一下 2020-310[討論]lisp小小麻煩請大大幫忙解答一下 Oiu15010[討論]lisp小小麻煩請大大幫忙解答一下 2020-211[討論]lisp小小麻煩請大大幫忙解答一下 Ia15010[討論]lisp小小麻煩請大大幫忙解答一下 Aizyao10[討論]lisp小小麻煩請大大幫忙解答一下 Uos15010[討論]lisp小小麻煩請大大幫忙解答一下 BPl3tjj[討論]lisp小小麻煩請大大幫忙解答一下 Ziao1510
[討論]lisp小小麻煩請大大幫忙解答一下 Aoe15010[討論]lisp小小麻煩請大大幫忙解答一下 Oo-2-110[討論]lisp小小麻煩請大大幫忙解答一下 Zuoiy_10[討論]lisp小小麻煩請大大幫忙解答一下 Aizyao11[討論]lisp小小麻煩請大大幫忙解答一下 Iyb_1510[討論]lisp小小麻煩請大大幫忙解答一下 Aoe1-112[討論]lisp小小麻煩請大大幫忙解答一下 Uos15011[討論]lisp小小麻煩請大大幫忙解答一下 Aoe2da10[討論]lisp小小麻煩請大大幫忙解答一下 Aoe2da11[討論]lisp小小麻煩請大大幫忙解答一下 Aoe10

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

3 posters

向下

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

發表 由 liuif1018 2010-10-07, 22:33

(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,肯請大大們幫忙指正一下吧!

希望完成圖如下

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

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


Tiger&蘋果爸 在 2010-12-16, 17:10 作了第 3 次修改 (原因 : 改為討論類型)
liuif1018
liuif1018
初級會員
初級會員

文章總數 : 31
年齡 : 42
來自 : 花蓮
職業 : 石材建築
愛好 : 公仔
個性 : 天真無邪開朗活潑
使用年資 : 半年
使用版本 : 2011
積分 : 1
經驗值 : 5377
威望值 : 9
注冊日期 : 2010-06-17
男 天秤座 狗

回頂端 向下

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

發表 由 阿希 2010-10-15, 09:26

(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 或是寫入程式內以防出錯**
avatar
阿希
高級會員
高級會員

文章總數 : 348
年齡 : 43
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 6813
威望值 : 226
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

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

發表 由 liuif1018 2010-10-15, 17:13

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

追加問題: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
liuif1018
初級會員
初級會員

文章總數 : 31
年齡 : 42
來自 : 花蓮
職業 : 石材建築
愛好 : 公仔
個性 : 天真無邪開朗活潑
使用年資 : 半年
使用版本 : 2011
積分 : 1
經驗值 : 5377
威望值 : 9
注冊日期 : 2010-06-17
男 天秤座 狗

回頂端 向下

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

發表 由 pizg 2010-10-15, 17:34

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
pizg
pizg
高級會員
高級會員

文章總數 : 258
年齡 : 59
來自 : 桃園縣
職業 : 建築設計;程式設計
愛好 : 音樂;攝影;繪畫;棋奕;電子;機器人
個性 : 隨和
使用年資 : 30↑
使用版本 : 2015
積分 : 10
經驗值 : 6685
威望值 : 320
發帖精華 : 1
注冊日期 : 2010-04-16
串連貼紙成功 男 摩羯座 龍

https://pizgchen.blogspot.com/

回頂端 向下

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

發表 由 阿希 2010-10-18, 08:46

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度
avatar
阿希
高級會員
高級會員

文章總數 : 348
年齡 : 43
來自 : 台北
職業 : 水電設計
愛好 : autolisp
個性 : 和平主義者
使用年資 : 5
使用版本 : 2008
積分 : 19
經驗值 : 6813
威望值 : 226
發帖精華 : 1
注冊日期 : 2008-09-22
男 摩羯座 猴

回頂端 向下

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

發表 由 liuif1018 2010-10-18, 15:36

謝謝各位前輩的詳細解答…讓我很清楚的了解了角度這方面的關念 害羞
liuif1018
liuif1018
初級會員
初級會員

文章總數 : 31
年齡 : 42
來自 : 花蓮
職業 : 石材建築
愛好 : 公仔
個性 : 天真無邪開朗活潑
使用年資 : 半年
使用版本 : 2011
積分 : 1
經驗值 : 5377
威望值 : 9
注冊日期 : 2010-06-17
男 天秤座 狗

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]lisp小小麻煩請大大幫忙解答一下 Aoe1-113[討論]lisp小小麻煩請大大幫忙解答一下 Ioaoe110[討論]lisp小小麻煩請大大幫忙解答一下 2020-310[討論]lisp小小麻煩請大大幫忙解答一下 Oiu15010[討論]lisp小小麻煩請大大幫忙解答一下 2020-211[討論]lisp小小麻煩請大大幫忙解答一下 Ia15010[討論]lisp小小麻煩請大大幫忙解答一下 Aizyao10[討論]lisp小小麻煩請大大幫忙解答一下 Uos15010[討論]lisp小小麻煩請大大幫忙解答一下 BPl3tjj[討論]lisp小小麻煩請大大幫忙解答一下 Ziao1510
[討論]lisp小小麻煩請大大幫忙解答一下 Aoe15010[討論]lisp小小麻煩請大大幫忙解答一下 Oo-2-110[討論]lisp小小麻煩請大大幫忙解答一下 Zuoiy_10[討論]lisp小小麻煩請大大幫忙解答一下 Aizyao11[討論]lisp小小麻煩請大大幫忙解答一下 Iyb_1510[討論]lisp小小麻煩請大大幫忙解答一下 Aoe1-112[討論]lisp小小麻煩請大大幫忙解答一下 Uos15011[討論]lisp小小麻煩請大大幫忙解答一下 Aoe2da10[討論]lisp小小麻煩請大大幫忙解答一下 Aoe2da11[討論]lisp小小麻煩請大大幫忙解答一下 Aoe10