1樓：shine虞雄斌
(defun change_color(/ p1 p2 ss n ent_name v_c my_color )
(vl-load-com)
(setq p1 (getpoint "選擇框選圖元的第一個角點"))
(setq p2 (getcorner p1 "選擇框選圖元的第二個角點"))
(setq ss (ssget "c" p1 p2));得到選擇的所有圖元
(setq n 0)
(repeat (sslength ss)
(setq ent_name (ssname ss n))
(setq n (+ n 1))
(setq v_c (vlax-ename->vla-object ent_name))
(setq my_color (vla-get-color v_c));得到顏色
(if (= my_color 1);如果等於紅色
(progn
(vla-put-color v_c 7);設定成白色))
(if (/= my_color 1);如果不等於紅色
(progn
(vla-put-color v_c 1);設定成紅色))
))複製到autolisp
命令欄輸入：(change_color)
純手打 給個贊吧！
lisp語言如何設定cad當前繪圖顏色
2樓：朱正偉
(setq #os6 (getvar "cecolor") ;;取得當前顏色為#os6
(setvar "cecolor" "1");改變當前顏色為【紅】，顏色的數值到autocad裡面檢視。
(setvar "cecolor" #os6);顏色還原
;1.以上是一個設定方法，這個時候繪圖的話，會把圖形以設定顏色繪製。
;2.如果圖元物件已經繪製，要修改圖元顏色的話，這個圖元是ent 【如：(setq ent (entlast))】
(command "_.chprop" ent "" "color" 1 "");修改圖元顏色為【紅】；這個是直接改變顏色
autocad如何批量更換顏色？ 20
3樓：朱正偉
選擇物件，在【物件顏色】裡面修改。
載入外掛，利用外掛修改顏色，**如下：
(if (null vlax-dump-object) (vl-load-com) )
(if (and
(setq #k1 (getint "\n請輸入0~256之間的顏色**"))
(>= #k1 0)
(<= #k1 256)
(princ "\n請選擇物件")
(setq &kw1 (ssget))
)(progn
(setq &kw1 (ssdel &ob1 &kw1))
(setq &ob1 (vlax-ename->vla-object &ob1))
(vla-put-color &ob1 #k1);改變顏色))
)(princ)
);複製到記事本，以【.lsp】為字尾命名，autolisp載入，命令【tes】
如果要選擇某個顏色物件的話，使用【快速選擇】方法選擇物件，然後修改顏色。
4樓：慈初然
全部選中，按數字鍵1,2,3,4,5~~~中一個數字鍵（數字對應線條顏色看自己的設定）。會發現顏色全統一了
5樓：
1 樓回答有問題，更改圖層顏色，有條件的必須是你所有的這個顏色都是這個層，如果不在，暈吧。
告訴你，需要時間注意做圖細節，要不就玩玩了，不過我不知道cad是不是有批處理功能，如果有，那就好辦。
因為我用的是cdr，好幾年都沒有用cad忘了。
6樓：匿名使用者
1.開啟圖層管理器，在狀態列顏色選項上面點一下，圖層就會按顏色排列（這步能看懂吧）
2.選中你要修改顏色的第一個圖層，按shift鍵，再點選你要修改顏色最後一個圖層（這步也很好理解吧）
3.在顏色方塊上點下，選擇你要改的顏色，確定，然後看看，所有同樣顏色的圖層就都改過來了。（這步也很簡單吧）
ps:其實這樣很少用到，我用cad快10年了，還是第一次用到。呵呵
7樓：匿名使用者
2004版以後的，好像全選，在選擇線形顏色，試試
8樓：匿名使用者
改變塗層的顏色就行了，在塗層管理器裡面
9樓：匿名使用者
工具》選項》顯示》視窗元素》顏色 二樓說的對。如果有多個圖層，，一樓說的就是錯誤的。
如何才能實現自我價值，如何實現自我價值？
頭大了已經 這個是從初中開始學習哲學就開始的有的問題，基本上初中，高中，大學政治都有學，自我價值是指在個人生活和社會活動中，自我對社會作出貢獻，而後社會和他人對作為人的存在的一種肯定關係。包括人的尊嚴，和保證人的尊嚴的物質精神條件。自我價值的實現必然要以對社會的貢獻為基礎，以答謝社會為目的。 璇璇破...
如何實現settings介面，如何實現一個settings介面ios
不是。可以用倆個uiview的偏移。高仿。不知道qq 是怎麼做的。手勢加view偏移可以模仿 ios這種介面是如何實現的，說一下大概思路 5 下個iphone版的qq 要在手機的最左邊滑動才行。不是。可以用倆個uiview的偏移。高仿。不知道qq 是怎麼做的。手勢加view偏移可以模仿 ddmenu...
如何實現內容不分頁顯示，如何實現word內容不分頁顯示
選擇普通檢視 大綱檢視，或者在頁面檢視狀態下，將滑鼠移至兩頁空白處，雙擊，則頁間空白消失，再雙擊恢復！如何讓word文件不分頁，整個文件只有一頁 我來也 這種情況也只有少量文字能夠實現的，若有成千上萬的文字，怎麼可能不分頁呢！在少量文字的前提下，若要把文字整合在一個頁，調整方法如下 一 調整字型大小...