iLogic, save .idw sheet as PDF

[Anonymous]

Hi

We have this small code running in Inventor which auto saves a PDF copy of all .idw files when we save them.

But something is wrong and it comes with an Error message

“Argument ”Length” has to be equal or lager then 0”

Code looks like this

WorkspacePath = ThisDoc.WorkspacePath()

WorkspacePathLength = Len(WorkspacePath)

PathOnly = ThisDoc.Path

DirectoryPath = Strings.Right(PathOnly, PathOnly.Length-WorkspacePathLength)

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)

[chandra.shekar.g]

@Anonymous,

Try this,

DirectoryPath = Strings.Right(PathOnly, Len(PathOnly) - WorkspacePathLength)

Thanks and regards,

[Anonymous]

This changes nothing.. Still same Error message

[chandra.shekar.g]

@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,