[求助]请问VB二次开发的高手:在VB调用DWG时,如何显示"指定字体给样式 DIM&q

ysj_CAD · 发表于 2005-3-28 17:24:00

各位高手: 我在VB中用Set appcad = CreateObject(".Application") appcad.Documents.Open dwgPath ...... 调用DWG图形. 但图形中坐标不显示.
而直接打开DWG图形时,会弹出"指定字体给样式 DIM"对话框,选择"gbcbig.shx"就可以显示了.
请问如果解决这个问题???
我写了一段但不行.
Set pDoc = appcad.ActiveDocument
Set pText = pDoc.ActiveTextStyle
pText.fontFile = appcad.Path & "\Fonts\gbcbig.shx"
'pText.BigFontFile = appcad.Path & "\Fonts\gbcbig.shx"
pDoc.Regen acAllViewports
能不能在VB调用DWG中也能弹出选择"指定字体给样式 DIM"对话框,或者有其它方法解决不能显示坐标的问题???
谢谢!!!