Gets the definition
data of the font for the TextStyle.
Signature
VBA : object.GetFont
Typeface, Bold, Italic, CharSet, PitchAndFamily
VL : (vla-GetFont
object Typeface, Bold, Italic,
CharSet, PitchAndFamily)
(vla-GetFont thestyle 'typeface
'bold 'italic 'charset 'pitchandfamily)
-
Object : TextStyle
The object or objects this method applies to.
-
Typeface : String;
output-only
The typeface (font name) of the TextStyle you queried.
-
Bold : Boolean;
output-only
Specifies if the TextStyle is bold.
TRUE: The TextStyle is bold.
FALSE: The TextStyle is not bold.
-
Italic : Boolean;
output-only
Specifies if the TextStyle is italic.
TRUE: The TextStyle is italic.
FALSE: The TextStyle is not italic.
-
CharSet : Long;
output-only
The character set for the font. (See the available values in the
Remarks section.)
-
PitchAndFamily :
Long; output-only
The pitch and family definitions for the font. (See the available
values in the Remarks section.)
Example :
(defun c:al-getfont ()
(vl-load-com)
(setq thestyle (vla-get-activetextstyle
(vla-get-activedocument
(vlax-get-acad-object))))
(vla-GetFont thestyle 'typeface 'bold 'italic
'charset 'pitchandfamily)
;typeface contains the font name
;bold contains a boolean value
;italic contains a boolean value
;charset contains the character set value
;pitchandfamily contains the pitch and family value
(princ typeface)
(terpri)
(princ bold)
(terpri)
(princ italic)
(terpri)
(princ charset)
(terpri)
(princ pitchandfamily)
(princ)
);defun
|
|