[分享]標註x、y、z座標LISP
[分享]標註x、y、z座標LISP
主題回顧 :
第一次發分享文不知道格式有沒有寫對
由於AUTOCAD設定的座標式標註X值與Y值須分開標註很不好用,
最近剛剛學習了如何寫LISP程式,參考了一些前輩們的程式後,自己也寫了一個標註X,Y,Z 值的LISP,分享給大家,寫得不好的地方也希望大家不吝賜教。
程式的功能如下:
1.設定一個標註點位的圖層
2.以引線標註點位的X,Y,Z值
操作畫面如下:
▼下載網址(*回覆可見*):
第一次發分享文不知道格式有沒有寫對

由於AUTOCAD設定的座標式標註X值與Y值須分開標註很不好用,
最近剛剛學習了如何寫LISP程式,參考了一些前輩們的程式後,自己也寫了一個標註X,Y,Z 值的LISP,分享給大家,寫得不好的地方也希望大家不吝賜教。
程式的功能如下:
1.設定一個標註點位的圖層
2.以引線標註點位的X,Y,Z值
操作畫面如下:
▼下載網址(*回覆可見*):
蔡欣恬- 初級會員
- 文章總數 : 15
年齡 : 32
來自 : 台中
職業 : 繪圖工程師
愛好 : 繪圖
個性 : 懶散
使用年資 : 3年
使用版本 : 2016
積分 : 2
經驗值 : 2177
威望值 : 63
注冊日期 : 2015-09-26
jenjuichang, wyt, enzo8312005, cpt2625832, 撩貓不撩人, 苦力阿鴻, 江朝安 and like this post
ahorng- 一般會員
- 文章總數 : 15
年齡 : 51
來自 : 台中
職業 : 服務
愛好 : 腳踏車
個性 : 內向
使用年資 : 10
使用版本 : 2010
經驗值 : 4006
威望值 : 9
注冊日期 : 2010-07-19
回復: [分享]標註x、y、z座標LISP
謝謝你的分享~剛好可以拿來試試看
qaz914133- 一般會員
- 文章總數 : 4
年齡 : 26
來自 : 高雄
職業 : 繪圖員
愛好 : 繪圖
個性 : 安靜
使用年資 : 7年
使用版本 : 2020
經驗值 : 337
威望值 : 0
注冊日期 : 2020-06-01
回復: [分享]標註x、y、z座標LISP
DL來試看看吧
Ggsimida- 一般會員
- 文章總數 : 6
年齡 : 31
來自 : 香港屏山
職業 : Draftsman
愛好 : autocad
個性 : football
使用年資 : 新手
使用版本 : 2017
經驗值 : 1370
威望值 : 0
注冊日期 : 2017-08-16
回復: [分享]標註x、y、z座標LISP
感謝大大無私分享
a199417- 一般會員
- 文章總數 : 4
年齡 : 27
來自 : 苗栗
職業 : 電路設計
愛好 : 魔術
個性 : 開朗
使用年資 : 3
使用版本 : 2014
經驗值 : 230
威望值 : 0
注冊日期 : 2020-09-16
回復: [分享]標註x、y、z座標LISP
感謝大大的分享
下載來測試
下載來測試
撩貓不撩人- 一般會員
- 文章總數 : 6
年齡 : 36
來自 : 高雄
職業 : 繪圖
愛好 : 釣魚
個性 : 內向
使用年資 : 2年
使用版本 : 2017
經驗值 : 214
威望值 : 0
注冊日期 : 2020-10-08
回復: [分享]標註x、y、z座標LISP
剛好要用到, 一搜尋馬上就看到有人分享
真是太感謝了!
真是太感謝了!
roch2034- 一般會員
- 文章總數 : 15
年齡 : 38
來自 : 高雄
職業 : 系統工程師
愛好 : 程式設計,攝影,旅遊,音樂
個性 : 溫和
經驗值 : 4288
威望值 : 0
注冊日期 : 2009-08-27
回復: [分享]標註x、y、z座標LISP
非常感謝無私地分享..工作上面會用到
adsl666- 一般會員
- 文章總數 : 2
年齡 : 43
來自 : 新北市新莊區
職業 : 工程師
愛好 : 進度管控
個性 : 些許內向
使用年資 : 4
使用版本 : 2016
經驗值 : 167
威望值 : 0
注冊日期 : 2020-11-08
回復: [分享]標註x、y、z座標LISP
感謝無私分享剛好有需要用到,感謝
f933021- 一般會員
- 文章總數 : 13
年齡 : 31
來自 : 板橋
職業 : 學生
愛好 : 電視
個性 : 開朗沈默參半
使用年資 : 4
使用版本 : 2006
經驗值 : 3929
威望值 : 6
注冊日期 : 2010-09-14
回復: [分享]標註x、y、z座標LISP
非常感謝版主的熱情分享
stantseng- 一般會員
- 文章總數 : 4
年齡 : 32
來自 : 台中市
職業 : 營造
愛好 : 無
個性 : 吳
使用年資 : 10
使用版本 : 2021
經驗值 : 173
威望值 : 0
注冊日期 : 2020-11-12
回復: [分享]標註x、y、z座標LISP
感謝分享 謝謝提供
tunalai- 一般會員
- 文章總數 : 6
年齡 : 42
來自 : Taipei
職業 : Student
愛好 : Poker
個性 : 謙虛
使用年資 : 新手初學
使用版本 : 2021 LT
經驗值 : 394
威望值 : 0
注冊日期 : 2020-04-15
回復: [分享]標註x、y、z座標LISP
感謝分享~下載試用~
許哲嘉- 一般會員
- 文章總數 : 3
年齡 : 42
來自 : 新北市
職業 : 待業
愛好 : 待業
個性 : 待業
使用年資 : 10
使用版本 : 2012
經驗值 : 121
威望值 : 0
注冊日期 : 2020-12-29
個人意見, 這麼簡單的程式要回覆還要密碼, 110 個分享都是在感謝分享, 覺得很好笑.
;標註點位NE值與高程
(defun C:NEZP(/ Layername Point1 Point_N Point_E Point_Z TXT_X TXT_Y TXT_Z UCS_N UCS_E UCS_Z Point2 Set_style)
(Prompt "這是一個繪製引線標註點位NE值與高程的指令")
;新增圖層;
;(setq Layername (getstring"\n請設定標註點位的圖層名稱: "))
;(MakeLayer Layername 2);;;新建圖層(MakeLayer "圖層名稱" 顏色)
;主程式;
(SETVAR "OSNAPCOORD" 1); 設定座標資料輸入優先權為鍵盤輸入
(setq Point1 (getpoint "\n請點選測量點位置: "))
(setq Point_N (car Point1)) ; N值
(setq Point_E (cadr Point1)) ;E值
(setq Point_Z (caddr Point1)) ;高程值
(setq TXT_X (rtos Point_N 2 3));將實數轉換成字串[小數模式][精度小數點下三位]
(setq TXT_Y (rtos Point_E 2 3))
(setq TXT_Z (rtos Point_Z 2 3))
(setq UCS_N (strcat "N " TXT_Y));合併字串:N+TXT_Y
(setq UCS_E (strcat "E " TXT_X));合併字串:N+TXT_X
(setq UCS_Z (strcat "EL+" TXT_Z));合併字串:N+TXT_Z
(setq Set_style(tblsearch "style" "standard"));設定文字型式為coordinate_value
(if (= Set_style nil)
(command "style" "standard" "arial" "" "" "" )
)
(setq Point2 (getpoint "\n請點選文字放置位置: "))
(command "LEADER" Point1 Point2 "" UCS_N UCS_E UCS_Z "");繪製引線
(PRINC)
)
;;;;;;;;;;;;;新增圖層副程式;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN MakeLayer (#LayName #LayColor);;;用法(MakeLayer "圖層名稱" 顏色)
(SETQ LAYKEY (TBLSEARCH "Layer" #LayName))
(IF (= LAYKEY nil);;;假設沒有此圖層
(COMMAND "LAYER" "M" #LayName "C" #LayColor #LayName "");;;如果沒有圖層執行此行新建該圖層
(COMMAND "LAYER" "T" #LayName "S" #LayName "U" #LayName "C" #LayColor #LayName "");;;如果有圖層執行此行
)
(PRINC)
)
(defun C:NEZP(/ Layername Point1 Point_N Point_E Point_Z TXT_X TXT_Y TXT_Z UCS_N UCS_E UCS_Z Point2 Set_style)
(Prompt "這是一個繪製引線標註點位NE值與高程的指令")
;新增圖層;
;(setq Layername (getstring"\n請設定標註點位的圖層名稱: "))
;(MakeLayer Layername 2);;;新建圖層(MakeLayer "圖層名稱" 顏色)
;主程式;
(SETVAR "OSNAPCOORD" 1); 設定座標資料輸入優先權為鍵盤輸入
(setq Point1 (getpoint "\n請點選測量點位置: "))
(setq Point_N (car Point1)) ; N值
(setq Point_E (cadr Point1)) ;E值
(setq Point_Z (caddr Point1)) ;高程值
(setq TXT_X (rtos Point_N 2 3));將實數轉換成字串[小數模式][精度小數點下三位]
(setq TXT_Y (rtos Point_E 2 3))
(setq TXT_Z (rtos Point_Z 2 3))
(setq UCS_N (strcat "N " TXT_Y));合併字串:N+TXT_Y
(setq UCS_E (strcat "E " TXT_X));合併字串:N+TXT_X
(setq UCS_Z (strcat "EL+" TXT_Z));合併字串:N+TXT_Z
(setq Set_style(tblsearch "style" "standard"));設定文字型式為coordinate_value
(if (= Set_style nil)
(command "style" "standard" "arial" "" "" "" )
)
(setq Point2 (getpoint "\n請點選文字放置位置: "))
(command "LEADER" Point1 Point2 "" UCS_N UCS_E UCS_Z "");繪製引線
(PRINC)
)
;;;;;;;;;;;;;新增圖層副程式;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN MakeLayer (#LayName #LayColor);;;用法(MakeLayer "圖層名稱" 顏色)
(SETQ LAYKEY (TBLSEARCH "Layer" #LayName))
(IF (= LAYKEY nil);;;假設沒有此圖層
(COMMAND "LAYER" "M" #LayName "C" #LayColor #LayName "");;;如果沒有圖層執行此行新建該圖層
(COMMAND "LAYER" "T" #LayName "S" #LayName "U" #LayName "C" #LayColor #LayName "");;;如果有圖層執行此行
)
(PRINC)
)
shackle_2005 在 2021-01-08, 17:09 作了第 1 次修改
shackle_2005- 初級會員
- 文章總數 : 208
年齡 : 49
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 5279
威望值 : 310
注冊日期 : 2010-09-20
回復: [分享]標註x、y、z座標LISP
別這麼說~shackle_2005 寫到:個人意見, 這麼簡單的程式要回覆還要密碼, 110 個分享有討論回應什麼 ?? 好好笑喔, 哈哈哈哈.
我覺得不是簡不簡單的問題,不管多簡單我也會設置回覆可見,因為有很多路過潛水客拿了東西就走,減少了人與人善意的回應互動...
我們是互助論壇希望他家多多支持與互動~
個人意見, 參考就好.
那為什麼我從以前到現在, 在這裏分享的小程式從來都不需要回覆, 也不用密碼, 也不用感謝 ?? 如果有進一步的問題再來討論就好了, 這麼簡單的問題都不能理解 ?? 110 個分享都是在感謝, 這麼這麼這麼這麼 .... 小的程式抄課本有都可以做的出來了, 要感謝上帝還是觀世音菩薩 ??
shackle_2005- 初級會員
- 文章總數 : 208
年齡 : 49
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 5279
威望值 : 310
注冊日期 : 2010-09-20
回復: [分享]標註x、y、z座標LISP
shackle_2005大,您的貢獻及無私分享我與大家都很感謝~shackle_2005 寫到:那為什麼我從以前到現在, 在這裏分享的小程式從來都不需要回覆, 也不用密碼, 也不用感謝 ?? 如果有進一步的問題再來討論就好了, 這麼簡單的問題都不能理解 ?? 110 個分享都是在感謝, 這麼這麼這麼這麼 .... 小的程式抄課本有都可以做的出來了, 要感謝上帝還是觀世音菩薩 ??
我們也知道你常常熱心幫助~
謝謝你支持魚幫水水幫魚理想!
另外,您提到的問題,我想每個人分享的心境與方式都不同,在這裡我們都是持正面的態度來看待~
希望大家能快快樂樂在這裡互動及討論~
希望您能了解!

回復: [分享]標註x、y、z座標LISP
剛好需要,試試看
t49173- 一般會員
- 文章總數 : 5
年齡 : 55
來自 : TAIWAN
職業 : 工程
愛好 : 音樂
個性 : 善良
使用年資 : 20
使用版本 : 2012
經驗值 : 3450
威望值 : 0
注冊日期 : 2011-11-24
回復: [分享]標註x、y、z座標LISP
感謝分享~ 工作上會用到
![[分享]標註x、y、z座標LISP - 頁 5 1f600](https://twemoji.maxcdn.com/16x16/1f600.png)
shcichen- 一般會員
- 文章總數 : 18
年齡 : 29
來自 : 台北
職業 : 結構
愛好 : 繪圖及程式coding
個性 : 安靜
使用年資 : 1
使用版本 : 2016
經驗值 : 1287
威望值 : 0
注冊日期 : 2017-12-24
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第5頁(共5頁)
這個論壇的權限:
您 無法 在這個版面回復文章