AnsweredAssumed Answered

Macro doesn't do what was recorded

Question asked by Brian Holmbeck on Apr 12, 2019
Latest reply on Apr 12, 2019 by Josh Brady

The Back story: Our drawing's part number in the title block is linked to $PRP:"SW-File Name". The file names are all UPPERCASE. I've recently discovered if I double-click a drawing in PDM to open it, the part number fills in all LOWERCASE. That led me to find out the part number note does not have the "All uppercase" box checked. Rather than manually fix each drawing I thought I'd record a simple macro to do it.

 

The Problem: I did Record Macro, Edit Sheet Format, picked the note, checked the All uppercase box, close note dialog (green check mark), close Edit Sheet Format, Stop macro, and named it. I closed and reopened the drawing and ran the macro. It did Edit Sheet Format and closed the Edit Sheet Format, but did NOT check the All uppercase box. Below is the macro text that it recorded. It is not edited in any way. Why did SW miss that in the macro?

 

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Sheet Format1", "SHEET", 0, 0, 0, False, 0, Nothing, 0)
Part.EditTemplate
Part.EditSketch
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("DetailItem90@Sheet Format1", "NOTE", 0.814613506104877, 2.97813064109662E-02, 0, False, 0, Nothing, 0)
Part.EditSheet
Part.EditSketch
Part.ClearSelection2 True
End Sub

Outcomes