Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations KootK 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: *

  • Users: JrJBS
  • Order by date
  1. JrJBS

    Set text color Drafting Macro

    Great, much better! I didn't find the way of putting the variable in the following code... selection1.Search "CATDrwSearch.DrwText.TextString= ____ " Actually, I have to put a string followed by the variable, anyway... now works perfectly. Thank you very much Berto.
  2. JrJBS

    Set text color Drafting Macro

    Thank you for answering but I have the same problem... What I'm trying to do is put in red only the word I've just written. Sub InsertText() Set MyDrawingDoc = CATIA.ActiveDocument Set MyDrawingSheets = MyDrawingDoc.Sheets Set MyDrawingSheet = MyDrawingSheets.ActiveSheet Dim...
  3. JrJBS

    Set text color Drafting Macro

    Hello all, I'm trying to set the red color on a text I have added with the following code taken from VBA help: Property Color( ) As long Returns or sets the color of the drawing text. Example: This example sets the Color type of the MyText drawing text to red redCol =-16776961...
  4. JrJBS

    Macro which run a submacro in all drawings I have in a specific folder

    Hello, thanks for the replies! I fixed the problem with the following code: For i = 1 To filefolder.Files.Count Dim IFile Set IFile = filefolder.Files.Item(i) If InStr(IFile.Name, ".CATDrawing") <> 0 Then Dim Doc Set Doc = CATIA.Documents.Open(IFile.Path) Set PartDocument1 =...
  5. JrJBS

    Macro which run a submacro in all drawings I have in a specific folder

    Hello all, I'm trying to create a macro which run a sub macro in all drawings I have in a specific folder, opening all drawings I have, running the submacro and closing them with the following code: For Each MyFile In MyFiles If MyFile.Type = "CATIA Drawing" Then MyFile.Open 'ERROR...

Part and Inventory Search