AnsweredAssumed Answered

Border Replace macro

Question asked by Wayne Estes on Jun 3, 2014
Latest reply on Jun 3, 2014 by Jerry Steiger

Trying to set up a macro to replace an exsiting border with an updated version. I recordered this macro and when I run it the existing border stays and new one overlays on top of it. It also changes the sheet name to sheet5 as that was the page I was on when I created the macro. This is my first attempt to create a macro.


What I would like it to do is run the macro and have it replace all border pages in a drawing with the new one, "carco b-size".


Then how do I make an icon or set the macro to a hot key?


Thanks for any help.



Sub main()

Set swApp = _

Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("Sheet5", "SHEET", 0.320689709179794, 0.103595823088456, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.SetupSheet5("Sheet5", 12, 12, 1, 24, False, "l:\solidworks templates\carco b-size.slddrt", 0.4318, 0.2794, "Default", False)
End Sub