AnsweredAssumed Answered

Macro to change all dimension color in the active document (drawing)

Question asked by Janos Gyerman on Jan 19, 2017
Latest reply on Jan 19, 2017 by Janos Gyerman
  • Comment • 12

Hi everyone,

 

Could anyone help me with this?

I have to update old drawings and I would minimize repeating tasks - time, so I thought I would record the following macros:

 

1. open an old drawing and change the old GREY color to BLACK for all dimensions. So I hit record macro, then filter dimensions then ctrl+A to select all , and finally changed the color to black. Stop macro and save.

If I open a different drawing (diff. name) the saved macro does not seem to work properly, I checked the coding and it used the name of the last models name (drawing number), so I am looking for some solution if it is possible to select all dimension in the active sheet, and not in a specific file name.

 

I have also a similar need for inserting a view (current view or pre-saved view), for a drawing using its reference model. here was the same, after hitting the macro (recorded for this operation too),it inserts the current view for that previous model where the macro was recorded, and not in the current active drawing.

 

Many thanks if anyone can help!!!

Regards

Janos

Deepak Gupta
Deepak Gupta Jan 19, 2017 10:07 AM
Correct Answer

Try these codes. The macro would insert the current view of the model referenced by first view on the active sheet. The view would be inserted on sheet named Blatt1 and in the center of the sheet. Also if the current sheet doesn't have any view then macro would throw error but again, this can be changed to a warning message telling user that no view on the current sheet.

 

Option Explicit
    Dim swApp                      As SldWorks.SldWorks
    Dim swModel                    As SldWorks.ModelDoc2
    Dim swView                      As SldWorks.View
    Dim swDrawModel                As SldWorks.ModelDoc2
    Dim swSheet                    As SldWorks.Sheet
    Dim sheetProperties            As Variant

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swView = swModel.GetFirstView
    Set swView = swView.GetNextView
    Set swDrawModel = swView.ReferencedDocument
   
    swModel.ActivateSheet "Blatt1" 'Change Sheet name here
    Set swSheet = swModel.GetCurrentSheet
    sheetProperties = swSheet.GetProperties
    swModel.CreateDrawViewFromModelView3 swDrawModel.GetPathName, "Current Model View", sheetProperties(5) / 2, sheetProperties(6) / 2, 0

End Sub
See the reply in context
No one else had this question

Outcomes