<CommandMethod("ReconfigurerLayoutsToPDF")> _
Public Sub ReconfigurerLayoutsToPDF()
Dim acAppComObj As AcadApplication
Dim strProgId As String = "AutoCAD.Application"
On Error Resume Next
' Получаем текущий процесс Автокада для текущего чертежа!
acAppComObj = GetObject(, strProgId)
' Если в результате соединения с Автокадом произошла ошибка, тогда пытаемся подключить новый объект
On Error Resume Next
acAppComObj = CreateObject(strProgId)
Msgbox "Увы, ничего не произойдет!"
Exit Sub
End If
Exit Sub
End If
Dim acDocComObj As AcadDocument
acDocComObj = acAppComObj.ActiveDocument
...
' Здесь процедура перенастраивания с физических принтеров на принтер PDF
Dim i as Long
For i = 0 To acDocComObj.Layouts.Count - 1
Select Case acDocComObj.Layouts.Item(i).Name
Case Is <> "Model", "Модель"
' Здесь большой код и т.д.
End Select
Next i
...
End Sub