[LISP函数]：[LISP函数]：我想更改一个属性块中包含的所有实体对象的图层，使之与该块

zwx62504

我想更改一个属性块中包含的所有实体对象的图层，使之与该块本身的图层一致，我的实现方法是：
  (setq ss (ssget "X" '((0 . "insert"))) i0 -1)
  
  (while (setq ent (ssname ss (setq i0 (1+ i0))))   
      (setq la (cdr (assoc 8 (entget ent)))
            color1 (cdr (assoc 62 (entget ent)))
            exit0 nil
      )
      (while (and (not exit0)
                  (setq ent (entnext ent))
                  (setq entg (entget ent))
             )
        (setq entg (subst (cons 8 la) (assoc 8 entg) entg)
              entg (subst (cons 62 color1) (assoc 62 entg) entg)
        )
        (entmod entg)        
        (setq exit0 (assoc -2 entg))
      )
  )
但是结果并满意，属性块中最后一个实体对象无法更改。
一个属性块的数据表如下：(NO.1)
((-1 . <图元名: 40083370>) (0 . "INSERT") (330 . <图元名: 40081cf8>)
(5 . "15E") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "植被层") (6 .
"18") (48 . 0.5) (100 . "AcDbBlockReference") (66 . 1) (2 . "G1012") (10
339.028 414.377 -0.0440077) (41 . 0.5) (42 . 0.5) (43 . 0.5) (50 . 0.875457)
(70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))

用(entnext)依次提取上述块所包含的属性表。
第一次(entnext)：(NO.2)
((-1 . <图元名: 40083378>) (0 . "ATTRIB") (330 . <图元名: 40083370>) (5 .
"15F") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbText") (10 339.738 414.566 -0.0440077) (40 . 0.849) (1 . "93720") (50 .
0.875457) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 339.412
414.838 -0.0440077) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (2 . "CODE") (70
. 1) (73 . 0) (74 . 2))
第二次(entnext)：(NO.3)
((-1 . <图元名: 40083380>) (0 . "SEQEND") (330 . <图元名: 40083370>) (5 .
"160") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "植被层") (6 . "18")
(48 . 0.5) (-2 . <图元名: 40083370>))
第二次(entnext)：
nil

用
        (setq entg (subst (cons 8 la) (assoc 8 entg) entg)
              entg (subst (cons 62 color1) (assoc 62 entg) entg)
        )
        (entmod entg)        
对NO.1-NO.3的对象进行修改特定的值，NO.1和NO.2的对象修改成功，但是NO.3的对象修改不成功。

期待得到帮助的问题有：
1.我的做法在NO.3处为什么会不成功？
2.我该如何正确实现上述的修改操作？
3.我想删除属性块中属性数据即上述的NO.2和NO.3的对象又该如何实现？

350738140

希望高手解决，这个方案很有好。:)