打印NanoCAD DWG文件到PDF

Question

我想打印从Excel到PDF的DWG文件。对于AutoCAD有很多帮助，但对于NanoCAD却很少或根本没有帮助。我尝试使用等效的函数，但结果是错误的。

关于我所探索的东西的一些背景。

1. 在DWG2PDF.pc3中创建的打印配置NanoCAd和以下代码： Dim NCAD作为nanocad.Application Dim作为nanocad.Document Dim作为字符串Dim结果结果为字符串pth = ThisWorkbook.Path Set NCAD =GetObject(“GetObject”，"nanoCAD.Application") NCAD.Visible = True Set ndg = NCAD.Documents.Open(pth &“\Title\Title-OPA01.dwg”) ndg.ActiveLayout.ConfigName = "DWG2PDF.pc3“结果= ndg.Plot.PlotToFile(pth & "\Output\op.pdf")

我使用了为autoCAD专业版本指定的命令，而不是LT。在AutoCAD LT中有我能适应NanoCAD的解决办法吗？

1. 第二次试用通过Acrobat的打印功能，窗口要求打印为PDF。从互联网上得到了呼叫Shell命令的帮助。我使用了如下代码。 调用Shell ("C:\Program \Acrobat 8.0\Acrobat\Acrobat.exe /p/h“& pth &”typicals\Title-OPA01.dwg“)

注意:我将NanoCAD、Acrobat的类型库引用到VBA项目中。

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文件的免费程序。

为了你的目的，试着修改这个基本代码拜