Type Example
Examples:
Sub Example_Type_AecLayoutCurve() 'This example displays the spacing rule used on a selected aec layout curve object Dim obj As Object Dim pt As Variant Dim layoutCurve As AecLayoutCurve Dim layoutType As AecLayoutType Dim str As String ThisDrawing.Utility.GetEntity obj, pt, "Select a Node on an AEC Layout Curve" If TypeOf obj Is AecLayoutCurve Then Set layoutCurve = obj layoutType = layoutCurve.Type Select Case layoutType Case aecLayoutTypeAutoSpacingBay str = "Bay Spacing" Case aecLayoutTypeAutoSpacingEven str = "Even Spacing" Case aecLayoutTypeManualSpacing str = "Manual Spacing" End Select MsgBox "Layout rule is: " & str, vbInformation, "Type Example" Else MsgBox "Not a AEC Layout Curve", vbExclamation, "Type Example" End If
End Sub
Sub Example_Type_AecMassElement() 'This example shows the type of mass element Dim object As Object Dim mass As AecMassElement Dim count As Integer 'initalize count = 0 For Each object In ThisDrawing.ModelSpace If TypeOf object Is AecMassElement Then count = count + 1 Set mass = object Select Case mass.Type Case aecMassElementTypeArch MsgBox "Mass Element " & count & " Type: Arch", vbInformation, "Type Example" Case aecMassElementTypeBarrelVault MsgBox "Mass Element " & count & " Type: Barrel Vault ", vbInformation, "Type Example" Case aecMassElementTypeBox MsgBox "Mass Element " & count & " Type: Box", vbInformation, "Type Example" Case aecMassElementTypeCone MsgBox "Mass Element " & count & " Type: Cone", vbInformation, "Type Example" Case aecMassElementTypeCylinder MsgBox "Mass Element " & count & " Type: Cylinder", vbInformation, "Type Example" Case aecMassElementTypeDome MsgBox "Mass Element " & count & " Type: Dome", vbInformation, "Type Example" Case aecMassElementTypeDoric MsgBox "Mass Element " & count & " Type: Doric", vbInformation, "Type Example" Case aecMassElementTypeExtrusion MsgBox "Mass Element " & count & " Type: Extrusion", vbInformation, "Type Example" Case aecMassElementTypeGable MsgBox "Mass Element " & count & " Type: Gable", vbInformation, "Type Example" Case aecMassElementTypeIsoscelesTriangle MsgBox "Mass Element " & count & " Type: Isosceles Triangle", vbInformation, "Type Example" Case aecMassElementTypePyramid MsgBox "Mass Element " & count & " Type: Pyramid", vbInformation, "Type Example" Case aecMassElementTypeRevolution MsgBox "Mass Element " & count & " Type: Revolution", vbInformation, "Type Example" Case aecMassElementTypeRightTriangle MsgBox "Mass Element " & count & " Type: Right Triangle", vbInformation, "Type Example" Case aecMassElementTypeSphere MsgBox "Mass Element " & count & " Type: Sphere", vbInformation, "Type Example" End Select End If Next If count = 0 Then MsgBox "No Mass Elements Present in Drawing", vbInformation, "Type Example" End If
End Sub