在VB中有如下程序
Dim AcadDoc As AcadDocument
On Error Resume Next
Set ACADApp = CreateObject(".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"
为什么？请大家指点。谢谢！！！
置顶卡
