[討論]大量變更圖層時可以保留原圖層的顏色嗎?

一般我都習慣建一個底圖層用灰色但重要部分希望保留原稿原色,以辨識圖,檔案也較小
請問能變更圖層時可以保留原圖層的顏色嗎?

jl64721 寫到:一般我都習慣建一個底圖層用灰色但重要部分希望保留原稿原色,以辨識圖,檔案也較小
請問能變更圖層時可以保留原圖層的顏色嗎?

兩個我自己做的 lisp程式分享

1.將物件顏色為BYLAYER的物件更改成所屬圖層的顏色（changcolortoobj指令）

代碼:

(defun c:changcolortoobj()
  (vl-load-com)
  (get_lay_data_list)
  (sub-xl-test3)
  (prin1)
)
(defun sub-xl-test3()
  (foreach lista lay_data_list
    ;(setq lista (car lay_data_list))
    (setq lco (cadr lista))
    (setq lay (car lista))
    (setq objs (ssget "X" (list (cons 8 lay))))
    (if (/= objs nil)
      (progn
 (setq i 0)
 (repeat (sslength objs)
  (setq obj (ssname objs i))
  ;;;      (setq obj (car (entsel "\n選取物件查看VLA性質資料:")))
  ;;;      (setq ltp "HIDDEN")
  (setq xobj (vlax-ename->vla-object obj))
  (if (= (vla-get-color xobj) 256)
    (vla-put-color xobj lco)
    )
  (setq i (1+ i))
  )
 )
      )
    )
  )
(defun get_lay_data_list()
  (setq acadobj(vlax-get-acad-object))
  (setq dwgobj(vla-get-activedocument acadobj))
  (setq layobj(vla-get-layers dwgobj))
  (setq lay_data_list nil)
  (vlax-for obj layobj
     (setq name(vla-get-name obj))
     (setq color(vla-get-color obj))
     (setq ltype(vla-get-linetype obj))
     (setq lay_data_list(cons (list name color ltype) lay_data_list))
  )
  (setq lay_data_list(vl-sort lay_data_list
         '(lambda(lst1 lst2)(< (car lst1)(car lst2)))
     )
  )
)

2.將物件線型為BYLAYER的物件更改成所屬圖層的線型（changlintypetoobj指令）

代碼:

(defun c:changlintypetoobj()
  (vl-load-com)
  (get_lay_data_list)
  (sub-xl-test3)
  (prin1)
)
(defun sub-xl-test3()
  (foreach lista lay_data_list
    ;(setq lista (car lay_data_list))
    (setq ltp (caddr lista))
    (setq lay (car lista))
    (setq objs (ssget "X" (list (cons 8 lay))))
    (if (/= objs nil)
      (progn
 (setq i 0)
 (repeat (sslength objs)
  (setq obj (ssname objs i))
  ;;;      (setq obj (car (entsel "\n選取物件查看VLA性質資料:")))
  ;;;      (setq ltp "HIDDEN")
  (setq xobj (vlax-ename->vla-object obj))
  (if (= (vla-get-linetype xobj) "BYLAYER")
    (vla-put-linetype xobj ltp)
    )
  (setq i (1+ i))
  )
 )
      )
    )
  )
(defun get_lay_data_list()
  (setq acadobj(vlax-get-acad-object))
  (setq dwgobj(vla-get-activedocument acadobj))
  (setq layobj(vla-get-layers dwgobj))
  (setq lay_data_list nil)
  (vlax-for obj layobj
     (setq name(vla-get-name obj))
     (setq color(vla-get-color obj))
     (setq ltype(vla-get-linetype obj))
     (setq lay_data_list(cons (list name color ltype) lay_data_list))
  )
  (setq lay_data_list(vl-sort lay_data_list
         '(lambda(lst1 lst2)(< (car lst1)(car lst2)))
     )
  )
)

如果圖層有鎖護或凍結的話程式應該會出錯喔~!

補充: 將兩隻程式分別都執行過之後,再將所有物件改到您所建立的底圖圖層,線型及顏色就都不會變動,但是如果要達到您所要求的只有重要區域不改變顏色的話,您還得手動把不重要的區域挑選出來改成不重要的顏色囉~!

感恩 leoneriol 提供進階的程式作法，我這裡提供AutoCAD內建的功能「圖層狀態管理員」。

工作階段中的「圖層顏色」有時需反覆變更，您可以透過「記憶圖層顏色」方式，日後可以隨時存取「圖層顏色」狀態。

相關主題：[影片]圖層狀態管理員 - 記憶圖層開關


另外，jl64721您的底圖應該是使用「圖塊」方式，通常我會建議底圖使用「外部參考」插入，檔案不會變大而且隨時可以還原圖層的顏色喔。

哇~~~~原來還有這樣的方式!!又學到一招!! 

感恩 leoneriol 提供程序,學習了!

把LISP貼到AUTOCAD2010.lisp最下面一行 然後開啟時指令輸入(LOAD "autocad2010.lisp")

或是把LISP貼到指令執行

2種方法都試過了還是無法保留原色

更正是在指令列輸入 (load "acad2010.lsp) 還是無法保留原色

他會出現GET_LAY_DATA_LIST

載入成功了但還是底圖的顏色無法保留原圖層之顏色

jl64721 寫到:把LISP貼到AUTOCAD2010.lisp最下面一行 然後開啟時指令輸入(LOAD "autocad2010.lisp")

或是把LISP貼到指令執行

2種方法都試過了還是無法保留原色

哪位大大來幫幫我吧!?我覺得我看不懂jl64721大哥所想要傳遞給我的資訊..... 

不知ji64721大的意思是否為，若有誤解還請指正,
原圖的物件有很多種顏色,

現在想把原圖的物件全都放到一個圖層,做為所謂的底圖層,而這個底圖層的顏色是灰色.

以前在事務所有遇過這樣的需求,就是要把一大堆物件全都放到一個灰色圖層做為底圖.

但ji64721大可能是希望不要全部放在灰色底圖層的物件都變灰色,
而是不重要的地方才變灰色,其它重要的地方保持它的原色.


蘋果爸 跟leoneriol大大 提供的方式都很棒   ,應該都能達到j大的要求才是.

因為蘋果爸的教學影片已經很詳細了,若照影片操作應該不會有啥問題.
文末蘋果爸亦有提到使用外部參考,這招不知j大是否有試過?

若是使用lisp,
我在猜想會不會是j大在執行lisp的過程遇到甚麼問題,導致沒有達到
lisp應該可達到的效果.

j大是否方便把操作的步驟一個一個詳細描述,這樣大大們才有辦法解決你的問題,
小弟也才有辦法在旁邊偷學到更多東西(喂).

若能貼圖片上來更棒.

以上胡亂講講僅供參考,勿怪(汗)

leoneriol 寫到:哪位大大來幫幫我吧!?我覺得我看不懂jl64721大哥所想要傳遞給我的資訊.....

jl64721應該是想要掛入程式，但是失敗了～
 

jl64721 寫到:更正是在指令列輸入 (load "acad2010.lsp) 還是無法保留原色
他會出現GET_LAY_DATA_LIST
載入成功了但還是底圖的顏色無法保留原圖層之顏色

leoneriol提供的程式，不是放在 acad2010.lsp 裡，請按照以下方式掛入LSP或是直接下載。
 

步驟1.請將leoneriol提供的程式分別儲存成
changcolortoobj.lsp
changlintypetoobj.lsp
▼程式下載：
https://app.box.com/s/2fpm2vj5qv6p55ddvbv4

步驟2.再來將兩支程式需掛入到AutoCAD中，請參考以下教學文章。
「教學」載入LISP應用程式 APPLOAD指令

步驟3.日後即可使用以下指令
changcolortoobj指令
changlintypetoobj指令

我把圖層狀態管理員，作為圖面有問題的地方，沒問題的用灰色，對方收到時也容易看出來，減少雞同鴨講，避免爭吵...

這真好用啊，不用每次慢慢轉回，謝謝企分享

太棒了!!影片真的很好懂~

我也是用 蘋果爸 這個方法在用 呵呵 很方便!! 

問題已解決

感謝分享
謝謝...