ScaleXY Example

ScaleXY Example

Sub Example_ScaleXY ()

    Dim ring As AecRing
    Dim profile As AecProfile

    Dim doc As AecArchBaseDocument
    Set doc = AecArchBaseApplication.ActiveDocument
    Dim cprofiles As AecProfileStyles
    Dim profileStyle As AecProfileStyle
    
    Set cprofiles = doc.ProfileStyles
    Set profileStyle = cprofiles.Item(0)

    Set profileStyle.profile = profile.ScaleXY(2, 1)

  End Sub