在CASS里已经获取了扩展属性但是要如何修改和写入？
在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 发表于 2015-1-25 09:02 static/image/common/back.gif
怎么没有人呢
(setq el (entget (car (entsel)) '("YT")))
(if (setq a (assoc -3 el))
(progn
(setq el (subst(list -3 (list "YT" (cons 1000 "其它"))) a el))
(entmod el)
)
)
Gu_xl 发表于 2015-1-25 10:28 static/image/common/back.gif
谢谢 解决了我的问题
页:
[1]