关于性能注意事项 （AutoLISP/ActiveX）

应避免重复调用访问 AutoCAD 应用程序、活动文档和模型空间对象，因为它们会对性能产生负面影响。

应将应用程序设计为一次性获取这些对象，并在整个应用程序中引用获取的对象指针。下面的代码演示了可以定义用于分别返回应用程序、活动文档和模型空间对象的三个函数：

(setq *acad-object* nil) ; Initialize global variable
(defun acad-object ()
  (cond (*acad-object*) ; Return the cached object
    (t
      (setq *acad-object* (vlax-get-acad-object))
    )
  )
)

(setq *active-document* nil) ; Initialize global variable
(defun active-document ()
  (cond (*active-document*) ; Return the cached object
    (t
      (setq *active-document* (vla-get-activedocument (acad-object)))
    )
  )
)

(setq *model-space* nil) ; Initialize global variable
(defun model-space ()
  (cond (*model-space*) ; Return the cached object
    (t
      (setq *model-space* (vla-get-modelspace (active-document)))
    )
  )
)

例如，您可以使用以下函数调用绘制一个圆：

(vla-addCircle (model-space) (vlax-3d-point '(3.0 3.0 0.0)) 2.0)

模型空间函数返回活动文档的模型空间，如有必要，使用活动文档函数访问 Document 对象。如有必要，活动文档函数反过来调用 acad-object 以获取应用程序对象。