Excel VBA将NanoCAD DWG文件打印为PDF

我一直在寻找打印DWG文件从Excel VBA到PDF的选项。 它是我使用的另一个程序的一部分。 对于AutoCAD有很多帮助，但对于NanoCAD来说很less或没有。 我尝试使用等效函数来打印，但结果是错误的。 有人能帮我修复代码吗？ 关于我所探索的一点背景。

  1. 在NanoCAd中创build打印configurationDWG2PDF.pc3，并尝试打印以下代码： 

    Dim NCAD As nanocad.Application Dim ndg As nanocad.Document Dim pth As String Dim result As String pth = ThisWorkbook.Path Set NCAD = GetObject("", "nanoCAD.Application") NCAD.Visible = True Set ndg = NCAD.Documents.Open(pth & "\typicals\Title-OPA01.dwg") ndg.ActiveLayout.ConfigName = "DWG2PDF.pc3" result = ndg.Plot.PlotToFile(pth & "\Output\op.pdf")

但是，上面的代码没有工作。 难道是因为我使用了autoCAD专业版而不是LT的指令？ 在AutoCAD LT中是否有解决方法，我可以适应NanoCAD？

  1. 通过Windows打印到PDF的Acrobat的打印function第二次审判。 从互联网上获得了有关调用shell命令的代码的帮助。 我用下面的代码，但没有运气。 

     call Shell ("C:\Program Files\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe /p/h" & pth & "\typicals\Title-OPA01.dwg")

任何人可以帮我一个解决方法的代码。 注意：我已经将NanoCAD，Acrobat的types库引入了VBA项目。

Interesting Posts