Sub Example_GetObject()
    ' Этот пример создает словарь и добавляет выбранный объект к этому
    ' словарю. Затем возвращает объект, используя GetObject.
    
    Dim dictObj As AcadDictionary
    Set dictObj = ThisDrawing.Dictionaries.Add("TEST_DICTIONARY")
    
    ' Загрузите приложение ARX, которое определяет выбранный объект.
    ' Обратите внимание: приложение, перечисленное здесь не существует и
    ' вызовет ошибку когда выполнено. Измените имя приложения на путь и
    ' имя вашего ARX Приложения.
    On Error GoTo ERRORHANDLER
    ThisDrawing.Application.LoadArx ("MyARXApp.dll")
    
    ' Создайте выбранный объект в словаре
    Dim keyName As String
    Dim className As String
    Dim customObj As AcadObject
    
    keyName = "OBJ1"
    className = "CAsdkDictObject"
    
    Set customObj = dictObj.AddObject(keyName, className)
    
    ' Найдите объект
    Dim tempObj As Object
    Set tempObj = dictObj.GetObject(keyName)
    
ERRORHANDLER:
    MsgBox Err.Description, , "GetObject Пример"
    
End Sub

Сайт управляется системой uCoz