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.
[問題]高程差值問題 Aoe1-113[問題]高程差值問題 Ioaoe110[問題]高程差值問題 2020-310[問題]高程差值問題 Oiu15010[問題]高程差值問題 2020-211[問題]高程差值問題 Ia15010[問題]高程差值問題 Aizyao10[問題]高程差值問題 Uos15010[問題]高程差值問題 BPl3tjj[問題]高程差值問題 Ziao1510
[問題]高程差值問題 Aoe15010[問題]高程差值問題 Oo-2-110[問題]高程差值問題 Zuoiy_10[問題]高程差值問題 Aizyao11[問題]高程差值問題 Iyb_1510[問題]高程差值問題 Aoe1-112[問題]高程差值問題 Uos15011[問題]高程差值問題 Aoe2da10[問題]高程差值問題 Aoe2da11[問題]高程差值問題 Aoe10

[問題]高程差值問題

2 posters

向下

[問題]高程差值問題 Empty [問題]高程差值問題

發表 由 polar15 2023-08-09, 16:51

最近試著寫能算出高程差值的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)
)



;;;;;;錯誤: 引數太多

請問..............什麼都出現引數太多的問題 暈倒
polar15
polar15
一般會員
一般會員

文章總數 : 6
年齡 : 24
來自 : 台中
職業 : 繪圖員
愛好 : 打球
個性 : 內向
使用年資 : 5
使用版本 : 2010
經驗值 : 921
威望值 : 6
注冊日期 : 2022-07-13
男 天蝎座 龍

回頂端 向下

[問題]高程差值問題 Empty 回復: [問題]高程差值問題

發表 由 Tiger&蘋果爸 2023-08-09, 18:07

表示你的程式有誤,建議程式碼一開始,最好可以一行一行在指令行中測試
最後再組成完整的程式碼

這裡先不使用RTOS轉字串,後面程式才能運算
要正確使用CADR取出Y座標值
(setq z1 (cadr p1))
(setq z2 (cadr p2))

最後結果字串,所以再加上RTOS轉字串
(princ (strcat "The difference is: " (rtos aa)))

____________________________________________________________________________________
👉快速比例設定與出圖技巧-線上課程(點我)👈
編輯個人資料 Sesa2011 編輯個人資料 Youtub11 編輯個人資料 Oiea2011 編輯個人資料 Oe20011 編輯個人資料 Fbi20011 編輯個人資料 Line2011
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 21400
年齡 : 48
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照/吸貓
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2022
經驗值 : 90474
威望值 : 17213
注冊日期 : 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

回頂端 向下

[問題]高程差值問題 Empty 回復: [問題]高程差值問題

發表 由 polar15 2023-08-10, 09:47

謝謝蘋果爸的教導
原來是這樣,會學起來的 [問題]高程差值問題 1f44d 害羞
polar15
polar15
一般會員
一般會員

文章總數 : 6
年齡 : 24
來自 : 台中
職業 : 繪圖員
愛好 : 打球
個性 : 內向
使用年資 : 5
使用版本 : 2010
經驗值 : 921
威望值 : 6
注冊日期 : 2022-07-13
男 天蝎座 龍

Tiger&蘋果爸 likes this post

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[問題]高程差值問題 Aoe1-113[問題]高程差值問題 Ioaoe110[問題]高程差值問題 2020-310[問題]高程差值問題 Oiu15010[問題]高程差值問題 2020-211[問題]高程差值問題 Ia15010[問題]高程差值問題 Aizyao10[問題]高程差值問題 Uos15010[問題]高程差值問題 BPl3tjj[問題]高程差值問題 Ziao1510
[問題]高程差值問題 Aoe15010[問題]高程差值問題 Oo-2-110[問題]高程差值問題 Zuoiy_10[問題]高程差值問題 Aizyao11[問題]高程差值問題 Iyb_1510[問題]高程差值問題 Aoe1-112[問題]高程差值問題 Uos15011[問題]高程差值問題 Aoe2da10[問題]高程差值問題 Aoe2da11[問題]高程差值問題 Aoe10