「Vla-getcanonicalmedianames」の版間の差分
細編集の要約なし  | 
				細編集の要約なし  | 
				||
| 72行目: | 72行目: | ||
* [[vla-get-activedocument]]  | * [[vla-get-activedocument]]  | ||
* [[vla-getcanonicalmedianames]]  | * [[vla-getcanonicalmedianames]]  | ||
* [[vla-getlocalemedianame]]  | |||
* [[vla-getlocalemedianame]]  | * [[vla-getlocalemedianame]]  | ||
* [[vla-getplotstyletablenames]]  | * [[vla-getplotstyletablenames]]  | ||
* [[vla-  | * [[vla-refreshplotdeviceinfo]]  | ||
[[Category:AutoLISP]]  | [[Category:AutoLISP]]  | ||
2016年1月22日 (金) 08:41時点における版
- 構文
 - (vla-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))
    )
)
関連事項