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

ugii

9 V8 }" S+ N: T0 [& ?, o0 oOption Strict Off
/ v) j1 D! a9 N2 _/ x  l1 OImports System
0 r' `6 Z- F2 ~7 W1 F3 `. g( WImports System.IO
Imports System.Windows.Forms
Imports NXOpen
$ ?9 @0 P: b) Q) h+ gImports NXOpen.UF
6 k( ^* i% t" M) eImports NXOpen.Utilities

Module TestRenameCamObjects
) |# W# R$ `& l' ^; i+ N% I    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")
    Dim ugRelease     As String    = Nothing
& M+ a$ ~( h$ h    Dim UGFullRelease As String    = Nothing
. M. A7 Y$ U6 m9 N4 A* [   
    Sub Main(Args As String())
        theSession.LogFile.WriteLine("Executing ... " & _
0 t5 K/ W; E1 t. d* P            System.Reflection.Assembly.GetExecutingAssembly().Location)
  |& W9 U: U* q( v/ Z& ?        
        Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("en-US")
        Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("en-US")
# E; V0 ]* W3 K% G        
, d0 I2 W) P& t% ~; b, ^$ K9 b        UGRelease = theSession.GetEnvironmentVariableValue("UGII_VERSION")
        UGFullRelease = theSession.GetEnvironmentVariableValue("UGII_FULL_VERSION")
: J3 a6 e8 [& F/ N        
        System.Windows.Forms.Application.EnableVisualStyles()
; B+ M+ H1 V* ]        
        Dim MyUndoMark As Session.UndoMarkId = _
8 w# M" z* V( _* ]) A" l. a            theSession.SetUndoMark(Session.MarkVisibility.Visible, "TestRenameCamObjects")
7 H! ], e0 f) T( }# o2 K        
9 w- w  n$ t  `" H8 M; W+ B6 a        ' uncomment the following lines to check for the correct application
        Dim AppID As Integer = UFConstants.UF_APP_NONE
        theUFSession.UF.AskApplicationModule(AppID)
8 k8 w; o# c  y! I+ P  n1 [        If AppID <> UFConstants.UF_APP_CAM Then
            theUI.NXMessageBox.Show("Application missmatch", NXMessageBox.DialogType.Error, "No NX CAM session, Exiting!")
1 h: U( u. J' Y9 U. U8 _- f! x            Exit Sub
8 G/ c. A  z/ r6 ^        End If
) s. m1 N$ _1 {  k9 o# |        
        For i As Integer = 0 To theUI.SelectionManager.GetNumSelectedObjects() - 1
            Dim theSelectedObject As TaggedObject = theUI.SelectionManager.GetSelectedTaggedObject(i)
4 s) [% N- s: b8 n* \* Q( O            
            If theSession.Parts.Work.CAMSetup.IsGroup(theSelectedObject) Then
                Dim thePartName As String = IO.Path.GetFileNameWithoutExtension(theSession.Parts.Work.FullPath)
/ X7 H4 @. \; E; i4 S9 }               
                Dim theIndex As String = NXOpenUI.NXInputBox.GetInputString("Enter Index")
# Q! G6 o: i" _               
9 j% O, o, C' G6 J- j: q+ Z. G                Dim theGroupName As String = Left(thePartName, 12).Replace("-", "_") &&#160;"_"&#160;& theIndex &&#160;"_"&#160;& Right(thePartName, 4)
. j3 A7 B; t" v$ @  ^# G6 u$ O               
2 d4 @7 V" m% e8 w                Dim theNcGroup As CAM.NCGroup = CType(theSelectedObject, CAM.NCGroup)
0 E& R0 N' K/ l; J* p               
* Y2 V5 s5 S4 G0 j" v) m6 g                theNcGroup.SetName(theGroupName)
; l7 ?% _; F3 x* B, e               
                Dim theCounter As Integer = 0
' \0 v- l& L6 e( t. s7 d2 s+ T               
                For Each theCAMObject As CAM.CAMObject In theNcGroup.GetMembers()
                    If theSession.Parts.Work.CAMSetup.IsOperation(theCAMObject) Then
                        theCAMObject.SetName(theCounter.ToString("00") & "_" & theCAMObject.Name)
                        
' ~9 P0 m! M% U                        theCounter += 1
                        
                        If theCounter > 99 Then Exit For
, S  l/ ?" B, h- g3 B3 y3 `. W$ y                    End If
) u$ ^0 z" r5 H$ f0 w( D                Next
/ l2 P' J+ X% T4 S            End If
        Next
    End Sub
   
2 e# N7 s+ g; m. p  j$ B. i    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return CInt(Session.LibraryUnloadOption.Immediately)
1 B5 ^2 c$ k/ d2 A( I6 ]7 {- i9 Q    End Function
End Module