yulijin608 发表于 2005-1-13 09:35:00

vb加载cad问题

Dim AcadApp as Object '定义一个对象<BR>                                                                                                                                       　　On Error Resume Next<BR>                                                                                                                                       　　Set AcadApp =GetObject(,"AutoCAD.Application")<BR>                                                                                                                                       　　If Err Then '如果没有一个AutoCAD副本在运行<BR>                                                                                                                                       　　Err.Clear<BR>                                                                                                                                       　　Set AcadApp =CreateObject("AutoCAD.Application")<BR>                                                                                                                                       　　AcadApp.Visable =True '启动一个AutoCAD副本并设为可见<BR>                                                                                                                                       　　If Err Then<BR>                                                                                                                                       　　MsgBox Err.Description '如果失败，给出错误提示<BR>                                                                                                                                       　　Exit Sub<BR>                                                                                                                                       　　End If<BR>                                                                                                                                       　　End If <BR>用上面的代码加载CAD时怎么运行到AcadApp.Visable =True 时出错，提示对象不支持该属性和方法。

fenny 发表于 2005-1-13 09:48:00

是visible

yulijin608 发表于 2005-1-13 10:10:00

谢谢,都是笔误惹的祸.
页: [1]
查看完整版本: vb加载cad问题