Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

journal to update parts list

Status
Not open for further replies.

moog2

Mechanical
Jan 16, 2007
441
[2thumbsup]Can someone help me to create a journal to update my parts lists..
I've managed to do it with a macro, but not a journal.
the problem is, i'd like to splice it into an existing journal,
OR unless someone knows a way to run a macro and a journal from one button ?

this works as a macro...

NX 8.0.3.4
Macro File: X:\NX7_defaults\Paul\macro\UP-PL-7.macro
Macro Version 7.50
Macro List Language and Codeset: english 17
Created by paulhorton on Thu Jan 30 12:48:51 2014
Part Name Display Style: $FILENAME
Selection Parameters 1 2 0.229167 1
Display Parameters 1.000000 20.000000 11.302083 -1.000000 -0.565104 1.000000 0.565104
*****************
RESET
FOCUS CHANGE IN 1
TBR COMBO UG_SEL_TYPE_FILTER 4 -7 0
TBR COMBO UG_SEL_TYPE_FILTER 1 21 1
LINE "Tabular Note/Parts List"
MENU, 0, UG_SEL_SELECT_ALL UG_GATEWAY_MAIN_MENUBAR ! <Ctrl A>
MENU, 0, UG_TABLE_UPDATE_PARTS_LIST UG_GATEWAY_MAIN_MENUBAR ! <MB/Toolbar>
FOCUS CHANGE IN 1
TBR COMBO UG_SEL_TYPE_FILTER 4 -7 0
TBR COMBO UG_SEL_TYPE_FILTER 1 0 1
LINE "No Selection Filter"

any help much appreciated..
 
Replies continue below

Recommended for you

This ought to do:

Code:
[COLOR=blue]Option Strict Off[/color]  
[COLOR=blue]Imports[/color] System  
[COLOR=blue]Imports[/color] NXOpen  
[COLOR=blue]Imports[/color] NXOpen.UF  

[COLOR=blue]Module[/color] Module1  

    [COLOR=blue]Sub[/color] Main()  

        [COLOR=blue]Dim[/color] theSession [COLOR=blue]As[/color] Session [COLOR=blue]=[/color] Session.GetSession()  
        [COLOR=blue]Dim[/color] theUfSession [COLOR=blue]As[/color] UFSession [COLOR=blue]=[/color] UFSession.GetUFSession  

        [COLOR=blue]Dim[/color] n [COLOR=blue]As Integer =[/color] 0  
        [COLOR=blue]Dim[/color] myPlists() [COLOR=blue]As[/color] Tag  

        theUfSession.Plist.AskTags(myPlists, n)  
        [COLOR=blue]For[/color] i [COLOR=blue]As Integer =[/color] 0 [COLOR=blue]To[/color] n [COLOR=blue]-[/color] 1  
            theUfSession.Plist.Update(myPlists(i))  
        [COLOR=blue]Next[/color]  

    End [COLOR=blue]Sub[/color]  

End [COLOR=blue]Module[/color]


www.nxjournaling.com
 
[thumbsup2]that's great, i managed to splice it into the export pdf journal, after i fixed a confilcting "i" value.
thanks for your help..
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor