明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1532|回复: 1

如何在不打开图纸的情况下设置字体???

[复制链接]
发表于 2006-8-24 20:03:00 | 显示全部楼层 |阅读模式

   Dim objDbx As AxDbDocument

    If Left(Version, 2) = "15" Then
          Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(Version, 2) = "16" Then
          Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
    End If

Opendatabase

    '打开数据库,遍历图纸,得到要打开的图纸路径

    Dim i As Integer
    Dim SheetPath As String '图纸详细路径变量
    Dim adoRs As New Recordset
    adoRs.Open "SheetList", adoCon, adOpenDynamic, adLockOptimistic
    adoRs.MoveFirst
    For i = 0 To adoRs.RecordCount - 1
        SSheetName = adoRs.Fields("SheetName") '图纸详细路径        
        
        objDbx.Open SSheetName
        
        Dim txtStyleObj As AcadTextStyle
   
    ' 添加文字样式到文字样式集合中
        Set txtStyleObj = objDbx.TextStyles.Add("仿宋_GB2312")
        txtStyleObj.SetFont "仿宋_GB2312", False, False, 1, 0
        ThisDrawing.ActiveTextStyle = txtStyleObj
        
        objDbx.SaveAs SheetPath
       
    Next i
    adoRs.Close

       以上代码实现了在不打开图纸的情况下,为每张图纸添加了“仿宋_GB2312”,但并没有实现图纸的初始默认字体为“仿宋_GB2312”。

      我曾尝试objDbx.ActiveTextStyle = txtStyleObj这条语句,但失败了。请问如何才能设置为图纸的当前字体为我所添加的字体??

发表于 2006-8-27 09:59:00 | 显示全部楼层
顶一个
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-26 22:23 , Processed in 0.163362 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表