Mirror3D method example

Private Sub Mirror3DExample()

     ' This example creates a cone in model space

     ' and mirrors the cone about a plane.

     Dim coneObj As IntelliCAD.PolygonMesh

     Dim mirrorConeObj As IntelliCAD.PolygonMesh

     Dim conePt As IntelliCAD.Point

     Dim mirPt1 As IntelliCAD.Point

     Dim mirPt2 As IntelliCAD.Point

     Dim mirPt3 As IntelliCAD.Point

     Set conePt = Library.CreatePoint(2, 2, 0)

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

     Set mirPt2 = Library.CreatePoint(3, 4, 0)

     Set mirPt3 = Library.CreatePoint(4, 2, 0)

     Set coneObj = ThisDocument.ModelSpace.AddCone(conePt, 3, 4)

     coneObj.Update

     ThisDocument.ActiveViewport.ZoomExtents

 

     ' Mirror the cone

     Set mirrorConeObj = coneObj.Mirror3D(mirPt1, mirPt2, mirPt3)

     ThisDocument.ActiveViewport.ZoomAll

End Sub