Sub Example_LoadShapeFile()
    ' Этот пример загружает файл формы
    
    Dim shapeFileToLoad As String
    shapeFileToLoad = "C:/AutoCAD/Support/ltypeshp.shx"
    
    ' Загрузите файл формы
    On Error GoTo ERRORHANDLE
    ThisDrawing.LoadShapeFile shapeFileToLoad
    Exit Sub
ERRORHANDLE:
    MsgBox Err.Description, Title:="LoadShapeFile"
    
End Sub

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