Private Sub SetRotationAxis_Click(sender As Object, e As EventArgs) Handles SetRotationAxis.Click
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objView As SolidEdgeFramework.View = Nothing
Dim objCurWindow As SolidEdgeFramework.Window
Dim objX, objY, objZ As Double
Dim objNX, objNY, objNZ As Double
Try
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objCurWindow = objApplication.ActiveWindow
'Assigning values to variables
objView = objCurWindow.View
objX = 0
objY = 0
objZ = 0
objNX = 0
objNY = -1
objNZ = 0
'Set Rotation Axis
objView.SetRotationAxis(objX, objY, objZ, objNX, objNY, objNZ)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub