Sub Example_Detach()
    On Error GoTo ERRORHANDLER
                          
    ' Определите внешнюю ссылку, которая будет вставлена
    Dim xrefHome As AcadBlock
    Dim xrefInserted As AcadExternalReference
    Dim insertionPnt(0 To 2) As Double
    Dim PathName As String
    insertionPnt(0) = 1
    insertionPnt(1) = 1
    insertionPnt(2) = 0
    PathName = "c:/AutoCAD/sample/City map.dwg"
    
    ' Добавьте внешнюю ссылку
    Set xrefInserted = ThisDrawing.ModelSpace. _
            AttachExternalReference(PathName, "XREF_IMAGE", _
            insertionPnt, 1, 1, 1, 0, False)
    ZoomAll
    MsgBox "Внешняя ссылка приложена."
    
    ' Отделите определение внешней ссылки
    Dim name As String
    name = xrefInserted.name
    ThisDrawing.Blocks.Item(name).Detach
    MsgBox "Внешняя ссылка отделена."
    Exit Sub
ERRORHANDLER:
    MsgBox Err.Description
End Sub

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