[LISP程序]：如何批量处理图纸？

jtybzl

我想用lisp编程实现对300多张图纸进行同样操作，就是先打开图纸，然后将图纸中所有的块都用WBLOCK写到指定的目录文件夹中，其中写块程序我已经作好了，现在的问题是如何将300张图纸用程序来进行自动处理？

John

写个脚本程序好了
用命令行：open “路径＋文件名” “要执行的命令” “参数”
每个文件一行

jtybzl

能否用lisp来建立这个脚本文件，然后存为.scr格式？我的意思是想用lisp来艘素指定文件夹里的所有.dwg图纸，然后列表，根据列表来建立.scr文件，然后再有lisp调用该脚本。大家看能行通吗？

jtybzl

现在我试过了，用lisp建.scr文件完全可以，现在需要解决的问题是，如何来搜索某一文件夹下的所有.dwg文件，来产生一个列表。

John

用dir *.dwg/s>xxx.txt列文件

jtybzl

瞧我刚才执行下面代码的结果
(command "sh" "dir f:\\*.dwg/s>f:\\a.txt")

请看附件
里面的东西太多了，这个列表内容太多了，我只想要列出类似下面的形式，然后按每个文件名一行的格式，好供lisp来读取它。

BLCH-1115TBWE-RL-1.dwg
BLCH-1115TBWE-RL-2.dwg
BLCH-1115TBWE-RL-3.dwg
......................
....
..
能否实现这样的功能？

jtybzl

大家看还有没有别的解决办法？

cy956

你该好好查查dir的参数

(command "dir" (strcat pathfile ext "   /s /b >c:\\cyotemp.txt"))

jtybzl

我明白了，谢谢您的指点，但您刚才的代码里缺了'sh'

John

您要自动生成脚本？那这dir可能不行，因为总有附加信息且对长文件支持不好，用函数库里的吧

jtybzl

最好是lisp的，帮忙找一个？

jtybzl

我的实现方法可能太笨拙了，但经过我调试还算可以，代码如下：
请高手们看了不要笑，不合理的地方请给予指正，或提供小弟一个更好的程序或方法。

2. 
   
3. (defun c:hh()
   
4.   (vl-load-com)
   
5.   (setq ff0 "f:/a.txt")
   
6.          (setq len (mc_getfile_line ff0))
   
7.          (setq liebiao "")
   
8.           (setq p 0)
   
9.          (while (> len 0)
   
10.           
    
11.            (setq wenjianming (mc_getfile_text ff0 p))
    
12.            (setq liebiao (strcat liebiao (strcat "open " wenjianming "\n"
    
13.                                                  "(" "load" "wba.lsp" ")" "\n" "wba" "\n")))
    
14.            (setq ff "f:/aaa.scr")
    
15.          (setq ffa (open ff "w"))
    
16.                (write-line liebiao ffa)
    
17.            (setq len (- len 1))
    
18.            (setq p (1+ p))
    
19.            )
    
20.          
    
21.                 (close ffa)
    
22.   )
    
23. (defun mc_getfile_text (files0 line0 / fn0 text0)
    
24.   (setq line0(+ 1 line0))
    
25.   ;(setq files0 (findfile files0))
    
26.   (if files0
    
27.     (progn
    
28.       (setq fn0(open files0 "r"))
    
29.       (if (<= line0 (mc_getfile_line files0))
    
30.         (progn
    
31.           (repeat line0
    
32.             (setq text0(read-line fn0))
    
33.           )
    
34.           (close fn0)
    
35.           text0
    
36.         )
    
37.         nil
    
38.       )
    
39.     )
    
40.     nil
    
41.   )
    
42. )
    
43. 
    
44. 
    
45.     ;读取文件的行数
    
46. 
    
47.   (defun mc_getfile_line(files1 / tmplst1 x1 fn1)
    
48.   (setq files1(findfile files1))
    
49.   (if files1
    
50.     (progn
    
51.       (setq tmplst1 0)
    
52.       (setq fn1(open files1 "r"))
    
53.       (while (read-line fn1)
    
54.         (setq tmplst1 (+ 1 tmplst1))
    
55.       )
    
56.       (close fn1)
    
57.       tmplst1
    
58.     )
    
59.     nil
    
60.   )
    
61. )

<br /> (defun c:hh()<br />   (vl-load-com)<br />   (setq ff0 "f:/a.txt")<br />          (setq len (mc_getfile_line ff0))<br />          (setq liebiao "")<br />           (setq p 0)<br />          (while (> len 0)<br />            <br />            (setq wenjianming (mc_getfile_text ff0 p))<br />            (setq liebiao (strcat liebiao (strcat "open " wenjianming "\n"<br />                                                  "(" "load" "wba.lsp" ")" "\n" "wba" "\n")))<br />            (setq ff "f:/aaa.scr")<br />          (setq ffa (open ff "w"))<br />                (write-line liebiao ffa)<br />            (setq len (- len 1))<br />            (setq p (1+ p))<br />            )<br />          <br />                 (close ffa)<br />   )<br /> (defun mc_getfile_text (files0 line0 / fn0 text0)<br />   (setq line0(+ 1 line0))<br />   ;(setq files0 (findfile files0))<br />   (if files0<br />     (progn<br />       (setq fn0(open files0 "r"))<br />       (if (<= line0 (mc_getfile_line files0))<br />         (progn<br />           (repeat line0<br />             (setq text0(read-line fn0))<br />           )<br />           (close fn0)<br />           text0<br />         )<br />         nil<br />       )<br />     )<br />     nil<br />   )<br /> )<br /> <br /> <br />     ;读取文件的行数 <br /> <br />   (defun mc_getfile_line(files1 / tmplst1 x1 fn1)<br />   (setq files1(findfile files1))<br />   (if files1<br />     (progn<br />       (setq tmplst1 0)<br />       (setq fn1(open files1 "r"))<br />       (while (read-line fn1)<br />         (setq tmplst1 (+ 1 tmplst1))<br />       )<br />       (close fn1)<br />       tmplst1 <br />     )<br />     nil<br />   )<br /> )

秋枫

http://www.xdcad.net/forum/showt ... y=&pagenumber=2

用VBA做的lisp批处理程序

                               
登录/注册后可看大图

jtybzl

我现在还不想用VBA来做，眼下好象这个问题能用LISP来解决，再说，我对VBA还不懂，主要想学一下LISP，自己做个程序，不过还是要谢谢你哦
请大家再来帮忙

四季豆

这个VBA的框架部分已经做好了，只要把你负责处理的那部分lisp代码贴到框子中就可以了。