[分享]：我的血泪史，一定要用DELAY命令？

张世杰

编了一个小东西，第一次运行总是不爽。最后发现是建立目录时切换SH命令太慢的原因。（是不是这样，我也没把握）请看下面的注释行为XXXXXXXXXXXX的。
这是把一张图里的几张图，分别按图号另存的程序。

2. 
   
3.   [FONT=courier new]
   
4. ((defun C:GTM ()
   
5.   (setq S-ALL (ssget "all"))
   
6.   (print "请你选择要重命名的图形？")
   
7.   (setq S-00 (ssget))
   
8.   (progn
   
9.     (setq KK 0)
   
10.     (while (< KK (sslength S-00))
    
11.       (setq NAME (ssname S-00 KK))
    
12.       (setq S-ALL (ssdel NAME S-ALL))
    
13.       (setq KK (1+ KK))
    
14.     )
    
15.   )                                        ;把要保存的图形从全部图形中选择出来。
    
16.   (command "erase" S-ALL "")                ;把多余的图形删除。
    
17.   (command "zoom" "e")
    
18.   (print "请选择您要保存的图号:一定要选择对。")
    
19.   (setq S (ssget))                        ;选择右下脚的图号。.
    
20.   (progn (setq NNAME (ssname S 0))
    
21.          (setq A (entget NNAME))
    
22.          (if (= (cdr (assoc '0 A)) "TEXT") ;判断是否是文本。
    
23.            (progn
    
24.              (setq V0 (cdr (assoc '1 A)))
    
25.              (setq N0 (vl-string-search "-" V0))
    
26.              (setq V1 (substr V0 1 N0))
    
27.              (setq V2 (substr V0 (+ 2 N0)))
    
28.              (setq N1 (vl-string-search "-" V2))
    
29.              (setq V11 (substr V2 1 N1))
    
30.              (setq AAA (strcat "D:\\工程\" V1 "\" V11 "\" V0))
    
31.              (setq
    
32.                BBB (strcat "md " (strcat "D:\\工程\" V1 "\" V11 "\"))
    
33.              )
    
34.            )
    
35.            (progn (command "oops") (exit)) ;选择错退出
    
36.          )
    
37.   )
    
38.   (vl-cmdf "sh" BBB)
    
39.   (vl-cmdf "DELAY" 500)                        ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    
40.   (command "saveas" "" AAA "y")
    
41.   (command "oops")
    
42.   (command "erase" S-00 "")
    
43.   (command "zoom" "e")
    
44. )  [/FONT]
    

<br />   [FONT=courier new]<br /> ((defun C:GTM ()<br />   (setq S-ALL (ssget "all"))<br />   (print "请你选择要重命名的图形？")<br />   (setq S-00 (ssget))<br />   (progn<br />     (setq KK 0)<br />     (while (< KK (sslength S-00))<br />       (setq NAME (ssname S-00 KK))<br />       (setq S-ALL (ssdel NAME S-ALL))<br />       (setq KK (1+ KK))<br />     )<br />   )                                        ;把要保存的图形从全部图形中选择出来。<br />   (command "erase" S-ALL "")                ;把多余的图形删除。<br />   (command "zoom" "e")<br />   (print "请选择您要保存的图号:一定要选择对。")<br />   (setq S (ssget))                        ;选择右下脚的图号。.<br />   (progn (setq NNAME (ssname S 0))<br />          (setq A (entget NNAME))<br />          (if (= (cdr (assoc '0 A)) "TEXT") ;判断是否是文本。<br />            (progn<br />              (setq V0 (cdr (assoc '1 A)))<br />              (setq N0 (vl-string-search "-" V0))<br />              (setq V1 (substr V0 1 N0))<br />              (setq V2 (substr V0 (+ 2 N0)))<br />              (setq N1 (vl-string-search "-" V2))<br />              (setq V11 (substr V2 1 N1))<br />              (setq AAA (strcat "D:\\工程\" V1 "\" V11 "\" V0))<br />              (setq<br />                BBB (strcat "md " (strcat "D:\\工程\" V1 "\" V11 "\"))<br />              )<br />            )<br />            (progn (command "oops") (exit)) ;选择错退出<br />          )<br />   )<br />   (vl-cmdf "sh" BBB)<br />   (vl-cmdf "DELAY" 500)                        ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx<br />   (command "saveas" "" AAA "y")<br />   (command "oops")<br />   (command "erase" S-00 "")<br />   (command "zoom" "e")<br /> )  [/FONT]<br />

LUCAS

這種血淚史，多年前就遇到了？由於Dos執行速度很慢也不知道甚麼時候會完成!程序都很不穩定(每部機daley都不同!!  :(

e2002

现在不需要再这样作了，你可以用VL的ActiveX方法直接调用Windows的函数，完成文件夹，文件的相关操作。

秋枫

建议使用这个函数：
(vl-mkdir "c:/qf_test")

Qlin

用doslib或晓东的API也可以，而且很方便

LUCAS

這是我以前有問題的程序(sld預覽)因為用了別人的exe檔案