「Vla-getcanonicalmedianames」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-getcanonicalmedianames ''vla-object'' ''papers'') ; 機能 : ; 引数 :* vla-object … VLAオブジェクト(Layout、PlotConfigura...」)
 
編集の要約なし
1行目: 1行目:
{{AutoLISP}}
{{AutoLISP}}
; 構文
; 構文
: (vla-put-getcanonicalmedianames ''vla-object'' ''papers'')
: (vla-getcanonicalmedianames ''vla-object'' ''papers'')




71行目: 71行目:
* [[vlax-get-acad-object]]
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]
* [[vla-get-activedocument]]
* [[vla-put-getcanonicalmedianames]]
* [[vla-getcanonicalmedianames]]
* [[vla-get-getcanonicalmedianames]]
* [[vla-getlocalmedianame]]
* [[vla-getplotstyletablenames]]
* [[vla-getplotdevicenames ]]




[[Category:AutoLISP]]
[[Category:AutoLISP]]

2016年1月22日 (金) 08:39時点における版

構文
(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))
    )
)


関連事項