如何在CAD程序中获取每个已打开文档实例的变量？

你之前调用ssName函数出错，核心原因是这个函数仅适用于选择集（Selection Set）操作，而AutoCAD的文档集合属于ActiveX对象集合，两者类型不兼容，不能混用。

以下是两种正确的AutoLisp实现方式，用于遍历已打开文档并获取对应实例：

方式一：用vlax-for直接遍历文档集合 #

这是最直观高效的遍历方式，无需手动处理索引：

(defun c:GetOpenDocuments (/ acad docs)
  ;; 获取AutoCAD应用程序对象
  (setq acad (vlax-get-acad-object))
  ;; 获取所有已打开的文档集合
  (setq docs (vla-get-Documents acad))
  
  ;; 遍历每个文档实例
  (vlax-for doc docs
    (princ (strcat "\n文档名称: " (vla-get-Name doc)))
    (princ (strcat "\n文档实例对象: " (vl-princ-to-string doc)))
    ;; 示例：获取文档的当前活动图层
    (princ (strcat "\n当前活动图层: " (vla-get-Name (vla-get-ActiveLayer doc))))
    (princ "\n------------------------")
  )
  (princ)
)

方式二：按索引逐个访问文档 #

如果需要按顺序或指定位置获取文档，可使用vla-Item函数（注意文档集合的索引从0开始）：

(defun c:GetDocsByIndex (/ acad docs doc-count i)
  (setq acad (vlax-get-acad-object))
  (setq docs (vla-get-Documents acad))
  (setq doc-count (vla-get-Count docs))
  
  (setq i 0)
  (repeat doc-count
    ;; 通过索引获取对应文档实例
    (setq doc (vla-Item docs i))
    (princ (strcat "\n第" (itoa (1+ i)) "个文档: " (vla-get-Name doc)))
    (setq i (1+ i))
  )
  (princ)
)

注意事项 #

• 代码中的doc就是每个已打开文档的实例对象，你可以通过它调用各类ActiveX属性和方法，比如获取文档路径、修改绘图设置、操作图元等。
• 若运行时提示ActiveX相关错误，可先执行(vl-load-com)加载AutoCAD的ActiveX扩展函数库。

内容的提问来源于stack exchange，提问作者G Beck