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

使用iLogic将工程图转为PDF时字体被替换

3 条回复3
已解决
回复
1 条消息(共 4 条)
taiyixvjing
201 次查看, 3 条回复

使用iLogic将工程图转为PDF时字体被替换

我写了段程序 通过inventor2024中 使用软件自带的PDF文件导出功能  将工程图转为PDF。但是会字体被替换。请问有什么好的方式解决吗?(可以将字体内嵌到pdf中,或者可以指定用哪款字体进行替换)

标签 (1)
3 条回复3
2 条消息(共 4 条)
chenj
回复: taiyixvjing

有两个方法:

1、修改工程图模板中的字体,使用Windows常用字体(如:宋体等)

2、使用系统自带的“Microsoft Print to PDF”打印机,将工程图打印成PDF,可参考附件代码。

标记 (1)
3 条消息(共 4 条)
taiyixvjing
回复: chenj

感谢大佬提供的思路,已下是修改好的程序,有需要的同志可以参考下

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

 

 

4 条消息(共 4 条)

@taiyixvjing 您好!很高兴您的问题已解决,感谢您分享修改好的程序!

也感谢 @chenj 老师的指导,为解决问题提供了思路!





Lynn Zhang
Community Manager


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

到论坛发帖  

”