heyong 发表于 2004-4-5 14:59:00

[求助]帮我看一下

Public Sub startcad()
       On Error Resume Next
                               Set acadapp = CreateObject(".Application")
                               Set acaddoc = acadapp.ActiveDocument
                                                       If Err Then
                               MsgBox Err.Description
                               Exit Sub
                                                               End If
                               acadapp.Visible = True
                               acadapp.Top = 0               '设置AutoCad窗口的位置
                               acadapp.Left = 0
                               acadapp.Caption = "CORECAD" '设置AutoCad窗口的标题
                               acaddoc.New ("coremode2.dwt")
        End Sub
意思是用模版文件("coremode2.dwt")新建一个文件，在r14下通过，在2002下不行，请帮我诊断一下。谢谢

雪山飞狐_lzh 发表于 2004-4-5 15:23:00

acadapp.Documents.Add "acad.dwt"

heyong 发表于 2004-4-5 16:28:00

可以了，谢谢
页: [1]
查看完整版本: [求助]帮我看一下