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

+96
t49173
許哲嘉
tunalai
stantseng
f933021
adsl666
roch2034
撩貓不撩人
a199417
Ggsimida
qaz914133
ahorng
you82130
kai545
akl49
blyp
lmt112233
jcl711038
curtistzeng
zhujinshan
lai0486
hopeboy
pigbloodcake
nashc
C.C.CHIEN
hung
Zephyr159
kuso8530
a921221053
ericjuang
kit92064
zxc791107
s1097104243
lineason
JunYi
c1140c33
土木菜鳥
ma62266750
ijklmncc
黃胡國
jokson
小緯
hueigo
oopsyyyyy
aero7258
lineking
勞于山
YZPan
a0928311114
stanley1018
miles宏
audi860207
bjackwang
vl7120
Burt
朱黃瓊慧
payuer
yang6983
kaods
阿才
naruto018
shin5433
lifexist
a556644123
JYHBIN
空罐子
youareooxx
ting ting
yifeng.h
charles fa
阿領
sam chang
wwsh3
shackle_2005
ecw30323
jerrytony
ann11
MICHELLE.LO
qaz6605
judyyai
ltea57055
jenniferaptg
aqurius32
homebrown
lv092020
a02617
coterspp
cheong0818
王小美
poiuyy
ttv_01
IT農夫
HEMOS
wei7121
Tiger&蘋果爸
蔡欣恬
100 posters

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
經驗值 : 2398
威望值 : 99
注冊日期 : 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
一般會員
一般會員

文章總數 : 18
年齡 : 51
來自 : 台中
職業 : 服務
愛好 : 腳踏車
個性 : 內向
使用年資 : 10
使用版本 : 2010
經驗值 : 4208
威望值 : 15
注冊日期 : 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
經驗值 : 522
威望值 : 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
經驗值 : 1555
威望值 : 0
注冊日期 : 2017-08-16
男 摩羯座 蛇

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

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

回頂端 向下

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

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

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

文章總數 : 3
年齡 : 42
來自 : 新北市
職業 : 待業
愛好 : 待業
個性 : 待業
使用年資 : 10
使用版本 : 2012
經驗值 : 306
威望值 : 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
初級會員
初級會員

文章總數 : 220
年齡 : 50
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 5532
威望值 : 322
注冊日期 : 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&蘋果爸
系統管理員
系統管理員

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

文章總數 : 220
年齡 : 50
來自 : 台中
職業 : 程式設計
愛好 : 音樂
個性 : 隨和
使用年資 : 10 年
使用版本 : 2013
積分 : 3
經驗值 : 5532
威望值 : 322
注冊日期 : 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&蘋果爸
系統管理員
系統管理員

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

文章總數 : 6
年齡 : 55
來自 : TAIWAN
職業 : 工程
愛好 : 音樂
個性 : 善良
使用年資 : 20
使用版本 : 2012
經驗值 : 3638
威望值 : 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
一般會員
一般會員

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

回頂端 向下

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

發表 由 ban9900 2021-05-16, 11:58

謝謝無私分享
ban9900
ban9900
贊助會員
贊助會員

文章總數 : 14
年齡 : 62
來自 : 台中市
職業 : 測量
愛好 : 爬山
個性 : 文靜
使用年資 : 初學
使用版本 : 初學
經驗值 : 1866
威望值 : 0
注冊日期 : 2016-11-13
男 射手座 狗

回頂端 向下

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

發表 由 crihy 2021-05-17, 17:14

感謝各位大大提供分享
avatar
crihy
初級會員
初級會員

文章總數 : 178
年齡 : 45
來自 : earth worth
職業 : 建築、結構、土木、水利、水保
愛好 : 學習專業知識
個性 : 認真上進
使用年資 : 自80年起
使用版本 : 2014
積分 : 2
經驗值 : 5945
威望值 : 309
注冊日期 : 2008-05-13
藍鵲366號
男 處女座 龍

回頂端 向下

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

發表 由 kunzong 2021-07-20, 09:46

謝謝分享 工作常用
kunzong
kunzong
一般會員
一般會員

文章總數 : 3
年齡 : 22
來自 : 新北
職業 : 現場工程師
愛好 : 吃美食
個性 : 固執
使用年資 : 2年
使用版本 : 2018
經驗值 : 119
威望值 : 0
注冊日期 : 2021-07-04
男 金牛座 兔

回頂端 向下

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

發表 由 kunzong 2021-07-20, 11:41

想詢問一下高程值能不顯示嗎
kunzong
kunzong
一般會員
一般會員

文章總數 : 3
年齡 : 22
來自 : 新北
職業 : 現場工程師
愛好 : 吃美食
個性 : 固執
使用年資 : 2年
使用版本 : 2018
經驗值 : 119
威望值 : 0
注冊日期 : 2021-07-04
男 金牛座 兔

回頂端 向下

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