[ASLYS]

нужно получить параметры бумаги для имеющихся принтеров
пробовал с помощью GetCanonicalMediaNames, но выдает только для одного. Как получить для всех имеющихся?

[ASLYS]

получилось

Код:

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

(setq vla-layout(vla-get-layout (vla-get-modelspace(vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT)))) oldplotter(vla-get-configname vla-layout))
(vla-put-configname vla-layout (getstring "\Ploter?:"))
(setq I(mapcar'(lambda(x)(vla-GetLocaleMediaName vla-layout x))(vlax-safearray->list(vlax-variant-value(vla-GetCanonicalMediaNames vla-layout)))))
(vla-put-configname vla-layout oldplotter)