edit sheet to edit sheet format macro?
edit sheet to edit sheet format macro?
(OP)
I want a macro to toggle between edit sheet and edit sheet format. I have been able to get one to go from edit sheet to edit sheet format, and another to go from edit sheet format to edit sheet. What I really want is one that will toggle to the other no matter which one I am in. I tried combining the two, but must be missing something. Anyone have any ideas?
Thanks
Thanks






RE: edit sheet to edit sheet format macro?
If I might ask???????
How is this macro going to be easier (or faster) to use than a simple right-click on the drawing backgound.
Remember...
"If you don't use your head,
your going to have to use your feet."
RE: edit sheet to edit sheet format macro?
Remember...
"If you don't use your head,
your going to have to use your feet."
RE: edit sheet to edit sheet format macro?
RE: edit sheet to edit sheet format macro?
Remember...
"If you don't use your head,
your going to have to use your feet."
RE: edit sheet to edit sheet format macro?
RE: edit sheet to edit sheet format macro?
Option Explicit
' *********************************************
' Edit Sheet/Sheet Format Toggle
' *********************************************
Dim swApp As Object
Dim DwgDoc As Object
Dim retval As Boolean
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set DwgDoc = swApp.ActiveDoc
retval = DwgDoc.GetEditSheet()
'True if currently editting sheet, False if currently editting template
If retval = True Then
DwgDoc.EditTemplate
Else
DwgDoc.EditSheet
End If
Set DwgDoc = Nothing
Set swApp = Nothing
End Sub
Remember...
"If you don't use your head,
your going to have to use your feet."