找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 764|回复: 0

[LISP程序]:哪位高手进来帮忙看看一个关于批处理的vlisp!!

[复制链接]
发表于 2007-7-24 19:02:54 | 显示全部楼层 |阅读模式

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

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

×
下面的程序是能正常运行的:

(defun c:aa ();(/ app doc docs err errtmp file files newpath old_acadlspasdoc old_cmdecho path sset)
  (zhl_registry)
  (defun getFolder (str_title str_prompt /)
    (strcat (vl-string-right-trim "\\" (strcase (acet-ui-pickdir str_prompt
         (vl-string-right-trim "\\"
                 (getvar "dwgprefix")
         ) str_title
      )
           )
     ) "\\"
    )
  )
  (defun makeDirectory (dir /)(vl-mkdir dir))
  (defun userundo ()
    (setq *error* errtmp)
    (vlax-release-object docs)
    (vlax-release-object app)
    (setvar "cmdecho" old_cmdecho)
    (setvar "acadlspasdoc" old_acadlspasdoc)
    (princ)
  )
  (defun err (msg)(userundo))
  (setq errtmp *error*)
  (setq *error* err)
  (setq old_cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq old_acadlspasdoc (getvar "acadlspasdoc"))
  (setvar "acadlspasdoc" 0)
  (setq app (vlax-get-acad-object))
  (setq docs (vla-get-documents app))
  (setq path (getFolder "请选择目录..." "请选择目录:"))
  (setq files (vl-directory-files path "*.dwg" 1))
  (if files
    (progn
      (setq newpath (strcat path "处理文件\\"))
      (makeDirectory newpath)
      (foreach file files
(setq doc (vla-open docs (strcat path file)))
(setq sset (vla-get-activeselectionset doc))
(vla-export doc (strcat newpath file) "dxf" sset)
;(vla-save doc)
(vla-close doc :vlax-false)
(setq doc (vla-open docs (strcat newpath file ".dxf")))
(setq sset (vla-get-activeselectionset doc))
(vla-export doc (strcat path file) "dxf" sset)

;我想把上面这一句改成:输出所有DXF文件成DWG格式到Path下,并覆盖原来的DWG文件
(vla-close doc :vlax-false)
(vlax-release-object doc)
      )
    )
    (alert "所选目录无 .dwg 文件!请重新选择:")
  )
  (userundo)
  (setq *error* errtmp)
  (princ)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-28 00:32 , Processed in 0.210460 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表