cqy 发表于 2005-7-7 13:21:00

VBA如何打开HZTXT4字体

Sub Ch3_OpenDrawing()<BR>Dim dwgName As String


dwgName = "D:\A.dwg"


If Dir(dwgName) &lt;&gt; "" Then<BR>ThisDrawing.Application.Documents.Open dwgName<BR>Else<BR>MsgBox "文件 " &amp; dwgName &amp; " 并不存在。"


End If<BR>End Sub


图形打开后，没字，如何只打开HZTXT4字体？

wyj7485 发表于 2005-7-7 14:36:00

把HZTXT4文件拷贝到cad的字体目录下

cqy 发表于 2005-7-7 15:10:00

cad的字体目录下已有HZTXT4文件，正常打开没问题，VBA打开不行。

wyj7485 发表于 2005-7-7 17:36:00

用sendcommand吧


ThisDrawing.SetVariable "FILEDIA",0


ThisDrawing.sendcommand "OPEN" &amp; vbCr &amp;       dwgName &amp; vbCr


ThisDrawing.SetVariable "FILEDIA",1
页: [1]
查看完整版本: VBA如何打开HZTXT4字体