Тема: Непонятная ошибка с SelectionSet
Написал программу в которой использую SelectionSet в первом случае все в порядке, во втором - не хочет добавляться объект в SelectionSet методом AddItems, описание ошибки ниже скопированно.
Сам пример программы частями,
описание переменных:
Dim dd As AutoCAD.AcadSelectionSet
Dim lines As AutoCAD.AcadSelectionSet
Dim linesin As AcadSelectionSet
Dim exp As Variant
Dim linVAR As Variant
Set dd = ThisDrawing.SelectionSets.Add("dd")
Set lines = ThisDrawing.SelectionSets.Add("lines")
Set linesin = ThisDrawing.SelectionSets.Add("linesin")сам код(часть) который работает:
dd.Select acSelectionSetAll, , , gpcode, dataValue Min = 99999 i = 0 Set pl = dd.Item(i) For Each pl In dd Set pl = dd.Item(i) If (pl.Name = "OTK1") Then exp = pl.Explode lines.AddItems exp pl.Delete
и который выдает ошибку на строке linesin.AddItems linVAR:
i = 0
For Each lin In lines
Set linVAR = CVar(lines.Item(i))
For Each lin2 In lines
linIntersect = lin.IntersectWith(lin2, acExtendNone)
If (UBound(linIntersect) > 0) Then
linesin.AddItems linVAR
k = k + 1
Exit For
End If
Next
i = i + 1
NextОписание ошибки:
Watch : - : Err : -2147024809 : Object/ErrObject : otkos.otkos
: Description : "Invalid argument pSelSet in AddItems" : String : otkos.otkos
: HelpContext : -2145320939 : Long : otkos.otkos
: LastDllError : 0 : Long : otkos.otkos
: Number : -2147024809 : Long : otkos.otkos
: Source : "AutoCAD" : String : otkos.otkos
Если есть идеи подскажите пожалуйста.
