Vla-put-printfile

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-put-printfile vla-object path)


機能
一時印刷ファイル名に使用する代替名を指定する。


引数
  • vla-object … PreferencesFiles の VLAオブジェクト
  • path … 一時印刷ファイル名の文字列


戻り値
nil


  • MEMO :

印刷ファイルの代替名。"." と入力すると、既定値(現在の図面名)が使用される。代替印刷ファイルのドライブ、パス、およびファイル名を入力する。 既定の名前は、図面名に拡張子 .plt を付けたもの。


サンプル
(vl-load-com)
(defun c:Example_PrintFile()
    ;; 現在の PrintFile を取得・変更してからもとに戻すサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; 現在の PrintFile 値を返す
    (setq currPrintFile (vla-get-PrintFile (vla-get-Files preferences)))
    (alert (strcat "現在の PrintFile 値は " currPrintFile))
    
    ;; PrintFile を変更
    (setq newValue "TestPrintFile.plt")
    (vla-put-PrintFile (vla-get-Files preferences) newValue)
    (alert (strcat "新しい PrintFile 値は " newValue))
    
    ;; PrintFile を元に戻す
    (vla-put-PrintFile (vla-get-Files preferences) currPrintFile)
    (alert (strcat "PrintFile 値を元に戻しました " currPrintFile))
)

関連事項