请教个组码读取与更新的问题

artken

请教个组码读取与更新的问题

CAD2008的MULTILEADER，DXF组码如下：

(-1 . <图元名: 7efa5290>)
(0 . "MULTILEADER")
(330 . <图元名: 7efa1cf8>)
(5 . "1EEA")
(100 . "AcDbEntity")
.........
(330 . <图元名: 7efa4b40>)
(177 . 2)
(44 . 0.0)
(302 . "ST")
(330 . <图元名: 7efa4b58>)
(177 . 3)
(44 . 0.0)
(302 . "大理石")
(330 . <图元名: 7efa4b60>)
(177 . 4)
(44 . 0.0)
(302 . "800X800")
........

请问：怎么分别取出当中的ST、大理石、800X800，大家都是302？？？

其实我是想通过程序将图中所有ST、大理石、800X800组合的MULTILEADER全部更新为CT、抛光砖、600X600

 

nonsmall

http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&replyID=114765&id=71907&skin=0

ljttjl

实现思路：

   用(nth)函数逐一读取上述关联序列内的元素，如得到a，用(= 302 (car a))条件判断是否成立，如成立将a元素再追加至一个表，形成((302 . "ST")(302 . "大理石")(302 . "800X800"))，然后再用(nth)函数顺序调用即可。

artken

谢谢nonsmal、ljttjl

我在国外一个论坛上找到这个：

(setq ent (entsel))
(setq ed (entget (car ent)))
(foreach item ed
(if (= (car item) 330)
(setq attnamelst (cons (vlax-ename->vla-object (cdr item))
attnamelst))
)
)

(setq vname (vla-getBlockAttributeValue
(vlax-ename->vla-object (car ent))
(vla-get-objectid (nth 6 attnamelst))))

(if (= vname "ST")
(vla-SetBlockAttributeValue
(vlax-ename->vla-object (car ent))
(vla-get-objectid (nth 6 attnamelst))"GT")
)

但是只能替换指定的第几个图元302码，如：上例的6

有没办法改得通用性强一点。我的目的是想将满足类似ST/大理石/800X800这种多属性组合的换成其它的。（也就是材料替换）

帮帮忙

artken

高手帮帮忙啊

artken

高手帮帮忙啊

artken

帮忙看看4楼。谢谢啊