[LISP程序]：!!各位大侠如何把下面的程序改成批量替换

yswoyh

怎么才能让它批量替换!!!!!谢谢了

(defun c:THFH ()   
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (setvar "CMDECHO" 0)
  (setq pf (getfiled "文件路径的(dwg):>" "*" "dwg" 8))
  (setq path (vl-filename-directory pf))
  (setq path (strcat path "\\"))
  (setq aa (vl-directory-files path "*.dwg" 1))
  (setq n (length aa))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setvar "cmdecho" 0)
  (Setq gm (ssget "x"
    '((0 . "INSERT")
      (2 . "GC096")
      (6 . "CONTINUOUS")
      (8 . "DLDW")
     )
    )
  )
  (if gm
    (progn
      (setq n  (sslength gm)
     n0 0
      )
      (repeat n
(setq ssi (ssname gm n0))
(setq sse (entget ssi))
(setq pt (cdr (assoc 10 sse)))
        (command "-layer" "new" "YFH10" "set" "YFH10" "color" "7" "" "")
        (command "layer" "s" "YFH10" "")
        (command "insert" "bg69-4" pt "" "" "")
(setq n0 (+ n0 1))
      )
    )
  )
  (COMMAND "ERASE" gm "")
  (setvar "dimzin" 8)
  (setq gms (rtos n))
  (setvar "dimzin" 0)
  (setvar "cmdecho" 1)
  (princ (strcat "在此DWG图中共替换" gms "个符号."))
  (princ)
)

zml84

文件选择对话框好像只能选择一个，不能多选。
还有，lisp定义的函数只能在当前图档的范围内运行，当打开新文档时，就没有了。
要实现遍历当前文件夹内所有DWG文件，可以借助脚本文件。

carrot1983

看不懂,哈哈.用得着文件选择对话框吗???
在搜索路径里应该可以吧.