UG12使用VB脚本批量输出后处理，如何获取程序组所有工序

arisa

我想用脚本在UG12中实现
1、当选中程序组的时候执行脚本，将逐个输出程序组中的工序并按照工序名称前三个字符+刀具名称对输出的工序进行重命名
2、输出路径为E:\工作文件\Bln\Bln，输出时在该文件夹内建立以选中程序组名称的子文件夹，并将程序组内工序逐个输出至该子文件夹
3、后处理器为YIYI_360,${UGII_CAM_POST_DIR}YIYI_360.tcl,${UGII_CAM_POST_DIR}YIYI_360.def，后处理器所在文件夹为D:\Program Files\Siemens\NX 12.0\MACH\resource\postprocessor
已编写以下代码，但是执行以下.vb程序是报错，求助如何处理


通过网盘分享的文件：push0.vb 链接: push0.vb 提取码: 6pti

语法错误：
第 62 行：未定义类型“CAM.Operations”。

&MACRO MESSAGE_BOX  -2  Line 62: 未定义类型“CAM.Operations”。
&MACRO MESSAGE_TEXT  
&MACRO MENU, 0, UG_HELP_SYSTEM_LOG UG_GATEWAY_MAIN_MENUBAR <RibbonFileBar->BackStageBar->LeftBackStageGroup->rbn_file_tab_help_cascade.csb> ## !

1. Option Strict Off
   
2. Imports System
   
3. Imports System.IO
   
4. Imports System.Windows.Forms
   
5. Imports NXOpen
   
6. Imports NXOpen.UF
   
7. Imports NXOpen.Utilities
   
8. Imports System.Collections.Generic ' 添加此行以引用 List 类型
   
9. 
   
10. Module TestRenameCamObjects
    
11.     Dim theSession    As Session   = Session.GetSession()
    
12.     Dim theUFSession  As UFSession = UFSession.GetUFSession()
    
13.     Dim theUI         As UI        = UI.GetUI()
    
14.     Dim TempPath      As String    = Environment.GetEnvironmentVariable("TMP")
    
15.     Dim UGRelease     As String    = Nothing
    
16.     Dim UGFullRelease As String    = Nothing
    
17.     Dim postProcessorPath As String = "D:\Program Files\Siemens\NX 12.0\MACH\resource\postprocessor\YIYI_360.tcl"
    
18.     Dim postProcessorDefPath As String = "D:\Program Files\Siemens\NX 12.0\MACH\resource\postprocessor\YIYI_360.def"
    
19.     Dim outputBasePath As String = "E:\工作文件\Bln\Bln"
    
20. 
    
21.     Sub Main(Args As String())
    
22.         theSession.LogFile.WriteLine("Executing ... " & _
    
23.             System.Reflection.Assembly.GetExecutingAssembly().Location)
    
24.         
    
25.         Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("en-US")
    
26.         Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("en-US")
    
27.         
    
28.         UGRelease = theSession.GetEnvironmentVariableValue("UGII_VERSION")
    
29.         UGFullRelease = theSession.GetEnvironmentVariableValue("UGII_FULL_VERSION")
    
30.         
    
31.         System.Windows.Forms.Application.EnableVisualStyles()
    
32.         
    
33.         ' 检查是否在CAM环境中
    
34.         Dim AppID As Integer = UFConstants.UF_APP_NONE
    
35.         theUFSession.UF.AskApplicationModule(AppID)
    
36.         If AppID <> UFConstants.UF_APP_CAM Then
    
37.             theUI.NXMessageBox.Show("Application mismatch", NXMessageBox.DialogType.Error, "No NX CAM session, Exiting!")
    
38.             Exit Sub
    
39.         End If
    
40.         
    
41.         ' 获取选中的程序组
    
42.         Dim selectedGroups As List(Of TaggedObject) = New List(Of TaggedObject)()
    
43.         For i As Integer = 0 To theUI.SelectionManager.GetNumSelectedObjects() - 1
    
44.             Dim theSelectedObject As TaggedObject = theUI.SelectionManager.GetSelectedTaggedObject(i)
    
45.             If theSession.Parts.Work.CAMSetup.IsGroup(theSelectedObject) Then
    
46.                 selectedGroups.Add(theSelectedObject)
    
47.             End If
    
48.         Next
    
49.         
    
50.         ' 对选中的程序组进行处理
    
51.         For Each theSelectedObject As TaggedObject In selectedGroups
    
52.             Dim theNcGroup As CAM.NCGroup = CType(theSelectedObject, CAM.NCGroup)
    
53.             Dim groupName As String = theNcGroup.Name
    
54.             Dim groupOutputPath As String = Path.Combine(outputBasePath, groupName)
    
55.             
    
56.             ' 创建子文件夹
    
57.             If Not Directory.Exists(groupOutputPath) Then
    
58.                 Directory.CreateDirectory(groupOutputPath)
    
59.             End If
    
60.             
    
61.             ' 获取程序组中的所有工序
    
62.             Dim operations As CAM.Operations = theNcGroup.Operations
    
63.             For Each operation As CAM.Operation In operations
    
64.                 Dim operationName As String = operation.Name
    
65.                 Dim toolName As String = operation.Tool.Name
    
66.                 Dim newOperationName As String = operationName.Substring(0, 3) & toolName
    
67.                
    
68.                 ' 重命名工序
    
69.                 operation.SetName(newOperationName)
    
70.                
    
71.                 ' 输出工序
    
72.                 Dim postBuilder As CAM.PostBuilder = theSession.Parts.Work.CAMSetup.PostBuilder
    
73.                 postBuilder.PostOperation(operation, postProcessorPath, postProcessorDefPath, groupOutputPath, False)
    
74.             Next
    
75.         Next
    
76.     End Sub
    
77.    
    
78.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
    
79.         Return CInt(Session.LibraryUnloadOption.Immediately)
    
80.     End Function
    
81. End Module

复制代码

banmao*

Dim operations  
For Each operation
62行多了个S,定义和循环的变量名都不一致

arisa

这个问题我通过AI编程解决了，对我工作来说方便了一些，以下是代码，附件为文件

1. Imports System.Collections.Generic
   
2. Imports System
   
3. Imports NXOpen
   
4. Imports System.IO
   
5. 
   
6. Module NXJournal
   
7.     Sub Main(ByVal args() As String)
   
8.         Dim theSession As Session = Session.GetSession()
   
9.         Dim workPart As Part = theSession.Parts.Work
   
10.         Dim theUI As UI = UI.GetUI()
    
11. 
    
12.         ' 获取选定对象
    
13.         ' 获取程序组和工序
    
14.         ' 获取选定程序组
    
15.         ' 获取选中的程序组
    
16.         Dim selectedGroups As New List(Of CAM.NCGroup)
    
17.         For i As Integer = 0 To theUI.SelectionManager.GetNumSelectedObjects() - 1
    
18.             Dim selectedObject = theUI.SelectionManager.GetSelectedTaggedObject(i)
    
19.             If TypeOf selectedObject Is CAM.NCGroup Then
    
20.                 selectedGroups.Add(CType(selectedObject, CAM.NCGroup))
    
21.             End If
    
22.         Next
    
23. 
    
24.         ' 获取首个程序组及其工序
    
25.         If selectedGroups.Count = 0 Then
    
26.             theUI.NXMessageBox.Show("选择错误", NXMessageBox.DialogType.Error, "请至少选择一个程序组")
    
27.             Exit Sub
    
28.         End If
    
29.         Dim ncGroup As CAM.NCGroup = selectedGroups(0)
    
30.         ' 0=首道工序,1=第二道工序,2=第三道工序,3=第四道工序
    
31.         For i As Integer = 0 To 3
    
32.             Dim operation As CAM.Operation = CType(ncGroup.GetMembers().GetValue(i), CAM.Operation)
    
33.             ' 构造路径参数
    
34.             ' 获取加工参数
    
35.             ' 参数定义
    
36. 
    
37.             Dim programGroupName As String = ncGroup.Name
    
38.             Dim operationName As String = operation.Name
    
39.         
    
40.             ' 创建输出目录
    
41.             ' 创建输出路径
    
42.             Dim outputDir As String = String.Format("{0}{1}\", "E:\工作文件\Bln\Bln\", programGroupName)
    
43.             If Not IO.Directory.Exists(outputDir) Then
    
44.                 IO.Directory.CreateDirectory(outputDir)
    
45.             End If
    
46. 
    
47.             ' 后处理设置
    
48.             workPart.CAMSetup.PostprocessWithPostModeSetting(
    
49.                 {operation},
    
50.                 "YIYI_360",
    
51.                 String.Format("{0}{1}_{2}.nc", outputDir, programGroupName, operationName),
    
52.                 CAM.CAMSetup.OutputUnits.PostDefined,
    
53.                 CAM.CAMSetup.PostprocessSettingsOutputWarning.PostDefined,
    
54.                 CAM.CAMSetup.PostprocessSettingsReviewTool.PostDefined,
    
55.                 CAM.CAMSetup.PostprocessSettingsPostMode.Normal
    
56.         )
    
57.         Next
    
58.     End Sub
    
59. End Module

复制代码

如程序组下有多个工序，可以修改第31行的内容，个数从0开始计数，5个工序就改为 To 4

可以通过百度网盘直接下载文件 push https://pan.baidu.com/s/16VlAJ4RG2-DvhDHcnIn0qQ?pwd=ugnx 提取码: ugnx