[LISP程序]：批量修改多图形文件文本

lsjjm

该程序可同时批量处理所有打开的图形(DWG)文件中的文本, 将 "Enzed" 修改为 "Parker"
[php]
(defun c:test ()
  ;(vl-load-com)
  (vlax-for i (vla-get-Documents (vlax-get-acad-object))
    (vlax-for j (vla-get-modelspace i)
      (if (= "AcDbText" (vla-get-objectname j))
        (if (= "Enzed" (vla-get-textstring j))
          (vla-put-textstring j "Parker")
        )
      )
    )
    (vla-regen i acallviewports)
  )
)
[/php]