- 最後登錄
- 2022-9-22
- 在線時間
- 330 小時
- 註冊時間
- 2008-3-25
- 閱讀權限
- 20
- 精華
- 0
- UID
- 3821616
- 帖子
- 395
- 積分
- -666 點
- 潛水值
- 5840 米
| 原程式修改下
請參考
(defun c:ladder()
(setq pa (getpoint "請輸入左下角點:"))
(setq ww (getdist "
請輸入梯子的寬度:"))
(setq hh (getdist "
請輸入梯子的高度:"))
(setq n (getint "
請輸入梯子的階數:"))
(setq pb (polar pa (/ pi 2) hh))
(setq pc (polar pb 0 ww))
(setq pd (polar pa 0 ww)) ... |
|