'取加工几何试图程序组
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.AskName(toolTag, toolName)
Return toolName
End Function
'获取刀具号码
Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As Integer
Dim toolTag As NXOpen.Tag
Dim toolNumber As Integer
theUfSession.Oper.AskCutterGroup(camObjectTag, toolTag)
theUfSession.Param.AskIntValue(toolTag, NXOpen.UF.UFConstants.UF_PARAM_TL_NUMBER, toolNumber)
Return toolNumber
End Function
'获取刀具长度
Function GetToolHeight(ByVal camObjectTag As NXOpen.Tag) As Double
Dim toolTag As NXOpen.Tag
Dim toolHeight As Double
theUfSession.Oper.AskCutterGroup(camObjectTag, toolTag)
theUfSession.Param.AskDoubleValue(toolTag, NXOpen.UF.UFConstants.UF_PARAM_TL_HEIGHT, toolHeight)
Return toolHeight
End Function
'获取刀具直径
Function GetToolDiameter(ByVal camObjectTag As NXOpen.Tag) As Double
Dim toolTag As NXOpen.Tag
Dim toolDiameter As Double
theUfSession.Oper.AskCutterGroup(camObjectTag, toolTag)
theUfSession.Param.AskDoubleValue(toolTag, NXOpen.UF.UFConstants.UF_PARAM_TL_DIAMETER, toolDiameter)
Return toolDiameter
End Function
'获取刀具刃长
Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As Double
Dim toolTag As NXOpen.Tag
Dim toolFluteLength As Double
theUfSession.Oper.AskCutterGroup(camObjectTag, toolTag)
theUfSession.Param.AskDoubleValue(toolTag, NXOpen.UF.UFConstants.UF_PARAM_TL_FLUTE_LN, toolFluteLength)
Return toolFluteLength
End Function
'获取刀具R角
Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As Double
Dim toolTag As NXOpen.Tag
Dim toolCornerRadius As Double
theUfSession.Oper.AskCutterGroup(camObjectTag, toolTag)
theUfSession.Param.AskDoubleValue(toolTag, NXOpen.UF.UFConstants.UF_PARAM_TL_COR1_RAD, toolCornerRadius)
Return toolCornerRadius
End Function
'取部件侧部余量
Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As Double
Dim stockPart As Double
theUfSession.Param.AskDoubleValue(camObjectTag, NXOpen.UF.UFConstants.UF_PARAM_STOCK_PART, stockPart)
Return stockPart
End Function
'取部件底部余量
Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As Double
Dim stockfloor As Double
theUfSession.Param.AskDoubleValue(camObjectTag, NXOpen.UF.UFConstants.UF_PARAM_STOCK_FLOOR, stockfloor)
Return stockfloor
End Function
'取主轴转速
Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
Dim speedVale As Double
theUfSession.Param.AskDoubleValue(camObjectTag, NXOpen.UF.UFConstants.UF_PARAM_SPINDLE_RPM, speedVale)
Return speedVale
End Function
'取进给速度
Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As Double
Dim feedValue As Double
Dim camObject As NXOpen.TaggedObject = NXOpen.Utilities.NXObjectManager.Get(camObjectTag)
Dim params(0) As NXOpen.CAM.Operation
params(0) = CType(camObject, NXOpen.CAM.Operation)
Dim feedsBuilder1 As NXOpen.CAM.ObjectsFeedsBuilder = theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params)
feedValue = feedsBuilder1.FeedsBuilder.FeedCutBuilder.Value
feedsBuilder1.Destroy()
Return feedValue
End Function
'取切削时间
Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As Double
Dim cutTime As Double
theUfSession.Param.AskDoubleValue(camObjectTag, 142, cutTime)
Return cutTime
End Function