新春紅包_____一個VLISP的批量處理範例

龙龙仔 · 发表于 2003-2-6 13:09:00

本帖最后由作者于 2003-2-6 13:09:31 编辑

;;一个VLISP的批量处理范例
;;从这个范例可以了解VLISP批量处理图档
;;虽然速度慢了点,但非常实用
;;By LUCAS(龙龙仔)
;;从文件移除未使用之具名参考
;;
;;虽配合Expresstools__(acetutil.arx)
;;为加度程序执行,程序将设定系统变量ACADLSPASDOC
;;即<只载入 acad.lsp 至 AutoCAD 执行期所开启的第一个图面>
;;当然程序结束后,会还原系统变量ACADLSPASDOC
;;
;;Usage: (PURGEALL <循环次数>)
;;Usage: (PURGEALL 5)

(arxload "acetutil.arx" NIL)
(vl-load-com)
(defun PURGEALL (TIMES / HOLDECHO APP DWGNAME PREFIX_DWG NN QQ HOLDLSP
   WW)
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq PREFIX_DWG
   (strcat
   (strcase (acet-ui-pickdir
      "选择目录"
      (vl-string-right-trim "\\" (getvar "dwgprefix"))
      "移除未使用之具名参考"
      )
   )
   "\\"
   )
  )
  (setq HOLDLSP (getvar "ACADLSPASDOC"))
  (setvar "acadlspasdoc" 0)
  (setq QQ (vl-directory-files PREFIX_DWG "*.DWG"))
  (setq NN 0)
  (if (/= QQ NIL)
(progn
   (setq APP (vlax-get-acad-object))
   (repeat (length QQ)
(setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ))))
(setq WW (vla-open (vla-get-documents APP) DWGNAME))
(repeat TIMES (vla-purgeall WW))
(vla-save WW)
(prompt (strcat "\n" DWGNAME " <

URGE完成>!!!"))
(vla-close WW :vlax-false)
(setq NN (1+ NN))
   )
   (vlax-release-object WW)
   (vlax-release-object APP)
)
(prompt "\n所选目录中未有任何图档!!!")
  )
  (setvar "acadlspasdoc" HOLDLSP)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)
(princ)

chg · 发表于 2003-3-4 19:34:00

(purgeall 5)虽然可以将图纸中的未使用的块，图层等删除，但好象对
标注样式有点缺陷，如果在一张图纸中的某个标注样式下没有任何尺寸实体，
但又偏偏被设置成当前标注样式，这样就不能通过pugeall删除了。
龙大侠能否将这层因素也考虑进去，这样图纸应该可以清理的很干净了。
一点愚见，龙大侠见笑了。

Ea · 发表于 2003-3-4 21:20:00

当前layer、当前Style也Purge不掉呀。

chg · 发表于 2003-3-5 09:55:00

龙龙仔 · 发表于 2003-3-5 12:38:00

yxl88168 · 发表于 2011-3-31 19:36:36

好东西呀，谢谢楼主

duotu007 · 发表于 2011-5-3 14:43:30

(repeat TIMES (vla-purgeall WW))
(vla-zoomextents WW) (vla-save WW)
加入红色代码，就出错？

dinosaurhxe · 发表于 2011-5-3 14:57:30

楼主威武！

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

新春紅包_____一個VLISP的批量處理範例

对龙大侠的程序的一点要求。

图层、文字样式也有这种情况吧。

不错，不错，一时考虑欠周详，看来程序要做的工作还真的很多。

要做到你说的,程序执行会很花时间,每种符号表都要遍历。相當麻煩!!!