Функция autocad vba plottofile не работает в Autocad 2012 - PullRequest
Новая
       82

Функция autocad vba plottofile не работает в Autocad 2012

0 голосов
/ 08 октября 2018

Этот код написан в Excel VBA.Итак, мой код работает с AutoCAD 2016, но когда я пробую его на другом компьютере с Autocad 2012, код больше не работает.Когда я запускаю код в Autocad 2012, он проходит без ошибок, но в строке сюжета AutoCAD не отображает мою часть.Я изменил ссылки с 2016 года на 2012 год. 

Sub ACADTOPDF2(DWGFilePath As String, PDFFilePath As String)


Dim NewFile         As Object
Dim ACAD            As AcadApplication
Dim test            As Boolean

'Set ACAD = New AcadApplication
On Error Resume Next
'Check if AutoCad is running
'If is not running error
Set ACAD = GetObject(, "AutoCAD.Application")
If Err Then
'Start AutoCAD
Set ACAD = CreateObject("AutoCAD.Application")
Err.Clear
End If
ACAD.Visible = True
ACAD.Documents.Open (DWGFilePath)
ACAD.ActiveDocument.ActiveLayout.ConfigName = "DWG To PDF.pc3"
ACAD.ActiveDocument.ActiveLayout.CanonicalMediaName = "UserDefinedImperial(20.00 x 16.80Inches)"
ACAD.ActiveDocument.ActiveLayout.CenterPlot = True
ACAD.ActiveDocument.ActiveLayout.StandardScale = acScaleToFit
ACAD.ActiveDocument.ActiveLayout.PlotType = acExtents
ACAD.ActiveDocument.ActiveLayout.PlotRotation = ac0degrees
ACAD.ActiveDocument.ActiveLayout.StyleSheet = "monochrome.ctb"
ACAD.ActiveDocument.Plot.PlotToFile PDFFilePath
'ACAD.ActiveDocument.Close False
End Sub
...