아래처럼 사용하시면 됩니다. 더 필요한 사항은 구글에서 CAD VBA FONT 라고 검색하시면 잔뜩 나옵니다.
Public Sub SetFontRomanD() Dim objTextStyle As AcadTextStyle Set objTextStyle = ThisDrawing.TextStyles(“standard”) objTextStyle.fontFile = “romand.shx” SDimScale = ThisDrawing.GetVariable(“dimscale”) objTextStyle.Height = SDimScale * 0.1875 ‘set the font to a height of 3/16″ End Sub
아래처럼 사용하시면 됩니다.
더 필요한 사항은 구글에서 CAD VBA FONT 라고 검색하시면 잔뜩 나옵니다.
Public Sub SetFontRomanD()
Dim objTextStyle As AcadTextStyle
Set objTextStyle = ThisDrawing.TextStyles(“standard”)
objTextStyle.fontFile = “romand.shx”
SDimScale = ThisDrawing.GetVariable(“dimscale”)
objTextStyle.Height = SDimScale * 0.1875 ‘set the font to a height of 3/16″
End Sub