How to get custom property from drawing to use in filename?

You can do that with SWup(BB):

Thanks Markku. I tried SWup(BB) a couple of months ago, and I had some trouble with it.

Could you possibly tell me what code I could use to get the Revision custom prop from the drawing and add it to the end of the filename? Like I said, I have a macro that saves the file as a PDF, and it removes the "-Sheet" from the filename.

Was it the latest version 1.4? What kind of problem did you have?

You can read the property values with:

retval = ModelDoc2.GetCustomInfoValue ( configuration, FieldName )

replace configuration name with "" when working with drawings. Then just add it to the name you already have, like:

FinalPDFSaveName = NameWithoutSheetName & retval & ".pdf"

Yep, I tried the latest version. Its Saves as a PDF, but it wont add the property to the end of the file.

Can you take a look at this code please. I cant get the retval = to work correctly.

Sub main() Dim FileName As String Dim dotpos As Integer Dim slashpos As Integer Dim dashpos As Integer Dim retval As String

Set swApp = CreateObject("SldWorks.Application") Set Drawing = swApp.ActiveDoc

If Drawing Is Nothing Then MsgBox ("No document loaded") Exit Sub End If

If Drawing.GetType swDocDRAWING Then MsgBox ("This macro only works with drawings.") Exit Sub End If

retval = ModelDoc2.GetCustomInfoValue("", Revision)

FileName = Drawing.GetPathName If FileName = "" Then 'model is not saved yet FileName = Drawing.GetTitle dashpos = InStrRev(FileName, "-") 'find dash to remove sheet name from title i.e. " - sheet1" FileName = Mid(FileName, 1, dashpos - 2) Else dotpos = InStrRev(FileName, ".") slashpos = InStrRev(FileName, "\")

If dotpos 0 Then ' if contains a dot (extension exists) then chop off extension FileName = Mid(FileName, slashpos + 1, dotpos - slashpos - 1) Else 'does not contain a dot FileName = Right(FileName, Len(FileName) - slashpos) End If End If

Load UserForm1

'set the filter UserForm1.CommonDialog1.Filter = "All Files (*.*)|*.*|PDF Files (*.pdf)|*.pdf "

' Specify default filter. UserForm1.CommonDialog1.FilterIndex = 2

'Set the default file name UserForm1.CommonDialog1.FileName = "V:\Machinery\engineering\Temp\PDF\"

• FileName + "_" + retval 'FileName = "C:\xxx.DXF"

' Set CancelError is True UserForm1.CommonDialog1.CancelError = True

' CancelError is True. On Error GoTo ErrHandler

UserForm1.CommonDialog1.ShowSave

FileName = UserForm1.CommonDialog1.FileName Drawing.SaveAs3 FileName, swSaveAsCurrentVersion, swSaveAsOptions ErrHandler: ' User pressed Cancel button.

Unload UserForm1 Exit Sub

End Sub

Change retval = ModelDoc2.GetCustomInfoValue("", Revision)

-to- retval = Drawing.GetCustomInfoValue("", "Revision")

Ken

No problem here, works ok with SW05sp3.1...SWupBB is not working with SW06sp2.1 because there's a problem in SW API, but I guess that is not the version you are running?

(Tin Man got the code right)

Im running SW 2005, SP 3.1

My macro works correctly now after adding the

retval = Drawing.GetCustomInfoValue("", "Revision")

Thanks :)