「Vla-put-altfontfile」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-altfontfile ''vla-object'' ''currAltFontFile'') ; 機能 : CAD が元のフォントを見つけられず、フォント マッピン...」)
 
編集の要約なし
 
11行目: 11行目:
:* vla-object … PreferencesFiles の VLA オブジェクト
:* vla-object … PreferencesFiles の VLA オブジェクト
:* currAltFontFile … AltFontファイルのパス
:* currAltFontFile … AltFontファイルのパス


; 戻り値
; 戻り値
: altfont の設定
: nil





2015年5月4日 (月) 00:08時点における最新版

構文
(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))
)

関連事項