[LISP函数]：发个很方便的改色lis小工具

conn

很方便的
;改成红色--------------------------------------------------------- 1
(defun c:1(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "1" "")
)
;改成黄色--------------------------------------------------------- 2
(defun c:2(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "2" "")
)
;改成绿色--------------------------------------------------------- 3
(defun c:3(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "3" "")
)
;改成青色--------------------------------------------------------- 4
(defun c:4(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "4" "")
)
;改成蓝色--------------------------------------------------------- 5
(defun c:5(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "5" "")
)
;改成紫色--------------------------------------------------------- 6
(defun c:6(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "6" "")
)
;改成白色--------------------------------------------------------- 7
(defun c:7(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "7" "")
)
;改成灰黑色--------------------------------------------------------8
(defun c:8(/ ent)
  (setq ent (ssget))
  (command "change" ent "" "p" "c" "8" "")
)
;改色--------------------------------------------------------------9
(defun c:9(/ ent)
   (setq ent(ssget))
   (command "change" ent "" "p" "c" "9" "")
)

JOSDENNIS

以閱. 方便實用而寫法簡單. 呵呵, 我怎麼以前沒有寫這樣的東東. 支持

andyhua5240

好东东,顶一下,帮楼主做个附件!
命令是1,2````````````````````````9

lsjjm

方便是方便, 可是数字当命令---有时就不方便了?!

841594

对我们专业而言，一般认为改颜色的命令最好少用，会影响图层操作。不知大家是否有同感。为此还专门编过一段按颜色归置层的程序：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:hs (/ cc ss n e lay clist kk)
   
5.   (setq clist (list 255))
   
6.   (repeat 254
   
7.     (setq clist (cons (1- (car clist)) clist))
   
8.   )
   
9.   (foreach cc clist
   
10.     (if        (not kk)
    
11.       (princ (strcat "\n搜索物体中... 颜色 " (itoa cc)))
    
12.       (progn
    
13.         (repeat kk (princ "\010"))
    
14.         (princ (itoa cc))
    
15.       )
    
16.     )
    
17.     (setq kk (strlen (itoa cc)))
    
18.     (setq ss (ssget "x" (list (cons 62 cc))))
    
19.     (if        ss
    
20.       (progn
    
21.         (setq kk nil)
    
22.         (setq n 0)
    
23.         (while (setq e (ssname ss n))        ;highlight the objects
    
24.           (redraw e 3)
    
25.           (setq n (1+ n))
    
26.         )                                ;while
    
27.         (setq
    
28.           lay (getstring
    
29.                 (strcat "\n请为颜色为 " (itoa cc) " 的物体指定层名: ")
    
30.               )
    
31.         )
    
32.         (if (tblsearch "LAYER" lay)
    
33.           (command "chprop" ss "" "c" "bylayer" "layer" lay "")
    
34.           (progn
    
35.             (setq
    
36.               yn (getint
    
37.                    "\n指定的层不存在. \n键入任意数字创建此层<跳过>: "
    
38.                  )
    
39.             )
    
40.             (if        yn
    
41.               (command "layer" "m"     lay     "c"     cc      ""
    
42.                        ""      "chprop"               ss      ""      "c"
    
43.                        "bylayer"       "layer" lay     ""
    
44.                       )
    
45.             )
    
46.           )                                ;progn
    
47.         )                                ;if
    
48.       )
    
49.     )                                        ;if
    
50.   )                                        ;foreach
    
51. )                                        ;end  
    
52. 
    
53. 
    
54.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:hs (/ cc ss n e lay clist kk)<br />   (setq clist (list 255))<br />   (repeat 254<br />     (setq clist (cons (1- (car clist)) clist))<br />   )<br />   (foreach cc clist<br />     (if        (not kk)<br />       (princ (strcat "\n搜索物体中... 颜色 " (itoa cc)))<br />       (progn<br />         (repeat kk (princ "\010"))<br />         (princ (itoa cc))<br />       )<br />     )<br />     (setq kk (strlen (itoa cc)))<br />     (setq ss (ssget "x" (list (cons 62 cc))))<br />     (if        ss<br />       (progn<br />         (setq kk nil)<br />         (setq n 0)<br />         (while (setq e (ssname ss n))        ;highlight the objects<br />           (redraw e 3)<br />           (setq n (1+ n))<br />         )                                ;while<br />         (setq<br />           lay (getstring<br />                 (strcat "\n请为颜色为 " (itoa cc) " 的物体指定层名: ")<br />               )<br />         )<br />         (if (tblsearch "LAYER" lay)<br />           (command "chprop" ss "" "c" "bylayer" "layer" lay "")<br />           (progn<br />             (setq<br />               yn (getint<br />                    "\n指定的层不存在. \n键入任意数字创建此层<跳过>: "<br />                  )<br />             )<br />             (if        yn<br />               (command "layer" "m"     lay     "c"     cc      ""<br />                        ""      "chprop"               ss      ""      "c"<br />                        "bylayer"       "layer" lay     ""<br />                       )<br />             )<br />           )                                ;progn<br />         )                                ;if<br />       )<br />     )                                        ;if<br />   )                                        ;foreach<br /> )                                        ;end  <br /> <br /> <br />   [/FONT]<br />

JOSDENNIS

我也是很少改對象的色. 因為在圖層以規定好了. 在不得以的情況下有時是會改改的. 呵呵. 但是站在不會用程序的角度來說. 改色也是很簡單的事. 就是用鼠標先好對象直接在工具條選要改成的色彩就ok了. 所以動用到程序好象也小題大作了. 用程序來做也不過是換湯不換葯. 我的說法也有點過擊. 大家別放在心上才好. 但對於高手來說用程序的做法也是一個大大的改革和改進. 這是我個人的意見.

陌生人

就是用鼠標先好對象直接在工具條選要改成的色彩就ok了.
我觉得这样就很好了。我平时就是这么用的，很方便啊，没必要写程序了。
（改块内实体颜色另外说）

李亮

我想多搞点钱，不好意思了

pzw810928

支持五楼就是换层改色我就是这么用的