在CASS里已经获取了扩展属性但是要如何修改和写入？

jxy308

在CASS已获取的扩展数据如下
((-1 . <图元名: 7e9049f8>) (0 . LWPOLYLINE) (330 . <图元名: 7e90fcc0>) (5 .
4AF) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . JMD) (6 . Continuous) (100
. AcDbPolyline) (90 . 5) (70 . 129) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10
415.616 20.3988) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -71.8816 -259.138) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 -34.2439 -443.704) (40 . 0.0) (41 . 0.0) (42 .
0.0) (10 650.403 -228.675) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 652.196
-15.4392) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0) (-3 (SOUTH (1000 .
141101)) (MC (1000 . )) (FWLX (1000 . 一般房屋)) (WXXZ (1000 . )) (XGLX (1000 .
)) (ZL (1000 . )) (YT (1000 . 住宅)) (GD (1040 . 0.0)) (YF (1000 . )) (SD (1040
. 0.0)) (CP (1000 . )) (ZT (1000 . )) (KD (1040 . 0.0)) (FB (1070 . 0)) (GS
(1070 . 0)) (TG (1070 . 0)) (BG (1040 . 0.0)) (SJY (1000 . )) (GXRQ (1000 . ))))

要将YT中“住宅”修改为“其它”
应该怎么实现？

jxy308

怎么没有人呢

Gu_xl

jxy308 发表于 2015-1-25 09:02
怎么没有人呢

1. (setq el (entget (car (entsel)) '("YT")))
   
2. (if (setq a (assoc -3 el))
   
3.   (progn
   
4.     (setq el (subst  (list -3 (list "YT" (cons 1000 "其它"))) a el))
   
5.     (entmod el)
   
6.     )
   
7.   )
   

(setq el (entget (car (entsel)) '("YT")))<br /> (if (setq a (assoc -3 el))<br />   (progn<br />     (setq el (subst  (list -3 (list "YT" (cons 1000 "其它"))) a el))<br />     (entmod el)<br />     )<br />   )<br />

jxy308

Gu_xl 发表于 2015-1-25 10:28

谢谢   解决了我的问题