[求助]：用选择集中的add 方法出错

efan2000

你释放的仅仅是声明为选择集对象的变量zhx，但当前图纸中的选择集并没有释放，除非你关闭图纸然后再打开，CAD才会自动释放。

xsquan

Private Sub Command1_Click()
Dim zhx As AcadSelectionSet
Dim mode As Integer
On Error Resume Next
Set zhx = acadobj.ActiveDocument.SelectionSets("SS1")
If Err Then
Err.Clear
Set zhx = acadobj.ActiveDocument.SelectionSets.Add("SS1")
End If
zhx.SelectOnScreen
Dim line1 As AcadLine
Set line1 = zhx.Item(0)
MsgBox 2

Call intersset(line1)
zhx.Clear
End Sub
Private Sub intersset(ByVal line1 As AcadLine)
Dim ss As AcadSelectionSet
Dim mode As Integer
Dim points(0 To 5) As Double
Dim startp As Variant
Dim endp As Variant
starp = line1.StartPoint
endp = line1.EndPoint
MsgBox endp(0)

points(0) = startp(0)
points(1) = startp(1)
points(2) = startp(2)
points(3) = endp(0)
points(4) = endp(1)
points(5) = endp(2)
MsgBox 3
On Error Resume Next
Set ss = acadobj.ActiveDocument.SelectionSets("SS2")
If Err Then
Err.Clear
Set ss = acadobj.ActiveDocument.SelectionSets.Add("SS2")
End If
mode = acSelectionSetFence
Call ss.SelectByPolygon(mode, points)
ss.Highlight (True)
MsgBox ss.Count

Set ss = Nothing
ss.Clear
End Sub
程序是想实现在cad选取一直线，然后和这直线相交的都选中