Question

补充 Visual basic 6.0 关于控制AutoCAD启动指定文件的程序

Private Sub Command1_Click()Dim Acadapp As ObjectDim Acaddoc As ObjectDim Mospace As ObjectOn Error Resume NextSet Acadapp = GetObject("AutoCAD.application")If Err Then Err.Clear Set Acadapp = CreateObject("AutoCAD.application") If Err Then MsgBox Err.Description Exit Sub End IfEnd IfAcadapp.Visible = TrueSet Acaddoc = Acadapp.ActiveDocumentSet Mospace = Acaddoc.ModelSpaceAcadapp.Top = 100Acadapp.Left = 200Acadapp.Height = 1000Acadapp.Width = 800Acadapp.Caption = "AutoCAD启动程序"Dim CadlX As StringCadlX = "C:\001.dwg"If Dir(CadlX) <> "" Then Acaddoc.Open CadlXElse Acaddoc.New ("acad")End IfEnd Sub以上可以打开AutoCAD,但是打不开C:\001.dwg,请高手帮忙





Answer 1

建议你引用了AUTO CAD的控件或者类之后再控制。光一个CreateObject你也不好判断有哪些方法可以给你调用。