Sub Example_AttachExternalReference()
    ' Этот пример показывает все блоки в текущем рисунке до и после
    ' добавления внешней ссылки.
    '
    ' Этот пример использует "Файл map.dwg" найденный в каталоге Sample.
    ' Если Вы не имеете этого рисунка, или если он находится в другом
    ' каталоге, вставьте допустимый путь и имя файла для переменной
    ' PathName ниже.
    
    Dim InsertPoint(0 To 2) As Double
    Dim insertedBlock As AcadExternalReference
    Dim tempBlock As AcadBlock
    Dim msg As String, PathName As String
    
    ' Определите внешнюю ссылку, которая будет вставлена
    InsertPoint(0) = 1: InsertPoint(1) = 1: InsertPoint(2) = 0
    PathName = "c:\program files\autocad\sample\city map.dwg"
    
    ' Покажите текущие Block для этого рисунка
    GoSub ListBlocks
    
    ' Добавьте внешнюю ссылку к рисунку
    Set insertedBlock = ThisDrawing.ModelSpace.AttachExternalReference(PathName, "XREF_IMAGE", InsertPoint, 1, 1, 1, 0, False)
        
    ThisDrawing.Application.ZoomAll
    
    ' Покажите новую информацию Block для этого рисунка
    GoSub ListBlocks
    
    Exit Sub

ListBlocks:
    msg = vbCrLf    ' Сбросьте сообщение
    
    For Each tempBlock In ThisDrawing.Blocks
        msg = msg & tempBlock.name & vbCrLf     ' Добавьте Block в список
    Next
    
    MsgBox "Текущие блоки в этом рисунке: " & msg
    
    Return
End Sub

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