编LISP求助,程序不能按设计意图运行!!!!!

jaminth

我想利用LISP 对当前打开的文件,其所在文件夹的所有DWG文件进行批量处理,可程序运行后,总对当前打开的文件起作用,不能对批量打开的DWG文件进行处理,,,,请高手帮忙!!!!

2. (defun C:bclf ()
3.   (vl-load-com)
4.   (setq HOLDECHO (getvar "cmdecho"))
5.   (setvar "cmdecho" 0)
6.   (setq HOLDLSP (getvar "ACADLSPASDOC"))
7.   (setvar "acadlspasdoc" 0)
8.   (if (= (getvar "DWGTITLED") 1)
9.     (progn
10.       (setq path (getvar "DWGPREFIX"))
11.       (setq
12. DWG_LIST (acad_strlsort (vl-directory-files path "*.dwg" 1))
13.       )
14.       (setq list_number (vl-list-length dwg_list))
15.       (setq index 0
16.      nm 0
17.       )
18.       (repeat list_number
19. (setq dwgfile (nth index DWG_LIST))
20. (vla-open (vla-get-documents (vlax-get-acad-object))
21.     (strcat path dwgfile)
22. )
23.       (vl-Catch-All-Apply
24. '(lambda ()
25.     (vla-Remove
26.       (vla-GetExtensionDictionary
27.         (vla-Get-Layers
28.    (vla-Get-ActiveDocument (vlax-Get-Acad-Object))
29.         )
30.       )
31.       "ACAD_LAYERFILTERS"
32.     )
33.   )
34.       )
35.       (command "purge" "a" "*" "n")
36.       (setq index (1+ index))
37.       (setq nm (1+ nm))
38.       (command "qsave")
39.       )
40.   )
41.   (alert "You Must Open An Exited Dwg-file With READ-ONLY First!")
42.   )
43.   (prompt (strcat "Batch operate " (itoa nm) " files!"))
44.   (setvar "acadlspasdoc" HOLDLSP)
45.   (setvar "cmdecho" HOLDECHO)
46.   (princ)
47.   )

(defun C:bclf ()   (vl-load-com)   (setq HOLDECHO (getvar "cmdecho"))   (setvar "cmdecho" 0)   (setq HOLDLSP (getvar "ACADLSPASDOC"))   (setvar "acadlspasdoc" 0)   (if (= (getvar "DWGTITLED") 1)     (progn       (setq path (getvar "DWGPREFIX"))       (setq DWG_LIST (acad_strlsort (vl-directory-files path "*.dwg" 1))       )       (setq list_number (vl-list-length dwg_list))       (setq index 0      nm 0       )       (repeat list_number (setq dwgfile (nth index DWG_LIST)) (vla-open (vla-get-documents (vlax-get-acad-object))     (strcat path dwgfile) )       (vl-Catch-All-Apply '(lambda ()     (vla-Remove       (vla-GetExtensionDictionary         (vla-Get-Layers    (vla-Get-ActiveDocument (vlax-Get-Acad-Object))         )       )       "ACAD_LAYERFILTERS"     )   )       )       (command "purge" "a" "*" "n")       (setq index (1+ index))       (setq nm (1+ nm))       (command "qsave")       )   )   (alert "You Must Open An Exited Dwg-file With READ-ONLY First!")   )   (prompt (strcat "Batch operate " (itoa nm) " files!"))   (setvar "acadlspasdoc" HOLDLSP)   (setvar "cmdecho" HOLDECHO)   (princ)   )

dunkel

lsp, 每个图形打开时都会重新初始化 lsp 环境的, 所以想通过 lsp 来进行批处理是不可以的. 可以通过 ActiveX, scr 脚本文件等来实现