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