Update Drawing Template Properties Globaly.

Well, I think you can do that with the solidworks task scheduler - you can find it in START>PROGRAS>SOLIDWORKS>TOOLS but only if you have a pdm licsense.

Other wise a macro can be written to solve that problem but that is a question for a mike to answer.

Good luck. Ron.

In SW2007 I don't know if it works in SW2008 as I don't use it.

You can edit the sheet format and save it as a drawing template using a .slddrt file extension. select Sheet Formats as the file type.

Otherwise I did not understand your question.

Thanks,

I guess I was looking for a way to update a bunch of drawings at once... rather than open and reload each one.

-Mark

You would have to open each one and resave it.

There are some tools from SW, but they all fail miserable.

You need a macro, I can paste mine later (I found the pieces on this newgroup and putted it together)

I made so I could have some people assist me doing it in weekends etc. But also have in mind that my API skills are limited and the code could probably be written much simpler.

What I found out converting hundreds of thousands files was that you cant run more than ~100 parts / small assemblies. The bigger ones really depends on how much memory they take up, as the macro dosnt restart SW between each it fills up.

Option Explicit

Private Sub cmdCancel_Click() End End Sub

Private Sub cmdOpdater_Click()

Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.PartDoc 'SldWorks.PartDoc / SldWorks.DrawingDoc / SldWorks.AssemblyDoc Dim ReturnVal As Long Dim Response As String Dim DocName As String Dim Success As Boolean Dim DocType As String Dim swUpper As String Dim swDocTypeLong As Long Dim nErrors As Long Dim nWarnings As Long

' *********** YOU MAY HAVE TO CHANGE THIS *********** ' change the following constant to target a directory Const workDir = "W:\TEMP2008\" ' *********** YOU MAY HAVE TO CHANGE THIS *********** ' change the following constant to target a type of file Const swDocType = ".SLDPRT" ' I am only want to open drawing files ' the following constants are used in the OpenDoc2() function 'Const swDocNONE = 0 'Const swDocPART = 1 'Const swDocASSEMBLY = 2 'Const swDocDRAWING = 3 Const readOnly = 0 ' 0-false 1-true Const viewOnly = 0 ' 0-false 1-true Const silent = 1 ' 0-false 1-true ' the following constants are used in the ' SetUserPreferenceDoubleValue() function

' start of main program Set swApp = Application.SldWorks swApp.Visible = True ChDir (workDir) Response = Dir(workDir) Do Until Response = "" ' see if filename ends with .SLDDRW swUpper = UCase$(Response) If Right(swUpper, 7) = swDocType Then

' open the SolidWorks file If UCase$(swDocType) = ".SLDPRT" Then swDocTypeLong = swDocPART ElseIf UCase$(swDocType) = ".SLDASM" Then swDocTypeLong = swDocASSEMBLY ElseIf UCase$(swDocType) = ".SLDDRW" Then swDocTypeLong = swDocDRAWING Else Stop 'Error Occured End If

Dim swName As String swName = workDir & Response

Set swModel = swApp.OpenDoc6(swName, swDocTypeLong, swOpenDocOptions_e.swOpenDocOptions_Silent, "", nErrors, nWarnings)

'readOnly, viewOnly, silent, ReturnVal)

'Response, swDocTypeLong,

' add your own code here to do ' whatever you want to the part file

' close the part DoEvents

swModel.ForceRebuild3 False

DocName = swModel.GetTitle ReturnVal = swModel.Save2(silent)

swApp.CloseDoc DocName Set swModel = Nothing

End If

' get the next filename

Response = Dir Loop

Set swApp = Nothing End Sub

Private Sub txt1_Change()

txt1.Locked = True txt1.Enabled = False

End Sub

Private Sub UserForm_Initialize()

txt1.Text = "W:\TEMP2008\" txt1.Enabled = False txt1.Locked = True txt1.BackColor = RGB(212, 208, 200) End Sub