[VBA程序]：为什么扩展数据的dxf码无法筛选？

ntchjie

这是一段vb程序，其目的是先选择一个存在扩展数据的物体，然后在cad内部自己选择所有具有该属性的物体，代码如下，不知道出现了什么问题，就是选不到物体，请高手看看
'获取线位名称
Call AcadOpen
Set AcadDoc = acadObj.ActiveDocument
AppActivate "Autocad"
Set sset = AcadDoc.SelectionSets.Add("SS")
gpcode(0) = 1001
datavalue(0) = "地面线"
sset.SelectOnScreen gpcode, datavalue
sset.Item(0).GetXData "地面线", xdtype, xdata
name = xdata(1)
sset.Delete
'选择所有的地面线线条
Set sset = AcadDoc.SelectionSets.Add("SS")
gp(0) = 1000: da(0) = name
gp(1) = 0: da(1) = "line"

groupcode = gp
datacode = da

sset.Select acSelectionSetAll, , , groupcode, datacode
MsgBox ("选择了" & sset.Count & "个物体")
运行没有错误，但是总是选择不到物体，不知为何？
谢谢了。

efan2000

这是ACAD的缺陷，过滤机制中只能使用1001组码进行选择（轻量多义线除外），它是为了兼容旧的版本的对象。

ntchjie

也就是1000以后的扩展筛选都不可以用了？是不是这样？感谢斑竹！！！

efan2000

基本是这样的，LWPolyline例外，它可以，因为它是R14出现的新对象。
'选择所有的地面线线条
Set sset = AcadDoc.SelectionSets.Add("SS")
gp(0) = 0: da(0) = "line"
gp(1) = 1001: da(1) = "地面线"

groupcode = gp
datacode = da

sset.Select acSelectionSetAll, , , groupcode, datacode
Dim n As Integer
Dim ent As AcadEntity
For Each ent In sset
    ent.GetXData "地面线", xdtype, xdata
    If xdata(1) = name Then n = n + 1
Next
MsgBox ("选择了" & n & "个物体")

雪山飞狐(lzh)

在扩展数据加入控制字符可以应用过滤器，如
Public Sub Test()
On Error Resume Next
Dim pnt(2) As Double, dot(2) As Double
Dim xt(3) As Integer, xd(3) As Variant
Dim ft(0) As Integer, fd(0) As Variant
Dim ss As AcadSelectionSet
Dim obj As AcadLine
Set obj = ThisDrawing.ModelSpace.AddLine(pnt, dot)
xt(0) = 1001: xd(0) = "Test"
xt(1) = 1002: xd(1) = "{"
xt(2) = 1001: xd(2) = "Test1"
xt(3) = 1002: xd(3) = "}"
ThisDrawing.RegisteredApplications.Add "Test1"
obj.SetXData xt, xd
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ft(0) = 1001: fd(0) = "Test1"
ss.Select acSelectionSetAll, , , ft, fd
MsgBox ss.Count
End Sub

ntchjie

怪不得我看到每个里面有{}，就是猜不到什么意思，原来还是用来筛选的。也就是只要筛选{}内的名称就可以了？多谢两位。

efan2000

上面设置的是1001组码，当然可以筛选了，加1002组码并不会影响。