[問題]高程差值問題
2 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
[問題]高程差值問題
最近試著寫能算出高程差值的LISP
遇到一些問題如下
(defun c:cr (/ p1 p2 z1 z2)
(setq p1 (getpoint "\nPick Point1: "))
(setq p2 (getpoint "\nPick Point2: "))
(setq z1 (rtos(caddr p1)))
(setq z2 (rtos(caddr p2)))
(steq aa (- z2 z1))
(print aa)
)
;;;;;;錯誤: 引數太多
請問..............什麼都出現引數太多的問題
遇到一些問題如下
(defun c:cr (/ p1 p2 z1 z2)
(setq p1 (getpoint "\nPick Point1: "))
(setq p2 (getpoint "\nPick Point2: "))
(setq z1 (rtos(caddr p1)))
(setq z2 (rtos(caddr p2)))
(steq aa (- z2 z1))
(print aa)
)
;;;;;;錯誤: 引數太多
請問..............什麼都出現引數太多的問題
polar15- 一般會員
- 文章總數 : 6
年齡 : 24
來自 : 台中
職業 : 繪圖員
愛好 : 打球
個性 : 內向
使用年資 : 5
使用版本 : 2010
經驗值 : 908
威望值 : 6
注冊日期 : 2022-07-13
回復: [問題]高程差值問題
表示你的程式有誤,建議程式碼一開始,最好可以一行一行在指令行中測試
最後再組成完整的程式碼
這裡先不使用RTOS轉字串,後面程式才能運算
要正確使用CADR取出Y座標值
(setq z1 (cadr p1))
(setq z2 (cadr p2))
最後結果字串,所以再加上RTOS轉字串
(princ (strcat "The difference is: " (rtos aa)))
最後再組成完整的程式碼
這裡先不使用RTOS轉字串,後面程式才能運算
要正確使用CADR取出Y座標值
(setq z1 (cadr p1))
(setq z2 (cadr p2))
最後結果字串,所以再加上RTOS轉字串
(princ (strcat "The difference is: " (rtos aa)))
____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
polar15- 一般會員
- 文章總數 : 6
年齡 : 24
來自 : 台中
職業 : 繪圖員
愛好 : 打球
個性 : 內向
使用年資 : 5
使用版本 : 2010
經驗值 : 908
威望值 : 6
注冊日期 : 2022-07-13
Tiger&蘋果爸 likes this post
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章