|
|
发表于 2003-2-11 09:16:00
|
显示全部楼层
;;批量处理档转存别种格式
;;虽然速度慢了点,但非常实用
;;注意:转存R15以下无预览图
;;By LUCAS(龙龙仔)
;;
;;虽配合Expresstools__(acetutil.arx)
;;为加速程序执行,程序将设定系统变量ACADLSPASDOC
;;即
;;当然程序结束后,会还原系统变量ACADLSPASDOC
;;
;;acR12_DXF: AutoCAD Release12/LT2 DXF (*.dxf)
;;acR13_DWG: AutoCAD Release13/LT95 DWG (*.dwg)
;;acR13_DXF: AutoCAD Release13/LT95 DXF (*.dxf)
;;acR14_DWG: AutoCAD Release14/LT97 DWG (*.dwg)
;;acR14_DXF: AutoCAD Release14/LT97 DXF (*.dxf)
;;acR15_DWG: AutoCAD 2000 DWG (*.dwg)
;;acR15_DXF: AutoCAD 2000 DXF (*.dxf)
;;acR15_Template: AutoCAD 2000 Drawing Template File (*.dwt)
;;acNative: A synonym for the latest drawing release.
;; In this release, this value equals acR15_DWG.
;;
;;USAGE: (CH "acR14_DWG")
(arxload "acetutil.arx" NIL)
(vl-load-com)
(defun CH (MODE / HOLDECHO APP DWGNAME PREFIX_DWG NN QQ HOLDLSP WW LL)
(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))
(setq LL (strlen MODE))
(cond
((or (equal (strcase (substr MODE (- LL 2) 3)) "DXF")
(equal (strcase (substr MODE (- LL 7) 8)) "TEMPLATE")
)
(vla-saveas
WW
(vl-string-right-trim ".DWG" (strcase DWGNAME))
(eval (read MODE))
)
)
(t
(vla-saveas WW DWGNAME (eval (read MODE)))
)
)
(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) |
|
置顶卡
