Save as PDF problem.

[hemmer]

Hello,

I have been asked to save some catdrawings as PDF files for export. I have opened said catdrawings and using save management saved the catdrawings as filetype PDF.

This seems to work well, however upon closer scrutiny of the PDF's I have noticed 2 faults.

1: Geometrical tolerance symbols are not displayed - instead they are shown as letters.

2: The drawing sheet does not sit centrally within the PDF sheet and as such the bottom edge of the drawing frame is lost.

Does anybody know how I can get around these problems? Does V5 have any control over how the PDF's are created?

I would be very grateful if anyone can shed any light for me....

 

[solid7]

Yes, I'd be interested also. This has been a problem as long as I can remember.


For me, the placement of SOME characters seems to move, while other, identical characters, do not. There seems to be no logic at all for the deviances, and the instances are totally random. However, they are consistent with each save. My only workaround, as bad as it may be, has been to use "trial and error." to fudge the placement, without saving the original CATDrawing.




**************
Check out CATBlog!

 

[opse0]

Try and create PDF from the Adobe application, & select the .catdwg file.
Let us know if it works.

 

[solid7]

Are you assuming tht we have Acrobat with write privileges?




**************
Check out CATBlog!

 

[Darrude]

Have you tried saving the file as an image. >Tools>Image>Capture then click on the Vector mode (further right icon on "Image" submenu), then save as type PDF. This worked for me.

Regards,

Darren

 

[ferdo]

Hi,

I've created following macro. It works under Windows in CATVBAproject. Be careful that in Temp folder to be placed only CATDrawings without any links.

Sub CATMain()

Set documents1 = CATIA.Documents

nume = "C:\temp\*.*"
MyFile = Dir(nume)
MyFile1 = "C:\temp\" & MyFile
While MyFile <> ""

documents1.Open (MyFile1)
Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Set specsAndGeomWindow1 = CATIA.ActiveWindow

MyFile = Dir

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim win1 As String

Dim product1 As Product
win1 = CATIA.ActiveWindow.name
win2 = Split(win1, ".")
win1 = win2(0)
win1 = "C:\temp\" & win1 & ".pdf"

drawingDocument1.ExportData win1, "pdf"


CATIA.ActiveDocument.Close

MyFile1 = "C:\temp\" & MyFile
Wend



End Sub


Regards
Fernando

 

[solid7]

Is your macro tested, and does it eliminate the problem that was listed in the beginning of the post?




**************
Check out CATBlog!

 

[ferdo]

Hi,

For me it was OK in r12sp4. I'm expecting some feedbacks from other users but I don't know if I will have time to make some other improvements because I have to "switch" again on v4 (a never ending story).



Regards
Fernando

 

[solid7]

Can you please document the differences in functionality between the available "save as" pdf, and the new script?

What is the advantage, and how does it work?

Thank you.




**************
Check out CATBlog!

 

[ferdo]

Hi,

The advantage is that you can work in batch mode (maybe you have to save like pdf few hundreds drawings).

You have to put whole drawings in the same directory (which in this case is Temp on hard drive C) and nothing else (other wise an error will appear). As I said, the drawing should be without links (a message will appear and the macro will be stoped, I know how to inhibit the message but I didn't have time to test the new macro "version").

In the same way you can transform CATDrawings in dxf, dwg, igs a.s.o only by replacing pdf with what you want to create.

The pdf files (or what you want) will be saved in the same directory.


Regards
Fernando

 

[solid7]

Have you been to the website that I started? (see sig file)

If you have not, maybe you would like to check it out, and consider joining and contributing?

One of the things that the members have asked for the most so far, has been scripting. We could certainly use your help.

Take care




**************
Check out CATBlog!