Vla-getcanonicalmedianames

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

構文: (vla-put-getcanonicalmedianames vla-object papers)

機能

引数

vla-object … VLAオブジェクト(Layout、PlotConfiguration)
papers … 指定された印刷デバイスで使用可能な用紙名の配列

戻り値: nil

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))
    )
)