按组码对表修该实体颜色与图层不成功

lucas3

lispboy的按组码对表修该实体为什么不成功？显示：; error: bad DXF group: ((62 . 1) 8 . "2")

1. ; http://bbs.xdcad.org/forum.php?m ... 3&page=1#pid3555017
   
2. ;|
   
3. 按组码对表修改实体
   
4. Input: 表  (实体名或实体entget数据 '(组码 值 ... 组码 值))
   
5. OutPut: 数据合法 T   失败NIL   
   
6. 
   
7. 说明：本函数不判断参数合法性
   
8. |;
   
9. (defun XD::OBJ:EntMod (e gcl / old x)
   
10.   (if (or
    
11.         (and
    
12.           (eq (type e) 'ENAME)
    
13.           (setq e (entget e))
    
14.         )
    
15.         (eq (type e) 'LIST)
    
16.       )
    
17.     (progn
    
18.       (mapcar
    
19.         '(lambda (x)
    
20.            (if (setq old (assoc (car x) e))
    
21.              (setq e (subst
    
22.                        x
    
23.                        old
    
24.                        e
    
25.                      )
    
26.              )
    
27.              (setq e (cons x  e))
    
28.            )
    
29.            (entmod e)
    
30.          )
    
31.         (XD::List:DotPair gcl)
    
32.       )
    
33.       t
    
34.     )
    
35.   )
    
36. )
    
37. 
    
38. 
    
39. ; 测试
    
40. (defun c:tt()
    
41.    (if (and (setq e (car (entsel "\n选取实体<退出>:")))
    
42.             (setq clr (getint "\n颜色号<退出>:"))
    
43.             (/= "" (setq lyr (getstring "\n图层<退出>:")))
    
44.        )
    
45.      (progn
    
46.        (XD::OBJ:EntMod e (list (cons 62 clr)(cons 8 lyr)))
    
47.      )
    
48.    )
    
49.    (princ)
    
50. )

; <a href=\"http://bbs.xdcad.org/forum.php?mod=viewthread&tid=668653&page=1#pid3555017\" target=\"_blank\">http://bbs.xdcad.org/forum.php?m ... 3&page=1#pid3555017</a><br /> ;|<br /> 按组码对表修改实体<br /> Input: 表  (实体名或实体entget数据 '(组码 值 ... 组码 值))<br /> OutPut: 数据合法 T   失败NIL    <br /> <br /> 说明：本函数不判断参数合法性<br /> |;<br /> (defun XD::OBJ:EntMod (e gcl / old x)<br />   (if (or<br />         (and<br />           (eq (type e) 'ENAME)<br />           (setq e (entget e))<br />         )<br />         (eq (type e) 'LIST)<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (if (setq old (assoc (car x) e))<br />              (setq e (subst<br />                        x<br />                        old<br />                        e<br />                      )<br />              )<br />              (setq e (cons x  e))<br />            )<br />            (entmod e)<br />          )<br />         (XD::List:DotPair gcl)<br />       )<br />       t<br />     )<br />   )<br /> )<br /> <br /> <br /> ; 测试<br /> (defun c:tt()<br />    (if (and (setq e (car (entsel "\n选取实体<退出>:")))<br />             (setq clr (getint "\n颜色号<退出>:"))<br />             (/= "" (setq lyr (getstring "\n图层<退出>:")))<br />        )<br />      (progn<br />        (XD::OBJ:EntMod e (list (cons 62 clr)(cons 8 lyr)))<br />      )<br />    )<br />    (princ)<br /> )

csharp

那个帖子下面还有一个简单的 , gcl 格式不是Lisp擅长的形式，下面这个方式更符合 Lisp 习惯

1. ;;e    ---- ename or elst
   
2. ;;list ---- dotpair
   
3. (defun modent (e lst / l)
   
4.   (and (= (type e) 'ENAME) (setq e (entget e '("*"))))
   
5.   (foreach x lst
   
6.     (if        (setq l (assoc (car x) e))
   
7.       (setq e (subst l x e))
   
8.       (setq e (append e (list x)))
   
9.     )
   
10.   )
    
11.   (entmod e)
    
12. )

;;e    ---- ename or elst<br /> ;;list ---- dotpair<br /> (defun modent (e lst / l)<br />   (and (= (type e) 'ENAME) (setq e (entget e '("*"))))<br />   (foreach x lst<br />     (if        (setq l (assoc (car x) e))<br />       (setq e (subst l x e))<br />       (setq e (append e (list x)))<br />     )<br />   )<br />   (entmod e)<br /> )

lucas3

csharp 发表于 2015-4-29 15:03
那个帖子下面还有一个简单的 , gcl 格式不是Lisp擅长的形式，下面这个方式更符合 Lisp 习惯

那LISPBOY发出来，不会就用不了吧  

csharp

你没有领会用法
(list 62 clr 8 lyr)

lucas3

csharp 发表于 2015-4-29 15:26
你没有领会用法
(list 62 clr 8 lyr)

感谢大师指教，大师是LISP C# C++都精通啊，{:soso_e179:}还让不让我们活{:soso_e109:}