caokancc 发表于 2010-8-19 23:26:00

求助:关于SelectByPolygon 的选择方法..

我的代码:


    Dim pnt As Variant
    Dim Object As AcadEntity
    ThisDrawing.Application.ActiveDocument.Utility.GetEntity Object, pnt, vbCr & "选择封闭多段线"
      Dim uu As Long, ub As Long, m As Long, k As Long
      Dim plverts As Variant
          plverts = Object.Coordinates
          uu = UBound(plverts)
          ub = (uu + 1) / 2
‘         MsgBox "节点" & ub, 64
                  m = 0: k = 0
               ReDim fwx(0 To uu) As Double
      While m <= ub
            fwx(m) = plverts(k)
            fwx(m + 1) = plverts(k + 1)
            m = m + 2: k = k + 2
      Wend

...
这个时候fwx应该就是所选多段线所有节点的坐标,然后我用    ss_dim.SelectByPolygon mode, fwx, gbcode, gbdata
来选择却什么都没选中,我希望是选择这个封闭多段线范围内的 所有图元信息...
望高手赐教,急需解决........谢谢


页: [1]
查看完整版本: 求助:关于SelectByPolygon 的选择方法..