[LISP程序]：请问版主

hbhswy

大批量制作幻灯片中的bmslide.lsp运行后为何生成如下:
正在处理 等一下...error: null function
(VL-DIRECTORY-FILES PATH nil 1)
(FOREACH NAME (VL-DIRECTORY-FILES PATH nil 1) (IF (= (STRCASE
(VL-FILENAME-EXTENSION NAME) T) ".dwg") (PROGN (VL-CMDF "-insert" (STRCAT PATH
"\\" NAME) (QUOTE (0 0 0)) "" "" "") (VL-CMDF "zoom" "e" "zoom" "0.95x")
(VL-CMDF "mslide" (STRCAT PATH "\\" (VL-FILENAME-BASE NAME))) (VL-CMDF "erase"
"all" "") (WRITE-LINE (VL-FILENAME-BASE NAME) FN) (SETQ N (1+ N))) nil))
(C:BMSLIDE)
*Cancel*


为何不能用?他的原程序为:

2. 
   
3. 
   
4. ;;;  将指定目录中的DWG文件全部做成SLD文件,保存在相同目录中,并生成SLD文件
   
5. ;;;  名列表文件: Bmslide.
   
6. (defun c:bmslide (/ path #time time-1 fn n name time-2 time-last)
   
7.   (setq path (getstring "\n请指定 DWG 文件目录:"))
   
8.   (princ "\n   正在处理,等一下...")
   
9.   (princ)  
   
10.   (setq cmdecho-save (getvar "CMDECHO"))
    
11.   (setvar "CMDECHO" 0)
    
12.   (setq #time (getvar "DATE"))                    ;Time1
    
13.   (setq time1 (* 86400.0 (- #time (fix #time))))  ;Time1
    
14.   (setq fn (open (strcat path "\" "namelist.txt") "a"))
    
15.   (setq n 0)
    
16.   (foreach name (vl-directory-files path nil 1)
    
17.     (if (= (strcase (vl-filename-extension name) t) ".dwg")
    
18.       (progn
    
19.         (vl-cmdf "-insert" (strcat path "\" name) '(0 0 0)"""""")
    
20.         (vl-cmdf "zoom" "e" "zoom" "0.95x")
    
21.         (vl-cmdf "mslide" (strcat path "\" (vl-filename-base name)))
    
22.         (vl-cmdf "erase" "all" "")
    
23.         (write-line (vl-filename-base name) fn)
    
24.         (setq n (1+ n))
    
25.       );end progn
    
26.       nil
    
27.     );endf if
    
28.   );end foreach
    
29.   (close fn)
    
30.   (princ)
    
31.   (princ "\n   完成了!")(princ)
    
32.   (setvar "CMDECHO" cmdecho-save)
    
33.   (setq #time (getvar "DATE"))                    ;Time2
    
34.   (setq time2 (* 86400.0 (- #time (fix #time))))  ;Time2
    
35.   (setq time-last (- time2 time1))              ;time-last
    
36.   (alert (strcat "                搞定啦! 搞定啦!\n\n"
    
37.           "有 " (rtos n) "  个 SLD 文件s生成,存放在目录\n\n"
    
38.           "  " path "  里."
    
39.           "\n\n共耗时  " (rtos time-last) "  秒s.")
    
40.   )
    
41. )

<br /> <br /> ;;;  将指定目录中的DWG文件全部做成SLD文件,保存在相同目录中,并生成SLD文件<br /> ;;;  名列表文件: Bmslide.<br /> (defun c:bmslide (/ path #time time-1 fn n name time-2 time-last)<br />   (setq path (getstring "\n请指定 DWG 文件目录:"))<br />   (princ "\n   正在处理,等一下...")<br />   (princ)  <br />   (setq cmdecho-save (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (setq #time (getvar "DATE"))                    ;Time1<br />   (setq time1 (* 86400.0 (- #time (fix #time))))  ;Time1<br />   (setq fn (open (strcat path "\" "namelist.txt") "a"))<br />   (setq n 0)<br />   (foreach name (vl-directory-files path nil 1)<br />     (if (= (strcase (vl-filename-extension name) t) ".dwg")<br />       (progn<br />         (vl-cmdf "-insert" (strcat path "\" name) '(0 0 0)"""""")<br />         (vl-cmdf "zoom" "e" "zoom" "0.95x")<br />         (vl-cmdf "mslide" (strcat path "\" (vl-filename-base name)))<br />         (vl-cmdf "erase" "all" "")<br />         (write-line (vl-filename-base name) fn)<br />         (setq n (1+ n))<br />       );end progn<br />       nil<br />     );endf if<br />   );end foreach<br />   (close fn)<br />   (princ)<br />   (princ "\n   完成了!")(princ)<br />   (setvar "CMDECHO" cmdecho-save)<br />   (setq #time (getvar "DATE"))                    ;Time2<br />   (setq time2 (* 86400.0 (- #time (fix #time))))  ;Time2<br />   (setq time-last (- time2 time1))              ;time-last<br />   (alert (strcat "                搞定啦! 搞定啦!\n\n" <br />           "有 " (rtos n) "  个 SLD 文件s生成,存放在目录\n\n" <br />           "  " path "  里." <br />           "\n\n共耗时  " (rtos time-last) "  秒s.")<br />   )<br /> )

dwgplt

这是因为你在R14下使用的缘故，这个程序只能在R2000以上使用。

eachy

最初由 dwgplt 发布
[B]这是因为你在R14下使用的缘故，这个程序只能在R2000以上使用。 [/B]

把下面的文件解压到Support目录，然后添加到 Acad.rx ，再在acadr14.lsp 中加入初始化面临 (vlarts-init) (vlrts-init) 以后14下也就可以用论坛上大部分的使用 ActiveX 的程序了。
http://www.xdcad.net/modrator/fi ... 60924_vlisp_r14.rar