[Sege]

Есть множество листов (больше 50), которые в области печати проставлена "Рамка"
Как поменять область печати всех листов на "лист"?

[Maksim7enov]

Вроде работает. Меняет на всех листах

Код:

[Выделить все]

 
(vlax-for item (vla-get-layouts
                 (vla-get-activedocument (vlax-get-acad-object))
                 ) ;_ end of vla-get-layouts
  (if (/= (vla-get-name item) "Model")
    (vla-put-plottype item aclayout)
    ) ;_ end of if
  ) ;_ end of vlax-for

[Sege]

Супер! То что нужно!

[Кулик Алексей aka kpblc]

Maksim7enov, ИМХО - лучше избегать "магических" чисел и брать именованные значения:

PlotType Код: [Выделить все] acPlotType enum; read-write acDisplay Prints everything that is in the current display. acExtents Prints everything that falls within the extents of the currently selected space. acLimits Prints everything that is in the limits of the current space. acView Prints the view named by the ViewToPlot property. acWindow Prints everything in the window specified by the SetWindowToPlot method. acLayout Prints everything that falls within the margins of the specified paper size with the origin being calculated from 0,0 coordinate location in the Layout tab. This option is not available when printing from model space.

[Maksim7enov]

Сообщение от Кулик Алексей aka kpblc Maksim7enov, именованные значения:

Понял, исправил