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

ugii

Option Strict Off
Imports System
  _* C+ E! U5 }# F4 ]& i% a5 ZImports System.IO
Imports System.Windows.Forms
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities

Module TestRenameCamObjects
8 J- i  i- U4 W3 o0 n: s4 t8 d( h/ I    Dim theSession    As Session   = Session.GetSession()
8 n; Z2 X( L' X9 `0 k* t0 T: U! Q    Dim theUFSession  As UFSession = UFSession.GetUFSession()
    Dim theUI         As UI        = UI.GetUI()
    Dim TempPath      As String    = Environment.GetEnvironmentVariable("TMP")
    Dim ugRelease     As String    = Nothing
0 S6 i( g# {0 Z6 S/ P2 a8 f    Dim UGFullRelease As String    = Nothing
   
    Sub Main(Args As String())
        theSession.LogFile.WriteLine("Executing ... " & _
3 S+ C" N' V' A; N! G: ]            System.Reflection.Assembly.GetExecutingAssembly().Location)
9 k3 B/ [$ x* W8 ~1 b" V        
        Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("en-US")
- ^6 S! a* _, j2 }$ U        Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("en-US")
        
5 E6 P/ U: ^6 o% g5 Y  H        UGRelease = theSession.GetEnvironmentVariableValue("UGII_VERSION")
        UGFullRelease = theSession.GetEnvironmentVariableValue("UGII_FULL_VERSION")
: J% n7 _* l8 \* s% B, b        
        System.Windows.Forms.Application.EnableVisualStyles()
        
        Dim MyUndoMark As Session.UndoMarkId = _
' j% H. |" M3 \5 {. b5 m            theSession.SetUndoMark(Session.MarkVisibility.Visible, "TestRenameCamObjects")
/ b5 H7 ^8 \7 c# f* k! X% f2 L        
        ' uncomment the following lines to check for the correct application
        Dim AppID As Integer = UFConstants.UF_APP_NONE
        theUFSession.UF.AskApplicationModule(AppID)
: `+ I, o7 E, B        If AppID <> UFConstants.UF_APP_CAM Then
            theUI.NXMessageBox.Show("Application missmatch", NXMessageBox.DialogType.Error, "No NX CAM session, Exiting!")
2 U" G) J: J6 J3 H2 Y            Exit Sub
0 T! _; R9 _1 K& C9 K& k        End If
  |' i; Q! W- Y$ C        
        For i As Integer = 0 To theUI.SelectionManager.GetNumSelectedObjects() - 1
            Dim theSelectedObject As TaggedObject = theUI.SelectionManager.GetSelectedTaggedObject(i)
" ^4 h; u( F0 k# U: F. b5 S! r- [            
2 e8 |- S3 g; I            If theSession.Parts.Work.CAMSetup.IsGroup(theSelectedObject) Then
                Dim thePartName As String = IO.Path.GetFileNameWithoutExtension(theSession.Parts.Work.FullPath)
; o* G3 t+ _4 G" T2 K( Q7 U+ c               
) D' v5 D/ W( N, M, F+ k                Dim theIndex As String = NXOpenUI.NXInputBox.GetInputString("Enter Index")
. v0 c& s1 Y) Z               
                Dim theGroupName As String = Left(thePartName, 12).Replace("-", "_") &&#160;"_"&#160;& theIndex &&#160;"_"&#160;& Right(thePartName, 4)
, u- `6 U5 f' _               
0 O, q+ I! t7 M5 Y7 \                Dim theNcGroup As CAM.NCGroup = CType(theSelectedObject, CAM.NCGroup)
, D7 ]! A& d. w& q- l               
7 Y% `' L& A4 e2 b2 g" F. e. l+ b                theNcGroup.SetName(theGroupName)
$ z( O1 |6 A# e4 G: w               
                Dim theCounter As Integer = 0
( @) \5 X0 s5 U' d* i               
* W8 O: X( h- }! k7 r: i  e1 C: S                For Each theCAMObject As CAM.CAMObject In theNcGroup.GetMembers()
                    If theSession.Parts.Work.CAMSetup.IsOperation(theCAMObject) Then
* H. b  F2 Y0 Y                        theCAMObject.SetName(theCounter.ToString("00") & "_" & theCAMObject.Name)
- m2 b6 \+ }: W                        
                        theCounter += 1
" t7 k; {4 N% m! g& h                        
                        If theCounter > 99 Then Exit For
                    End If
                Next
' J0 Q/ _% M( u+ z* w! U* a            End If
/ V/ n5 f$ \7 U0 {1 x( X2 Q        Next
    End Sub
) `; ?2 G$ X, H- Q/ e   
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return CInt(Session.LibraryUnloadOption.Immediately)
    End Function
End Module