[LISP程序]：批量处理打开指定目录下的所有dwg文件

lsjjm · 发表于 2004-9-15 05:15:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

批量处理打开指定目录下的所有dwg文件
[php]
(defun c:test ()
  ;(vl-load-com)
  (setq dir (getstring "Input Directory: "))
  (setq ff (vl-directory-files dir "*.dwg" 1))
  (foreach i ff
(vla-open
   (vla-get-documents
      (vlax-get-acad-object))(strcat dir i))
  )
)
[/php]

Cyberyll · 发表于 2004-9-15 08:07:38

非常感谢长老

coolzhb · 发表于 2004-9-15 08:27:30

最初由 lsjjm 发布
[B]批量处理打开指定目录下的所有dwg文件
[php]
(defun c:test ()
  ;(vl-load-com)
  (setq dir (getstring "Input Directory: "))
  (setq ff (vl-directory-files dir "*.dwg" 1))
  (foreach i ff
(vla-... [/B]

好像没有必要吧，open时打开文件可以多选打开的！CAD自带的功能呀！

梦断江南 · 发表于 2004-9-15 19:15:29

在程序中调用则需要这样的程序
我平时打开dwg的时候，一般是多选后点右键“打开”，则可同时打开多个文件

Jerry541 · 发表于 2004-9-17 17:41:07

在R14里好象不行的。命令能运行，但是显示
错误: null function
nil*Cancel*

JOSDENNIS · 发表于 2004-9-19 08:23:38

程序要注意的地方是. 本程序用的是(FINDFILE I)所以只可以處理在CAD支持路徑下的文件.如改成 (STRCAT dir i )才夠體貼吧!!!

oyxx_1023 · 发表于 2004-9-19 20:32:59

楼上说的有道理。
再问一下，如果在程序中用这一段代码的话，会不会在CAD窗口出现所有打开的文件？还是只在内存中打开而不显示出来？

lsjjm · 发表于 2004-9-20 04:29:47

谢谢6楼的细心

w379106181 · 发表于 2018-1-15 17:29:08

谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享

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

[LISP程序]：批量处理打开指定目录下的所有dwg文件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [LISP程序]：批量处理打开指定目录下的所有dwg文件