对扩展数据作选择集?

王咣生

用VBA对这样的扩展数据怎么作选择集?? Select object: ((-1 . <Entity name: 7ef57cb8>) (0 . "LINE") (330 . <Entity
name: 7ef55cb8>) (5 . "297") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"SXSS") (6 . "Continuous") (100 . "AcDbLine") (39 . 6.4606e+006) (10 66.5765
-59.6847 0.0) (11 67.3565 -53.7357 0.0) (210 0.0 0.0 1.0) (-3 ("DVXDATA" (1070
. 0) (1000 . "295"))))

雪山飞狐_lzh

ft(0) = 1001: fd(0) = "DVXDATA"

王咣生

对295能作为过滤条件吗?

雪山飞狐_lzh

对于XData只能对1001码作为过滤条件，其他的不行

王咣生

谢谢lzh741206.
我在arx的帮助中也找到了这个结论: You can retrieve extended data for a particular application by specifying its name in a filter list, using the -3 group code. The acedSSGet() function returns entities with extended data registered to the specified name; acedSSGet() does not retrieve individual extended data items (with group codes in the range 1000–2000).

今晚打老虎

有没有具体的例子让大家也学学。