Sub Example_AddCustomObject()
    ' Этот пример добавляет заказной объект к пространству модели.
    
    ' Загрузите приложение ObjectARX, которое определяет заказной объект.
    ' Обратите внимание: приложение, перечисленное здесь не существует и
    ' вызовет ошибку когда выполнено. Измените имя приложения
    'на название вашего ObjectARX Приложения.
    ThisDrawing.Application.LoadArx ("MyARXApp.dll")
    
    ' Как только приложение было успешно загружено,
    ' добавьте заказной объект к пространству модели.
    Dim customObj As AcadObject
    Set customObj = ThisDrawing.ModelSpace.AddCustomObject("MyNewObject")
    
End Sub