如何使用AutoLISP脚本实现AutoCAD文本查找替换？

直接调用(command "Find" ...)会触发模态弹窗中断流程是官方命令的设计限制，该命令没有公开的静默执行参数，无需尝试给命令传参绕开弹窗，以下两种方案都可以实现全自动化无交互的查找替换：

方案1：直接遍历图形数据库修改文本实体（最稳定可控） #

• 实现逻辑：AutoCAD所有文本内容都以图元属性的形式存储在图形数据库中，通过AutoLISP筛选所有文本类实体，直接读取、修改实体的文本内容组码即可完成替换，全程不触发任何UI界面。
• 支持覆盖的文本类型可自定义：单行文字（TEXT）、多行文字（MTEXT）、块属性（ATTRIB）、属性定义（ATTDEF）、标注文本（DIMENSION）、多重引线文本（MULTILEADER）都可以通过过滤筛选纳入替换范围，还可以额外增加图层、布局、锁定状态等筛选规则。
• 核心实现代码参考：

(defun c:silentfind (old-str new-str / ss idx ent ent-content)
  ;; 筛选全图范围内的普通文本、块属性类实体，可自行在过滤列表追加需要的实体类型
  (setq ss (ssget "X" '((0 . "TEXT,MTEXT,ATTRIB,ATTDEF"))))
  (if ss
    (progn
      (setq idx 0)
      (repeat (sslength ss)
        (setq ent (entget (ssname ss idx))
              ent-content (cdr (assoc 1 ent))
        )
        ;; 匹配到目标字符串时执行替换
        (if (vl-string-search old-str ent-content)
          (entmod (subst (cons 1 (vl-string-subst new-str old-str ent-content))
                         (assoc 1 ent)
                         ent
                  )
          )
        )
        (setq idx (1+ idx))
      )
      (princ (strcat "\n执行完成，共扫描" (itoa (sslength ss)) "个文本对象"))
    )
  )
  (princ)
)

• 优缺点：灵活度极高，可根据业务需求定制替换规则，兼容所有AutoCAD版本；需要自行在过滤列表中补全需要覆盖的实体类型，避免漏掉块内嵌套文本、标注文本等特殊文本对象。

方案2：调用ActiveX接口执行静默替换 #

• 实现逻辑：通过AutoLISP调用AutoCAD ActiveX模型提供的FindReplace方法，传入查找内容、替换内容、搜索范围、匹配规则参数即可直接执行替换，不会弹出对话框。
• 调用示例片段：

(vla-FindReplace
  (vla-get-ActiveDocument (vlax-get-acad-object))
  "待查找文本"
  "替换后文本"
  :vlax-true  ; 全字匹配开关
  :vlax-false ; 匹配大小写开关
  acAll       ; 搜索范围：全图，可选acCurrentSelection仅搜索选中集
)

• 优缺点：复用AutoCAD官方的查找替换逻辑，自动覆盖所有类型的文本对象（包括嵌套块内文本、标注关联文本），代码量更小；不同AutoCAD版本的接口参数顺序存在小幅差异，灵活度低于自主遍历图元的方案。

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