[求助]：DFX

flydyt

我写VBA程序时用到选择集的过滤码,但是我搞不懂DFX组码,帮助也不全,请问谁能给介绍一下.

efan2000

帮助中有专门的介绍DXF的部分，那些就是过滤机制所使用的规则。

flydyt

那么请问帮助中的例子
Sub Example_SelectByPolygon()
    ' This example adds entities to a selection set by defining a polygon.
   
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET2")
     
    ' Add all the entities that lie within a fence to the selection set
    Dim mode As Integer
    Dim pointsArray(0 To 11) As Double
    mode = acSelectionSetFence
    pointsArray(0) = 28.2: pointsArray(1) = 17.2: pointsArray(2) = 0
    pointsArray(3) = -5: pointsArray(4) = 13: pointsArray(5) = 0
    pointsArray(6) = -3.3: pointsArray(7) = -3.6: pointsArray(8) = 0
    pointsArray(9) = 28: pointsArray(10) = -3: pointsArray(11) = 0
   
    ssetObj.SelectByPolygon mode, pointsArray
   
    ' Add all the Circles that lie within fence to the selection set
    ReDim gpCode(0 To 1) As Integer
    gpCode(0) = 0
    gpCode(1) = 10
   
    Dim pnt(0 To 2) As Double
    pnt(0) = 3: pnt(1) = 6: pnt(2) = 0
   
    ReDim dataValue(0 To 1) As Variant
    dataValue(0) = "Circle"
    dataValue(1) = pnt
   
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
   
    ssetObj.SelectByPolygon mode, pointsArray, groupCode, dataCode
   
End Sub
中groupCode, dataCode两个参数是怎么定义的,他的数值(如pnt,0,10)代表什么,能给介绍一下吗.谢谢

efan2000

应该是选择圆心在某一点处的所有圆实体。