• На форуме с 4 апреля 2008г.
  • Сообщений: 76
  • Спасибо: 0

Тема: Установить конфигурацию набора параметров листов к текущему листу.

Здравствуйте!
Прошу помочь, как мне установить созданную конфигурацию набора параметров листов к текущему листу. Пробывал по всякому, но не получается

Dim plot1 As AcadPlotConfiguration
Dim layout1 As AcadLayout
Set plot1 = ThisDrawing.PlotConfigurations.Add("1") ', False)
Set layout1 = ThisDrawing.ActiveLayout                             
                             
plot1.ConfigName = "HP 5100 (408) Лоток_1.pc3"
plot1.StandardScale = ac1_1
plot1.PaperUnits = acMillimeters
plot1.CanonicalMediaName = "A3"
plot1.RefreshPlotDeviceInfo
                             
layout1.PaperUnits = acMillimeters
layout1.ConfigName = "HP 5100 (408) Лоток_1.pc3"
layout1.StandardScale = ac1_1
layout1.PaperUnits = acMillimeters
layout1.CanonicalMediaName = "A3"
layout1.RefreshPlotDeviceInfo

Ответ от Vildar (изменено: Вильдар, 27 декабря 2010г. 09:23:34)

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Установить конфигурацию набора параметров листов к текущему листу.

На вба не нашел.
Вариант, менять dxf у LAYUOT (которые хранятся в словаре ACAD_LAYUOT), это можно сделать через лисп. На форуме по лиспу можно спросить.
Или переходить на ARX/NET, там про это не забыли. У класса PlotSettings есть свойство PlotSettingName.