Тема: AutoCAD блоки
Уважаемые знатоки, объясните пожалуйста в чем ошибка. У меня имеются множество блоков с атрибутами. В ручную, я выделяю рамкой несколько из них. Программно мне нужно определить какие из блоков выделены, для дальнейшего выравнивания по горизонтали атрибутов выделенных блоков и создания спецификации по атрибутам выделенных блоков.
Private Sub CommandButton6_Click()
Dim objSelSet As AcadSelectionSet
Dim objSelCol As AcadSelectionSets
Dim intType(0) As Integer
Dim varData(0) As Variant
Set objSelCol = ThisDrawing.SelectionSets
For Each objSelSet In objSelCol
If objSelSet.Name = "Only" Then
objSelSet.Delete
Exit For
End If
Next
Set objSelSet = ThisDrawing.SelectionSets.Add("Only")
intType(0) = 0
varData(0) = "INSERT" '"INSERT
objSelSet.SelectOnScreen intType, varData
Set SelectOnlyOnScreen = objSelSet
End Sub
Выдает. Почему?
Run-time error '-2145320932 (8021001c)' AutoCAD main window is invisible
С уважение Андрей