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