求助：统一改变直线颜色

yanasdf789

(defun c:ys1()
     (setq ent_list (ssget))
   (setq ent_list_len (sslength ent_list))
   (setq id 0)
   (repeat ent_list_len
    ( setq ent_data (entget (ssname ent_list id)))
    
    ( setq ent_data (subst (cons 10 '(0 0))(assoc 10 ent_data)ent_data));;;修改起点坐标
     ;( setq ent_data (subst (cons 370 140 )(assoc 370 ent_data)ent_data));;;修改颜色
    (entmod ent_data)
    (setq id (1+ id))
  )
)

为什么 修改坐标行 ，修改颜色不行呢？求教各位大侠

Andyhon

可曾考虑用 'Chprop' 命令

pickle_cad

颜色组码为370吗?

yanasdf789

370 是代表线性但还是不行de

liu_kunlun

颜色是62组码

yanasdf789

我改成62组吗也不行 ，为什么

(defun c:ys1()
 
   (setq ent_list (ssget))
   (setq ent_list_len (sslength ent_list))
   (setq id 0)
   (repeat ent_list_len
    ( setq ent_data (entget (ssname ent_list id)))   
    ( setq ent_data (subst (cons 62 2) (assoc 62 ent_data)ent_data))
    (entmod ent_data)
    (setq id (1+ id))
 )
)

fengjian11

有的线没有颜色，就没有62的项

assoc 62 ent_data

返回nil

xianaihua

2. (defun c:test (/ sset item ctr check)
3.      ;load the visual lisp extensions
4.   (vl-load-com)
5.      ;check for selection
6.   (while
7.      ;get the selection set
8.     (setq sset (ssget))
9.      ;set up the counter
10.      (setq ctr 0)
11.      ;count the number of entities and loop
12.      (repeat (sslength sset)
13.      
14.      ;extract the entity name,convert to vl object
15.        (setq item (vlax-ename->vla-object (ssname sset ctr)))
16.      ;check if the entity has a color property
17.      ;and it can be updated
18.        (setq check (vlax-property-available-p item "Color" T))
19.      ;if it can
20.        (if (and check (= "AcDbLine" (vla-get-Objectname item)))
21.      ;change it's color
22.   (vlax-put-property item 'Color 6)
23.        )    ;if
24.      ;increment the counter
25.        (setq ctr (1+ ctr))
26.      )     ;repeat
27.   )     ;while
28.   (princ)
29. )     ;defun
30. (princ)

(defun c:test (/ sset item ctr check)      ;load the visual lisp extensions   (vl-load-com)      ;check for selection   (while      ;get the selection set     (setq sset (ssget))      ;set up the counter      (setq ctr 0)      ;count the number of entities and loop      (repeat (sslength sset)            ;extract the entity name,convert to vl object        (setq item (vlax-ename->vla-object (ssname sset ctr)))      ;check if the entity has a color property      ;and it can be updated        (setq check (vlax-property-available-p item "Color" T))      ;if it can        (if (and check (= "AcDbLine" (vla-get-Objectname item)))      ;change it's color   (vlax-put-property item 'Color 6)        )    ;if      ;increment the counter        (setq ctr (1+ ctr))      )     ;repeat   )     ;while   (princ) )     ;defun (princ)

Andyhon

若不方便用 'chprop'
Try this
   (ssget)
   (vlax-for obj
     (vla-get-activeselectionset
         (vla-get-activedocument (vlax-get-acad-object))
     )
     (vla-put-color obj 4)         ; 4 ==> or other color
   )