路边 发表于 2006-4-8 08:45:00

怎样定义字体？？？

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 '关闭窗体
我怎样定义"试验"'为宋体啊？？请帮忙！！

雪山飞狐_lzh 发表于 2006-4-10 11:30:00

搜索一下吧,很多这样的帖子

路边 发表于 2006-4-10 15:20:00

是么??

路边 发表于 2006-4-10 15:23:00

给发一个贴吧!!谢谢!!!
页: [1]
查看完整版本: 怎样定义字体？？？