Structural

The Code

Adding Structural Members

Function AddMember(sp As Variant, ep As Variant) As AecsMember

    Set AddMember = ThisDrawing.ModelSpace.AddCustomObject("AecsMember")

    AddMember.StartPoint = sp

    AddMember.EndPoint = ep

End Function