请大家帮助分析一下

neteasy

在VB中有如下程序
Dim AcadDoc As AcadDocument
On Error Resume Next
Set ACADApp = CreateObject("AutoCAD.application")
If Err Then
    MsgBox ("无法运行AutoCAD，请检查是否正确安装了AutoCAD！")
    Unload Me
    Exit Sub
End If
ACADApp.WindowState = acMax
ACADApp.Application.Documents.Open "C:\user.dwg"
Set AcadDoc = ACADApp.Application.ActiveDocument
AcadDoc.ModelSpace.Layout.ConfigName = "user.pc3"
AcadDoc.ModelSpace.Layout.StyleSheet = "user.ctb"

configname和stylesheet总是设置不成功，而在CAD的VB编辑器中却可以

ThisDrawing.ModelSpace.Layout.ConfigName = "user.pc3"
ThisDrawing.ModelSpace.Layout.StyleSheet = "user.ctb"

为什么？请大家指点。谢谢！！！

mccad

我在以前的贴子里已经提示过，在更改这些配置前应该对配置进行刷新，这样才不会出错。
使用RefreshPlotDeviceInfo 属性进行刷新。
[WEB]http://www.mjtd.com/object/acad2004/idh_refreshplotdeviceinfo.htm[/WEB]