Sub Example_AddShape()
    ' Этот пример создает форму BAT из ltypeshp.shx файла.
    
    ' Загрузите файл, содержащий форму, которую Вы желаете создать.
    ' Обратите внимание: Замените ltypeshp.shx имя файла
    ' на допустимый файл формы для вашей системы.
    On Error GoTo ERRORHANDLER
    ThisDrawing.LoadShapeFile ("C:/Program Files/AutoCAD/Support/ltypeshp.shx")

    
    Dim shapeObj As AcadShape
    Dim shapeName As String
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotation As Double
    
    ' "диод" определен в es.shx файле
    shapeName = "BAT"
    insertionPoint(0) = 2#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
    scalefactor = 1#
    rotation = 0#       ' Радианы
    
    ' Создайте диодный объект формы в пространстве модели
    Set shapeObj = ThisDrawing.ModelSpace.AddShape(shapeName, insertionPoint, scalefactor, rotation)
    Exit Sub
    
ERRORHANDLER:
    MsgBox "Не может найти файл формы.", , "AddShape Пример"
    
End Sub

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