CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

BigFontFile 属性（ActiveX）

2024-5-18 16:54| 发布者: admin| 查看: 220| 评论: 0|原作者: admin|来自: AutoCAD

指定与文本或属性关联的大字体文件的名称。

支持的平台：仅限 Windows

签名

VBA：

object.BigFontFile

对象

类型：TextStyle

此属性应用于的对象。

属性值

只读：不

类型：字符串

大字体文件的名称。

言论

此属性与该属性类似，只不过它用于指定亚洲语言的大字体文件。唯一有效的文件类型是 SHX。FontFile

此属性不能设置为空字符串。NULL

例子

VBA：

Sub Example_BigFontFile()
    ' This example returns the current setting of
    ' BigFontFile. It then changes the value.
    
    Dim textStyle1 As AcadTextStyle
    Dim currBigFontFile As String
    Dim newBigFontFile As String
    
    Set textStyle1 = ThisDrawing.ActiveTextStyle
    
    ' Retrieve the current BigFontFile value
    currBigFontFile = textStyle1.BigFontFile
    MsgBox "The current value for BigFontFile is " & currBigFontFile, vbInformation, "BigFontFile Example"
    
    ' Change the value for BigFontFile
    newBigFontFile = "C:/AutoCAD/Fonts/bigfont.shx"
    textStyle1.BigFontFile = newBigFontFile
    MsgBox "The new value for BigFontFile is " & newBigFontFile, vbInformation, "BigFontFile Example"

End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_BigFontFile()
    ;; This example returns the current setting of
    ;; BigFontFile. It then changes the value.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq textStyle1 (vla-get-ActiveTextStyle doc))
    
    ;; Retrieve the current BigFontFile value
    (setq currBigFontFile (vla-get-BigFontFile textStyle1))
    (alert (if (= currBigFontFile "")
	       (strcat "There is not big font file assigned to this font.")
	       (strcat "The current value for BigFontFile is " currBigFontFile))
    )

    ;; Change the value for BigFontFile
    (setq newBigFontFile (findfile "./Fonts/bigfont.shx"))
    (vla-put-BigFontFile textStyle1 newBigFontFile)
    (alert (strcat "The new value for BigFontFile is " newBigFontFile))
)