CAD Forum

• All Title Text Resize - changes all titles in all views in a drawing file to a particular size
• Change Default Drawing Fonts - Change all annotations in a drawing to set sizes, good for switching fonts and sizes
• Change Dim Tolerances - Changes dimension tolerances for selected dimensions
• ChangeToolboxPartType with Dialogue - Self explanatory
• Rename all Views In Drawing - Cycle through all views and sequentially renumber them A-Z. This is good if you've
• deleted section views and added new ones
• Renumber Sheets - Renumbers all sheets in a drawing file based on a starting number you enter in a dialog
• Roll Back - Rolls the rollback bar up the feature tree and then back down. Needs modifying to be useful
• Sketch Color Change - Change sketch colors with a dialog
• Title Text Resize - Self explanatory
• Update Sheet Formats - Changes out the sheet formats for all sheets in a drawing file
• View Title Text - Adds the BOM Name to a View Title, if selected.

• Combine Identical Components - useful for BOMs that have multiple instances of a part. (Pre-selection required)

• Dynamic Highlight ON - Just what it says

• Multi-Body DXF - a massive masterpiece from Codestack that was modified by us. It will take an assembly or a multibody part file and save all the DXFs to a specified folder using a name based on cutlist properties (you can edit it).

• Profile Center Mate - Mates two selected faces/edges, sets distance at 0, locks rotation, and confirms.

• Reload all Sheet Formats -- reloads 'em all in a large drawing.

• Remove blanks in BOM -- Scans the second to left row in the selected BOM and hides/deletes any row with a blank value. (Needs a little work yet, but extremely powerful!)

• Save all sheets as PDF and close - Saves all sheets to a specified location, saves, and closes file. Great for those huge behemoths when you have to go pee while it's saving!

DONALT_95 wrote: ↑Wed May 25, 2022 3:42 am Hi Matt,

I am new to macros and tried to use your 'rename all views in drawing' macro, however when I attempt to run the macro I get a notification saying
"Run-time error'13': type mismatch" when I click debug it highlights this line "For i = 0 To UBound(vViews)"

If Not IsEmpty(vViews) Then
    For i = 0 To UBound(vViews)
        
        Dim swView As SldWorks.View
        
        Set swView = vViews(i)
        
        Select Case swView.Type
            Case swDrawingViewTypes_e.swDrawingSectionView
                Dim swSectionView As SldWorks.DrSection
                Set swSectionView = swView.GetSection
                Debug.Print swSectionView.GetLabel
                swSectionView.SetLabel2 GetNextName
            Case swDrawingViewTypes_e.swDrawingDetailView
                Dim swDetailedView As SldWorks.DetailCircle
                Set swDetailedView = swView.GetDetail
                Debug.Print swDetailedView.GetLabel
                swDetailedView.SetLabel GetNextName
        End Select
        
    Next
End If

mme wrote: ↑Tue Oct 24, 2023 9:42 am Open part or assemblies. Run the macro. Enter a new name. If there is a drawing, it will put the same name on the drawing.

Stefan Sterk wrote: ↑Thu Nov 02, 2023 4:35 am Hi @mme,
Sounds the same as this macro; https://www.codestack.net/solidworks-ap ... t-drawing/