Vla-getcanonicalmedianames

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-getcanonicalmedianames vla-object)

機能: 指定された印刷デバイスで使用可能なすべての標準用紙名を取得する。

引数

vla-object … VLAオブジェクト(Layout、PlotConfiguration)

戻り値: 指定された印刷デバイスで使用可能な用紙名のリスト。

MEMO ：最初にこのメソッドを使用する前に RefreshPlotDeviceInfo を呼び出す必要がある。一度 RefreshPlotDeviceInfo を呼び出しておけば、そのセッションの間に印刷デバイスの情報に変更がない限り RefreshPlotDeviceInfo を再び呼び出す必要はない。

サンプル

(vl-load-com)
(defun c:Example_GetCanonicalMediaNames()
    ;; 現在のプロットデバイス情報を取得し、プロットデバイス名、
    ;; メディア名、ローカライズされたメディア名、および
    ;; 印刷スタイルテーブルエントリのリストを表示するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq Layout (vla-get-Layout (vla-get-ModelSpace doc)))
    
    ;; このセッションの Plot information を取得
    (vla-RefreshPlotDeviceInfo Layout)
    
    ;; システムのすべての印刷デバイス名、ローカライズされたバージョンをリスト
    (setq plotDevices (vlax-variant-value (vla-GetPlotDeviceNames Layout)))
    
    (setq x 0)
    (while (>= (vlax-safearray-get-u-bound plotDevices 1) x)
        (alert (vlax-safearray-get-element plotDevices x))
        (setq x (1+ x))
    )
    
    ;; メディア名をリスト
    (setq mediaNames (vlax-variant-value (vla-GetCanonicalMediaNames Layout)))

    (setq x 0)
    (while (>= (vlax-safearray-get-u-bound mediaNames 1) x)
        (alert (vlax-safearray-get-element mediaNames x))
        (alert (vla-GetLocaleMediaName Layout (vlax-safearray-get-element mediaNames x)))
        (setq x (1+ x))
    )
    
    ;; 印刷スタイル名をリスト
    (setq styleNames (vlax-variant-value (vla-GetPlotStyleTableNames Layout)))
    
    (setq x 0)
    (while (>= (vlax-safearray-get-u-bound styleNames 1) x)
        (alert (vlax-safearray-get-element styleNames x))
        (setq x (1+ x))
    )
)