飞哥，上次你帮我编的程序在CAD2004……

tukuitk

飞哥，上次你帮我编的那个批量替换一个文件夹内的所有图纸内的文字、属性参照程序在只装有CAD2004的机子上好像用不了！！！
在装有CAD2002、2000的机子上可正常运用。

meflying

不可能，我一直都是用2004的，是不是有些设置不同。
你看看程序开头有没有(vl-load-com)，如果没有，加上这句再试试。加在程序文件的最上面，单独的

meflying

好象程序里有(vl-load-com)，你说说看出错提示是什么？

tukuitk

在运行(vla-open DBXDOCX DwgName)时出错！可能是在给DBXDOC赋值时不对。
另外，我修改你的程序的一部分如下：
(defun findpath()
  (while (not files)
    (progn
      (setq path (qf_getFolder "请选择目录..."))
      (setq files (vl-directory-files path "*.dwg" 1))
      (if (not files)
        (alert "所选目录无 .dwg 文件！请重新选择——")
      )
    )
  )
)
(defun C:kr_swap (/ APP DOC path files file)
  (setq errtmp *error*)
  (setq *error* err)
  (setq APP (vlax-get-acad-object))
  (setq DOC (vla-get-activedocument APP))
  (setq dcl_id (load_dialog "KR_swap.dcl"))
  (if (not (new_dialog "kr_swap" dcl_id))
    (exit)
  )
  (action_tile "browse" "(findpath) (set_tile \"path\" path)")
  (action_tile "oldtext" "(setq oldtext $value)")
  (action_tile "newtext" "(setq newtext $value)")
  (action_tile "accept" "(done_dialog 1)")
  (setq dd (start_dialog))
  (if (= dd 1)
    (progn
      (textpage)
      (foreach file files
        (TextMain app doc (strcat path "\\" file))
        (princ (strcat path "\\" file "  替换成功完成了\n"))
      )
    )
  )
  (unload_dialog dcl_id)
  (vlax-release-object DOC)
  (vlax-release-object APP)
  (princ)
)

当我点了getFolder时，又不想执行程序了，上述程序就要进入一个循环，只有选择的文件夹内有DWG文件时才能退出，怎样完善它呢？飞哥！

meflying

判断一下PATH变量，如果PATH为非空，则表示你选择了目录，如果里面没有*.DWG文件，就要重选，如果PATH为空，表示你是取消的，就退出选择

tukuitk

谢谢飞哥！
尔乃真好人也！