[讨论]：如何批量镜像不同文件中的图形

yybu · 发表于 2007-6-5 22:27:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有1.dwg、2.dwg、3.dwg ........... n.dwg等N个CAD文件，现有要将这N个文件中的图形以0，0点和0，1组成的直线镜向，并将镜向后的图形另存为1a.dwg,2a.dwg、3a.dwg ........... na.dwg.哪位高手能编一个这样的LISP程序啊！！

zxq0220 · 发表于 2007-6-5 23:43:48

[php]
(DEFUN C:TEST ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ N 1)
(SETQ NM (STRCAT (ITOA N) ".DWG"))
(SETQ NM1 (STRCAT (ITOA N) "A.DWG"))
(WHILE (FINDFILE NM)
  (COMMAND ".UNDO" "BE")
  (COMMAND "-INSERT" (STRCAT "*" NM) "0,0" "" "" "ZOOM" "E")
  (COMMAND "MIRROR" "ALL" "" "0,0" "0,1" "Y")
  (COMMAND "-SAVEAS" NM1)
  (COMMAND ".UNDO" "E")
  (COMMAND "U")
  (SETQ NM (STRCAT (ITOA (SETQ N (1+ N))) ".DWG"))
  (SETQ NM1 (STRCAT (ITOA N) "A.DWG"))
)
(PRINC)
)
[/php]
程序在空白图中运行。

carrot1983 · 发表于 2007-6-6 08:38:51

喜欢。。。。
楼上的程序我就想不到用插入块来实现。。。
我只想到用vba或vb来批量处理。

yybu · 发表于 2007-6-7 15:42:54

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

账号		自动登录	找回密码
密码			立即注册

[讨论]：如何批量镜像不同文件中的图形

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子