Sub sy()
Dim TextObj As AcadText '定义文字对象变量
Dim TextString As String '定义字符串变量
Dim InsPnt(0 To 2) As Double '定义文字插入点数组变量
Dim Height As Double '定义文字高度变量
TextString = "试验"'
'指定文字插入点位置和文字高度
InsPnt(0) = 100: InsPnt(1) = 100: InsPnt(2) = 0
Height = 15
'在模型空间创建文字对象
Set TextObj = ThisDrawing.ModelSpace.AddText(TextString, InsPnt, Height)
TextObj.Color = acGreen '指定文字对象的颜色为绿色
ZoomAll '缩放视图
Unload Me '关闭窗体
我怎样定义"试验"'为宋体啊？？请帮忙！！
置顶卡
