YOffset Example

YOffset Example

Sub Example_YOffset ()

'This example shows the Yoffset of the first viewblock of a multiviewblock

    Dim obj As Object
    Dim pt As Variant
    Dim blockRef As AecMVBlockRef
    Dim viewBlocks As AecViewBlocks
    
    ThisDrawing.Utility.GetEntity obj, pt, "Select a Multiview Block"
    If TypeOf obj Is AecMVBlockRef Then
        Set blockRef = obj
        Set viewBlocks = blockRef.viewBlocks
        MsgBox "YOffset of View Block 1: " & viewBlocks.Item(0).YOffset, vbInformation, "YOffset Example"
    Else
        MsgBox "Not a Multiview Block", vbInformation, "YOffset Example"
    End If

End Sub