社区
Inventor 产品技术应用讨论区
欢迎访问欧特克Inventor论坛!分享知识,发帖提问,浏览Inventor热帖
取消
显示结果 
显示  仅  | 搜索替代 
您的意思是: 

H2 Export to PDF 【工程图导出PDF】

4 条回复4
已解决
回复
1 条消息(共 5 条)
lucas_zhang_82
531 次查看, 4 条回复

H2 Export to PDF 【工程图导出PDF】

Inventot 原版的pdf导出,如果有特殊字体时,就会导致导出失败,有时字体被替换,有时甚至干脆无图无文字。

4 条回复4
2 条消息(共 5 条)

使用本插件,可将页面以图片的方式导出到pdf,无论什么字体都能无错误导出,缺点是以图片形式后,无法选择或更改文字,介意者慎用;
插件使用了原程序导出的设置和方法,用原程序的导出即可,且支持后续二开(如批量导出等),建议导出分辨率为600dpi;

 

友情链接:https://www.pmhker.com/article/82.html

 

参考视频如下:

 

3 条消息(共 5 条)

感谢卢卡斯老师的又一实用分享!





Lynn Zhang
Community Manager


4 条消息(共 5 条)

我也遇到同样的问题,目前通过调用虚拟打印机“Microsoft Print to PDF” 来实行,希望对你有所帮助。

Sub Main()
    ' 检查当前文档是否为工程图文档
    If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then
        MsgBox("This is not a drawing document.")
        Exit Sub
    End If

    Dim oDoc As DrawingDocument
    oDoc = ThisApplication.ActiveDocument

    Dim oPrintMgr As PrintManager
    oPrintMgr = oDoc.PrintManager

    ' 设置打印机为Microsoft Print to PDF
    oPrintMgr.Printer = "Microsoft Print to PDF"

    ' 设置打印范围为所有图纸
    oPrintMgr.PrintRange = kPrintAllSheets

    ' 设置比例为最佳比例
    oPrintMgr.ScaleMode = kPrintBestFitScale

    ' 不使用全黑打印
    oPrintMgr.AllColorsAsBlack = False

    ' 构建PDF文件的完整路径
    Dim strPDFFileName As String
    strPDFFileName = ThisDoc.PathAndFileName(False) & ".pdf"
    ' 提交打印任务
    oPrintMgr.PrintToFile(strPDFFileName)
End Sub
5 条消息(共 5 条)

是的,我知道虚拟打印机可以解决这个问题,但是吧,不一定每个电脑都有虚拟打印机,不是每个电脑的虚拟打印机名称是所需要的名称,很难有通用性,当然,自己用,肯定是没有问题的

找不到想要的内容?向社区提问或分享您的知识。

到论坛发帖  

”