NX CAM 读取加工参数

'取加工几何试图程序组

Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As String

Dim theGemoGroupTag As NXOpen.Tag

Dim gemoGroupName As String = ""

theUfSession.Oper.AskGeomGroup(camObjectTag, theGemoGroupTag)

theUfSession.Obj.AskName(theGemoGroupTag, gemoGroupName)

Return gemoGroupName

End Function

 

'取操作名称

Function GetToolPathName(ByVal camObjectTag As NXOpen.Tag) As String

Dim toolPathName As String = ""

theUfSession.Oper.AskNameFromTag(camObjectTag, toolPathName)

Return toolPathName

End Function

 

'获取刀具名称

Function GetToolName(ByVal camObjectTag As NXOpen.Tag) As String

Dim toolName As String = ""

Dim toolTag As NXOpen.Tag

theUfSession.Oper.AskCutterGroup(camObjectTag, toolTag)

theUfSession.Obj.