Vla-getlocalemedianame

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月22日 (金) 08:44時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-getlocalemedianame ''vla-object'' ''papers'') ; 機能 : 翻訳された標準用紙名を取得する。 ; 引数 :* vla-object … VLA...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-getlocalemedianame vla-object papers)


機能
翻訳された標準用紙名を取得する。


引数
  • vla-object … VLAオブジェクト(Layout、PlotConfiguration)
  • Name … 翻訳された名前を検索する標準用紙名。


戻り値
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))
    )
)


関連事項