[求助]：如何将指定目录下的文件插入到文件中?

wytxl2002

如何将指定目录下的文件插入到文件中?

xiao_longxin

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

xyp1964

2. [FONT=courier new](defun c:test (/ file dir filelst )
   
3.   (if (setq file (getfiled "" "" "dwg" 4))
   
4.     (progn
   
5.       (setq dir            (vl-filename-directory file)
   
6.             filelst (vl-directory-files dir "*.DWG")
   
7.       )
   
8.       (foreach n filelst
   
9.         (COMMAND "-INSERT" (strcat dir "\" n) '(0 0) 1 1 0)
   
10.       )
    
11.     )
    
12.   )
    
13.   (command "zoom" "e")
    
14.   (princ)
    
15. )[/FONT]

[FONT=courier new](defun c:test (/ file dir filelst )<br />   (if (setq file (getfiled "" "" "dwg" 4))<br />     (progn<br />       (setq dir            (vl-filename-directory file)<br />             filelst (vl-directory-files dir "*.DWG")<br />       )<br />       (foreach n filelst<br />         (COMMAND "-INSERT" (strcat dir "\" n) '(0 0) 1 1 0)<br />       )<br />     )<br />   )<br />   (command "zoom" "e")<br />   (princ)<br /> )[/FONT]

wytxl2002

谢谢两位，不知如何在加入文件时同时设定比例，最还同DCL文件一起使用？

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060211(2064)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. (defun c:test (/ file dir filelst )
    
15.   (cmdla0)
    
16.   (if (null sca )(setq sca 1))
    
17.   (setq sca (UREAL 7 "" "\n设定比例" sca))
    
18.   (if (setq file (getfiled "" "" "dwg" 4))
    
19.     (progn
    
20.       (setq dir            (vl-filename-directory file)
    
21.             filelst (vl-directory-files dir "*.DWG")
    
22.       )
    
23.       (foreach n filelst
    
24.         (COMMAND "-INSERT" (strcat dir "\" n) '(0 0) sca sca 0)
    
25.       )
    
26.     )
    
27.   )
    
28.   (command "zoom" "e")
    
29.   (cmdla1)
    
30. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060211(2064)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test (/ file dir filelst )<br />   (cmdla0)<br />   (if (null sca )(setq sca 1))<br />   (setq sca (UREAL 7 "" "\n设定比例" sca))<br />   (if (setq file (getfiled "" "" "dwg" 4))<br />     (progn<br />       (setq dir            (vl-filename-directory file)<br />             filelst (vl-directory-files dir "*.DWG")<br />       )<br />       (foreach n filelst<br />         (COMMAND "-INSERT" (strcat dir "\" n) '(0 0) sca sca 0)<br />       )<br />     )<br />   )<br />   (command "zoom" "e")<br />   (cmdla1)<br /> )[/FONT]