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