选择集构造问题

leeyeafu

Private Function myGet(PickPoint as Variant) As AcadSelectionSet
Dim SSel As AcadSelectionSet
Dim pt1(0 To 2), pt2(0 To 2)  As Double
Set SSel = MyDocument.SelectionSets.Add("ss")
pt1(0) = PickPoint(0) - 100: pt1(1) = PickPoint(1) - 100
pt2(0) = PickPoint(0) + 100: pt2(1) = PickPoint(1) + 100
SSel.Select acSelectionSetCrossing, pt1, pt2  
'程序运行到这出错,错误为“对象'Select'的方法'IAcadSelectionSets'失败”
'这是怎么回事望指教
myGet=SSel
End Function

WIN171

我不确定具体是什么问题，我在14中使用类似语句，没有问题，但是在2000中就遇到你所遇到的问题。
你可以试一下先把所有的选择集清除，在使用该语句就没有问题。
可以在程序中加入在Add选择集之前清除所有现存选择集的语句。