ScaleX Example

ScaleX Example

Examples:

l AecMaskBlockRef

l AecMVBlockRef

---

Sub Example_ScaleX_AecMaskBlockRef()

    ' This example shows the X scale of the mask block
    
    Dim obj As Object
    Dim pt As Variant
    Dim mask As AecMaskBlockRef

    ThisDrawing.Utility.GetEntity obj, pt, "Select Mask Block"
        
    If TypeOf obj Is AecMaskBlockRef Then
        Set mask = obj
        MsgBox "Scale X is: " & mask.ScaleX, vbInformation, "ScaleX Example"
    Else
        MsgBox "Not a Mask Block", vbExclamation, "ScaleX Example"
    End If

End Sub

---

Sub Example_ScaleX_AecMVBlockRef()

    Dim ent As AcadEntity
    Dim pt As Variant
    Dim mvBlock As AecMVBlockRef

    ThisDrawing.Utility.GetEntity ent, pt, "Select AEC Multi-View Block"
        
    If TypeOf ent Is AecMVBlockRef Then
        Set mvBlock = ent
        MsgBox "Scale X is: " & mvBlock.ScaleX, vbInformation, "ScaleX Example"
    Else
        MsgBox "Not an AecMVBlockRef", vbExclamation, "ScaleX Example"
    End If

End Sub

---