如何批量插入文件？

jsj_306 · 发表于 2011-1-26 21:37:36

如何将一个文件夹下的所有文件批量插入一个已打开文件中，请高手指点，谢谢！

Gu_xl · 发表于 2011-1-26 22:47:33

(defun tt (path)
  (setq files (VL-DIRECTORY-FILES path "*.dwg" 1))
  (foreach f files
(command "-insert" (strcat path "\\" f) '(0 0 0) 1 1  0)
)
  )

jsj_306 · 发表于 2011-1-26 23:37:37

看不懂，加载不能直接用，大侠可否解释下，比如插入"e:\file"这个文件夹下的所有dwg文件，多谢！

xyp1964 · 发表于 2011-1-27 07:52:27

(defun c:tt ()
(foreach bn (vl-directory-files "e:/file/" "*.dwg" 1)
(command "insert" (strcat "e:/file/" bn) '(0 0) "" "" "")
)
)

jsj_306 · 发表于 2011-1-27 21:57:17

多谢楼上的大侠，

管用

jackynine · 发表于 2011-2-9 13:20:30

通过定义命令来插入确实快捷

账号		自动登录	找回密码
密码			注册

[基础] 如何批量插入文件？