Private Sub AddSolid_Example()
Dim solidObj As IntelliCAD.Solid
Dim pt1, pt2, pt3, pt4 As Point
Set myDoc = ActiveDocument
Set pt1 = Library.CreatePoint(1, 1, 0)
Set pt2 = Library.CreatePoint(3, 3, 0)
Set pt3 = Library.CreatePoint(4, 2, 0)
Set pt4 = Library.CreatePoint(3, 1, 0)
' Create the solid object in model space
Set solidObj = ThisDocument.ModelSpace.AddSolid(pt1, pt2, pt3, pt4)
solidObj.Update
ThisDocument.ActiveViewport.ZoomExtents
End Sub