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

jaminth 发表于 2007-7-24 18:36:00

我想利用LISP 对当前打开的文件,其所在文件夹的所有DWG文件进行批量处理,可程序运行后,总对当前打开的文件起作用,不能对批量打开的DWG文件进行处理,,,,请高手帮忙!!!!<div class="htmlcode" id="mc36122" style="BORDER-RIGHT: #ccc 1px solid; BORDER-TOP: #ccc 1px solid; PADDING-LEFT: 5px; BORDER-LEFT: #ccc 1px solid; BORDER-BOTTOM: #ccc 1px solid;">(<a href="http://www.mjtd.com/object/autolisp/defun.htm" target="_black">defun</a>
C:bclf
()    (<a href="http://www.mjtd.com/object/autolisp/vl-load-com.htm" target="_black">vl-load-com</a>)    (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> HOLDECHO (<a href="http://www.mjtd.com/object/autolisp/getvar.htm" target="_black">getvar</a>
"cmdecho"))    (<a href="http://www.mjtd.com/object/autolisp/setvar.htm" target="_black">setvar</a>
"cmdecho"
0)    (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> HOLDLSP (<a href="http://www.mjtd.com/object/autolisp/getvar.htm" target="_black">getvar</a>
"ACADLSPASDOC"))    (<a href="http://www.mjtd.com/object/autolisp/setvar.htm" target="_black">setvar</a>
"acadlspasdoc"
0)    (<a href="http://www.mjtd.com/object/autolisp/if.htm" target="_black">if</a>
(<a href="http://www.mjtd.com/object/autolisp/61.htm" target="_black">=</a>
(<a href="http://www.mjtd.com/object/autolisp/getvar.htm" target="_black">getvar</a>
"DWGTITLED")
1)      (<a href="http://www.mjtd.com/object/autolisp/progn.htm" target="_black">progn</a>        (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> path (<a href="http://www.mjtd.com/object/autolisp/getvar.htm" target="_black">getvar</a>
"DWGPREFIX"))        (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a>   DWG_LIST (<a href="http://www.mjtd.com/object/autolisp/acad_strlsort.htm" target="_black">acad_strlsort</a>
(<a href="http://www.mjtd.com/object/autolisp/vl-directory-files.htm" target="_black">vl-directory-files</a> path "*.dwg"
1))        )        (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> list_number (<a href="http://www.mjtd.com/object/autolisp/vl-list-length.htm" target="_black">vl-list-length</a> dwg_list))        (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> index 0       nm 0        )        (<a href="http://www.mjtd.com/object/autolisp/repeat.htm" target="_black">repeat</a> list_number   (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> dwgfile (<a href="http://www.mjtd.com/object/autolisp/nth.htm" target="_black">nth</a> index DWG_LIST))   (vla-open
(vla-get-documents
(<a href="http://www.mjtd.com/object/autolisp/vlax-get-acad-object.htm" target="_black">vlax-get-acad-object</a>))      (<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a> path dwgfile)   )        (<a href="http://www.mjtd.com/object/autolisp/vl-Catch-All-Apply.htm" target="_black">vl-Catch-All-Apply</a>   '(<a href="http://www.mjtd.com/object/autolisp/lambda.htm" target="_black">lambda</a>
()      (vla-Remove        (vla-GetExtensionDictionary          (vla-Get-Layers     (vla-Get-ActiveDocument
(<a href="http://www.mjtd.com/object/autolisp/vlax-Get-Acad-Object.htm" target="_black">vlax-Get-Acad-Object</a>))          )        )        "ACAD_LAYERFILTERS"      )    )        )        (<a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black">command</a>
"purge"
"a"
"*"
"n")        (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> index (<a href="http://www.mjtd.com/object/autolisp/1+.htm" target="_black">1+</a> index))        (<a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black">setq</a> nm (<a href="http://www.mjtd.com/object/autolisp/1+.htm" target="_black">1+</a> nm))        (<a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black">command</a>
"qsave")        )    )    (<a href="http://www.mjtd.com/object/autolisp/alert.htm" target="_black">alert</a>
"You Must Open An Exited Dwg-file With READ-ONLY First!")    )    (<a href="http://www.mjtd.com/object/autolisp/prompt.htm" target="_black">prompt</a>
(<a href="http://www.mjtd.com/object/autolisp/strcat.htm" target="_black">strcat</a>
"Batch operate "
(<a href="http://www.mjtd.com/object/autolisp/itoa.htm" target="_black">itoa</a> nm)
" files!"))    (<a href="http://www.mjtd.com/object/autolisp/setvar.htm" target="_black">setvar</a>
"acadlspasdoc" HOLDLSP)    (<a href="http://www.mjtd.com/object/autolisp/setvar.htm" target="_black">setvar</a>
"cmdecho" HOLDECHO)    (<a href="http://www.mjtd.com/object/autolisp/princ.htm" target="_black">princ</a>)    ) </div>

王咣生 发表于 2007-7-26 12:35:00

批处理LISP不擅长,用VBA方便一些.用VBA打开每一个dwg,然后SendCommand一个lisp命令,处理后保存关闭.

7686599 发表于 2007-7-26 20:55:00

何不试下打开文件后，先对其它文件执行命令，最后再执行当前文档。

页: [1]

明经CAD社区's Archiver

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