GetObject和CreateObject

Question

下列程序是GetObject和CreateObject典型示例.
Sub ls() 
  Dim AppCAD As AcadApplication 
  On Error Resume Next 
  Set AppCAD = GetObject(, "AutoCAD.Application") 
  If Err Then 
    Debug.Print Err.Number 
    Err.Clear 
    Set AppCAD = CreateObject("AutoCAD.Application") 
  End If 
  AppCAD.Visible = True 
  Dim objModelSpace 
  Set objModelSpace = AppCAD.ActiveDocument.ModelSpace 
End Sub 问题提出
  GetObject如果运行不正常,通过If Err Then判断,启动应用程序Set AppCAD = CreateObject("AutoCAD.Application") 
  这种程序是否为简单实用的编程方法?还有其它更实用的方法吗？？

Answer 1

GetObject先查询系统运行对象表(ROT)中是否已有登记的“AutoCAD.Application”组件存在，如果有则返回其引用，否则返回错误你的这种做法已经挺好了