06-21-2019
04:29 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-21-2019
04:29 AM
@Anonymous,
Try this. Can you please provide sample path of WorkspacePath and ThisDoc.Path.
WorkspacePath = ThisDoc.WorkspacePath()
WorkspacePathLength = Len(WorkspacePath)
PathOnly = ThisDoc.Path
Pathlength = Len(PathOnly)
If Pathlength > WorkspacePathLength Then
DirectoryPath = Strings.Right(PathOnly, Pathlength - WorkspacePathLength)
Else
DirectoryPath = Strings.Right(PathOnly, WorkspacePathLength - Pathlength)
End If
PDFPath = "\\sbs 2011\files\Z\Tegninger PDF"
If(Not System.IO.Directory.Exists(PDFPath)) Then
System.IO.Directory.CreateDirectory(PDFPath)
End If
ThisDoc.Document.SaveAs(PDFPath & "\" & ThisDoc.FileName(False) & ".pdf" , True)
Thanks and regards,
CHANDRA SHEKAR G
Developer Advocate
Autodesk Developer Network
