Vla-get-driverspath

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年1月12日 (月) 11:51時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-driverspath ''vla-object'') ; 機能 : CAD がビデオ ディスプレイ、ポインティング デバイス、プリンタ、プロ...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-driverspath vla-object)


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


引数
  • vla-object … PreferencesFilesのVLAオブジェクト


戻り値
パスの文字列


  • 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))
)

関連事項