[討論]圖塊LISP更名...有前輩會嗎?
+151
bosingles
thesirius
like3627
fashow
masao_8
flingswan
afk123051211
Cher
sukwan0412
c3b2a112
pcc0128
WRH
Lizzy
Lee eva
rickycheng
lostarea
sheep97890
mikendung
oldtea
powerfly
ha07.tw
shame
mike388
linxyz168
jan1669
kaods
bigleafe
jing
waterboom
weisc29
kim910100
chaim_hung
CKH01786
薛凱莉
kmh
遠方
TADA
sachindkini
Yumiow
boy648717
forko
今晚做很晚
a14333683
藍天白雲武士
白宗禮
may may
berniex
jkop
佐佐木
miemie120
sky41102
尿布尿布
MANman
康翔
f0002999
小點
sireny238
lionda
c1113254
hongwai
JAiLin
dkny2914
ariesyuyu
卡力馬
hueigo
PEI1101OWO
hsuching10
JoeyLi
葉嗨嗨
beach153
謝惠婷
hi198833
IlliaEaxs
patek
wateraustin
hist
amdhome
jennifey64
rickyyang
human0119
ianlcc
acad
黃彥智
christicking
sivenlee
dennis861020
id66fion
ken2205
taconet
阿辰C˙713
Monkey.D
queen0221
chihyan
Joan-Yeh
ray63
chuncheng
LUCAS_LAI
t624896
arhome
panshuru
DANDYYEUNG
小QQ
a921221053
tavin
W-LIN
jassica123
Pan Junn
Mr.Chang
maxorkish
柿子不好剝
長陳
x586042
天蠍
okok
au
blyp
ilarch2016
yymg1973
eastmany
ahorng
williamz64
Raymond4691
x860992
章富傑
sniper3252
dawr
Jatsou
gamer0116
RiverTsai
阿鈴仔
ya198515
wu200090
煙雨宵宵
wuwubaibai
akl49
劉明霖
sevenmascot
vanilla_miss
Tiger&蘋果爸
judyyai
leeco
tarpon
et1029et
蔣秉澔
pizg
ginse0727
RyanGuo
shenhung
djh1006
Atsai
yenbl
155 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共7頁)
第1頁(共7頁) • 1, 2, 3, 4, 5, 6, 7
yenbl- 一般會員
- 文章總數 : 89
年齡 : 68
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 5471
威望值 : 111
注冊日期 : 2011-04-06
sphg21220 and Amanda.c like this post
回復: [討論]圖塊LISP更名...有前輩會嗎?
(command "-rename" "b" block_oldname block_newname)
block_oldname:舊的圖塊名稱
block_newname:新的圖塊名稱
block_oldname:舊的圖塊名稱
block_newname:新的圖塊名稱
Atsai- 中級會員
- 文章總數 : 167
年齡 : 49
來自 : 台中
職業 : 工程
愛好 : 看漫畫
個性 : 樂天
使用年資 : 10
使用版本 : 2010
AutoCAD基礎篇等級 : 10星級
積分 : 8
經驗值 : 5887
威望值 : 524
注冊日期 : 2012-04-06
回復: [討論]圖塊LISP更名...有前輩會嗎?
謝謝...我抓的一個圖塊...圖塊名為"*E3"
指令: -rename
輸入要更名的物件類型
[圖塊(B)/標註型式(D)/圖層(LA)/線型(LT)/字型(S)/表格型式(T)/UCS(U)/視景(VI)/視埠(
VP)]: b
輸入舊的 圖塊 名稱: *e3
無效的 圖塊 名稱。
輸入舊的 圖塊 名稱: *取消*
指令: -rename
輸入要更名的物件類型
[圖塊(B)/標註型式(D)/圖層(LA)/線型(LT)/字型(S)/表格型式(T)/UCS(U)/視景(VI)/視埠(
VP)]: b
輸入舊的 圖塊 名稱: *e3
無效的 圖塊 名稱。
輸入舊的 圖塊 名稱: *取消*
yenbl- 一般會員
- 文章總數 : 89
年齡 : 68
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 5471
威望值 : 111
注冊日期 : 2011-04-06
回復: [討論]圖塊更名...有前輩會嗎?
"*E3"的意思是插入圖塊時順便炸開圖塊,也就是插入後的"E3"圖塊會變成原來的圖形(不是圖塊),原圖塊名應為"E3"而不是"*E3"
試試以下做法
指令: -rename
輸入要更名的物件類型
[圖塊(B)/標註型式(D)/圖層(LA)/線型(LT)/字型(S)/表格型式(T)/UCS(U)/視景(VI)/視埠(
VP)]: b
輸入舊的 圖塊 名稱: e3
範例:
^C^C-INSERT;*E3;/;1;;
解釋:
插入E3時,將E3炸開(變成非圖塊),/讓你手動選擇插入點,這是巨集的使用範例,也可以運用在LISP程式裡。
(command "-INSERT" "*(∮線孔)" "X" "1" "Y" "1" "R" "0" PAUSE "")
我有個問題,你的LISP是想做到什麼程度?
1. 不管原圖塊名稱為何,將它直接變為你想改成的圖塊名?
2. 點選圖塊後,先把原名稱SHOW出來,再讓使用者輸入要改成的圖塊名?
前者直接了當,後者程式多了人性化
試試以下做法
指令: -rename
輸入要更名的物件類型
[圖塊(B)/標註型式(D)/圖層(LA)/線型(LT)/字型(S)/表格型式(T)/UCS(U)/視景(VI)/視埠(
VP)]: b
輸入舊的 圖塊 名稱: e3
範例:
^C^C-INSERT;*E3;/;1;;
解釋:
插入E3時,將E3炸開(變成非圖塊),/讓你手動選擇插入點,這是巨集的使用範例,也可以運用在LISP程式裡。
(command "-INSERT" "*(∮線孔)" "X" "1" "Y" "1" "R" "0" PAUSE "")
我有個問題,你的LISP是想做到什麼程度?
1. 不管原圖塊名稱為何,將它直接變為你想改成的圖塊名?
2. 點選圖塊後,先把原名稱SHOW出來,再讓使用者輸入要改成的圖塊名?
前者直接了當,後者程式多了人性化
djh1006- 中級會員
- 文章總數 : 177
年齡 : 53
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 6094
威望值 : 359
注冊日期 : 2011-06-16
回復: [討論]圖塊LISP更名...有前輩會嗎?
這是我在"性質"裡面看到的圖塊名
我試著加"*"與不加"*"好像都不行
這已經超出我的經驗了...
我希望是第(2)項的功能...
請幫幫忙....感激不盡.....
我試著加"*"與不加"*"好像都不行
這已經超出我的經驗了...
我希望是第(2)項的功能...
請幫幫忙....感激不盡.....
yenbl- 一般會員
- 文章總數 : 89
年齡 : 68
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 5471
威望值 : 111
注冊日期 : 2011-04-06
回復: [討論]圖塊LISP更名...有前輩會嗎?
這是我寫的LISP........??????
(defun c:blk_ren ()
(setq ss (ssget))
(setq na (getstring "\n輸入新圖塊名稱 : "))
(if na
(progn
(setq new (cons 2 na))
(setq i 0)
(setq nn (sslength ss))
(repeat nn
(setq ename (ssname ss i))
(setq en (entget ename))
(setq enf (cdr (assoc 0 en)))
(if (= enf "INSERT")
(progn
(setq old (assoc 2 en))
(setq en2 (subst new old en))
(entmod en2)
)
)
(setq i (+ 1 i))
)
)
)
)
不能用......??????****
(defun c:blk_ren ()
(setq ss (ssget))
(setq na (getstring "\n輸入新圖塊名稱 : "))
(if na
(progn
(setq new (cons 2 na))
(setq i 0)
(setq nn (sslength ss))
(repeat nn
(setq ename (ssname ss i))
(setq en (entget ename))
(setq enf (cdr (assoc 0 en)))
(if (= enf "INSERT")
(progn
(setq old (assoc 2 en))
(setq en2 (subst new old en))
(entmod en2)
)
)
(setq i (+ 1 i))
)
)
)
)
不能用......??????****
yenbl- 一般會員
- 文章總數 : 89
年齡 : 68
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 5471
威望值 : 111
注冊日期 : 2011-04-06
回復: [討論]圖塊LISP更名...有前輩會嗎?
*E開頭的BLock 的確少見. 一般比較常看到. *U 開頭為名的匿名區塊.
以下程式是剛好最近寫的匿名塊和實名塊的轉換. 特別把檢查名稱的部分.先拿掉.
*E 開頭的匿名塊..果然可以命名和更名.
我剛測了一下. *E開頭.性質跟匿名塊一樣.後面都有序號.
程式只能單一點取物件修改.批次改名.因為命名規則.變數太多.
加上自己無須求.就先寫單一更名了.
載入方式: (load "rename_block") ;程式須在搜尋路徑內.
指令:Rename_Block
▼Rename_block新的載點~(*回覆文章後可見*)
Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻
shenhung- 高級會員
- 文章總數 : 281
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 8035
威望值 : 1191
注冊日期 : 2009-06-03
Tiger&蘋果爸, christicking, ss884045, damnrose, chihyan, vike827, huiyilo and like this post
回復: [討論]圖塊LISP更名...有前輩會嗎?
哇...真是....高手高手高高手...
謝謝...
謝謝...
yenbl- 一般會員
- 文章總數 : 89
年齡 : 68
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 5471
威望值 : 111
注冊日期 : 2011-04-06
回復: [討論]圖塊LISP更名...有前輩會嗎?
學藝不精 想不到還有這種功能,受教了
____________________________________________________________________________________
djh1006- 中級會員
- 文章總數 : 177
年齡 : 53
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 連續沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 23年以上
使用版本 : 2014
積分 : 7
經驗值 : 6094
威望值 : 359
注冊日期 : 2011-06-16
回復: [討論]圖塊LISP更名...有前輩會嗎?[動態圖塊]
shenhung分享的LISP真是匿名圖塊剋星!!
發現一點很有趣的事情,
動態圖塊沒辦法用這LISP更名,
點動態圖塊會點到已經匿名的圖塊,
如果把那圖塊重新命名後開啟,
會開啟動態圖塊去掉所有參數的版本,
如果變動圖塊裡面的東西,
原有的圖塊也會變動,
如果再用圖塊編輯器去開原有的圖塊,
會發現裡面又變回原有的樣子,
原動態圖塊存檔後又會產生新的匿名圖塊.
以上,
其實就可以有另類的用法,
就是可以用這LISP弄出動態圖塊去掉所有參數後的版本,
蠻適合在弄了一堆錯誤參數後將圖塊洗白白的;P
發現一點很有趣的事情,
動態圖塊沒辦法用這LISP更名,
點動態圖塊會點到已經匿名的圖塊,
如果把那圖塊重新命名後開啟,
會開啟動態圖塊去掉所有參數的版本,
如果變動圖塊裡面的東西,
原有的圖塊也會變動,
如果再用圖塊編輯器去開原有的圖塊,
會發現裡面又變回原有的樣子,
原動態圖塊存檔後又會產生新的匿名圖塊.
以上,
其實就可以有另類的用法,
就是可以用這LISP弄出動態圖塊去掉所有參數後的版本,
蠻適合在弄了一堆錯誤參數後將圖塊洗白白的;P
RyanGuo 在 2013-07-05, 03:00 作了第 1 次修改
RyanGuo- 初級會員
- 文章總數 : 206
年齡 : 41
來自 : 屏東
職業 : 機械繪圖
愛好 : 玩遊戲
個性 : 嗚嗚男
使用年資 : 1年多
使用版本 : 2011
積分 : 3
經驗值 : 5519
威望值 : 316
注冊日期 : 2013-04-18
回復: [討論]圖塊LISP更名...有前輩會嗎?
感謝shenhung前輩的原碼分享,之前有看過蘋果爸分享LEE MAC大師的程式,主要功能是作編碼的,
他將LSP與DCL合併在一支程式裡,我第一次看到時,真的很吃驚,當下感受是哇!原來有對話框的LSP也可以這樣寫,
因為當初去上課學的時候,老師教的是DCL歸DCL,LSP歸LSP,二支程式分開存檔,由LSP呼叫DCL,
(可能班上的同學,大家的學習進度都沒有超前,所以老師來不及在有限的時間裡教授),
所以後來寫的程式也都是這麼的一直發展下去,前輩的程式功能單一,很適合拿來做學習的教材,
再次謝謝您的原碼分享,讓想使用的人可以方便使用,想進一步學習的人,有資料可以觀摩揣測,
各得其所,功德無量啊!
shenhung前輩,
不好意思,剛才用了一下,發現前輩沒有加上這行(vl-load-com),
我知道您這行一定是加在別的工具副程式中,才會沒加在這裡,
(嘿!因為家裡用的是什麼都沒掛的乾淨CAD,才僥倖發現!)
他將LSP與DCL合併在一支程式裡,我第一次看到時,真的很吃驚,當下感受是哇!原來有對話框的LSP也可以這樣寫,
因為當初去上課學的時候,老師教的是DCL歸DCL,LSP歸LSP,二支程式分開存檔,由LSP呼叫DCL,
(可能班上的同學,大家的學習進度都沒有超前,所以老師來不及在有限的時間裡教授),
所以後來寫的程式也都是這麼的一直發展下去,前輩的程式功能單一,很適合拿來做學習的教材,
再次謝謝您的原碼分享,讓想使用的人可以方便使用,想進一步學習的人,有資料可以觀摩揣測,
各得其所,功德無量啊!
shenhung前輩,
不好意思,剛才用了一下,發現前輩沒有加上這行(vl-load-com),
我知道您這行一定是加在別的工具副程式中,才會沒加在這裡,
(嘿!因為家裡用的是什麼都沒掛的乾淨CAD,才僥倖發現!)
ginse0727 在 2013-06-29, 14:10 作了第 1 次修改 (原因 : 補充使用回報!)
ginse0727- 高級會員
- 文章總數 : 256
年齡 : 50
來自 : 台北巿
職業 : 帷幕牆
愛好 : 電玩,漫畫,網路小說
個性 : 宅男/正直/死腦筋
使用年資 : 退伍後工作迄今,10年以上
使用版本 : 2012
積分 : 14
經驗值 : 6786
威望值 : 500
發帖精華 : 1
注冊日期 : 2010-07-12
回復: [討論]圖塊LISP更名...有前輩會嗎?
我原本也是習慣DCL和LSP分開. 後來看DCL 不長就加進去了. 就是跟LEE MAC 的程式學的.
來這發表習慣用原碼!!目的是交流.!!
我用的語法.都是看書.或網路上學的.沒什麼高深的東西.若有寫的不好的地方.也好讓別人有所指正.!!
如此而已.
來這發表習慣用原碼!!目的是交流.!!
我用的語法.都是看書.或網路上學的.沒什麼高深的東西.若有寫的不好的地方.也好讓別人有所指正.!!
如此而已.
shenhung- 高級會員
- 文章總數 : 281
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 8035
威望值 : 1191
注冊日期 : 2009-06-03
回復: [討論]圖塊LISP更名...有前輩會嗎?
DCL和LSP是否分開各有優缺點,shenhung 寫到:我原本也是習慣DCL和LSP分開. 後來看DCL 不長就加進去了....
為了解決DCL和LSP分開容易遺漏檔案的缺點,
程式師常將DCL寫入LSP裏,
這是以前在AutoLISP編譯器還無法含入DCL時比較常用的做法.
後來VisualLISP編譯器已可以把DCL和TXT檔也編譯進去,
再加上寫套裝軟體會有大量的DCL,
所以後來我個人又選擇把它們分開處理.
回復: [討論]圖塊LISP更名...有前輩會嗎?
我了解了!應該是套裝軟體,會有大量的副程式及DCL,分開處理有助於程式的管理及維護!
ginse0727- 高級會員
- 文章總數 : 256
年齡 : 50
來自 : 台北巿
職業 : 帷幕牆
愛好 : 電玩,漫畫,網路小說
個性 : 宅男/正直/死腦筋
使用年資 : 退伍後工作迄今,10年以上
使用版本 : 2012
積分 : 14
經驗值 : 6786
威望值 : 500
發帖精華 : 1
注冊日期 : 2010-07-12
回復: [討論]圖塊LISP更名...有前輩會嗎?
剛好有需要,謝謝分享,我目前也在學lisp,只會一些簡單的。
蔣秉澔- 初級會員
- 文章總數 : 211
年齡 : 47
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關,出遊踏青
個性 : 待人隨和,對事執著
使用年資 : 8年
使用版本 : 2011 Electrical,2014
積分 : 4
經驗值 : 5362
威望值 : 204
注冊日期 : 2013-08-31
回復: [討論]圖塊LISP更名...有前輩會嗎?
最近剛好遇到匿名圖塊的問題!
感謝分享唷~
感謝分享唷~
et1029et- 初級會員
- 文章總數 : 356
年齡 : 43
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 5866
威望值 : 324
注冊日期 : 2013-07-02
回復: [討論]圖塊LISP更名...有前輩會嗎?
感謝shenhung很實用的lisp
tarpon- 中級會員
- 文章總數 : 209
年齡 : 34
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 6209
威望值 : 263
注冊日期 : 2010-07-01
回復: [討論]圖塊LISP更名...有前輩會嗎?
謝謝分享~~總是對匿名圖塊感到頭疼
leeco- 一般會員
- 文章總數 : 115
年齡 : 48
來自 : 中部
職業 : 水電
愛好 : 欣賞美好的事物
個性 : 隨遇而安
使用年資 : 10
使用版本 : 2018
經驗值 : 5799
威望值 : 88
注冊日期 : 2010-12-08
回復: [討論]圖塊LISP更名...有前輩會嗎?
shenhung 寫到:
*E開頭的BLock 的確少見. 一般比較常看到. *U 開頭為名的匿名區塊.
以下程式是剛好最近寫的匿名塊和實名塊的轉換. 特別把檢查名稱的部分.先拿掉.
*E 開頭的匿名塊..果然可以命名和更名.
我剛測了一下. *E開頭.性質跟匿名塊一樣.後面都有序號.
程式只能單一點取物件修改.批次改名.因為命名規則.變數太多.
加上自己無須求.就先寫單一更名了.
載入方式: (load "rename_block") ;程式須在搜尋路徑內.
指令:Rename_Block
程式載點
▼備用載點:Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻
報告~載點失效了~
judyyai- 管理顧問
- 文章總數 : 7786
年齡 : 47
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2019(開始於2019年底末月)
AutoCAD基礎篇等級 : 10星級
積分 : 393
最佳解答 : 1
經驗值 : 30402
威望值 : 3610
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
shenhung- 高級會員
- 文章總數 : 281
年齡 : 57
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 8035
威望值 : 1191
注冊日期 : 2009-06-03
RAE, allytp, Jinda, 蓉 and azong0508 like this post
回復: [討論]圖塊LISP更名...有前輩會嗎?
謝謝shenhung大提供更新連結載點~shenhung 寫到:
Rename_block新的載點~
剛剛我也有更新囉!
Tiger&蘋果爸 在 2020-04-23, 11:10 作了第 1 次修改
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: [討論]圖塊LISP更名...有前輩會嗎?
shenhung分享的LISP真的太厲害了!!!
匿名圖塊對我常要清圖作整理圖面時,一直很頭痛!!!!
有了它真是完美!!
匿名圖塊對我常要清圖作整理圖面時,一直很頭痛!!!!
有了它真是完美!!
vanilla_miss- 一般會員
- 文章總數 : 52
年齡 : 45
來自 : 高雄
職業 : 繪圖人員
愛好 : 看小說
個性 : 活潑
使用年資 : 10年
使用版本 : 2015
經驗值 : 3775
威望值 : 24
注冊日期 : 2015-03-07
回復:[討論]圖塊LISP更名...有前輩會嗎?
感謝分享,但LISP目前還不會用,呵呵
sevenmascot- 一般會員
- 文章總數 : 8
年齡 : 44
來自 : 台灣桃園
職業 : 其他
愛好 : 音樂
個性 : 隨和
使用年資 : 6
使用版本 : 2011
經驗值 : 4930
威望值 : 6
注冊日期 : 2011-05-24
回復: [討論]圖塊LISP更名...有前輩會嗎?
非常感謝分享,趕緊嘗試看看
劉明霖- 初級會員
- 文章總數 : 25
年齡 : 34
來自 : 新北市
職業 : 土木/大地工程技師
愛好 : 網球
個性 : 外向
使用年資 : 6年
使用版本 : AutoCAD LT 2020、AutoCAD Civil 3D 2020
積分 : 2
經驗值 : 2962
威望值 : 36
注冊日期 : 2017-01-23
回復: [討論]圖塊LISP更名...有前輩會嗎?
謝謝你的分享 手刀嘗試
akl49- 一般會員
- 文章總數 : 22
年齡 : 43
來自 : 台北
職業 : 待業
愛好 : 爬山
個性 : 老實
使用年資 : 新手初學
使用版本 : 新手初學
經驗值 : 4755
威望值 : 12
注冊日期 : 2012-01-18
第1頁(共7頁) • 1, 2, 3, 4, 5, 6, 7
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共7頁)
這個論壇的權限:
您 無法 在這個版面回復文章