[IgorTr2]

Есть ли такая возможность?

[Ingpro]

Тоже интересует эта тема. Это часть кода для стандартных форматов. А как написать для дополнительных? И откуда брать эти цифры "Square 59251", "Square 118503"...

Код:

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

 ;;; Установка форматов листа
    (setq Square (* ViewportHight ViewportWidth)) ; Расчёт площади видового экрана
    (cond ; Выбор формата в зависимости от площади видового экрана
      ((and (> Square 59251) (< Square 65488)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A4_(297.00_x_210.00_MM)"))
      ((and (> Square 118503) (< Square 130977)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A3_(420.00_x_297.00_MM)"))
      ((and (> Square 237006) (< Square 261954)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A2_(594.00_x_420.00_MM)"))
      ((and (> Square 474012) (< Square 523908)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A1_(841.00_x_594.00_MM)"))
      ((and (> Square 948024) (< Square 1047816)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A0_(841.00_x_1189.00_MM)"))

[Сергей812]

vla-put|get-CanonicalMediaName
vla-put|get-LocaleMediaName

[Ingpro]

Сообщение от Сергей812 vla-put|get-CanonicalMediaName vla-put|get-LocaleMediaName

А можно поподробнее... что и куда... и про 59251

[doctorraz]

Если бы автостол за столько лет сподобился бы реализовать
SetClosestMediaName
Проблем и вопросов было бы меньше..
Красота..
Заказываешь, принтер, размеры и он сам подбирает формат..
Фантастика? Нет конечно, нанокад так умеет автокад по прежнему нет