Radius Example
Sub Example_Radius() 'This example shows the radius of a mass element Dim mass As AecMassElement Dim pt1(0 To 2) As Double pt1(0) = 100: pt1(1) = 100: pt1(2) = 0 Set mass = ThisDrawing.ModelSpace.AddCustomObject("AecMassElement") mass.Type = aecMassElementTypeCone mass.Height = 100 mass.Radius = 50 mass.Location = pt1 MsgBox "Mass Element Radius = " & mass.Radius, vbInformation, "Radius Example"
End Sub