[求助]如何批量镜像不同文件中的图形

yybu

有1.dwg、2.dwg、3.dwg ........... n.dwg等N个CAD文件，现有要将这N个文件中的图形以0，0点和0，1组成的直线镜向，并将镜向

后的图形另存为1a.dwg,2a.dwg、3a.dwg ........... na.dwg.哪位高手能编一个这样的LISP程序啊！！

ZZXXQQ

yybu发表于2007-6-5 22:19:00有1.dwg、2.dwg、3.dwg ........... n.dwg等N个CAD文件，现有要将这N个文件中的图形以0，0点和0，1组成的直线镜向，并将镜向后的图形另存为1a.dwg,2a.dwg、3a.dwg ........... na.dwg.哪位高手

2. (DEFUN C:TEST ()
3. (SETVAR "CMDECHO" 0)
4. (SETQ OLDOS (GETVAR "OSMODE"))
5. (SETVAR "OSMODE" 0)
6. (SETQ N 1)
7. (SETQ NM (STRCAT (ITOA N) ".DWG"))
8. (SETQ NM1 (STRCAT (ITOA N) "A.DWG"))
9. (WHILE (FINDFILE NM)
10.   (COMMAND ".UNDO" "BE")
11.   (COMMAND "-INSERT" (STRCAT "*" NM) "0,0" "" "" "ZOOM" "E")
12.   (COMMAND "MIRROR" "ALL" "" "0,0" "0,1" "Y")
13.   (COMMAND "-SAVEAS" NM1)
14.   (COMMAND ".UNDO" "E")
15.   (COMMAND "U")
16.   (SETQ NM (STRCAT (ITOA (SETQ N (1+ N))) ".DWG"))
17.   (SETQ NM1 (STRCAT (ITOA N) "A.DWG"))
18. )
19. (PRINC)
20. )

复制代码

程序在新的空白图中运行。

yybu

呵！呵！

原来你就是晓东里的“zxq0220”

谢谢你的程序。但还有个小要求：
把"D:\BLOCK\CLOCK"下的所有DWG文件都镜像后另存，这样又如何实现？

ZZXXQQ

2. (DEFUN C:TEST ()
3. (VL-LOAD-COM)
4. (SETVAR "CMDECHO" 0)
5. (SETQ OLDOS (GETVAR "OSMODE"))
6. (SETVAR "OSMODE" 0)
7. (SETQ N -1)
8. (SETQ DIR "D:\\BLOCK\\CLOCK")
9. (IF (SETQ NMLIST (VL-DIRECTORY-FILES DIR "*.DWG" 1))
10.   (REPEAT (LENGTH NMLIST)
11.    (COMMAND ".UNDO" "BE")
12.    (SETQ NM (STRCAT DIR (NTH (SETQ N (1+ N)) NMLIST)))
13.    (SETQ NM1 (STRCAT (SUBSTR NM 1 (- (STRLEN NM) 4)) "A.DWG"))
14.    (COMMAND "-INSERT" (STRCAT "*" DIR NM) "0,0" "" "" "ZOOM" "E")
15.    (COMMAND "MIRROR" "ALL" "" "0,0" "0,1" "Y")
16.    (COMMAND "-SAVEAS" NM1)
17.    (COMMAND ".UNDO" "E")
18.    (COMMAND "U")
19.   )
20. )
21. (PRINC)
22. )

复制代码

程序在空白图中运行。

yybu

谢谢版画主的热心解答