Private Sub SetRotationPoint_Click(sender As Object, e As EventArgs) Handles SetRotationPoint.Click
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objView As SolidEdgeFramework.View = Nothing
Dim objCurWindow As SolidEdgeFramework.Window
Try
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objCurWindow = objApplication.ActiveWindow
objView = objCurWindow.View
Dim Result = MsgBox("Do you want to Set Rotation Point to 0,0?", MsgBoxStyle.YesNoCancel, "3DConnexion")
If Result = DialogResult.Yes Then
'Set Rotation Point to 0,0,0
objView.SetRotationPoint(0, 0, 0)
End If
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub