欢迎大家提意见，修改图元特性的函数，让它更丰满

夏生生

修改图元特性的函数，野路子，写的不规范，欢迎大家提意见，让它更丰满，更规范，在这里先谢谢大家。

1. ;;;修改图元组码
   
2. ;;;ss选折集、图元名、vla对象均可
   
3. ;;;num需修改的组码表
   
4. ;;;ch组码修改值表
   
5. ;;;num与ch的个数必须相等
   
6. (defun ch_dxf_ss (ss num ch / ssl en ent new_num old_num x y)
   
7.   (cond
   
8.     ((eq (type ss) 'PICKSET)
   
9.       (setq ssl (X_SS->List ss nil))
   
10.     )
    
11.     ((eq (type ss) 'ENAME)
    
12.       (setq ssl (list ss))
    
13.     )
    
14.     ((eq (type ss) 'VLA-OBJECT)
    
15.       (setq ssl (list (vlax-vla-object->ename ss)))
    
16.     )
    
17.   )
    
18.   (cond
    
19.     ((eq (type num) 'INT)
    
20.       (setq num (list num))
    
21.     )
    
22.   )
    
23.   (cond
    
24.     ((null (eq (type ch) 'LIST))
    
25.       (setq ch (list ch))
    
26.     )
    
27.   )
    
28.   (if (/= (length num) (length ch))
    
29.     (princ "组码表与修改表数目不等")
    
30.     (foreach en ssl
    
31.       (mapcar
    
32.         '(lambda (x y)
    
33.            (setq ent (entget en)
    
34.                  new_num (cons x y)
    
35.                  old_num (assoc x ent)
    
36.            )
    
37.            (if old_num
    
38.              (entmod (subst
    
39.                        new_num
    
40.                        old_num
    
41.                        ent
    
42.                      )
    
43.              )
    
44.              (entmod (reverse (cons new_num (reverse ent))))
    
45.            )
    
46.          )
    
47.         num
    
48.         ch
    
49.       )
    
50.     )
    
51.   )
    
52.   ss
    
53. )
    

;;;修改图元组码<br /> ;;;ss选折集、图元名、vla对象均可<br /> ;;;num需修改的组码表<br /> ;;;ch组码修改值表<br /> ;;;num与ch的个数必须相等<br /> (defun ch_dxf_ss (ss num ch / ssl en ent new_num old_num x y)<br />   (cond<br />     ((eq (type ss) 'PICKSET)<br />       (setq ssl (X_SS->List ss nil))<br />     )<br />     ((eq (type ss) 'ENAME)<br />       (setq ssl (list ss))<br />     )<br />     ((eq (type ss) 'VLA-OBJECT)<br />       (setq ssl (list (vlax-vla-object->ename ss)))<br />     )<br />   )<br />   (cond<br />     ((eq (type num) 'INT)<br />       (setq num (list num))<br />     )<br />   )<br />   (cond<br />     ((null (eq (type ch) 'LIST))<br />       (setq ch (list ch))<br />     )<br />   )<br />   (if (/= (length num) (length ch))<br />     (princ "组码表与修改表数目不等")<br />     (foreach en ssl<br />       (mapcar<br />         '(lambda (x y)<br />            (setq ent (entget en)<br />                  new_num (cons x y)<br />                  old_num (assoc x ent)<br />            )<br />            (if old_num<br />              (entmod (subst<br />                        new_num<br />                        old_num<br />                        ent<br />                      )<br />              )<br />              (entmod (reverse (cons new_num (reverse ent))))<br />            )<br />          )<br />         num<br />         ch<br />       )<br />     )<br />   )<br />   ss<br /> )<br />

Free-Lancer

供参考
http://bbs.xdcad.net/thread-668100-1-1.html