Vla-put-driverspath

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

構文: (vla-put-driverspath vla-object path)

機能: CAD がビデオディスプレイ、ポインティングデバイス、プリンタ、プロッタの ADI デバイスドライバを検索するフォルダを指定する。

引数

vla-object … PreferencesFilesのVLAオブジェクト
path … パスの文字列

戻り値: nil

MEMO：デバイスドライバがあるフォルダそれぞれのパスのドライブ文字とパスを指定する。複数のフォルダのリストはセミコロン(;)で区切る。

サンプル

(vl-load-com)
(defun c:Example_DriversPath()
    ;; ドライバーズパスを取得・変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
  
    ;; 取得
    (setq currDriversPath (vla-get-DriversPath (vla-get-Files preferences)))
    (alert (strcat "現在の DriversPath は " currDriversPath))
    
    ;; 更新
    (setq newDriversPath "TestDriversPath")
    (vla-put-DriversPath (vla-get-Files preferences) newDriversPath)
    (alert (strcat "新しい DriversPath は " newDriversPath))
    
    ;; リセット
    (vla-put-DriversPath (vla-get-Files preferences) currDriversPath)
    (alert (strcat "DriversPath を元に戻す " currDriversPath))
)