elite 发表于 2006-8-24 20:03:00

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

<P>&nbsp;&nbsp;&nbsp;Dim objDbx As AxDbDocument </P>
<P>&nbsp;&nbsp;&nbsp; If Left(Version, 2) = "15" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")<BR>&nbsp;&nbsp;&nbsp; ElseIf Left(Version, 2) = "16" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")<BR>&nbsp;&nbsp;&nbsp; End If</P>
<P>Opendatabase</P>
<P>&nbsp;&nbsp;&nbsp; '打开数据库，遍历图纸，得到要打开的图纸路径</P>
<P>&nbsp;&nbsp;&nbsp; Dim i As Integer<BR>&nbsp;&nbsp;&nbsp; Dim SheetPath As String '图纸详细路径变量<BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim adoRs As New Recordset<BR>&nbsp;&nbsp;&nbsp; adoRs.Open "SheetList", adoCon, adOpenDynamic, adLockOptimistic<BR>&nbsp;&nbsp;&nbsp; adoRs.MoveFirst<BR>&nbsp;&nbsp;&nbsp; For i = 0 To adoRs.RecordCount - 1<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SSheetName = adoRs.Fields("SheetName") '图纸详细路径&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; objDbx.Open SSheetName<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim txtStyleObj As AcadTextStyle<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' 添加文字样式到文字样式集合中<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set txtStyleObj = objDbx.TextStyles.Add("仿宋_GB2312")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; txtStyleObj.SetFont "仿宋_GB2312", False, False, 1, 0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveTextStyle = txtStyleObj<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;objDbx.SaveAs SheetPath<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Next i<BR>&nbsp;&nbsp;&nbsp; adoRs.Close</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 以上代码实现了在不打开图纸的情况下，为每张图纸添加了“仿宋_GB2312”，但并没有实现图纸的初始默认字体为“仿宋_GB2312”。 </P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 我曾尝试objDbx.ActiveTextStyle = txtStyleObj这条语句，但失败了。请问如何才能设置为图纸的当前字体为我所添加的字体？?</P>

sangding 发表于 2006-8-27 09:59:00

顶一个
页: [1]
查看完整版本: 如何在不打开图纸的情况下设置字体？？？