Hallo
Ik heb een probleem met mijn macro en met de export (Opslaan als...) in PDF van mijn tekeningen die lassymbolen bevatten: de onderbroken lijn gaat naar Continu, zoals in de afbeelding.
Als ik het bestand in PDF afdruk, met Microsoft naar PDF of Adobe PDF heb ik het probleem niet.
Heeft u een oplossing?
Hieronder is mijn macro.
Dim swApp als SldWorks.SldWorks
Dim swModel als ModelDoc2
Dim lErrors zo lang
Dim lWaarschuwingen zo lang mogelijk
Sub hoofd()
Stel swApp = Toepassing.SldWorks in
Stel swModel = swApp.ActiveDoc in
PathName = UCase(swModel.GetPathName)
FilePath = Links(PathName, InStrRev(PathName, "\"))
FileTyp = swModel.GetType
'MsgBox (FileTyp)
Selecteer Case FileTyp
Behuizing swDocDRAWING
swModel.Extension.SaveAs FilePath & GetFilename(swModel.GetPathName) & "-" & swModel.CustomInfo2("", "Revision") & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, lErrors, lWarnings
swDocASSEMBLY doos
swModel.Extension.SaveAs FilePath & GetFilename(swModel.GetPathName) & "-Assy-" & swModel.CustomInfo2("", "Revision") & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, lErrors, lWarnings
swDocPART doos
swModel.Extension.SaveAs FilePath & GetFilename(swModel.GetPathName) & "-Part-" & swModel.CustomInfo2("", "Revision") & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, lErrors, lWarnings
Geval anders
swModel.Extension.SaveAs FilePath & GetFilename(swModel.GetPathName) & "-" & swModel.CustomInfo2("", "Revision") & ".pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, Nothing, lErrors, lWarnings
Einde selecteren
MsgBox ("De PDF is gegenereerd en zou automatisch moeten openen. Fijne dag!")
Einde Sub
Functie GetFilename(strPath As String) Als String
Dim strTemp als snaar
strTemp = Mid$(strPath, InStrRev(strPath, "\") + 1)
GetFilename = Left$(strTemp, InStrRev(strTemp, ".") - 1)
Functie beëindigen
Bij voorbaat dank!
symbole_soudure.jpg