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

主題回顧 :

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

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

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

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

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

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

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

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

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

---

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

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

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提供的文章~~
我會試看看
謝謝

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

測試成功~~
謝謝前輩們無私的分享~
讓我們的工作效率更高唷.....

太感恩了

阿希 寫到:http://www.badongo.com/file/16138759
這是改版後的IT, 在測試看看吧
SETBYLAYER 指令也寫入到程式內了


再改版
http://www.badongo.com/file/16139072
這是純用LISP去變更,沒使用到SETBYLAYER

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

你好，阿希， 能否把您的这个lsp 发一份我邮箱，我无法打开这个网站，我在迪拜

baokeding 寫到:

阿希 寫到:http://www.badongo.com/file/16138759
這是改版後的IT, 在測試看看吧
SETBYLAYER 指令也寫入到程式內了


再改版
http://www.badongo.com/file/16139072
這是純用LISP去變更,沒使用到SETBYLAYER

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

你好，阿希， 能否把您的这个lsp 发一份我邮箱，我无法打开这个网站，我在迪拜

你好～請重回去下載 已補充第二載點
https://www.autocad-tw.com/t3548p30-topic#25234

感恩阿希大大提供的程式~~找好久囉~~謝謝

judyyai是隱世的高手，我之前也遇過一直解決不了的問題，他幾句話就解決了！行家一出手，便知有沒有...........