VBA如何打开HZTXT4字体

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

Sub Ch3_OpenDrawing()
Dim dwgName As String dwgName = "D:\A.dwg" If Dir(dwgName) <> "" Then
ThisDrawing.Application.Documents.Open dwgName
Else
MsgBox "文件 " & dwgName & " 并不存在。" End If
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" & vbCr & dwgName & vbCr

ThisDrawing.SetVariable "FILEDIA",1

账号		自动登录	找回密码
密码			注册