求助一个选择集的问题

lkd7241

Dim plobj As AcadLWPolyline Dim gpCode(0 To 0) As Integer
Dim dataValue(0 To 0) As Variant
gpCode(0) = 8
dataValue(0) = "定级网格单元"
Dim groupCode As Variant, dataCode As Variant
groupCode = gpCode
dataCode = dataValue
ThisDrawing.Utility.GetEntity plobj, pt, "选择范围线"
plobj.GetBoundingBox minpt, maxpt
Dim pt1(0 To 2) As Double, pt2(0 To 2) As Double
pt1(0) = minpt(0): pt1(1) = minpt(1): pt1(2) = 0
pt2(0) = maxpt(0): pt2(1) = maxpt(1): pt2(2) = 0
ssetObj.Select acSelectionSetWindow, pt1, pt2, groupCode, dataCode 但是得不到想要结果，总是选择到一部分实体，不能把矩形窗口内的实体全部选择，为什么？请求各位大虾！·

雪山飞狐_lzh

看看帮助吧

yipinbing

< class=syntax>object.Select Mode[, Point1][, Point2][, FilterType][, FilterData]


< class=syntax>你试试吧