Vla-put-printfile

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

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