AddSolid method example

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