×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

journal to update parts list

journal to update parts list

journal to update parts list

(OP)
2thumbsupCan 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..

RE: journal to update parts list

This ought to do:

CODE

Option Strict Off  
Imports System  
Imports NXOpen  
Imports NXOpen.UF  

Module Module1  

    Sub Main()  

        Dim theSession As Session = Session.GetSession()  
        Dim theUfSession As UFSession = UFSession.GetUFSession  

        Dim n As Integer = 0  
        Dim myPlists() As Tag  

        theUfSession.Plist.AskTags(myPlists, n)  
        For i As Integer = 0 To n - 1  
            theUfSession.Plist.Update(myPlists(i))  
        Next  

    End Sub  

End Module 

www.nxjournaling.com

RE: journal to update parts list

(OP)
thumbsup2that's great, i managed to splice it into the export pdf journal, after i fixed a confilcting "i" value.
thanks for your help..

RE: journal to update parts list

Good idea!
I'll have to incorporate that into my own code as well.

www.nxjournaling.com

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources