【發帖精華】圖塊的圖層，與檔案的自設圖層不一致，該如何快速調整？

主題回顧 :

於本版爬文見到"judyyai"大大分享圖層0層的功能(還不會用連結啦 )，所以摘錄如下：

===========================================
0層!可以用來存放圖塊的圖層!
由這一層做的圖層,插入圖塊之後!可以依目前使用圖層!使用設定的顏色與線型

例如:
用0層作圖塊,一般背景是黑色,所以顏色是白色,線型是預設的Continuous (實線)
當你再 自設圖層,顏色為紅色,線型為CENTER(中心線)
插入後的圖塊(Block)的顏色與線型就會同 自設圖層一樣
===========================================

但現在個人於編修Cad檔時，發現有些由動態圖塊所立之圖形，其性質並非建立在"0層"上(假設為圖層B)，

其且顏色亦非"Bylayer"(假設為紅色)，試著要將這些圖塊選取後再套用新圖層(假設為圖層A，顏色為白色)，

結果這些圖塊雖可設為圖層A，但顏色卻仍為圖塊顏色(紅色)；

另試著關閉圖層A時，亦無法將這些表面為圖層A，骨子裡圖層為B之圖塊關閉，

只有將圖塊之圖層修正為"0層"將顏色設為"Bylayer"，才可順利達到變換顏色及關閉圖層之目的。

由於這樣的圖塊有上千個，除了逐一編修之苦方法外，想請教各位先進，有無快速調整之方法？

---

Tiger&蘋果爸 寫到: 恭喜您的主題獲選為精華文章！ < 積分+1、威望+6 >

[公告]關於論壇的文章價值

用這句 (entget (car (entsel))) 來查

command: (entget (car (entsel)))
選取物件: ((-1 . <圖元名稱: 7ef63f18>) (0 . "LINE") (330 . <圖元名稱:
7ef59cf8>) (5 . "1CA8B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"Cente20") (100 . "AcDbLine") (10 2611.67 1741.5 0.0) (11 2675.25 1741.5 0.0)
(210 0.0 0.0 1.0))

那個副程式是以群碼的串列 (0. XXX ) 來判斷
如果線要放在同一個圖層你可以這麼寫

(CClay 圖層名稱 圖層顏色 物件類別)

(CClay "linelayer" 7 "Line")

代碼:



(defun c:CdimLayer ()
  (setvar "CmdEcho" 0)
  (CClay "DIM" 3 "DIMENSION")
  (CClay "Text" 1 "Text")
  (CClay "Text" 1 "Mtext")
  (CClay "Dim" 3 "Leader")
  (CClay "Dim" 3 "MULTILEADER")
  (CClay "linelayer" 7 "Line") ;;<------這邊
  (setvar "CmdEcho" 1)
  (prompt "\n =^.^= =^.^= =^.^=")
  (princ)
)


;;****************chklay existence Creat Layer************************
(defun CClay (layname cc sObjTyp)
  (if (= nil (tblsearch "layer" layname))
    (command "-layer" "n" layname "c" cc layname "")
  )
  (setq   SS  (ssget "x" (list (cons 0 sObjTyp) (cons 410 "Model"))))
  (if (and (/= nil ss) (/= 0 (sslength SS)))
    (command "chprop" SS "" "la" layname "")
  )
  (princ)
)



你問 : 線性標註跟對齊式標註圖層變成Dim(線性標註跟對齊式標註各是屬於哪一個,"Leader 物件"還是MLeader 物件)

都不是!!
Leader 是 _qleader 指令產生的那個物件
MLeader 是 _mleader 指令產生的那個物件

線性標註跟對齊式標註你可以用 (entget (car (entsel))) 比較一下兩者不同
這兩個不同你要用群碼 100 來區隔 分別是

(100 . "AcDbAlignedDimension") 對齊式標註
(100 . "AcDbRotatedDimension") 線性標註

事實上只能用 (100 . "AcDbRotatedDimension") 來判斷兩者

另一種方式是用 ActiveX 物件來寫

command : (vlax-dump-object (vlax-Ename->Vla-Object (car (entsel))) T)

這句會列出屬性跟方法，這是讓學VB 的人更容易使用的方式

真是超過我理解能力
非常謝謝大大
我會努力研究
也謝謝大大後來幫我修的程式

(CClay "Text" 1 "Mtext")
所以說在上面的主程式任意加入上面這一句就可以了
然後圖層名稱自己設定
圖層顏色自己設定
最後一個把物件類別找出來就可以了
下面的副程式都不需要動到

---

選取物件: ((-1 . <圖元名稱: 7ef99408>) (0 . "DIMENSION") (330 . <圖元名稱: 7ef97cf8>) (5 .
"1B9") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbDimension") (2 . "*D2") (10 3102.72 900.06 0.0) (11 2863.45 902.143 0.0)
(12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 478.528)
(73 . 0) (74 . 0) (75 . 0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0
0.0 1.0) (3 . "ISO-25") (100 . "AcDbAlignedDimension") (13 2624.19 1208.44 0.0)
(14 3102.72 1185.31 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 .
0.0)
為什麼線性標註的物件類別是綠色的字而不是紅色的字
這樣跟"值線"的定依好像不一樣

---

選取物件: ((-1 . <圖元名稱: 7ef99408>) (0 . "DIMENSION") (330 . <圖元名稱: 7ef97cf8>) (5 .
"1B9") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbDimension") (2 . "*D2") (10 3102.72 900.06 0.0) (11 2863.45 902.143 0.0)
(12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 478.528)
(73 . 0) (74 . 0) (75 . 0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0
0.0 1.0) (3 . "ISO-25") (100 . "AcDbAlignedDimension") (13 2624.19 1208.44 0.0)
(14 3102.72 1185.31 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 .
0.0) (100 . "AcDbRotatedDimension"))

白金之星 寫到:
為什麼線性標註的物件類別是綠色的字而不是紅色的字
這樣跟"值線"的定依好像不一樣

沒有為什麼，他們兩個是源自同一個類別，當初制定DXF就是這樣...
要查這個表格你可以在說明文件中找到 AutoLISP, Visual LISP, and DXF \ DXF Reference \ DXF Format 找到相關資料
區隔這兩個是用下面這句，跟上面這個程式不同...

(member '(100 . "AcDbRotatedDimension") (entget))

Autolisp 很容易跟使用 Excel 一樣 AutoLISP Developer's Guide. 看一看每一個人都能學會

看到諸位高手寫的程式碼

說真的…

是超出小的能力範圍了，且這些程式要怎麼使用啊？？？

完全像是在看天書一般

不管問題能否解決，還是謝過大家的分享

原本是要保留這些圖塊的

最差的狀況，就是把這些圖塊資料看是刪除還是隱藏起來囉

fpoqua 寫到:看到諸位高手寫的程式碼

說真的…

是超出小的能力範圍了，且這些程式要怎麼使用啊？？？

完全像是在看天書一般

不管問題能否解決，還是謝過大家的分享

原本是要保留這些圖塊的

最差的狀況，就是把這些圖塊資料看是刪除還是隱藏起來囉

你只要使用 阿希 的方式就可以解決啊!!
https://www.autocad-tw.com/t3548-topic#24991

我跟 蘋果 也有測試回報，你有在實際測試嗎?

Tiger&蘋果爸 寫到:
如果沒有程式的話...
我這邊提供一個技巧解決方法，只適用2008以上版本你先試看看:
1.使用 setbylayer指令 將圖面中所有圖塊設定為依圖層(bylayer)
2.使用 laytrans指令 將 圖層A 轉換為 圖層B

蘋果 寫到:
經過測試你的圖的確無法經由指令IT幫忙轉換圖層，
不過，你可以使用AutoCAD內定指令 SETBYLAYER來達到轉換效果，
某些複雜圖塊使用這個指令是無效的，需藉由ＩＴ或圖層轉換器幫忙，
而你這張圖剛好適用指令 SETBYLAYER。

位置：修改＞變更為依圖層
指令： SETBYLAYER

測試看看，有問題再說。

Tiger&蘋果爸 寫到:
你只要使用 阿希 的方式就可以解決啊!!
http://autocad.bestoforum.net/forum-f12/topic-t3548.htm#24991

我跟 蘋果 也有測試回報，你有在實際測試嗎?

先向蘋果爸的辛苦測試謝過…

但可否確認一下「阿希的方式」是指「IT.VLX」嗎？

個人是有實際測試過 蘋果爸 建議的setbylayer與laytrans(圖層轉換器)，

※執行setbylayer後，文字視窗顯示
　　是否要將 ByBlock 變更為 ByLayer？ [是(Y)/否(N)] <是(Y)>:
　　是否包含圖塊？ [是(Y)/否(N)] <是(Y)>:；

==>結果是顏色變為"bylayer"，但骨子裡的圖層仍為"圖層20"，未變為"圖層0"，如下圖中之白色數字(17.19)

※執行laytrans(圖層轉換器)後，則是沒動靜，圖塊顏色仍為"洋紅"，骨子裡的圖層亦仍為"圖層20"



另 阿希 前輩的IT.VLX亦有試過，但結果如引言中 蘋果 前輩所測一樣：無法經由指令IT幫忙轉換圖層

是我哪兒弄錯了嗎？？？

再次附上測試檔http://www.badongo.com/file/16103681

還望諸位大大指正!!

二個方法都可行:
------------------------------------------------------------------------
1A.載入 IT.VLX 程式後，即可輸入 IT指令 > 全選所有物件可以將圖塊改為 圖層0 (BYLAYER)
------------------------------------------------------------------------
2A. setbylayer指令 只能將圖塊改為 BYLAYER 而不會改圖層。
2B. laytrans指令 可以將 圖層20 轉換為 圖層0



------------------------------------------------------------------------

fpoqua 寫到:是我哪兒弄錯了嗎？？？

再次附上測試檔http://www.badongo.com/file/16103681

還望諸位大大指正!!

完整步驟:
1. 使用IT.VLX 程式 , 程式中選項輸入 "N"
2. 輸入指令 SETBYLAYER , 過程皆輸入 "Y"
3. 完 成

PS: 1.你這圖檔應該是非AUTODESK相關軟體做成的, 所以可能會有無法預期的狀況出現
2.IT.VLX程式內並未考慮屬性圖塊的問題

測試結果如下：


跟先前一樣，確定無法經由指令 IT 幫忙轉換圖塊內的圖層跟顏色（一般是可以），
使用指令 SETBYLAYER 只能達到圖塊內顏色轉換，圖塊內部圖層仍停留在 圖層20，
圖層轉換器也無法成功將 圖層20轉換掉。

蘋果爸的可以成功轉換或許跟AutoCAD版本有關，
我是使用AutoCAD 2008，無法成功。

以上報告。

fpoqua所提共檔案

1.載入 IT.VLX 程式後，即可輸入 IT指令 > 全選所有物件無法將圖塊骨子圖層改為 圖層0
2. setbylayer指令 只能將圖塊顏色 線型 線粗改為 BYLAYER 而不會改圖層。
3.laytrans指令 無法將此檔案圖層20 轉換為 圖層0

測試版本 2010

方法一 補充:
1.未進行轉換前狀態
-------------------------------
圖塊名稱:2001
圖層為 0 顏色 byLayer

圖塊名稱:2001_1
圖層為 0 顏色 byLayer

圖塊名稱:2604_2
圖層為 0 顏色 byBlock

圖塊名稱:2607
圖層為 0 顏色 byBlock

圖塊名稱:2609_1
圖層為 Level 26 顏色 byBlock

圖塊名稱:2610_2
圖層為 0 顏色 byBlock

圖塊名稱:2617_2
圖層為 0 顏色 byBlock

圖塊名稱:TerminatorOpen
圖層為 0 顏色 byBlock
-------------------------------

2.以下三個圖塊未存在於目前圖面(也就是沒有使用到的圖塊)，執行 IT指令時因為選不到而不會轉換，所以需要先行插入圖面中後再轉換即可全部轉為 圖層為 0 顏色 byLayer。
圖塊名稱:2610_2

圖塊名稱:2617_2

圖塊名稱:TerminatorOpen


結論:
所以我測的方式是可以的，不知道蘋果、judyyai是否是這樣測呢!?

方法二 補充:
1.SETBYLAYER指令的功用:是將所選物件的性質取代變更為「依圖層」。所以本來就不會改圖層名稱，因此需搭配 laytrans指令。
以下三個圖塊未存在於目前圖面(也就是沒有使用到的圖塊)，執行 laytrans指令時因為選不到而不會轉換，所以需要先行插入圖面中後再轉換即可全部轉為 顏色 byLayer。
圖塊名稱:2610_2

圖塊名稱:2617_2

圖塊名稱:TerminatorOpen


2.laytrans指令:而現在只剩 以下圖塊 圖層 須轉為 圖層 0
圖塊名稱:2609_1
圖層為 Level 26 顏色 byBlock

而使用 laytrans指令 可以將 圖層轉換 圖層 0 ，但是 圖層 20 不能轉的原因是 以下圖塊 為屬性圖塊，屬性圖塊本身性質 圖層設為 圖層 20 ，所以轉換完會剩下 圖層 20 未轉換
圖塊名稱:2001
圖塊名稱:2001_1


3.所以現在所有的 圖塊的內部圖層(骨子)為 圖層 0


PS:測試版本為 2008 及 2010

而這張圖不是由AutoCAD產生的，所以無法使用 ATTSYNC指令 將使用指定圖塊定義中的新屬性和已變更的屬性更新圖塊參考。
也就是無法同步將屬性圖塊的圖層20全部轉為圖層0，需要一個一個轉!!

PS:另外由於不是AutoCAD產生的，所以可能會有不同的測試情況喔!

IT1指令
這是改版後的IT, 在測試看看吧
SETBYLAYER 指令也寫入到程式內了

再改版
ITT指令
這是純用LISP去變更,沒使用到SETBYLAYER

兩版本經測試應該都符合發問者的需求,有問題再提出討論吧

補充第二載點-解壓密碼：change
IT1&ITT 下載 for box

To阿希大…

真是太強了 ，問題已確實解決，圖塊的"圖層20"可全部轉為"圖層0"

請受小的一拜

並感謝協助測試的諸位大大撥空幫忙

終於知道原來我測試的是＂局部＂，而蘋果爸測試的是＂全部＂，
原來差異在這裡，而不是差在版本問題。

太棒了！阿希大大果然厲害耶，改版後真的成功了，
感謝阿希大不吝分享，有你真好呢！


fpoqua 的提問讓我撿到寶，一併感恩喔！

蘋果 寫到:終於知道原來我測試的是＂局部＂，而蘋果爸測試的是＂全部＂，
原來差異在這裡，而不是差在版本問題。

太棒了！阿希大大果然厲害耶，改版後真的成功了，
感謝阿希大不吝分享，有你真好呢！


fpoqua 的提問讓我撿到寶，一併感恩喔！

您客氣了 ~ 跟蘋果爸及論壇內的前輩.志工比起來根本不足掛齒

fpoqua 寫到:To阿希大…

真是太強了，問題已確實解決，圖塊的"圖層20"可全部轉為"圖層0"

請受小的一拜

並感謝協助測試的諸位大大撥空幫忙

很高興你的問題解決了~
也很感謝 阿希 的大力幫助!!
另外還可以透過 CADkawaii 提供的程式，再把圖塊的目前層轉換為圖層 Block (這圖層名可以自訂)。

另外 阿希 把SETBYLAYER 指令也寫入到程式內，這真是太棒了(我也撿到寶哩)~
感恩喔!!

在阿希未提共改版程式前,骨子也要無法改為圖層0
就是說用阿希提共第一次程式,是無法轉換成功!

多虧!阿希後來提共的改版程式1與2!
終於成功,不管用改版那一個都可以!

阿希!程式太神了~佩服佩服!

這個程式還在嗎??
電腦重灌資料都沒了
還可以去哪找這個程式??

請問各位大大
工作上常需要拿到其他公司來的圖，
通常這些圖裡面，圖塊並沒有建立在0層，
導致要分圖層ByLayer時，要一個一個點進去將他改為0層，
一張圖可能有近100個這樣的圖塊，
想請問 是否有比較快速的方法 可以快速將此圖塊改成建立在0層上呢？

========

sorry..我更新我的說法~
不一定要使用LISP
只是 我只會用比較笨的方式
每個圖塊 點進去改成0層..
想在此請教 是否有比較聰明的方法呢...  

奶茶 寫到:請問各位大大
工作上常需要拿到其他公司來的圖，
通常這些圖裡面，圖塊並沒有建立在0層，
導致要分圖層ByLayer時，要一個一個點進去將他改為0層，
一張圖可能有近100個這樣的圖塊，
想請問 是否有LISP 可以快速將此圖塊改成建立在0層上呢？

若你需求LISP 請提供程式在此公開討論
不可以直接要求

非LISP方式 請參考以下討論
[已解決]圖塊的圖層，與檔案的自設圖層不一致，該如何快速調整？

謝謝judy提供的文章~~
我會試看看
謝謝

奶茶 寫到:謝謝judy提供的文章~~
我會試看看
謝謝

我已經將程式補上囉～
另外已經合併文章！