[求助]请高手帮我编写对多个文件内运行的程序

ddwwtt

我有一个初始程序，但只能在打开一个图档时，来运行这个程序时，才能自动添加单行文字“王月生”，想请高手帮我编写一个程序，不用逐个文件打开来运行我写的这个程序，而直接在二十多文件内的特定点上添加单行文字“王月生”。

我的程序是这样的

(defun C:g(/ pt0 d0)
   (setq pt0 (list 100，200))
   (setq d1 "王月生")
   (command "text" "j" "m" pt0 0 d1)
   (princ)
)