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

+115
grimmw
薛凱莉
bio1305chea
MJordanM
PEI1101OWO
jgt2035
sol_yo
k0184990
JohnnyTsungChen
suprajen
rickyyang
糖糖的主人
monkey-tw
黃主清
zxc8229748
kunzong
crihy
ban9900
shcichen
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&蘋果爸
蔡欣恬
119 posters

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

向下

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

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

主題回顧 :

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

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

操作畫面如下:


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



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

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

jesco, jenjuichang, wyt, RockyStifler, enzo8312005, cpt2625832, hsunwen.chan and like this post

回頂端 向下


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

發表 由 rickyyang 2022-01-07, 9:33 pm

感謝大大無私地分享......感恩
rickyyang
rickyyang
專屬會員
專屬會員

文章總數 : 179
年齡 : 43
來自 : 台北
職業 : 營建暨室內裝修工程管理
愛好 : 喜愛黃金獵犬、哈士奇
個性 : 誠信、正義、穩健
使用年資 : 15
使用版本 : AutoCAD 2018 & 2023
經驗值 : 3722
威望值 : 36
注冊日期 : 2014-11-11
男 射手座 馬

回頂端 向下

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

發表 由 suprajen 2022-01-11, 10:23 am

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

文章總數 : 34
年齡 : 46
來自 : taitung
職業 : 自由
愛好 : 電腦
個性 :
使用年資 : 1
使用版本 : 2017
經驗值 : 2375
威望值 : 12
注冊日期 : 2016-08-17
藍鵲700號
男 摩羯座 兔

回頂端 向下

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

發表 由 JohnnyTsungChen 2022-02-17, 3:04 pm

需要用到就找到,下載使用看看,感謝提供分享
JohnnyTsungChen
JohnnyTsungChen
一般會員
一般會員

文章總數 : 7
年齡 : 33
來自 : 台灣台中
職業 : 營造業
愛好 : 繪圖
個性 : 極度厭世
使用年資 : 全天
使用版本 : 2018
經驗值 : 1014
威望值 : 0
注冊日期 : 2020-01-19
男 處女座 蛇

回頂端 向下

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

發表 由 k0184990 2022-03-10, 10:22 pm

謝謝提供分享
k0184990
k0184990
專屬會員
專屬會員

文章總數 : 8
年齡 : 33
來自 : 新竹
職業 : 研發工程師
愛好 : 畫圖
個性 : 溫和
使用年資 : 10
使用版本 : 2018
經驗值 : 492
威望值 : 0
注冊日期 : 2021-06-25
女 摩羯座 龍

回頂端 向下

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

發表 由 sol_yo 2022-03-21, 9:27 am

雖然平常自己是用變數製作的
不過總感覺不太方便
看到同事推薦來研究研究

感謝@@
sol_yo
sol_yo
初級會員
初級會員

文章總數 : 15
年齡 : 33
來自 : 新北
職業 : 工程師
愛好 : CAD
個性 : 沉默
使用年資 : 5年
使用版本 : 2020
AutoCAD基礎篇等級 : 10星級
積分 : 2
經驗值 : 2811
威望值 : 24
注冊日期 : 2015-04-02
男 處女座 蛇

回頂端 向下

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

發表 由 jgt2035 2022-04-14, 6:06 pm

實用的工具,謝謝分享。
jgt2035
jgt2035
初級會員
初級會員

文章總數 : 38
年齡 : 60
來自 : 台東縣
職業 : 水利工程
愛好 : 園藝
個性 : 勤快-老實
使用年資 : 5
使用版本 : 2010
積分 : 1
經驗值 : 4149
威望值 : 13
注冊日期 : 2011-11-11
顧問外掛程式 經典問與答讀者 藍鵲362號
男 金牛座 虎

回頂端 向下

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

發表 由 PEI1101OWO 2022-04-26, 4:22 pm

感謝分享好實用~
PEI1101OWO
PEI1101OWO
一般會員
一般會員

文章總數 : 47
年齡 : 27
來自 : 高雄
職業 : 學生
愛好 : 繪圖
個性 : 平凡
使用年資 : 初學
使用版本 : 2022
經驗值 : 642
威望值 : 18
注冊日期 : 2021-07-20
藍鵲743號
Other / Decline to state 天蝎座 狗

回頂端 向下

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

發表 由 MJordanM 2022-05-24, 2:14 pm

真是給測量的一大福音,謝謝
MJordanM
MJordanM
一般會員
一般會員

文章總數 : 5
年齡 : 32
來自 : 苗栗
職業 : 測量
愛好 : NBA,MLB
個性 : 好學
使用年資 : 新手
使用版本 : 2021
經驗值 : 149
威望值 : 0
注冊日期 : 2022-05-23
男 水瓶座 馬

回頂端 向下

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

發表 由 bio1305chea 2022-05-25, 5:33 pm

正好我需要這個東西,下載來研究看看,謝謝
avatar
bio1305chea
一般會員
一般會員

文章總數 : 20
年齡 : 35
來自 : Taipei
職業 : Thinking...
愛好 : motorcycle
個性 : ??
使用年資 : 5
使用版本 : 2009
經驗值 : 5165
威望值 : 6
注冊日期 : 2008-09-22
男 天蝎座 虎

回頂端 向下

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

發表 由 薛凱莉 2022-06-22, 7:39 pm

謝謝分享~非常需要
薛凱莉
薛凱莉
一般會員
一般會員

文章總數 : 6
年齡 : 42
來自 : 高雄
職業 : 待業
愛好 : 待業
個性 : 活潑
使用年資 : 10
使用版本 : 2020
經驗值 : 123
威望值 : 0
注冊日期 : 2022-06-21
女 天秤座 羊

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 6 Empty 他的程式文字編碼好像有問題,如下自己複製貼上就可以了,我喜歡用notepad++

發表 由 ahorng 2022-06-24, 3:11 pm

poiuyy 寫到:[分享]標註x、y、z座標LISP - 頁 6 Ot6T0A

請問AP載入NEZP後無法標註座標

操作哪裡有問題

謝謝

代碼:

(print "標註點位NE值與高程: NEZP")
(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 oce (getvar "cmdecho" ))  (setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
;新增圖層;
 (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 Point1 "\n請點選文字放置位置: "))
   (setvar "osmode" 0)
    (command "LEADER" Point1 Point2 "" UCS_N  UCS_E UCS_Z "");繪製引線
(setvar "osmode" osm)
(setvar "cmdecho" oce)
(princ ",完成")(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));end defun




ahorng 在 2022-06-24, 6:09 pm 作了第 1 次修改
ahorng
ahorng
初級會員
初級會員

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

Tiger&蘋果爸 likes this post

回頂端 向下

[分享]標註x、y、z座標LISP - 頁 6 Empty 建議程式開始執行"畫"的指令時關閉抓點模式

發表 由 ahorng 2022-06-24, 3:14 pm

蔡欣恬 寫到:第一次發分享文不知道格式有沒有寫對  害羞

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

操作畫面如下:


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



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

代碼:

(setvar "osmode" 0)
ahorng
ahorng
初級會員
初級會員

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

回頂端 向下

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

發表 由 grimmw 2022-06-24, 11:58 pm

多謝提供分享,相當實用
grimmw
grimmw
一般會員
一般會員

文章總數 : 11
年齡 : 41
來自 : 台北市
職業 : 建築
愛好 : 運動
個性 : 活潑
使用年資 : 15
使用版本 : 2016
經驗值 : 2396
威望值 : 0
注冊日期 : 2016-04-21
男 白羊座 雞

回頂端 向下

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

發表 由 meclarity 2022-06-27, 9:01 am

被抓去要做放樣了剛好來測試看看
meclarity
meclarity
一般會員
一般會員

文章總數 : 6
年齡 : 34
來自 : 新北
職業 : 市地重劃、汙水工程
愛好 : 找冷知識
個性 : 悶騷...
使用年資 : 3年
使用版本 : 2010
經驗值 : 2491
威望值 : 0
注冊日期 : 2015-12-25
男 天蝎座 兔

回頂端 向下

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

發表 由 文- 2022-06-27, 12:14 pm

感謝 大大 無私分享
文-
文-
一般會員
一般會員

文章總數 : 4
年齡 : 30
來自 : 彰化
職業 : 營造
愛好 : 運動
個性 : 開朗
使用年資 : 新手初學
使用版本 : 2018
經驗值 : 111
威望值 : 0
注冊日期 : 2022-06-25
男 獅子座 猴

回頂端 向下

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

發表 由 ahorng 2022-06-28, 3:47 pm

剛剛使用C#改寫了這支程式
功能:使用多重引線標示nez值(使用NETLOAD載入程式)
指令:xyzML
個人是覺得使用多重引線來標示會比較好,可是在程式撰寫上比較複雜,因為多重引線會有引線型式和圖塊(使用程式)問題不然箭頭改成小圓點看起來更優

下載:
https://www.dropbox.com/s/sfpvf06gzjx8qgi/xyzML.zip?dl=0

👇備用:
附件
[分享]標註x、y、z座標LISP - 頁 6 Attachment
xyzML.zip 您無權下載這里的附件。(5 Kb) 下載 3 次
ahorng
ahorng
初級會員
初級會員

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

Tiger&蘋果爸 likes this post

回頂端 向下

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

發表 由 kj76129 2022-07-28, 12:25 pm

謝謝分享,剛好想學相關LISP內容~
kj76129
kj76129
一般會員
一般會員

文章總數 : 29
年齡 : 35
來自 : 彰化
職業 : 工程師
愛好 : 看影片
個性 : 開朗
使用年資 : 7
使用版本 : 2014
經驗值 : 1425
威望值 : 0
注冊日期 : 2019-03-22
男 水瓶座 兔

回頂端 向下

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

發表 由 ianlcc 2022-09-21, 10:41 am

謝謝分享!
回覆下載來學習一下。
ianlcc
ianlcc
一般會員
一般會員

文章總數 : 131
年齡 : 47
來自 : 高雄市
職業 : 營建業
愛好 : 拍照、喝咖啡、看電演、上網
個性 : 平靜
使用年資 : 5
使用版本 : 2012
經驗值 : 4440
威望值 : 57
注冊日期 : 2012-06-24
顧問外掛程式 藍鵲486號
男 雙魚座 兔

回頂端 向下

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

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]標註x、y、z座標LISP - 頁 6 Ioaoe110 [分享]標註x、y、z座標LISP - 頁 6 2020-310 [分享]標註x、y、z座標LISP - 頁 6 Oiu15010 [分享]標註x、y、z座標LISP - 頁 6 2020-211 [分享]標註x、y、z座標LISP - 頁 6 Ia15010 [分享]標註x、y、z座標LISP - 頁 6 Aizyao10
[分享]標註x、y、z座標LISP - 頁 6 Uos15010 [分享]標註x、y、z座標LISP - 頁 6 BPl3tjj [分享]標註x、y、z座標LISP - 頁 6 Ziao1510 [分享]標註x、y、z座標LISP - 頁 6 Oo-2-110 [分享]標註x、y、z座標LISP - 頁 6 Zuoiy_10 [分享]標註x、y、z座標LISP - 頁 6 Aizyao11
[分享]標註x、y、z座標LISP - 頁 6 Aoe1-111 [分享]標註x、y、z座標LISP - 頁 6 Uos15011 [分享]標註x、y、z座標LISP - 頁 6 RQvAhqF [分享]標註x、y、z座標LISP - 頁 6 YdKelqY [分享]標註x、y、z座標LISP - 頁 6 K410yWG