lkd7241 发表于 2004-4-20 20:56:00

求助一个选择集的问题

Dim plobj As AcadLWPolyline


Dim gpCode(0 To 0) As Integer<BR>        Dim dataValue(0 To 0) As Variant<BR>        gpCode(0) = 8<BR>        dataValue(0) = "定级网格单元"<BR>        Dim groupCode As Variant, dataCode As Variant<BR>        groupCode = gpCode<BR>        dataCode = dataValue<BR>ThisDrawing.Utility.GetEntity plobj, pt, "选择范围线"<BR>        plobj.GetBoundingBox minpt, maxpt<BR>Dim pt1(0 To 2) As Double, pt2(0 To 2) As Double<BR>pt1(0) = minpt(0): pt1(1) = minpt(1): pt1(2) = 0<BR>pt2(0) = maxpt(0): pt2(1) = maxpt(1): pt2(2) = 0<BR>        ssetObj.Select acSelectionSetWindow, pt1, pt2, groupCode, dataCode                                       


但是得不到想要结果，总是选择到一部分实体，不能把矩形窗口内的实体全部选择，为什么？请求各位大虾！·

雪山飞狐_lzh 发表于 2004-4-20 21:22:00

看看帮助吧

yipinbing 发表于 2004-4-22 23:22:00

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


<P class=syntax>你试试吧
页: [1]
查看完整版本: 求助一个选择集的问题