Rotate3D method example

Private Sub Rotate3D_Example()

     ' This example creates a cone in model space.

     ' It then rotates the cone about an axis.

          

     Dim coneObj As IntelliCAD.PolygonMesh

     Dim rotateConeObj As IntelliCAD.PolygonMesh

     Dim conePt As IntelliCAD.Point

     Dim rotPt1 As IntelliCAD.Point

     Dim rotPt2 As IntelliCAD.Point

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

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

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

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

     coneObj.Update

     

     ' Rotate the cone

     coneObj.Rotate3D rotPt1, rotPt2, 10

     ThisDocument.ActiveViewport.ZoomAll

End Sub