Vla-put-textfont

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

構文: (vla-put-textfont vla-object fontname)

機能: 新しい文字のフォントを設定する。

引数

vla-object … PreferencesDisplay の VLAオブジェクト
fontname … フォント名

戻り値: nil

MEMO ：このプロパティの初期値は Courier。

サンプル

(vl-load-com)
(defun c:Example_TextFont()
    ;; 次の使用例は、TextFont の現在の設定を返して、
    ;; 値を変更し、最後に元の設定にリセットする。
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))

    ;; 現在の TextFont を返す
    (setq currTextFont (vla-get-TextFont (vla-get-Display preferences)))
    (alert (strcat "現在の TextFont は " currTextFont))

    ;; 変更後の TextFont
    (vla-put-TextFont (vla-get-Display preferences) "TestTextFont")
    (alert (strcat "新しい TextFont は " (vla-get-TextFont (vla-get-Display preferences))))

    ;; 元の値
    (vla-put-TextFont (vla-get-Display preferences) currTextFont)
    (alert (strcat "元の TextFont にリセット " (vla-get-TextFont (vla-get-Display preferences))))
)