05-29-2021
05:34 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-29-2021
05:34 AM
Thanks for your reply,
No, the drawings don't have any shadows. They contain only white and black lines.
It seems to me that the root of the problem is something related to updating the drawing document.
I recently did a test to check this fact. Firstly, I created a "Sub" called "UpdateTest" so as to update and save the drawing. Then, I executed it. After that, I executed another "Sub" in order to export the drawing to PDF through the API. Then, it worked. Any blurred view appeared in the exported PDF.
However, if I execute the "Sub Update", then the views will appear blurred after exporting PDF.
I cannot completely understand it, it should be something related to how my code is written and it is executed, because the resolution isn't the issue.
Test
Public Sub UpdateTest()
Dim oAsmDoc As DrawingDocument
Set oAsmDoc = ThisApplication.ActiveDocument
oAsmDoc.Update2 (True)
oAsmDoc.Save2 (True)
Dim oAsmDoc As DrawingDocument
Set oAsmDoc = ThisApplication.ActiveDocument
oAsmDoc.Update2 (True)
oAsmDoc.Save2 (True)
End Sub
Public Sub Update()
Dim oAsmDoc As DrawingDocument
Set oAsmDoc = ThisApplication.ActiveDocument
oAsmDoc.Update2 (True)
If oAsmDoc.Update2(True) = True Then
oAsmDoc.Save2 (True)
End If
'Call Sub Export PDF through API
ExportPDF
End Sub
Dim oAsmDoc As DrawingDocument
Set oAsmDoc = ThisApplication.ActiveDocument
oAsmDoc.Update2 (True)
If oAsmDoc.Update2(True) = True Then
oAsmDoc.Save2 (True)
End If
'Call Sub Export PDF through API
ExportPDF
End Sub