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

由 **yenbl** 2013-04-24, 16:27

有前輩會以LISP改圖塊名稱嗎?

由 **Atsai** 2013-04-24, 16:32

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

block_oldname：舊的圖塊名稱
block_newname：新的圖塊名稱

由 **yenbl** 2013-04-24, 16:51

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

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

輸入舊的圖塊名稱: *e3

無效的圖塊名稱。

輸入舊的圖塊名稱: *取消*

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

前者直接了當，後者程式多了人性化

由 **yenbl** 2013-04-25, 09:22

這是我在"性質"裡面看到的圖塊名
[討論]圖塊LISP更名...有前輩會嗎? Aa1g

我試著加"*"與不加"*"好像都不行
[討論]圖塊LISP更名...有前輩會嗎? Aa2pl

這已經超出我的經驗了...

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

由 **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))
)
)
)
)

不能用......??????****

由 **shenhung** 2013-04-25, 12:36

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

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

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

▼Rename_block新的載點~(*回覆文章後可見*)

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

由 **yenbl** 2013-04-25, 13:48

哇...真是....高手高手高高手...
謝謝...

由 **djh1006** 2013-04-27, 07:54

學藝不精

想不到還有這種功能,受教了

由 **RyanGuo** 2013-06-28, 17:08

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

由 **ginse0727** 2013-06-29, 20:57

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

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

由 **shenhung** 2013-06-29, 22:48

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

由 **pizg** 2013-07-10, 10:50

shenhung 寫到:我原本也是習慣DCL和LSP分開. 後來看DCL 不長就加進去了....

DCL和LSP是否分開各有優缺點,
為了解決DCL和LSP分開容易遺漏檔案的缺點,
程式師常將DCL寫入LSP裏,
這是以前在AutoLISP編譯器還無法含入DCL時比較常用的做法.

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

由 **ginse0727** 2013-07-10, 21:39

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

由 **蔣秉澔** 2013-11-08, 13:54

剛好有需要，謝謝分享，我目前也在學lisp，只會一些簡單的。

由 **et1029et** 2015-05-04, 16:12

最近剛好遇到匿名圖塊的問題！
感謝分享唷~

由 **tarpon** 2015-05-10, 06:50

感謝shenhung很實用的lisp

由 **leeco** 2015-10-08, 09:48

謝謝分享~~總是對匿名圖塊感到頭疼

由 **judyyai** 2016-03-03, 11:44

shenhung 寫到:

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

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

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

程式載點

▼備用載點：

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