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))
)