ScaleY Example
Examples:
Sub Example_ScaleY_AecMaskBlockRef() ' This example shows the Y 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 Y is: " & mask.ScaleY, vbInformation, "ScaleY Example" Else MsgBox "Not a Mask Block", vbExclamation, "ScaleY Example" End If
End Sub
Sub Example_ScaleY_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 Y is: " & mvBlock.ScaleY, vbInformation, "ScaleY Example" Else MsgBox "Not an AecMVBlockRef", vbExclamation, "ScaleY Example" End If
End Sub