NX二次开发之程序组及操作重命名

ugii

/ `8 ]+ y7 ?- X- ~# C, e% L: fOption Strict Off
Imports System
Imports System.IO
, N" }; n6 y4 }$ m8 P5 {Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities

Module TestRenameCamObjects
    Dim theSession    As Session   = Session.GetSession()
    Dim theUFSession  As UFSession = UFSession.GetUFSession()
    Dim theUI         As UI        = UI.GetUI()
    Dim TempPath      As String    = Environment.GetEnvironmentVariable("TMP")
6 Q2 }0 R$ Z( Z7 k4 q& j    Dim ugRelease     As String    = Nothing
$ W- L& k3 f5 i! L7 V. E    Dim UGFullRelease As String    = Nothing
3 d3 Y8 U! C) n8 c   
: ^( V+ K' G. \2 e: Y    Sub Main(Args As String())
        theSession.LogFile.WriteLine("Executing ... " & _
0 A! s5 W% z+ I! [, _            System.Reflection.Assembly.GetExecutingAssembly().Location)
. B# e8 ^  A  r! v1 M* g! N        
, d  A$ E/ T! Z1 C5 B  a( }! _        Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("en-US")
' f5 U- a( k1 B) R* G% A        Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("en-US")
9 P5 B# o* o+ W: j        
" S4 h$ Y; `' g& l$ U        UGRelease = theSession.GetEnvironmentVariableValue("UGII_VERSION")
8 M+ z% ~; n$ C) N        UGFullRelease = theSession.GetEnvironmentVariableValue("UGII_FULL_VERSION")
        
        System.Windows.Forms.Application.EnableVisualStyles()
        
8 g4 v" s2 @  z8 h1 t        Dim MyUndoMark As Session.UndoMarkId = _
            theSession.SetUndoMark(Session.MarkVisibility.Visible, "TestRenameCamObjects")
        
" V7 q8 t8 r- Y( X4 n: W% U- l: E        ' uncomment the following lines to check for the correct application
5 ^- d, C: V( i/ o8 x        Dim AppID As Integer = UFConstants.UF_APP_NONE
        theUFSession.UF.AskApplicationModule(AppID)
        If AppID <> UFConstants.UF_APP_CAM Then
2 }# Y- B$ Y! [& M4 u& ?            theUI.NXMessageBox.Show("Application missmatch", NXMessageBox.DialogType.Error, "No NX CAM session, Exiting!")
2 ]+ r7 B6 l9 t6 R3 {            Exit Sub
        End If
$ s) E7 m9 B/ n" d        
% ^# Q% ?- d0 ^- F1 f1 u4 `- a9 c$ ~        For i As Integer = 0 To theUI.SelectionManager.GetNumSelectedObjects() - 1
            Dim theSelectedObject As TaggedObject = theUI.SelectionManager.GetSelectedTaggedObject(i)
2 _" a6 J) T1 q9 X- f            
6 O; I4 g5 u  D" G. y            If theSession.Parts.Work.CAMSetup.IsGroup(theSelectedObject) Then
                Dim thePartName As String = IO.Path.GetFileNameWithoutExtension(theSession.Parts.Work.FullPath)
+ p! x; W0 i. U$ ^7 X) j               
                Dim theIndex As String = NXOpenUI.NXInputBox.GetInputString("Enter Index")
9 J) n& R6 E# P" v               
                Dim theGroupName As String = Left(thePartName, 12).Replace("-", "_") &&#160;"_"&#160;& theIndex &&#160;"_"&#160;& Right(thePartName, 4)
! [2 w; C( v. Z, n$ H& y9 O               
                Dim theNcGroup As CAM.NCGroup = CType(theSelectedObject, CAM.NCGroup)
  W  W' t- W( V/ K& H  h2 H8 U7 a               
                theNcGroup.SetName(theGroupName)
               
8 J) J( s/ t* q  C                Dim theCounter As Integer = 0
               
; z- Y+ v# L, ]5 C6 P& s                For Each theCAMObject As CAM.CAMObject In theNcGroup.GetMembers()
" k# R% o; c! q  a                    If theSession.Parts.Work.CAMSetup.IsOperation(theCAMObject) Then
                        theCAMObject.SetName(theCounter.ToString("00") & "_" & theCAMObject.Name)
: }3 G' W5 x/ i( i! Q                        
; \5 ~9 x+ n: Z: z* ?: |                        theCounter += 1
6 {& N! o( |. W: C                        
' W9 H6 v9 b5 W9 U0 Z                        If theCounter > 99 Then Exit For
, V% M, y. W% z8 N& i6 f9 o3 i                    End If
                Next
            End If
        Next
    End Sub
( R: m. v: g. p/ V; A   
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return CInt(Session.LibraryUnloadOption.Immediately)
    End Function
End Module