求助:关于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]