ScaleEntity Пример

Sub Example_ScaleEntity()
    'Этот пример создает легкую ломаную линию и затем масштабирует эту ломаную линию.
    
    'Создайте ломаную линию
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 11) As Double
    points(0) = 1: points(1) = 2
    points(2) = 1: points(3) = 3
    points(4) = 2: points(5) = 3
    points(6) = 3: points(7) = 3
    points(8) = 4: points(9) = 4
    points(10) = 4: points(11) = 2
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    plineObj.Closed = True
    ZoomAll
            
    MsgBox "Масштабируйте ломаную линию 0.5", , "ScaleEntity Пример"
    
    'Определите масштаб
    Dim basePoint(0 To 2) As Double
    Dim scalefactor As Double
    basePoint(0) = 4: basePoint(1) = 4.25: basePoint(2) = 0
    scalefactor = 0.5
    
    'Масштабируйте ломаную линию
    plineObj.ScaleEntity basePoint, scalefactor
    
    ZoomAll
    MsgBox "Законченный масштаб.", , "ScaleEntity Пример"
    
End Sub
Сайт управляется системой uCoz