「Vla-put-supportpath」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-supportpath ''vla-object'' ''path'') ; 機能 : CAD がサポート ファイルを検索するフォルダを設定する。 ; 引...」) |
(相違点なし)
|
2015年1月12日 (月) 01:58時点における最新版
- 構文
- (vla-put-supportpath vla-object path)
- 機能
- CAD がサポート ファイルを検索するフォルダを設定する。
- 引数
-
- vla-object … PreferencesFilesのVLAオブジェクト
- path … パスの文字列
- 戻り値
- nil
- 注意: セミコロン(;)を使用して複数のフォルダを区切る。ただし、文字列の最後にはセミコロンを付けない。
- サンプル
(vl-load-com) (defun c:Example_SupportPath() ;; サポートパスを取得・設定するサンプル (setq acadObj (vlax-get-acad-object)) (setq preferences (vla-get-Preferences acadObj)) ;; 現在の設定 (setq currSupportPath (vla-get-SupportPath (vla-get-Files preferences))) (alert (strcat "現在の SupportPath 設定 " currSupportPath)) ;; 変更 (setq newSupportPath "TestSupportPath") (vla-put-SupportPath (vla-get-Files preferences) newSupportPath) (alert (strcat "新しい SupportPath 設定 " newSupportPath)) ;; SupportPath のリセット (vla-put-SupportPath (vla-get-Files preferences) currSupportPath) (alert (strcat "SupportPath のリセット " currSupportPath)) )
関連事項