AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
[討論]圖塊LISP更名...有前輩會嗎? Oo-2-110 [討論]圖塊LISP更名...有前輩會嗎? Ia15010 [討論]圖塊LISP更名...有前輩會嗎? Ziao1510 [討論]圖塊LISP更名...有前輩會嗎? BPl3tjj [討論]圖塊LISP更名...有前輩會嗎? Uos15010 [討論]圖塊LISP更名...有前輩會嗎? Uos15011

[討論]圖塊LISP更名...有前輩會嗎?

向下

[討論]圖塊LISP更名...有前輩會嗎? Empty [討論]圖塊LISP更名...有前輩會嗎?

發表 由 yenbl 于 2013-04-24, 16:27

有前輩會以LISP改圖塊名稱嗎?
yenbl
yenbl
一般會員
一般會員

文章總數 : 89
年齡 : 63
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 3535
威望值 : 87
注冊日期 : 2011-04-06
男 雙魚座 猴

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 Atsai 于 2013-04-24, 16:32

(command "-rename" "b" block_oldname block_newname)

block_oldname:舊的圖塊名稱
block_newname:新的圖塊名稱
Atsai
Atsai
中級會員
中級會員

文章總數 : 133
年齡 : 44
來自 : 台中
職業 : 工程
愛好 : 看漫畫
個性 : 樂天
使用年資 : 10
使用版本 : 2010
AutoCAD基礎篇等級 : 10星級
積分 : 8
經驗值 : 3692
威望值 : 403
注冊日期 : 2012-04-06
男 金牛座 兔

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 yenbl 于 2013-04-24, 16:51

謝謝...我抓的一個圖塊...圖塊名為"*E3"

指令: -rename
輸入要更名的物件類型
[圖塊(B)/標註型式(D)/圖層(LA)/線型(LT)/字型(S)/表格型式(T)/UCS(U)/視景(VI)/視埠(
VP)]: b

輸入舊的 圖塊 名稱: *e3

無效的 圖塊 名稱。

輸入舊的 圖塊 名稱: *取消*
yenbl
yenbl
一般會員
一般會員

文章總數 : 89
年齡 : 63
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 3535
威望值 : 87
注冊日期 : 2011-04-06
男 雙魚座 猴

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊更名...有前輩會嗎?

發表 由 djh1006 于 2013-04-24, 22:20

"*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出來,再讓使用者輸入要改成的圖塊名?

前者直接了當,後者程式多了人性化
djh1006
djh1006
中級會員
中級會員

文章總數 : 166
年齡 : 47
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 20年以上
使用版本 : 2014
積分 : 7
經驗值 : 4125
威望值 : 320
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 yenbl 于 2013-04-25, 09:22

這是我在"性質"裡面看到的圖塊名
[討論]圖塊LISP更名...有前輩會嗎? Aa1g
我試著加"*"與不加"*"好像都不行
[討論]圖塊LISP更名...有前輩會嗎? Aa2pl
這已經超出我的經驗了...

我希望是第(2)項的功能...
請幫幫忙....感激不盡.....
yenbl
yenbl
一般會員
一般會員

文章總數 : 89
年齡 : 63
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 3535
威望值 : 87
注冊日期 : 2011-04-06
男 雙魚座 猴

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 yenbl 于 2013-04-25, 09:41

這是我寫的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))
)
)
)
)

不能用......??????****
yenbl
yenbl
一般會員
一般會員

文章總數 : 89
年齡 : 63
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 3535
威望值 : 87
注冊日期 : 2011-04-06
男 雙魚座 猴

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 shenhung 于 2013-04-25, 12:36

[討論]圖塊LISP更名...有前輩會嗎? RD3QubOn

*E開頭的BLock 的確少見. 一般比較常看到. *U 開頭為名的匿名區塊.

以下程式是剛好最近寫的匿名塊和實名塊的轉換. 特別把檢查名稱的部分.先拿掉.
*E 開頭的匿名塊..果然可以命名和更名.
我剛測了一下. *E開頭.性質跟匿名塊一樣.後面都有序號.
程式只能單一點取物件修改.批次改名.因為命名規則.變數太多.
加上自己無須求.就先寫單一更名了.

載入方式:  (load "rename_block")  ;程式須在搜尋路徑內.
指令:Rename_Block

Rename_block新的載點~
https://www.dropbox.com/s/y896911b8l63ycj/Rename_Block.zip?dl=0

▼備用載點1:
https://www.box.com/s/rjb8lprvoizbvwt8io65



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

文章總數 : 244
年齡 : 52
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5720
威望值 : 963
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 yenbl 于 2013-04-25, 13:48

哇...真是....高手高手高高手...
謝謝...
yenbl
yenbl
一般會員
一般會員

文章總數 : 89
年齡 : 63
來自 : 中壢市
職業 : 室內設計
愛好 : 繪圖..AutoLisp
個性 : 老實
使用年資 : 31年
使用版本 : 2005
經驗值 : 3535
威望值 : 87
注冊日期 : 2011-04-06
男 雙魚座 猴

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 djh1006 于 2013-04-27, 07:54

學藝不精 了解... 想不到還有這種功能,受教了
djh1006
djh1006
中級會員
中級會員

文章總數 : 166
年齡 : 47
來自 : 彰化縣員林鎮中山路二段369巷二弄15-14號
職業 : 沖壓模具設計工程師
愛好 : UG,SOLIDWORKS,AUTOCAD 2D,autolisp
個性 : 內向偏外
使用年資 : 20年以上
使用版本 : 2014
積分 : 7
經驗值 : 4125
威望值 : 320
注冊日期 : 2011-06-16
男 獅子座 豬

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?[動態圖塊]

發表 由 RyanGuo 于 2013-06-28, 17:08

shenhung分享的LISP真是匿名圖塊剋星!!
發現一點很有趣的事情,
動態圖塊沒辦法用這LISP更名,
點動態圖塊會點到已經匿名的圖塊,
如果把那圖塊重新命名後開啟,
會開啟動態圖塊去掉所有參數的版本,
如果變動圖塊裡面的東西,
原有的圖塊也會變動,
如果再用圖塊編輯器去開原有的圖塊,
會發現裡面又變回原有的樣子,
原動態圖塊存檔後又會產生新的匿名圖塊.
以上,
其實就可以有另類的用法,
就是可以用這LISP弄出動態圖塊去掉所有參數後的版本,
蠻適合在弄了一堆錯誤參數後將圖塊洗白白的;P


RyanGuo 在 2013-07-05, 10:00 作了第 1 次修改
RyanGuo
RyanGuo
初級會員
初級會員

文章總數 : 206
年齡 : 36
來自 : 屏東
職業 : 機械繪圖
愛好 : 玩遊戲
個性 : 嗚嗚男
使用年資 : 1年多
使用版本 : 2011
積分 : 3
經驗值 : 3595
威望值 : 304
注冊日期 : 2013-04-18
男 射手座 狗

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 ginse0727 于 2013-06-29, 20:57

感謝shenhung前輩的原碼分享,之前有看過蘋果爸分享LEE MAC大師的程式,主要功能是作編碼的,
他將LSP與DCL合併在一支程式裡,我第一次看到時,真的很吃驚,當下感受是哇!原來有對話框的LSP也可以這樣寫,
因為當初去上課學的時候,老師教的是DCL歸DCL,LSP歸LSP,二支程式分開存檔,由LSP呼叫DCL,
(可能班上的同學,大家的學習進度都沒有超前,所以老師來不及在有限的時間裡教授),
所以後來寫的程式也都是這麼的一直發展下去,前輩的程式功能單一,很適合拿來做學習的教材,
再次謝謝您的原碼分享,讓想使用的人可以方便使用,想進一步學習的人,有資料可以觀摩揣測,
各得其所,功德無量啊!

shenhung前輩,
不好意思,剛才用了一下,發現前輩沒有加上這行(vl-load-com),
我知道您這行一定是加在別的工具副程式中,才會沒加在這裡,
(嘿!因為家裡用的是什麼都沒掛的乾淨CAD,才僥倖發現!)


ginse0727 在 2013-06-29, 21:10 作了第 1 次修改 (原因 : 補充使用回報!)
ginse0727
ginse0727
高級會員
高級會員

文章總數 : 256
年齡 : 44
來自 : 台北巿
職業 : 帷幕牆
愛好 : 電玩,漫畫,網路小說
個性 : 宅男/正直/死腦筋
使用年資 : 退伍後工作迄今,10年以上
使用版本 : 2012
積分 : 14
經驗值 : 4866
威望值 : 492
發帖精華 : 1
注冊日期 : 2010-07-13
經典問與答讀者 藍鵲61號
2011聚會勳章 男 獅子座 虎

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 shenhung 于 2013-06-29, 22:48

我原本也是習慣DCL和LSP分開. 後來看DCL 不長就加進去了. 就是跟LEE MAC 的程式學的.
來這發表習慣用原碼!!目的是交流.!!
我用的語法.都是看書.或網路上學的.沒什麼高深的東西.若有寫的不好的地方.也好讓別人有所指正.!!
如此而已.
shenhung
shenhung
高級會員
高級會員

文章總數 : 244
年齡 : 52
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5720
威望值 : 963
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 pizg 于 2013-07-10, 10:50

shenhung 寫到:我原本也是習慣DCL和LSP分開. 後來看DCL 不長就加進去了....
DCL和LSP是否分開各有優缺點,
為了解決DCL和LSP分開容易遺漏檔案的缺點,
程式師常將DCL寫入LSP裏,
這是以前在AutoLISP編譯器還無法含入DCL時比較常用的做法.

後來VisualLISP編譯器已可以把DCL和TXT檔也編譯進去,
再加上寫套裝軟體會有大量的DCL,
所以後來我個人又選擇把它們分開處理.
pizg
pizg
高級會員
高級會員

文章總數 : 253
年齡 : 54
來自 : 桃園縣
職業 : 建築設計;程式設計
愛好 : 音樂;攝影;繪畫;棋奕;電子;機器人
個性 : 隨和
使用年資 : 30↑
使用版本 : 2015
積分 : 10
經驗值 : 4721
威望值 : 320
發帖精華 : 1
注冊日期 : 2010-04-16
串連貼紙成功 男 摩羯座 龍

https://pizgchen.blogspot.com/

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 ginse0727 于 2013-07-10, 21:39

我了解了!應該是套裝軟體,會有大量的副程式及DCL,分開處理有助於程式的管理及維護!
ginse0727
ginse0727
高級會員
高級會員

文章總數 : 256
年齡 : 44
來自 : 台北巿
職業 : 帷幕牆
愛好 : 電玩,漫畫,網路小說
個性 : 宅男/正直/死腦筋
使用年資 : 退伍後工作迄今,10年以上
使用版本 : 2012
積分 : 14
經驗值 : 4866
威望值 : 492
發帖精華 : 1
注冊日期 : 2010-07-13
經典問與答讀者 藍鵲61號
2011聚會勳章 男 獅子座 虎

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 蔣秉澔 于 2013-11-08, 13:54

剛好有需要,謝謝分享,我目前也在學lisp,只會一些簡單的。
蔣秉澔
蔣秉澔
初級會員
初級會員

文章總數 : 211
年齡 : 42
來自 : 嘉義市
職業 : 大電力系統設計、製程、檢測
愛好 : 電腦相關,出遊踏青
個性 : 待人隨和,對事執著
使用年資 : 8年
使用版本 : 2011 Electrical,2014
積分 : 4
經驗值 : 3408
威望值 : 162
注冊日期 : 2013-08-31
顧問外掛程式 藍鵲661號
男 金牛座 蛇

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 et1029et 于 2015-05-04, 16:12

最近剛好遇到匿名圖塊的問題!
感謝分享唷~
et1029et
et1029et
初級會員
初級會員

文章總數 : 356
年齡 : 38
來自 : 桃園
職業 : 行政繪圖
愛好 : 學習
個性 : 隨和
使用年資 : 新手初學
使用版本 : 2013
積分 : 4
經驗值 : 3954
威望值 : 324
注冊日期 : 2013-07-02
藍鵲666號
女 天蝎座 猴

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 tarpon 于 2015-05-10, 06:50

感謝shenhung很實用的lisp 熱情
tarpon
tarpon
中級會員
中級會員

文章總數 : 206
年齡 : 29
來自 : 台北
職業 : 設計
愛好 : 打球
個性 : 溫和
使用年資 : 5年
使用版本 : 2006
積分 : 6
經驗值 : 4253
威望值 : 239
注冊日期 : 2010-07-01
串連貼紙成功 男 巨蟹座 馬

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 leeco 于 2015-10-08, 09:48

謝謝分享~~總是對匿名圖塊感到頭疼
leeco
leeco
一般會員
一般會員

文章總數 : 96
年齡 : 43
來自 : 中部
職業 : 水電
愛好 : 東看西看
個性 : 看人囉
使用年資 : 10
使用版本 : 2018
經驗值 : 3768
威望值 : 76
注冊日期 : 2010-12-08
女 雙子座 龍

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 judyyai 于 2016-03-03, 11:44

shenhung 寫到:[討論]圖塊LISP更名...有前輩會嗎? RD3QubOn

*E開頭的BLock 的確少見. 一般比較常看到. *U 開頭為名的匿名區塊.

以下程式是剛好最近寫的匿名塊和實名塊的轉換. 特別把檢查名稱的部分.先拿掉.
*E 開頭的匿名塊..果然可以命名和更名.
我剛測了一下. *E開頭.性質跟匿名塊一樣.後面都有序號.
程式只能單一點取物件修改.批次改名.因為命名規則.變數太多.
加上自己無須求.就先寫單一更名了.

載入方式:  (load "rename_block")  ;程式須在搜尋路徑內.
指令:Rename_Block

程式載點
http://db.tt/GNrOaNy3

▼備用載點:
https://www.box.com/s/rjb8lprvoizbvwt8io65


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

報告~載點失效了~

____________________________________________________________________________________
[討論]圖塊LISP更名...有前輩會嗎? Eai-1a11 [討論]圖塊LISP更名...有前輩會嗎? Ia15010 [討論]圖塊LISP更名...有前輩會嗎? Ziao110 [討論]圖塊LISP更名...有前輩會嗎? BPl3tjj
judyyai
judyyai
管理顧問
管理顧問

文章總數 : 7668
年齡 : 42
來自 : 台南
職業 : 機械製圖
愛好 : 電腦相關
個性 : think too much...
使用年資 : 10↑
使用版本 : AC2014(開始於2015九月底)
AutoCAD基礎篇等級 : 10星級
積分 : 392
最佳解答 : 1
經驗值 : 27939
威望值 : 3478
發帖精華 : 2
回帖精華 : 4
注冊日期 : 2008-11-19
2D基礎函授 3D基礎函授 顧問外掛程式 經典問與答讀者 藍鵲2號
2009聚會勳章 串連貼紙成功 女 巨蟹座 蛇

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 shenhung 于 2016-03-03, 12:03

Rename_block新的載點~
https://www.dropbox.com/s/y896911b8l63ycj/Rename_Block.zip?dl=0
shenhung
shenhung
高級會員
高級會員

文章總數 : 244
年齡 : 52
來自 : 新北市
職業 : 塑膠模具設計.AUTOLISP
愛好 : 音樂
個性 : 隨和
使用年資 : 18年
使用版本 : 2010
積分 : 15
經驗值 : 5720
威望值 : 963
注冊日期 : 2009-06-03
男 摩羯座 馬

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 Tiger&蘋果爸 于 2016-03-03, 12:21

shenhung 寫到:
Rename_block新的載點~
https://db.tt/UAnhPMFq
謝謝shenhung大提供更新連結載點~
剛剛我也有更新囉!
害羞

____________________________________________________________________________________
[討論]圖塊LISP更名...有前輩會嗎? Oo-2-110 [討論]圖塊LISP更名...有前輩會嗎? Ia15010 [討論]圖塊LISP更名...有前輩會嗎? Ziao1510 [討論]圖塊LISP更名...有前輩會嗎? BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

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

回頂端 向下

[討論]圖塊LISP更名...有前輩會嗎? Empty 回復: [討論]圖塊LISP更名...有前輩會嗎?

發表 由 vanilla_miss 于 2017-06-22, 10:24

shenhung分享的LISP真的太厲害了!!!
匿名圖塊對我常要清圖作整理圖面時,一直很頭痛!!!!

有了它真是完美!!
vanilla_miss
vanilla_miss
一般會員
一般會員

文章總數 : 33
年齡 : 40
來自 : 高雄
職業 : 繪圖人員
愛好 : 看小說
個性 : 活潑
使用年資 : 10年
使用版本 : 2015
經驗值 : 1764
威望值 : 12
注冊日期 : 2015-03-07
女 雙子座 羊

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]圖塊LISP更名...有前輩會嗎? Uos15011 [討論]圖塊LISP更名...有前輩會嗎? Uos15010 [討論]圖塊LISP更名...有前輩會嗎? BPl3tjj [討論]圖塊LISP更名...有前輩會嗎? Ziao1510 [討論]圖塊LISP更名...有前輩會嗎? Ia15010 [討論]圖塊LISP更名...有前輩會嗎? Oo-2-110