Курсовая работа: Разработка прикладного программного обеспечения деятельности отдела аренды ЗАО "Сириус"
End With
//Именно в этой части кода осуществляется передача данных //переменной objGen от блоков чертежа
If ThisDrawing.PickfirstSelectionSet.Count > 0 Then
Set objGen = ThisDrawing.PickfirstSelectionSet.Item(ThisDrawing.PickfirstSelectionSet.Count - 1)
//Проверка на принадлежность блоку
If objGen.ObjectName = "AcDbBlockReference" Then
Select Case objGen.Name
//По имени нажатого блока определяются параметры которые нужно //передать дальше для выполнения запросов
Case 1
ID_A = 10
//Передача параметров переменной формы 4
UserForm4.aa = ID_A
UserForm4.Show
Case 2
ID_A = 70
UserForm5.aa = ID_A
UserForm5.Show
Case 3
UserForm3.Show
End Select
End If
//Снятие всех выделений
For i = 0 To ThisDrawing.PickfirstSelectionSet.Count - 1
ThisDrawing.PickfirstSelectionSet.Item(i).Highlight (False)
ThisDrawing.PickfirstSelectionSet.Item(i).Update
Next i
ThisDrawing.SendCommand (".Выбрать" & vbCr)
End If
End Sub