zoukankan      html  css  js  c++  java
  • 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.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

  • 相关阅读:
    C#可空类型 T?
    Unity踩过的坑
    Unity可视化数据:创建图表
    unity3d屏幕截图功能
    unity3d插入android有米广告
    Unity调用PC摄像头
    使用Unity的50个建议
    Unity3d流光效果
    unity3d中的Quaternion.LookRotation
    Unity3D中可重载虚函数的总结
  • 原文地址:https://www.cnblogs.com/bizca/p/5347012.html
Copyright © 2011-2022 走看看