Vla-get-textframedisplay

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月7日 (日) 00:16時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-textframedisplay ''vla-object'' ) ; 機能 : マルチ引出線の文字をその表示枠を示すテキスト ボックスの表示...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-textframedisplay vla-object )


機能
マルチ引出線の文字をその表示枠を示すテキスト ボックスの表示を取得する。


引数
  • vla-object … VLAオブジェクト(DatabasePreferences、GeoPositionMarker、MLeader)


戻り値
ブール型
  • DatabasePreferences の場合
  • :vlax-True: 文字の表示範囲の枠を表示するが、文字そのものは表示しない。
  • :vlax-False: 文字全体を表示する。
  • GeoPositionMarker、MLeader の場合
  • :vlax-True: 枠が表示される。
  • :vlax-False: 枠は表示されない。


  • MEMO: このプロパティの初期値は False 。
  • DatabasePreferences: このオプションを有効または無効にした後、Regen メソッドを使って表示の更新をすること。
  • 注 : DatabasePreferences オブジェクトに対するこのプロパティの値は、システム変数 QTEXTMODE に格納される。


サンプル
(vl-load-com)
(defun c:Example_TextFrameDisplay()
    ;; TextFrameDisplay の現在の設定を変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq preferences (vla-get-Preferences doc))
    
    ;; 現在の設定を取得
    (setq currTextFrameDisplay (vla-get-TextFrameDisplay preferences))
    (alert (strcat "現在の TextFrameDisplay 値は " (if (= currTextFrameDisplay :vlax-true) "True" "False")))
    
    ;; トグルで変更
    (vla-put-TextFrameDisplay preferences (if (= currTextFrameDisplay :vlax-true) :vlax-false :vlax-true))
    (alert (strcat "新しい TextFrameDisplay 値は " (if (= (vla-get-TextFrameDisplay preferences) :vlax-true) "True" "False")))
    
    ;; 戻す
    (vla-put-TextFrameDisplay preferences currTextFrameDisplay)
    (alert (strcat "TextFrameDisplay 値を次に戻しました " (if (= (vla-get-TextFrameDisplay preferences) :vlax-true) "True" "False")))
)

関連事項