[求助]如何将两个DWG文件的内容根据一定规律放在一个DWG文件中？

dinosaurhxe

因为工作需要，得将两个DWG文件的内容根据一定规律放在一个DWG文件中，每次都是手工操作，就两张图还好办，如果有20张图呢？200张图呢？所以想让程序来执行了。

每张图宽度都是297，长度未知。

思路已经有了，就是不知道怎么去写。请前辈们帮帮忙。

首先将需要贴在一起图放在同一文件夹下，打开第一张图，全部复制，关闭第一张图。打开第二张图，全部MOVE，EXTMIN→（0 0 0），粘贴，（0 360 0），另存为文件名AA1，关闭，打开下一张图，全部复制……如此循环下去

现在第一难点是如何获取该文件夹下所有的文件列表，第二疑问是这个思路会不会导致程序执行速度非常慢？

Andyhon

您用的 CAD 是那一个版次呀

获取该文件夹下所有的文件列表
vl-directory-files

dinosaurhxe

谢谢2楼，但我用(command "open" "filename")怎么打不开文件呢？

或者问怎样用LISP打开CAD文件（已经文件名和路径）？

Andyhon

http://www.autolisp.org/lisps-by-brian.lsp
===>
(defun cmdOpen (name) ....)

lionyoyo

用DOSLib，会更方便些

byghbcx

所有操作命令要用vla-

dinosaurhxe

感谢5楼，这段程序我将借用，虽然还看不明白是什么意思。

Doslib听说过，但现在所学甚浅，还不敢去试用它。

vla-s也不怎么懂

需要更深入的学习啊！

dinosaurhxe

打开第一张图时就死在那里了，请前辈位再指点迷津！！

2. (defun c:gt (/ ACADLSP EXTMIN LST N NEWNAME PATH)
3. (setvar "SDI" 0)
4. (setq acadlsp (getvar "acadlspasdoc"))
5. (setvar "acadlspasdoc" 0)
6. (setq lst (vl-directory-files
7.      (setq path (getvar "dwgprefix"))
8.      "*.dwg"
9.     ) ;_ End vl-directory-files
10. ) ;_ End setq
11. (setq n -1)
12. (repeat (fix (/ (length lst) 2.0))
13.   (cmdopen (strcat path (nth (setq n (1+ n)) lst)))
14.   (command "copyclip" "all" "")
15.   (command "close" "n")
16.   (cmdopen (strcat path (nth (setq n (1+ n)) lst)))
17.   (command "zoom" "e")
18.   (setq extmin (getvar "extmin"))
19.   (command "move" "all" "" extmin (list 0 0 0))
20.   (command "PASTECLIP" (list 0 360 0))
21.   (if (findfile (setq newname (strcat "Print" (itoa (/ n 2)) ".dwg")))
22.    (command "wblock" newname "Y" "*")
23.    (command "wblock" newname "*")
24.   ) ;_ End if
25.   (command "close" "n")
26. ) ;_ End repeat
27. (setvar "acadlspasdoc" acadlsp)
28. (princ)
29. ) ;_ End defun
30. (defun cmdopen (name) ; by others
31. (vl-load-com)
32. (if (= 0 (getvar "SDI"))
33.   (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) name))
34.   (vla-sendcommand
35.    (vla-get-activedocument (vlax-get-acad-object))
36.    (strcat "(command "_.OPEN")\n" name "\n")
37.   ) ; vla-activate
38. ) ; if sdi
39. ) ; defun cmdopen

(defun c:gt (/ ACADLSP EXTMIN LST N NEWNAME PATH) (setvar "SDI" 0) (setq acadlsp (getvar "acadlspasdoc")) (setvar "acadlspasdoc" 0) (setq lst (vl-directory-files      (setq path (getvar "dwgprefix"))      "*.dwg"     ) ;_ End vl-directory-files ) ;_ End setq (setq n -1) (repeat (fix (/ (length lst) 2.0))   (cmdopen (strcat path (nth (setq n (1+ n)) lst)))   (command "copyclip" "all" "")   (command "close" "n")   (cmdopen (strcat path (nth (setq n (1+ n)) lst)))   (command "zoom" "e")   (setq extmin (getvar "extmin"))   (command "move" "all" "" extmin (list 0 0 0))   (command "PASTECLIP" (list 0 360 0))   (if (findfile (setq newname (strcat "Print" (itoa (/ n 2)) ".dwg")))    (command "wblock" newname "Y" "*")    (command "wblock" newname "*")   ) ;_ End if   (command "close" "n") ) ;_ End repeat (setvar "acadlspasdoc" acadlsp) (princ) ) ;_ End defun (defun cmdopen (name) ; by others (vl-load-com) (if (= 0 (getvar "SDI"))   (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) name))   (vla-sendcommand    (vla-get-activedocument (vlax-get-acad-object))    (strcat "(command "_.OPEN")\n" name "\n")   ) ; vla-activate ) ; if sdi ) ; defun cmdopen

xxsheng

为什么要复制？直接在指定位置插入该文件为块，然后炸开，，，，何必打开然后再复制？？？？