ScaleZ Example

ScaleZ Example

Examples:

l AecMaskBlockRef

l AecMVBlockRef

---

Sub Example_ScaleZ_AecMaskBlockRef()

    ' This example shows the Z 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 Z is: " & mask.ScaleZ, vbInformation, "ScaleZ Example"
    Else
        MsgBox "Not a Mask Block", vbExclamation, "ScaleZ Example"
    End If

End Sub

---

Sub Example_ScaleZ_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 Z is: " & mvBlock.ScaleZ, vbInformation, "ScaleZ Example"
    Else
        MsgBox "Not an AecMVBlockRef", vbExclamation, "ScaleZ Example"
    End If

End Sub

---