AddWedge method example

Sub AddWedge_Example()
' This example adds a torus to the drawing using the AddWedge method.
    Dim wedgeObj  As Acad3DSolid
    Dim Pt1(0 To 2) As Double: Pt1(0) = 0: Pt1(1) = 0: Pt1(2) = 0
    Set wedgeObj = ThisDrawing.ModelSpace.AddWedge(Pt1, 3, 4, 5)
    wedgeObj.Update
    ThisDrawing.Application.ZoomExtents
End Sub