[已解決]IF問題請教

由 **adslwang** 周六 11 6月 - 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)
)
頭暈目眩

由 **tarpon** 周六 11 6月 - 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>
[公告]關於團隊成員的回文及貢獻

由 **adslwang** 周六 11 6月 - 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的問題，練習終於成功了，謝謝您的幫忙。

由 **lsj** 周一 13 6月 - 21:15

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)略值,若用在計算上不建議取略值
個人淺見供參考

由 **Tiger&蘋果爸** 周一 13 6月 - 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點加入後，整個程式就更完整!
讚啦!!