Здравствуйте, помогите найти косяк в коде.
Требуется написать проверку совпадения точек поли-линий чертежа с точками простановки размеров. Уже голову себе сломал, от танцев с бубнами.
1. Решил собрать handlers для всех выделенных объектов.
2. Потом на всем пространстве модели выбираю и записываю массив handler-ов всех полилиний. (чтобы потом отбросить лишние)
3. Затем выбираю все размеры...
4...
Вот на пункте 3,- автокад решительно отказывается что-либо находить...
Подскажите, плиз. Что не так?
Целый день копал интернет ничего не накопал
((
Public Sub razmcheck()
Dim sset As AcadSelectionSet
Dim i As Integer
Dim entry As AcadEntity
Dim hand1(0 To 1000) As String
Dim hand2(0 To 1000) As String
Dim hand3(0 To 1000) As String
Set sset = ThisDrawing.SelectionSets.Add("s1")
sset.SelectOnScreen
i = 0
MsgBox "ðàçìåðíîñòü ìàññèâà: " & sset.Count
For Each entry In sset
hand1(i) = entry.handle
i = i + 1
Next entry
sset.Delete
Dim Fil2Type(0) As Integer
Dim Fil2Data(0) As Variant
Dim sset2 As AcadSelectionSet
Set sset2 = ThisDrawing.SelectionSets.Add("b111")
Fil2Type(0) = 0
Fil2Data(0) = "LWPolyline"
sset2.Select acSelectionSetAll, , , Fil2Type, Fil2Data
MsgBox "ïîëèëèíèé=" & sset2.Count
i = 0
For Each entry In sset2
hand2(i) = entry.handle
i = i + 1
Next entry
sset2.Delete
Dim Dset3 As AcadSelectionSet
Dim Fil3Type(4) As Integer
Dim Fil3Data(4) As Variant
Set Dset3 = ThisDrawing.SelectionSets.Add("a1122w")
Fil3Type(0) = 0: Fil3Type(1) = 0: Fil3Type(2) = 0: Fil3Type(3) = 0: Fil3Type(4) = 0
Fil3Data(0) = "DimAligned": Fil3Data(1) = "DimOrdinate": Fil3Data(2) = "DimAngular": Fil3Data(3) = "DimDiametric": Fil3Data(4) = "DimRotated"
Dset3.Select acSelectionSetAll, , , Fil3Type, Fil3Data
MsgBox "ðàçìåðîâ=" & Dset3.Count
i = 0
For Each entry In Dset3
hand3(i) = entry.handle
i = i + 1
MsgBox "êîë-âî=" & i
Next entry
Dset3.Delete
End Sub
