将 NanoCAD DWG 文件打印为 PDF

Question

我想将 DWG 文件从 Excel VBA 打印成 PDF。对 AutoCAD 有很多帮助，但对 NanoCAD 的帮助很少或 none。我尝试使用等效函数，但结果出错。

我所探索的一些背景知识。

在 NanoCAd 中创建的打印配置 DWG2PDF.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 的解决方法？

第二次试用 Acrobat 的打印功能，windows 要求打印为 PDF。从 Internet 获得有关调用 Shell 命令的帮助。我使用了一些代码如下。

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

注：我在VBA项目中引用了NanoCAD、Acrobat的类型库

Answer 1

对我使用这个作品：

Public Sub test()
Dim NCAD
Dim ndg
Dim pth As String
Dim result As String

pth = "C:\Users\Cci\Desktop\TMP\"
Set NCAD = GetObject("", "nanoCAD.Application")
NCAD.Visible = True

Set ndg = NCAD.Documents.Open(pth & "BASE CAVALLETTO.dwg")

'setup plot
    ndg.ActiveLayout.RefreshPlotDeviceInfo
    ndg.ActiveLayout.ConfigName = "doPDF 10"
    ndg.ActiveLayout.PlotRotation = ac0degrees
    ndg.ActiveLayout.StyleSheet = "monochrome.ctb"
    ndg.ActiveLayout.PlotWithPlotStyles = True
    ndg.ActiveLayout.PlotViewportBorders = False
    ndg.ActiveLayout.PlotViewportsFirst = True
    ndg.ActiveLayout.CanonicalMediaName = "A3"
    ndg.ActiveLayout.PaperUnits = acMillimeters
    ndg.ActiveLayout.StandardScale = acScaleToFit
    ndg.ActiveLayout.ShowPlotStyles = False
    ndg.ActiveLayout.CenterPlot = True
    ndg.Plot.NumberOfCopies = 1

result = ndg.Plot.PlotToDevice

End Sub

doPDF 10 是一个模拟打印机并制作 pdf 文件的免费程序。

尝试根据您的需要调整此基本代码再见

将 NanoCAD DWG 文件打印为 PDF

Print NanoCAD DWG files to PDF

excel

vba

pdf

cad

dwg