Vla-get-altfontfile

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-get-altfontfile vla-object)


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


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


戻り値
altfont の設定


サンプル
(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:/temp/Fonts/gothice.shx")
    (vla-put-AltFontFile files newAltFontFile)
    (alert (strcat "新しい AltFontFile は " newAltFontFile))
    
    ;; AltFontFile を元の値にリセット 
    (vla-put-AltFontFile files currAltFontFile)
    (alert (strcat "AltFontFile の値をリセット " currAltFontFile))
)

関連事項