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