Radius Example

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