Vla-put-altfontfile

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

構文

(vla-put-altfontfile vla-object currAltFontFile)

機能

CAD が元のフォントを見つけられず、フォント マッピング ファイルで代替フォントも指定されていない場合に、使用するフォント ファイルの場所(TrueType フォントはフォント名)を指定する。

引数

• vla-object … PreferencesFiles の VLA オブジェクト
• currAltFontFile … AltFontファイルのパス

戻り値

nil

サンプル

(vl-load-com)
(defun c:Example_AltFontFile()
    ;; AltFontFile の現在の設定を返してから値を変更し、
    ;; さらに元の設定に戻すサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    (setq files (vla-get-Files preferences))
      
    ;; 現在の AltFontFile の値を取得する。
    (setq currAltFontFile (vla-get-AltFontFile files))
    (alert (strcat "現在の AltFontFile は " currAltFontFile))
    
    ;; AltFontFile の値を変更する。
    (setq newAltFontFile "C:/myFonts/gothice.shx")
    (vla-put-AltFontFile files newAltFontFile)
    (alert (strcat "新しい AltFontFile は " newAltFontFile))
    
    ;; AltFontFile を元の値にリセット 
    (vla-put-AltFontFile files currAltFontFile)
    (alert (strcat "AltFontFile の値をリセット " currAltFontFile))
)

---

関連事項

• vlax-get-acad-object
• vlax-get-property
• vla-get-objectid
• vla-get-altfontfile