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.
[已解決]IF問題請教 Ioaoe110[已解決]IF問題請教 2020-310[已解決]IF問題請教 Oiu15010[已解決]IF問題請教 2020-211[已解決]IF問題請教 Ia15010[已解決]IF問題請教 Aizyao10[已解決]IF問題請教 Uos15010[已解決]IF問題請教 BPl3tjj[已解決]IF問題請教 Ziao1510
[已解決]IF問題請教 Oo-2-110[已解決]IF問題請教 Zuoiy_10[已解決]IF問題請教 Aizyao11[已解決]IF問題請教 Iyb_1510[已解決]IF問題請教 Aoe1-111[已解決]IF問題請教 Uos15011[已解決]IF問題請教 Aoe2da10[已解決]IF問題請教 Aoe2da11[已解決]IF問題請教 Aoe10

[已解決]IF問題請教

5 posters

向下

[已解決]IF問題請教 Empty [已解決]IF問題請教

發表 由 adslwang 2011-06-11, 15:01

我的問題如下:
1.我想練習一個可以輸入A或S就可以進入到那一個程序,可是不管我輸入什麼只一直停留在游標轉角度上跑
2.紅色的部份是兩相矛盾的,也嘗試刪除其中之一,依然沒有作用....
以上,我想應該是觀念出現了問題,請各位前輩幫忙一下,謝謝........

(defun c:pt()
(setq sr (getstring "請輸入 (A)兩點轉游標轉角度 (S)查角度值(A):"))
(if (= sr "")(setq sr "A"))
(setq sr (strcase sr))
(COND
(if (= sr "A")
(setq asw1 (getpoint "\n 對準物件第1點"))
(setq asw2 (getpoint asw1 "\n 對準物件第2點"))
(setq ang (angle asw1 asw2))
(setq angh (* ang 57.29))
(command "snapang" angh "")
)
(if (= sr "S")
(setq asw1 (getpoint "\n 對準物件第1點"))
(setq asw2 (getpoint asw1 "\n 對準物件第2點"))
(setq ang (angle asw1 asw2))
(setq angh (* ang 57.29))
)
(t (prompt"\n 請輸入正確字體"))
)
(prin1)
)
頭暈目眩


adslwang 在 2011-06-11, 20:42 作了第 2 次修改
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 45
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 6972
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[已解決]IF問題請教 Empty 回復: [已解決]IF問題請教

發表 由 tarpon 2011-06-11, 18:13

已使用cond就不用if
直接用cond做判斷即可
第一個if也拿掉
(COND
((= sr "A")
((setq asw1 (getpoint "\n 對準物件第1點"))
(setq asw2 (getpoint asw1 "\n 對準物件第2點"))
(setq ang (angle asw1 asw2))
(setq angh (* ang 57.29))
(command "snapang" angh "")
)
)
((= sr "S")
((setq asw1 (getpoint "\n 對準物件第1點"))
(setq asw2 (getpoint asw1 "\n 對準物件第2點"))
(setq ang (angle asw1 asw2))
(setq angh (* ang 57.29))
)
)
(t (prompt"\n 請輸入正確字體"))
)
我沒測試您試一下吧

Tiger&蘋果爸 寫到:讚啦!! 謝謝熱心回覆~< 積分 +1>
[公告]關於團隊成員的回文及貢獻


Tiger&蘋果爸 在 2011-06-11, 22:45 作了第 1 次修改 (原因 : 非常專業喔~)
tarpon
tarpon
中級會員
中級會員

文章總數 : 209
年齡 : 33
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 6013
威望值 : 263
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

[已解決]IF問題請教 Empty 回復: [已解決]IF問題請教

發表 由 adslwang 2011-06-11, 20:34

tarpon 寫到:已使用cond就不用if
直接用cond做判斷即可
第一個if也拿掉
(COND
((= sr "A")
((setq asw1 (getpoint "\n 對準物件第1點"))
(setq asw2 (getpoint asw1 "\n 對準物件第2點"))
(setq ang (angle asw1 asw2))
(setq angh (* ang 57.29))
(command "snapang" angh "")
)
)
((= sr "S")
((setq asw1 (getpoint "\n 對準物件第1點"))
(setq asw2 (getpoint asw1 "\n 對準物件第2點"))
(setq ang (angle asw1 asw2))
(setq angh (* ang 57.29))
)
)
(t (prompt"\n 請輸入正確字體"))
)
我沒測試您試一下吧

前輩,謝謝您 的確是多加了IF的問題,練習終於成功了,謝謝您的幫忙。
竊喜
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 45
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 6972
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[已解決]IF問題請教 Empty 回復: [已解決]IF問題請教

發表 由 Tiger&蘋果爸 2011-06-13, 22:58

lsj 寫到:1. 可再修改限制輸入A或S
(initget "A a S s")
(setq sr (getkword "\n請輸入[兩點轉游標轉角度(A)/查角度值(S)] :"))
(if (= sr nil)(setq sr "A"))
2. 57.29為(/ 180 pi)略值,若用在計算上不建議取略值
個人淺見供參考
的確!
再將已上2點加入後,整個程式就更完整!
讚啦!!
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21077
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 88422
威望值 : 16930
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

[已解決]IF問題請教 Empty 回復: [已解決]IF問題請教

發表 由 adslwang 2011-06-19, 20:39

謝謝兩位前輩教導
再請問一下57.29我有兩個問題想問:
1.如不採用57.29則採用(/ 180 pi)是比較好的方式嘛 還是有其它的方法呢
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 45
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 6972
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[已解決]IF問題請教 Empty 回復: [已解決]IF問題請教

發表 由 avene 2011-07-07, 12:57

感謝版大分享這各問題~有學到歐~
avene
avene
一般會員
一般會員

文章總數 : 61
年齡 : 45
來自 : 桃園
職業 : 製圖
愛好 : 羽毛球
個性 : 內向
使用年資 : 5
使用版本 : 2009
經驗值 : 4847
威望值 : 9
注冊日期 : 2011-05-13
女 巨蟹座 馬

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[已解決]IF問題請教 Ioaoe110[已解決]IF問題請教 2020-310[已解決]IF問題請教 Oiu15010[已解決]IF問題請教 2020-211[已解決]IF問題請教 Ia15010[已解決]IF問題請教 Aizyao10[已解決]IF問題請教 Uos15010[已解決]IF問題請教 BPl3tjj[已解決]IF問題請教 Ziao1510
[已解決]IF問題請教 Oo-2-110[已解決]IF問題請教 Zuoiy_10[已解決]IF問題請教 Aizyao11[已解決]IF問題請教 Iyb_1510[已解決]IF問題請教 Aoe1-111[已解決]IF問題請教 Uos15011[已解決]IF問題請教 Aoe2da10[已解決]IF問題請教 Aoe2da11[已解決]IF問題請教 Aoe10