Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

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

Search results for query: *

  1. mnash60

    Convert a CATpart bodies to CATProduct

    This script seems to work on my simple bodies. but what if I have part body like this I want to remove everything from the first backslash and then remove all the slashes so i can save it to a directory. right now I get this error. Thanks for the help. I really appreciate it.
  2. mnash60

    Convert a CATpart bodies to CATProduct

    I'm new to catia vb hoping theirs someone that can help me. I found this script that works for me except for to things. One it errors out if there is a multiple bodies with the same name and i need the body color of the initial body copied. below is the code. Dim KomponenteNeu As Products Dim...
  3. mnash60

    Trying to change the color of parts in a Assembly!!! PLEASE CAN SOMEONE HELP ME!!!!!!

    How do I apply "Specific Component Colour" to my code?
  4. mnash60

    VB Help!!! How do I call a attribute of a parent for a child component?

    ...the following line 'Dim c As ComponentAssembly = workPart.ComponentAssembly If Not IsNothing(c.RootComponent) Then '*** insert code to process 'root component' (assembly file) lw.WriteLine("Assembly: " & c.RootComponent.DisplayName)...
  5. mnash60

    Trying to change the color of parts in a Assembly!!! PLEASE CAN SOMEONE HELP ME!!!!!!

    ...= workPart.ComponentAssembly 'Dim rnd1 As New Random() 'Dim myPt1 As interger if not IsNothing(c.RootComponent) then '*** insert code to process 'root component' (assembly file) ' do an action on the collected solids Dim visibleObjects() As DisplayableObject...
  6. mnash60

    How to cycle through a assembly and activate each part as the work!

    What I'm to accomplish is I want to have my assembly open and one by one select the 1st part and make it the work part.then run piece of my journal and save. Then select the next part and do the same and etc.
  7. mnash60

    VB Help!!! Changing Part color in a assembly

    ...0) else end if Catch e As Exception theSession.ListingWindow.WriteLine("Failed: " & e.ToString) End Try End Sub '******************************************************************* Public Function GenerateRandomString(ByRef len As Integer, ByRef upper As Boolean) As String Dim rand...
  8. mnash60

    VB Help!!! Changing Part color in a assembly

    What I am trying to obtain is a journal that cycles through every individual part and changes the color to one of the selected random colors. so for my journal changes each part to the came color. also it doesn't change the actual part itself just the assembly representation. Can you help me...
  9. mnash60

    VB Help!!! Changing Part color in a assembly

    ...else end if Catch e As Exception theSession.ListingWindow.WriteLine("Failed: " & e.ToString) End Try End Sub '******************************************************************* Public Function GenerateRandomString(ByRef len As Integer, ByRef upper As...
  10. mnash60

    Macro to export product as STEP with parameter

    Can you share this Macro??
  11. mnash60

    Help with SaveAs script!!!!!!!

    I have a SaveAs script that works. But Im having a hard time figuring out how to get it to loop through all the catia files to a folder? Sub CATMain() 'Retrive the active document Dim Doc As document Set Doc = CATIA.Activedocument Const WINDOW_HANDLE = 0 Const NO_OPTIONS = 0 Set objShell...
  12. mnash60

    WANT TO RUN STAND ALONE TRANSLATORS WITH VBA OR POWERSHELL

    I have written and modifed vb scripts to create step files within UG. Now I would like to go a few steps futher and create and bat file or a powershell script to open and run one of the stand alone translators. I am need of some direction or information that would head me in the write direction.
  13. mnash60

    vb step translator- issues on translating layer 0

    my journal file works great! thanks! I have on issue though after running it a few times in a row it locks up my UG screen. Anybody know how to resolve that?
  14. mnash60

    Need help with VB Creating Incremental

    yes and it continued to overwrite. I can attach the whole script.http://files.engineering.com/getfile.aspx?folder=4bd85acc-e3ab-409c-b570-45e331ecacfc&file=image_jpg_save.vb
  15. mnash60

    Need help with VB Creating Incremental

    I have a vb script that creates a image file of the screen. But when I run the script it rewrites the file. What I would like to do is create a new file and add a incremental digit at the end. I have been trying for weeks with no dice. Is there anyone out there that can help?
  16. mnash60

    Create a auto save of the info window to a text file

    I need some assistance completing this journal file that saves the info txt file to the working folder. attached is the code i have so far. Option Strict Off Imports System Imports NXOpen Imports NXOpen.UF Module Module1 Sub Main() Dim theSession As Session =...
  17. mnash60

    vb step translator- issues on translating layer 0

    I have this journal file that translates parts to step. but when i try to translate an assemble file with surfaces in it and on layer 0 they do not show. Can someone help! Below is the code i have so far. 'Purpose: automate STEP export of the following entities: 'Layer 1 - Solids 'Layer 4 -...
  18. mnash60

    Already Existing file - Create file with increment (1)

    I have a journal file creates an image with a unique file name. I what I want to do is when the journal file is ran for the 2nd time I need the file name to create a (1) and increments (2) (3) and so one. Below is the code I have been working with if i could get some help, I would greatly...
  19. mnash60

    Help!!!! Trying to create a vb for printing a BOM

    I have a need to export a BOM from the Assembly Navigator. I currently export in to a browser and print from there. I would like to control some of those clicks by a journal file. At least the Expand all and export to browser. I there any assistance out there that can help?
  20. mnash60

    Journal/VB Point xyz Points to txt file??????????????

    ...'attribute does not exist arcName = "<no 'NM' attribute>" End Try lw.WriteLine(arcName & "," & arcObject.Radius) next lw.Close End Sub '************************************************************************************************** 'function taken from GTAC example Function...

Part and Inventory Search

Back
Top