UG二次开发【快速出车间文档】UG附带的出车间文档需要进行运算，这样一来，出车间文档在程序刀路形成很慢的情况下这运算速度让人接受不了；下图是做的一个简易车间文档示例：程序使用,下边是源代码：（代码中SnapPic.exe 为VB做的抓图工具）Option Strict OffImports SystemImports System.IOImports NXOpenImports NXOpen.CAMImports NXOpen.UFImports NXOpen.UtilitiesImports System.DrawingImports System.Windows.FormsModule Module1Dim theSession As Session = Session.GetSession()Dim myUI As UI = UI.GetUI()Dim theUFSession As UFSession = UFSession.GetUFSession()Dim theWorkPart As Part = theSession.Parts.WorkDim mytag() As NXOpen.Tag'选择的加工操作标记数组Dim mcount As Integer'选择的加工操作数量Sub Main()Shell(Environment.GetEnvironmentVariable("UGII_USER_DIR ") + "\UDO\Post\SnapPic.exe", AppWinStyle.NormalFocus, True)Try'获取选择的操作数theUFSession.UiOnt.AskSelectedNodes(mcount, mytag)If mcount = 0 ThenMsgBox("没有选择加工操作!", MsgBoxStyle.OkOnly, "提示信息")Exit SubEnd If'设置车间文档EXCEL模板路径Dim fp As String= Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\WorkShop.xls"'打开与写出车间文档If String.IsNullOrEmpty(fp) = False ThenDim myExcel As New MY_EXCELmyExcel.Create()myExcel.Open(fp)myExcel.Write("M4", AskDisplatyPartName())myExcel.Write("S4", Format(Now, "yyyy/MM/dd"))myExcel.InsertPicture("b4",Environment.GetEnvironmentVariable("UGII_USER_DIR") + "\UDO\Post\jietu.jpg")For i = 0 To mcount - 1'输出结果myExcel.Write("B" + (i + 17).T oString, (i + 1).ToString)myExcel.Write("D"+ (i + 17).T oString, GetGemoGroup_Name(mytag(i)))myExcel.Write("E"+ (i + 17).ToString, GetToolPathName(mytag(i)))myExcel.Write("F" + (i + 17).ToString, GetToolName(mytag(i))) myExcel.Write("G"+ (i + 17).ToString, GetToolNumber(mytag(i)).T oString)myExcel.Write("H"+ (i + 17).ToString, GetToolDiameter(mytag(i)).ToString)myExcel.Write("I"+ (i + 17).ToString, GetToolCornerRadius(mytag(i)).ToString)myExcel.Write("J"+ (i + 17).ToString, GetToolHeight(mytag(i)).T oString)myExcel.Write("K"+ (i + 17).ToString, GetToolFluteLength(mytag(i)).T oString)myExcel.Write("L"+ (i + 17).ToString, GetStockPart(mytag(i)).T oString)myExcel.Write("M"+ (i + 17).T oString, GetStockFloor(mytag(i)).T oString)myExcel.Write("N"+ (i + 17).ToString, GetSpeedValue(mytag(i)).T oString)myExcel.Write("O"+ (i + 17).ToString, GetFeedValue(mytag(i)).T oString)myExcel.Write("Q"+ (i + 17).ToString,CInt(GetCutTime(mytag(i))).T oString)NextmyExcel.SaveAs()'myExcel.Quit()End If'出错处理：Catch ex As ExceptionMsgBox(ex)End TryEnd Sub'当前文档文件名Function AskDisplatyPartName() As StringDim UFS As UFSession = UFSession.GetUFSession()Dim part_name As String = ""Dim part_tag As NXOpen.Tag = UFS.Part.AskDisplayPartUFS.Part.AskPartName(part_tag, part_name)Dim aa() As StringDim bb() As Stringaa = Split(part_name, ".prt")part_name = aa(0)bb = Split(part_name, "\")part_name = bb(bb.Length - 1)Return part_nameEnd Function'取加工几何试图程序组Function GetGemoGroup_Name(ByVal camObjectTag As NXOpen.Tag) As StringDim theGemoGroup_Tag As NXOpen.TagDim GemoGroupName As String = ""theUFSession.Oper.AskGeomGroup(camObjectTag, theGemoGroup_Tag)theUFSession.Obj.AskName(theGemoGroup_Tag, GemoGroupName)Return GemoGroupNameEnd Function'取操作名称Function GetT oolPathName(ByVal camObjectTag As NXOpen.Tag) As StringDim ToolPathName As String = ""theUFSession.Oper.AskNameFromTag(camObjectTag, ToolPathName)Return ToolPathNameEnd Function'获取刀具名称Function GetT oolName(ByVal camObjectTag As NXOpen.Tag) As StringDim ToolName As String = ""Dim ToolTag As NXOpen.TagtheUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag) theUFSession.Obj.AskName(T oolTag, ToolName)Return ToolNameEnd Function'获取刀具号码Function GetToolNumber(ByVal camObjectTag As NXOpen.Tag) As IntegerDim ToolTag As NXOpen.TagDim ToolNumber As IntegertheUFSession.Param.AskIntValue(T oolTag, UFConstants.UF_PARAM_TL_NUMBER, ToolNumber)Return ToolNumberEnd Function'获取刀具长度Function GetT oolHeight(ByVal camObjectTag As NXOpen.Tag) As DoubleDim ToolTag As NXOpen.TagDim ToolHeight As DoubletheUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag) theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_HEIGHT, ToolHeight)Return ToolHeightEnd Function'获取刀具直径Function GetT oolDiameter(ByVal camObjectTag As NXOpen.Tag) As DoubleDim ToolTag As NXOpen.TagDim ToolDiameter As DoubletheUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag) theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_DIAMETER, ToolDiameter) Return ToolDiameterEnd Function'获取刀具刃长Function GetToolFluteLength(ByVal camObjectTag As NXOpen.Tag) As DoubleDim ToolTag As NXOpen.TagDim ToolFluteLength As DoubletheUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_FLUTE_LN, ToolFluteLength) Return ToolFluteLengthEnd Function'获取刀具R角Function GetToolCornerRadius(ByVal camObjectTag As NXOpen.Tag) As DoubleDim ToolTag As NXOpen.TagDim ToolCornerRadius As DoubletheUFSession.Oper.AskCutterGroup(camObjectTag, ToolTag) theUFSession.Param.AskDoubleValue(ToolTag, UFConstants.UF_PARAM_TL_COR1_RAD, ToolCornerRadius) Return ToolCornerRadiusEnd Function'取部件侧部余量Function GetStockPart(ByVal camObjectTag As NXOpen.Tag) As DoubleDim StockPart As DoubletheUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_PART, StockPart)Return StockPartEnd Function'取部件底部余量Function GetStockFloor(ByVal camObjectTag As NXOpen.Tag) As DoubleDim Stockfloor As DoubletheUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_STOCK_FLOOR, Stockfloor)Return StockfloorEnd Function'取主轴转速Function GetSpeedValue(ByVal camObjectTag As NXOpen.Tag) As DoubleDim SpeedVale As DoubletheUFSession.Param.AskDoubleValue(camObjectTag, UFConstants.UF_PARAM_SPINDLE_RPM, SpeedVale)Return SpeedValeEnd Function'取进给速度Function GetFeedValue(ByVal camObjectTag As NXOpen.Tag) As DoubleDim FeedValue As DoubleDim_camObject As NXObject= NXObjectManager.Get(camObjectTag)Dim params(0) As CAM.Operationparams(0) = CType(_camObject, Operation)Dim FeedsBuilder1 As ObjectsFeedsBuilder= theSession.Parts.Work.CAMSetup.CreateFeedsBuilder(params) FeedValue = FeedsBuilder1.FeedsBuilder.FeedCutBuilder.ValueFeedsBuilder1.Destroy()Return FeedValueEnd Function'取切削时间Function GetCutTime(ByVal camObjectTag As NXOpen.Tag) As DoubleDim CutTime As DoubletheUFSession.Param.AskDoubleValue(camObjectTag, 142,CutTime)Return CutTimeEnd FunctionPublic Function GetUnloadOption(ByVal dummy As String) As Integer'Unloads the image immediately after execution within NXGetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately'----Other unload options-------'Unloads the image when the NX session terminates'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination'Unloads the image explicitly, via an unload dialog'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly'-------------------------------End FunctionEnd ModulePublic Class MY_EXCELPrivate app As ObjectPrivate book As ObjectPrivate sheet As Object'表格名称Public Property xlSheetName() As StringGetReturn End GetSet(ByVal value As String) = valueEnd SetEnd Property'新建程序Public Function Create() As Booleanapp = CreateObject("Excel.Application")If app Is Nothing ThenReturn FalseElseapp.Visible = TrueReturn TrueEnd IfEnd Function'打开文件Public Sub Open(ByVal xlFileName As String)book = app.Workbooks.Open(xlFileName)sheet = book.ActiveSheetEnd Sub'写单元格Public Sub Write(ByVal_Range As String, ByVal value As Object)If _Range <> ""Thensheet.Range(_Range).Value = valueEnd IfEnd Sub'插入图片Public Sub InsertPicture(ByVal_Range As String, ByVal imageFile As String)If _Range <> ""ThenDim ExcelRange As Object = sheet.Range(_Range)Dim Ins_image As ImageIns_image = Image.FromFile(imageFile)Dim HeightScale As Double= Math.Round((ExcelRange.Height * 12 - 6) / Ins_image.Height, 2) Dim WidthScale As Double= Math.Round((ExcelRange.Width * 15 - 6) / Ins_image.Width, 2) Dim ScaleHW As Double= Math.Min(HeightScale, WidthScale)sheet.Shapes.AddPicture(imageFile, 0, 1, ExcelRange.Left + 2, ExcelRange.T op + 2, Ins_image.Width * ScaleHW, Ins_image.Height * ScaleHW)Ins_image.Dispose()End IfEnd Sub'取指定单元格值Public Function GetValue(ByVal_table As Integer, ByVal _Range As String) As StringDim sheet As Object = book.Sheets.Item(_table)Return sheet.Range(_Range).valueEnd FunctionPublic Function Save() As Booleanbook.Save()End FunctionPublic Function SaveAs() As BooleanDim Sdlg As SaveFileDialog = New SaveFileDialog'定义一个保存对话框Sdlg.FileName = AskDisplatyPartName() + "加工工序单.xls"'保存对话框的默认文件名Sdlg.Filter = "EXCEL档案(*.xls)|*.xls"'过滤器设置If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被按下book.SaveAs(Sdlg.FileName) '保存文件End IfEnd Function'结束EXCEL对象Public Function Quit() As Booleanbook.close()app.Quit()app = NothingGC.Collect()End Function'取数组Public Function GetArryValue(ByRef _table As Integer, ByVal _Row As String, ByVal _Cell As String, ByRef ArryString() As String) As IntegerDim sheet As Object = book.Sheets.Item(_table)Dim rowvalue As String = sheet.Range(_Row).valueDim cellvalue As String = sheet.Range(_Cell).valueDim k As Integer = 0If rowvalue <> ""And cellvalue <> ""ThenDim rowstr() As String = Split(rowvalue, "/")Dim cellstring() As String = Split(cellvalue, "/")Dim a, b, c, d As IntegerIf rowstr.Length > 1 And cellstring.Length > 0 Thena = Convert.T oInt32(rowstr(0))b = Convert.T oInt32(rowstr(1))If a > 0 And b > a ThenReDim Preserve ArryString(b - a)For i As Integer = 0 To b - aArryString(i) = cellstring(0) & Convert.ToString(a + i)k += 1NextIf rowstr.Length > 3 And cellstring.Length > 1 Thenc = Convert.ToInt32(rowstr(2))d = Convert.T oInt32(rowstr(3))If c > 0 And d > c ThenReDim Preserve ArryString(b - a + d - c + 1)For j As Integer = 0 To d - cArryString(b - a + j + 1) = cellstring(1) & Convert.ToString(c + j)k += 1NextEnd IfEnd IfEnd IfEnd IfEnd IfReturn kEnd FunctionEnd Class。
![[API]UG二次开发资料1](https://img.taocdn.com/s1/m/702bfc4a9a6648d7c1c708a1284ac850ac02047b.png)
![[计算机软件及应用]UG二次开发技术ppt课件](https://img.taocdn.com/s1/m/999b459fa26925c52dc5bf02.png)
