[编程申请]：把一个目录下的多个图形拼成一张图

zhanzujie

如何把一个目录下的多个图形拼成一张图，不用手工一张一张插入，程序代码怎么编

xiao_longxin

2. 
   
3. (defun c:fileddinsert (/ file dir FILE-J N I)
   
4.   (setq file (getfiled "" "" "dwg" 4))
   
5.   (if (= file nil)
   
6.     (exit)
   
7.     (progn
   
8.       (setq dir (vl-filename-directory file))
   
9.       (SETQ FILE-J (vl-directory-files DIR "*.DWG"))
   
10.       (SETQ I 0)
    
11.       (SETQ N (LENGTH FILE-J))
    
12.       (REPEAT N
    
13.           (SETQ FILE (NTH  I FILE-J))
    
14.           (SETQ FILE (STRCAT DIR "\" FILE))
    
15.           (COMMAND "-INSERT" FILE '(0 0) 1 1 0)
    
16. 
    
17.           (SETQ I (1+ I))
    
18.         )
    
19.     )
    
20.   )
    
21. )
    

<br /> (defun c:fileddinsert (/ file dir FILE-J N I)<br />   (setq file (getfiled "" "" "dwg" 4))<br />   (if (= file nil)<br />     (exit)<br />     (progn<br />       (setq dir (vl-filename-directory file))<br />       (SETQ FILE-J (vl-directory-files DIR "*.DWG"))<br />       (SETQ I 0)<br />       (SETQ N (LENGTH FILE-J))<br />       (REPEAT N<br />           (SETQ FILE (NTH  I FILE-J))<br />           (SETQ FILE (STRCAT DIR "\" FILE))<br />           (COMMAND "-INSERT" FILE '(0 0) 1 1 0)<br /> <br />           (SETQ I (1+ I))<br />         )<br />     )<br />   )<br /> )<br />

zhanzujie

很好用，谢谢xiao_longxin 大侠！