[LISP程序]：请求自动批量全屏DWG文件并保存的lisp

cheng52768 · 发表于 2005-8-23 14:56:01

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

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

×

小弟实在不才，最近因为要整理自己的文件，实在需要

请求自动批量全屏DWG文件并保存的lisp

chdragon · 发表于 2005-9-1 20:17:21

我也想要一个

zxq0220 · 发表于 2005-9-2 10:34:26

程序在空白图中运行。
[php]
(DEFUN C:FULLSCR ()
(SETVAR "CMDECHO" 0)
(SETQ NMM (IF NMM NMM ""))
(WHILE (SETQ NMM (GETFILED "Select a File name : " "" "dwg" 2))
  (COMMAND ".UNDO" "BE")
  (COMMAND ".INSERT" (STRCAT "*" NMM) "0,0" "" "")
  (COMMAND "ZOOM" "E")
  (IF (> (DISTANCE (GETVAR "EXTMIN") (LIST 0 0 0)) 0.0)
(COMMAND "MOVE" "ALL" "" (GETVAR "EXTMIN") "0,0" "ZOOM" "E"))
  (COMMAND "BASE" "0,0")
  (SETQ NMM (SUBSTR NMM 1 (- (STRLEN NMM) 4)))
  (COMMAND "SAVEAS" "2004" NMM)
  (WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND "Y"))
  (COMMAND ".UNDO" "E")
  (COMMAND "_U")
))
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

silen618 · 发表于 2005-9-3 16:37:14

这种批量处理的文件，基本上都是用插入块的操作方法。
能否用打开、编辑、保存的方法呢？
用lisp如何切换到新打开（或任意一个打开）文件，在编辑。

yy5heng · 发表于 2005-9-3 19:43:57

代码中能否把存盘部分改为按默认格式存盘？
何必每次都选择格式和另存的文件名呢？
批量处理应该尽量缩短时间为要点吧。

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

[LISP程序]：请求自动批量全屏DWG文件并保存的lisp

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

相关帖子