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

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

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

fpoqua 寫到:於本版爬文見到"judyyai"大大分享圖層"0層"的功能(還不會用連結啦 )，所以摘錄如下：
===========================================
0層!可以用來存放圖塊的圖層!
由這一層做的圖層,插入圖塊之後!可以依目前使用圖層!使用設定的顏色與線型

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

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

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

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

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

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

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

fpoqua 寫到:
另試著關閉圖層A時，亦無法將這些表面為圖層A，骨子裡圖層為B之圖塊關閉，
只有將圖塊之圖層修正為"0層"將顏色設為"Bylayer"，才可順利達到變換顏色及關閉圖層之目的。
由於這樣的圖塊有上千個，除了逐一編修之苦方法外，想請教各位先進，有無快速調整之方法？

阿希 寫到:論壇好像無法上傳檔案 ~

阿希 寫到:論壇好像無法上傳檔案 ~

我寫了一個程式可以解決這問題 ~ 以MAIL給蘋果爸了 ~
等蘋果爸測試OK在看看他要如何分享吧 !!!

阿希 寫到:論壇好像無法上傳檔案 ~
我寫了一個程式可以解決這問題 ~ 以MAIL給蘋果爸了 ~

代碼:


(defun c:CdimLayer ()
  (setvar "CmdEcho" 0) 
  (CClay "DIM" 3 "DIMENSION")  ;; 這句表示:將DIMENSION 物件歸類到 3 綠色 ，DIM 圖層
  (CClay "Text" 1 "Text");; 這句表示:將 Text 物件歸類到 1 紅色 ， 圖層 Text
  (CClay "Text" 1 "Mtext");; 這句表示:將 MText 物件歸類到 1 紅色 ， 圖層 Text
  (CClay "Dim" 3 "Leader");; 這句表示:將 Leader 物件歸類到 3 綠色 ， 圖層 Dim
  (CClay "Dim" 3 "Mleader");;這句表示:將 MLeader 物件歸類到 3 綠色 ， 圖層 Dim
  (CClay "Block" 7 "INSERT");;;;這句表示:將 Block 物件歸類到 7 白色 ， 圖層 Block
  ;;(CClay "Hatch" 55 "Hatch")
 
  (setvar "CmdEcho" 1)
  (prompt "\n =^.^= =^.^= =^.^=")
  (princ)
)


;;************CClay (使用者勿修改副程式)******************
(defun CClay (layname cc sObjTyp) ;;;  layname 是圖層名稱，CC 是指訂圖層顏色，sObjtype 是物件類別(群碼索引值為 0)
  (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)
)



補充
使用方法：
工具>載入應用程式>選取IT.VLX
指令IT>選取欲轉換物件>選Ｙ　即可

有測試過，的確可以將圖塊內多個不同圖層快速轉換為＂０＂圖層
很實用的一個程式，感謝阿希無私分享，讓我撿到寶。

fpoqua 寫到:
為何說檔案異常，因這檔案是由Microstation轉存dwg而來
經測試轉換圖層及程式轉換(it.vlx)，還是無法順利調整圖層
.....再煩請諸位前輩幫忙測試，圖面中的圖塊(數字部分)，
能否快速調整為圖層0，謝謝。

CADkawaii 寫到: 這個程式可以幫你把 Block 集中到一個圖層，或許可以減少錯誤發生，但Block 的建立理論上應該還是都要放在 0 層這是很重要的，0 層的好處是 0 層沒有個性。
這個程式還會歸類如 Dim Text Mtext Leader Mleader Hatch 到個別圖層，如果你不想要它做歸類，在程式碼前面加上 ;; 就可以變成註解。

白金之星 寫到:請教阿希大大
你提供的程式，的確可以將圖塊內多個不同圖層快速轉換為＂０＂圖層
可是 是不是無法將整個圖塊轉換為＂０＂圖層
因為我畫兩個圓
第一個圓在＂1＂圖層,第二個圓在＂2＂圖層
然後在＂3＂圖層把這兩個圓一起做成一個圖塊
使用"IT"後
進入圖塊編輯器內看 兩個圓確實快速轉換為＂０＂圖層
但是整個圖塊還是在＂3＂圖層

Tiger&蘋果爸 寫到:我測試過都可以啊~
而以下3個圖塊未插入圖面，所以程式執行過程選不到所以無法轉換!!
2610_2
2617_2
TerminatorOpen

ps:而程式未包含處理 圖面中的圖塊(數字部分)，所以你需要自行修改才可~

白金之星 寫到:非常好用
謝謝大大
不過
(CClay "Text" 1 "Text");; 這句表示:將 Text 物件歸類到 1 紅色 ， 圖層 Text
(CClay "Text" 1 "Mtext");; 這句表示:將 MText 物件歸類到 1 紅色 ， 圖層 Text
(CClay "Dim" 3 "Leader");; 這句表示:將 Leader 物件歸類到 3 綠色 ， 圖層 Dim
(CClay "Dim" 3 "Mleader");;這句表示:將 MLeader 物件歸類到 3 綠色 ， 圖層 Dim
(CClay "Block" 7 "INSERT");;;;這句表示:將 Block 物件歸類到 7 白色 ， 圖層 Block
紅字部分是代表什麼
當叫出性質時block是"圖塊參考"
其他的各表示什麼??

白金之星 寫到:CADkawaii大大
我想問的是
程式是怎麼判定哪個東西要變成哪一個圖層
是剛才紅色字做分類嗎??
因為我試了 畫一個圓的圖塊,畫一個線性標註,畫一個對齊式標註
然後用了CADkawaii大大的程式後
圓的圖塊圖層變成Block
線性標註跟對齊式標註圖層變成Dim(線性標註跟對齊式標註各是屬於哪一個,"Leader 物件"還是MLeader 物件)
程式是怎麼判定哪個東西要變成哪一個圖層
如果是"sObjtype 是物件類別"判斷的
要去哪裡找這個類別
因為我想改一個"直線"直接全部變成某一圖層