• Вадим
  • Восстановленный участник
  • На форуме с 10 августа 2006г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Как программно распечатать чертеж?

Здравствуйте!
Помогите пожалуйста -
PlotToDevice [plotConfig]
как описывается строка "plotConfig"
Или как ее обойти через ACADPLOTCONFIGURATION
Спасибо.

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как программно распечатать чертеж?

На форуме подымался вопрос, как программно распечатать чертеж. Как я помню там почти одной строкой обошлись.

  • Alexander
  • Восстановленный участник
  • На форуме с 29 апреля 2003г.
  • Сообщений: 86
  • Спасибо: 0

Re: Как программно распечатать чертеж?

Настройка печати делается ПРИМЕРНО так:

    Set ObjLayout = ThisDrawing.Layouts.Item("Model")
    With ObjLayout
      .RefreshPlotDeviceInfo
      .ConfigName = Printer
      .RefreshPlotDeviceInfo
      .CanonicalMediaName = Paper
      .PlotOrigin = s
      .PaperUnits = acMillimeters
      .PlotType = acExtents
      .PlotRotation = ac0degrees
      .StandardScale = acVpScaleToFit
      .RefreshPlotDeviceInfo
      .StyleSheet = "monochrome.ctb"
      .PlotWithPlotStyles = True
      .PlotWithLineweights = True
    End With
А теперь сама печать
    If k > 0 Then
      ThisDrawing.Plot.NumberOfCopies = k
      ThisDrawing.Plot.PlotToDevice
    End If

  • Вадим
  • Восстановленный участник
  • На форуме с 10 августа 2006г.
  • Сообщений: 2
  • Спасибо: 0

Re: Как программно распечатать чертеж?

Спасибо!
Работает, при условии такой записи:
binResponse = ThisDrawing.Plot.PlotToDevice(полный путь/файл .PC3).
Вадим