Replace Пример

Sub Example_Replace()
    'Этот пример создает словарь и добавляет выбранный объект к этому
    'словарю. Затем заменяет объект в словаре.
    
    Dim dictObj As AcadDictionary
    Set dictObj = ThisDrawing.Dictionaries.Add("TEST_DICTIONARY")
    
    'Загрузите приложение ObjectARX, которое определяет выбранный объект.
    'Отметьте: приложение, перечисленное здесь не существует и вызовет 
    'ошибку когда будет выполнено. Измените имя приложения на путь и имя
    'вашего приложения ObjectARX.
    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 newCustomObject As AcadObject
    dictObj.Replace keyName, newCustomObject
    
End Sub
Сайт управляется системой uCoz