CAD Forum

G'Day
I use a macro to insert a new custom size sheet in a Solidworks 2019 drawing. (I have created a custom template "TAG_MW_Single_View".) The macro work well and it sets all properties as required. The only thing missing is to deselect "Display sheet format". I have recorded macro when I do it manually and the code for that is:

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
boolstatus = Part.SetupSheet5("MW Sheet", 12, 12, 1, 20, False, "C:\SWDVault\Engineering\Z00 -
Solidworks\sheetformat\TAG_MW_Single_View.slddrt", 0.42, 0.297, "Default", False)
End Sub

The "Part.ClearSelection2 True" is the code that clears the box, but if I use it in my code it does not work.

I have also tried "swDraw.SheetFormatVisible = False" and that use to work but for some reason it is not working anymore. I must have changed some code somewhere else.

Regards
Jaco

#SPerman - I have tried it before and it use to work, but for some reason it is not working now. This is my code:

In a similar case, how do I set "Display all configuration of the same part as one item" as "Part configuration Grouping" with VBA code?

Hi @RonE

Do you have some wisdom about this issue? It should be very similar to the problem you solved earlier - I am just not skilled enough to connect the dots.

Regards

Jaco

You need to get the current sheet, and then turn off the sheet format visibility.

Try

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim currentsheet As Sheet
Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

boolstatus = Part.SetupSheet5("MW Sheet", 12, 12, 1, 20, False, "C:\SWDVault\Engineering\Z00 - Solidworks\sheetformat\TAG_MW_Single_View.slddrt", 0.42, 0.297, "Default", False)

Set currentsheet = swModel.GetCurrentSheet
currentsheet.SheetFormatVisible = False

End Sub

Thanks @gupta9665 . It is now working fine.