求一个lisp程序，可以把多个dwg文件合并成一个文件

duanqing

求一个lisp程序，可以把多个dwg文件合并成一个文件。将同一个dwg文件发给多个人，不同的人修改后，在收集起来，想把修改后的多个文件合成一个文件，求大神帮助，万分感谢


该贴已经同步到 duanqing的微博

davide888

搜搜  有的

ly8zx2109

看看这个能用不。

sicky111

要学会搜索。

duanqing

ly8zx2109 发表于 2015-7-8 09:34
看看这个能用不。

谢谢  我试试

wayne_myles

我恰好有一个 ，不知道是哪位高手写的！可惜了无名英雄是最伟大的

;; 原点批量插图块
(defun c:II (/ pf path lst)
  (defun sub (path lst mode / a name)
    (foreach a lst
      (setq name (strcat path a)
            name (if (= mode 0)
                   name
                   (strcat "*" name)
                 )
      )
      (command "insert" name "0,0" "1" "1" "")
    )
  )
  (setq        dwg  (getfiled "指定原文件路径中的一个图形文件:>" "F:\\" "dwg" 8)
        path (strcat (vl-filename-directory dwg) "\\")
        lst  (vl-directory-files path "*.dwg" 1)
        ukw  "1"
  )
  (prompt "\n程序正在插入图幅，请等待...")
  (cond        ((= ukw "1") (sub path lst 0))
        ((= ukw "2") (sub path lst t))
  )
  (princ)
)
(defun ukword (bit kwd msg def / inp)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp
    inp
    def
  )
)