求教,,,lsp编程问题.

dwt2601

求教,,,lsp编程问题.


各位大哥,我想批量处量一个目录下的DWG文件,请问应该怎么做啊.. 谢谢了....


请哪位好心大哥给出代码...(框架,谢谢了.)


比如说:将一个目录下所有DWG文件,全部清层等吧.....

dwt2601

xie xie le

dwt2601

??????

xyp1964

利用文件清单生成.scr文件格式： open "dwgname1" 用户程序 qsave close
open "dwgname2" 用户程序 qsave close
……
open "dwgnamen" 用户程序 qsave close

dwt2601

<BR>哪位大哥再说说吧.. 细致点... 我是个初学都什么都不懂... 最好写个简单的程序让我看看行吗??


谢谢了...


怎么用那个SCR,,, 怎么生成????


哪位大侠帮忙写个程序,,,, 让我看看...<BR>谢谢了...

ZZXXQQ

1. (DEFUN C:MPU ()
2.   (SETVAR "CMDECHO" 0)
3.   (SETQ NMM (GETFILED "Select File Name" "" "dwg" 8))
4.   (IF (AND (NOT NMM) (> (STRLEN NMM) 0)) (PROGN
5.    (SETQ SL (STRLEN NMM) I 1)
6.    (WHILE (/= (SUBSTR NMM I 1) ".") (SETQ I (1+ I)))
7.    (WHILE (/= (SUBSTR NMM I 1) "\") (SETQ I (1- I)))
8.    (SETQ PATH (SUBSTR NMM 1 I))
9.    (COMMAND "SHELL" (STRCAT "DIR " PATH "*.DWG /B >DWGFILE.TXT))
10.    (IF (SETQ F (OPEN "DWGFILE.TXT" "r")) (PROGN
11.      (WHILE (SETQ NMM (READ-LINE F))
12.        (IF (> (STRLEN NMM) 0) (PROGN
13.          (COMMAND "_UNDO" "BE")
14.          (COMMAND "_.INSERT" (STRCAT "*" PATH NMM) '(0 0) "" "")
15.          (COMMAND "ZOOM" "E" "REGEN")
16.          (COMMAND "PURGE" "ALL" "*" "N") ;加入您的代码
17.          (SETQ NMM (SUBSTR NMM 1 (- (STRLEN NMM) 4)))
18.          (COMMAND "SAVEAS" NMM)
19.          (WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND "Y"))
20.          (COMMAND "_UNDO" "E")
21.          (COMMAND "_U")
22.        ))
23.      )
24.      (CLOSE F)
25.    ))
26.   ))
27.   (SETVAR "CMDECHO" 1)
28.   (PRINC)
29. )

复制代码

meflying

要看具体处理什么,如果简单点,可以使用ActiveX方法

dwt2601

xie xie le ...hehe