Vla-get-texteditor

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月2日 (火) 12:38時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-texteditor ''vla-object'' ) ; 機能 : MTEXT[マルチ テキスト]コマンドのテキスト エディタ名を取得する。 ;...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-texteditor vla-object )


機能
MTEXT[マルチ テキスト]コマンドのテキスト エディタ名を取得する。


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


戻り値
マルチライン テキスト エディタ名。


サンプル
(vl-load-com)
(defun c:Example_TextEditor()
    ;; TextEditor設定を変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; 現在の TextEditor 値
    (setq currTextEditor (vla-get-TextEditor (vla-get-Files preferences)))
    (alert (strcat "現在の TextEditor は " currTextEditor))
    
    ;; TextEditor を変更
    (setq newTextEditor "TestTextEditor")
    (vla-put-TextEditor (vla-get-Files preferences) newTextEditor)
    (alert (strcat "新しい TextEditor は " newTextEditor))
    
    ;; 戻す
    (vla-put-TextEditor (vla-get-Files preferences) currTextEditor)
    (alert (strcat "TextEditor 値を戻しました " currTextEditor))
)


関連事項