Hi all,
Trying to learn how to program PDM Professional to do some custom tasks. I have a bit of experience with programming (primarily in C# and C++) but am having trouble figuring out how to even get started with PDM tasks. Hoping someone here can point me in the right direction for some resources to get me started, or if you have a similar task you might be able to share snippets of. I believe the easiest way is to use a VB script withing the Solidworks Add In tool. Broadly what I want to do is to select a bulk batch of parts, save any drawing as a PDF and any sheet metal part as a DXF of the flat pattern. Assemblies and parts with no sheet metal features don't have to do anything.
I've written basic pseudo code of what I want to do:
Open File Type = get file type Name = get file name Revision = get file revision Recipient = get recipient Date = get date VaultPath = get vault path SavePath = VaultPath + "/Document Transmittals/" + Recipient + "/" + Date + "/" SaveName = FileName + "-" + FileRevision if Type = drawing if SavePath+Savename + ".pdf" does not exist save PDF as SavePath + SaveName elseif Type = part if SavePath+Savename + ".dxf" does not exist if sheetmetal save flatpattern DXF as SavePath+SaveName close file
Any help would be greatly appreciated.
Thanks,
Tom.
I've been doing some digging for the last few hours and this is what I have so far:
Option Explicit Dim swApp As SldWorks.SldWorks Sub main() Dim swModel As SldWorks.ModelDoc2 Dim vConfNameArr As Variant Dim vConfName As Variant Dim bShowConfig As Boolean Dim bRebuild As Boolean Dim bRet As Boolean Dim swDocSpecification As SldWorks.DocumentSpecification Dim Errors As Long Dim Warning As Long Dim fileType As Long fileType = swModel.GetType Dim fileName As String fileName = swModel.GetPathName().Remove(0, swModel.GetPathName().LastIndexOf("\") + 1) Dim fileRevision As String swCustPropMgr.Get3 "Revision", True, fileRevision, Empty Dim fileRecipient As String fileRecipient = {Recipient} Dim varDate As Date varDate = Date.Now() Dim fileDate As String fileDate = regDate.ToString("yyyy_MM_dd") Dim vaultPath As String vaultPath = Dim savePath As String savePath = vaultPath & "/Document Transmittals/" & fileRecipient & "/" & fileDate & "/" Dim saveName As String saveName = fileName & "-" & fileRevision If fileType = SwConst.swDocDRAWING then swModel.Extension.SaveAs savePath & saveName & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, Errors, Warnings Elseif fileType = SwConst.swDocPart then SAVE AS DXF End If End SubStill need to figure out a path for the vault and how to check if a part has sheet metal features and if it does make a DXF.
Thanks,
Tom.