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.
[分享]標註x、y、z座標LISP - 頁 5 Io15011 [分享]標註x、y、z座標LISP - 頁 5 2020-310 [分享]標註x、y、z座標LISP - 頁 5 Oiu15010 [分享]標註x、y、z座標LISP - 頁 5 2020-211 [分享]標註x、y、z座標LISP - 頁 5 Oo-2-110 [分享]標註x、y、z座標LISP - 頁 5 BPl3tjj

[分享]標註x、y、z座標LISP

5頁(共5頁) 上一頁  1, 2, 3, 4, 5

向下

[分享]標註x、y、z座標LISP - 頁 5 Empty [分享]標註x、y、z座標LISP

發表 由 蔡欣恬 2017-05-22, 13:31

主題回顧 :

第一次發分享文不知道格式有沒有寫對  害羞

由於AUTOCAD設定的座標式標註X值與Y值須分開標註很不好用,
最近剛剛學習了如何寫LISP程式,參考了一些前輩們的程式後,自己也寫了一個標註X,Y,Z 值的LISP,分享給大家,寫得不好的地方也希望大家不吝賜教。
程式的功能如下:
1.設定一個標註點位的圖層
2.以引線標註點位的X,Y,Z值

操作畫面如下:


▼下載網址(*回覆可見*):



Tiger&蘋果爸 寫到:讚啦!! 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻
蔡欣恬
蔡欣恬
初級會員
初級會員

文章總數 : 15
年齡 : 32
來自 : 台中
職業 : 繪圖工程師
愛好 : 繪圖
個性 : 懶散
使用年資 : 3年
使用版本 : 2016
積分 : 2
經驗值 : 2177
威望值 : 63
注冊日期 : 2015-09-26
藍鵲695號
女 天蝎座 龍

jenjuichang, wyt, enzo8312005, cpt2625832, 撩貓不撩人, 苦力阿鴻, 江朝安 and like this post

回頂端 向下


[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 ahorng 2020-08-13, 15:44

我也來看看
ahorng
ahorng
一般會員
一般會員

文章總數 : 15
年齡 : 51
來自 : 台中
職業 : 服務
愛好 : 腳踏車
個性 : 內向
使用年資 : 10
使用版本 : 2010
經驗值 : 4006
威望值 : 9
注冊日期 : 2010-07-19
男 射手座 雞

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 qaz914133 2020-08-21, 13:56

謝謝你的分享~剛好可以拿來試試看
qaz914133
qaz914133
一般會員
一般會員

文章總數 : 4
年齡 : 26
來自 : 高雄
職業 : 繪圖員
愛好 : 繪圖
個性 : 安靜
使用年資 : 7年
使用版本 : 2020
經驗值 : 337
威望值 : 0
注冊日期 : 2020-06-01
女 雙魚座 豬

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 Ggsimida 2020-08-27, 13:44

DL來試看看吧
Ggsimida
Ggsimida
一般會員
一般會員

文章總數 : 6
年齡 : 31
來自 : 香港屏山
職業 : Draftsman
愛好 : autocad
個性 : football
使用年資 : 新手
使用版本 : 2017
經驗值 : 1370
威望值 : 0
注冊日期 : 2017-08-16
男 摩羯座 蛇

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 a199417 2020-09-17, 21:32

感謝大大無私分享
a199417
a199417
一般會員
一般會員

文章總數 : 4
年齡 : 27
來自 : 苗栗
職業 : 電路設計
愛好 : 魔術
個性 : 開朗
使用年資 : 3
使用版本 : 2014
經驗值 : 230
威望值 : 0
注冊日期 : 2020-09-16
男 摩羯座 雞

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 撩貓不撩人 2020-10-08, 14:08

感謝大大的分享
下載來測試
撩貓不撩人
撩貓不撩人
一般會員
一般會員

文章總數 : 6
年齡 : 36
來自 : 高雄
職業 : 繪圖
愛好 : 釣魚
個性 : 內向
使用年資 : 2年
使用版本 : 2017
經驗值 : 214
威望值 : 0
注冊日期 : 2020-10-08
男 白羊座 牛

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 roch2034 2020-10-22, 15:44

剛好要用到, 一搜尋馬上就看到有人分享
真是太感謝了!
roch2034
roch2034
一般會員
一般會員

文章總數 : 15
年齡 : 38
來自 : 高雄
職業 : 系統工程師
愛好 : 程式設計,攝影,旅遊,音樂
個性 : 溫和
經驗值 : 4288
威望值 : 0
注冊日期 : 2009-08-27
男 摩羯座 狗

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 adsl666 2020-11-08, 18:12

非常感謝無私地分享..工作上面會用到
adsl666
adsl666
一般會員
一般會員

文章總數 : 2
年齡 : 43
來自 : 新北市新莊區
職業 : 工程師
愛好 : 進度管控
個性 : 些許內向
使用年資 : 4
使用版本 : 2016
經驗值 : 167
威望值 : 0
注冊日期 : 2020-11-08
男 巨蟹座 蛇

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 f933021 2020-11-30, 09:43

感謝無私分享剛好有需要用到,感謝
f933021
f933021
一般會員
一般會員

文章總數 : 13
年齡 : 31
來自 : 板橋
職業 : 學生
愛好 : 電視
個性 : 開朗沈默參半
使用年資 : 4
使用版本 : 2006
經驗值 : 3929
威望值 : 6
注冊日期 : 2010-09-14
男 獅子座 蛇

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 stantseng 2020-12-22, 14:30

非常感謝版主的熱情分享
stantseng
stantseng
一般會員
一般會員

文章總數 : 4
年齡 : 32
來自 : 台中市
職業 : 營造
愛好 :
個性 :
使用年資 : 10
使用版本 : 2021
經驗值 : 173
威望值 : 0
注冊日期 : 2020-11-12
男 雙子座 龍

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 tunalai 2021-01-06, 16:53

感謝分享 謝謝提供
tunalai
tunalai
一般會員
一般會員

文章總數 : 6
年齡 : 42
來自 : Taipei
職業 : Student
愛好 : Poker
個性 : 謙虛
使用年資 : 新手初學
使用版本 : 2021 LT
經驗值 : 394
威望值 : 0
注冊日期 : 2020-04-15
男 金牛座 馬

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 許哲嘉 2021-01-08, 13:48

感謝分享~下載試用~
許哲嘉
許哲嘉
一般會員
一般會員

文章總數 : 3
年齡 : 42
來自 : 新北市
職業 : 待業
愛好 : 待業
個性 : 待業
使用年資 : 10
使用版本 : 2012
經驗值 : 121
威望值 : 0
注冊日期 : 2020-12-29
男 水瓶座 羊

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 個人意見, 這麼簡單的程式要回覆還要密碼, 110 個分享都是在感謝分享, 覺得很好笑.

發表 由 shackle_2005 2021-01-08, 16:55

;標註點位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)
 )


shackle_2005 在 2021-01-08, 17:09 作了第 1 次修改
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 208
年齡 : 49
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 5279
威望值 : 310
注冊日期 : 2010-09-20
男 獅子座 豬

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 Tiger&蘋果爸 2021-01-08, 17:08

shackle_2005 寫到:個人意見, 這麼簡單的程式要回覆還要密碼, 110 個分享有討論回應什麼 ?? 好好笑喔, 哈哈哈哈.
別這麼說~
我覺得不是簡不簡單的問題,不管多簡單我也會設置回覆可見,因為有很多路過潛水客拿了東西就走,減少了人與人善意的回應互動...
我們是互助論壇希望他家多多支持與互動~


____________________________________________________________________________________
[分享]標註x、y、z座標LISP - 頁 5 Oo-2-110 [分享]標註x、y、z座標LISP - 頁 5 Ia15010 [分享]標註x、y、z座標LISP - 頁 5 Ziao1510 [分享]標註x、y、z座標LISP - 頁 5 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

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

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 個人意見, 參考就好.

發表 由 shackle_2005 2021-01-08, 17:14

那為什麼我從以前到現在, 在這裏分享的小程式從來都不需要回覆, 也不用密碼, 也不用感謝 ?? 如果有進一步的問題再來討論就好了, 這麼簡單的問題都不能理解 ?? 110 個分享都是在感謝, 這麼這麼這麼這麼 .... 小的程式抄課本有都可以做的出來了, 要感謝上帝還是觀世音菩薩 ??
shackle_2005
shackle_2005
初級會員
初級會員

文章總數 : 208
年齡 : 49
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 5279
威望值 : 310
注冊日期 : 2010-09-20
男 獅子座 豬

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 Tiger&蘋果爸 2021-01-08, 17:32

shackle_2005 寫到:那為什麼我從以前到現在, 在這裏分享的小程式從來都不需要回覆, 也不用密碼, 也不用感謝 ?? 如果有進一步的問題再來討論就好了, 這麼簡單的問題都不能理解 ?? 110 個分享都是在感謝, 這麼這麼這麼這麼 .... 小的程式抄課本有都可以做的出來了, 要感謝上帝還是觀世音菩薩 ??
shackle_2005大,您的貢獻及無私分享我與大家都很感謝~
我們也知道你常常熱心幫助~
謝謝你支持魚幫水水幫魚理想!
另外,您提到的問題,我想每個人分享的心境與方式都不同,在這裡我們都是持正面的態度來看待~
希望大家能快快樂樂在這裡互動及討論~
希望您能了解!
感動

____________________________________________________________________________________
[分享]標註x、y、z座標LISP - 頁 5 Oo-2-110 [分享]標註x、y、z座標LISP - 頁 5 Ia15010 [分享]標註x、y、z座標LISP - 頁 5 Ziao1510 [分享]標註x、y、z座標LISP - 頁 5 BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

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

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 t49173 2021-01-27, 10:31

剛好需要,試試看
t49173
t49173
一般會員
一般會員

文章總數 : 5
年齡 : 55
來自 : TAIWAN
職業 : 工程
愛好 : 音樂
個性 : 善良
使用年資 : 20
使用版本 : 2012
經驗值 : 3450
威望值 : 0
注冊日期 : 2011-11-24
男 天秤座 蛇

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 5 Empty 回復: [分享]標註x、y、z座標LISP

發表 由 shcichen 2021-03-23, 18:37

感謝分享~ 工作上會用到 [分享]標註x、y、z座標LISP - 頁 5 1f600
shcichen
shcichen
一般會員
一般會員

文章總數 : 18
年齡 : 29
來自 : 台北
職業 : 結構
愛好 : 繪圖及程式coding
個性 : 安靜
使用年資 : 1
使用版本 : 2016
經驗值 : 1287
威望值 : 0
注冊日期 : 2017-12-24
男 白羊座 猴

回頂端 向下

5頁(共5頁) 上一頁  1, 2, 3, 4, 5

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]標註x、y、z座標LISP - 頁 5 Uos15010 [分享]標註x、y、z座標LISP - 頁 5 BPl3tjj [分享]標註x、y、z座標LISP - 頁 5 Ziao1510 [分享]標註x、y、z座標LISP - 頁 5 Oo-2-110 [分享]標註x、y、z座標LISP - 頁 5 Oooo-110 [分享]標註x、y、z座標LISP - 頁 5 2020-211