XOffset Example

AEC Auto

XOffset Example

Sub Example_XOffset ()

'This example shows the Xoffset 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 "XOffset of View Block 1: " & viewBlocks.Item(0).XOffset, vbInformation, "XOffset Example"
    Else
        MsgBox "Not a Multiview Block", vbInformation, "XOffset Example"
    End If

End Sub