AddWedge method example

Private Sub AddWedge_Example()

     ' This example adds a wedge to the drawing using the AddWedge method.

     Dim myDoc As IntelliCAD.Document

     Dim wedgeObj As IntelliCAD.PolygonMesh

     Dim origPt As Point

     Set myDoc = ActiveDocument

     Set origPt = Library.CreatePoint(2, 1, 0)

     Set wedgeObj = ThisDocument.ModelSpace.AddWedge(origPt, 3, 2, 2)

     wedgeObj.Update

ThisDocument.ActiveViewport.ZoomExtents

End Sub