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

[求助]帮我看一下

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

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

acadapp.Documents.Add "acad.dwt"

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

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