;;;
;;; Проверяем установку CanonicalMediaName
;;;
(defun C:Test_CanonicalMediaName ( / acadObj doc Layout x)
(vl-load-com)
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq Layout (vla-get-Layout (vla-get-ModelSpace doc)))
(vla-put-configname layout "DWG To PDF.pc3")
(vla-RefreshPlotDeviceInfo Layout)
(setq mediaNames (vlax-variant-value (vla-GetCanonicalMediaNames Layout)))
(setq x 0) ;; Поочередно устанавливаем CanonicalMediaName
(while (>= (vlax-safearray-get-u-bound mediaNames 1) x)
(print (vlax-safearray-get-element mediaNames x))
(vla-put-CanonicalMediaName Layout (vlax-safearray-get-element mediaNames x))
(setq x (1+ x))
)
)