QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
9天前
查看: 2369|回复: 1
收起左侧

[原创] 在AutoCAD中增加Fileseach对象

[复制链接]
发表于 2011-4-22 20:01:24 | 显示全部楼层 |阅读模式 来自: 中国河南焦作

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
本帖最后由 woaishuijia 于 2011-4-23 10:35 编辑 + T+ Z5 `2 k* ]% t- v% ^
7 H5 d) U- \- y3 [6 l; _
一、问题的由来7 X% I* O/ C; G/ ^+ @" r, f, ~
我们知道在Microsoft Office Excel 2003VBA中有一个FileSearch对象,利用FileSearch对象可以很方便的遍历某个目录下的所有Excel文件,以批量修改或打印Excel文件,如图1所示。
' N; ~7 ^# U5 q! q Snap3.jpg 2 D( e3 r. }6 O
% I7 a. E" s0 v  |# ?% F
AutoCAD中没有类似的功能。我写了一个glFileseach类,可以模拟ExcelFileseach对象所提供的一些功能,用于遍历AutoACD应用程序所支持的文件。应用它可以方便的批量修改和打印AutoACD文件,如图2所示。
" A* R  r, f# ~0 P, `: s. u Snap4.jpg 9 a: \4 {/ P" A, @

$ P. ]+ f$ ^; ^7 q2 [, ~$ ^二、Fileseach类的属性和方法简介
9 J& u) p+ f7 S" P- ^! J* o5 R0 S
LookIn 属性:返回或设置在指定的文件搜索过程中要搜索的文件夹。String 类型,可读写。

, p+ @1 C  b0 c7 V# m1 \2 o8 _
FileName 属性:返回或设置文件搜索过程中要查找的文件名。文件名中可以包含 *(星号)或 ?(问号)通配符。问号通配符可以匹配任意一个单个字符。如键入“gr?y”可以匹配“gray”和“grey”。星号通配符可以匹配任意个字符。如键入“*.txt”可以查找到所有带 .TXT 扩展名的文件。String类型,可读写。
7 L: K' U' y+ f
FileType 属性:返回或设置文件搜索过程中要查找的文件类型。可读写,支持:AutoCADs、CorelDRAW、ExcelWorkbooks、PowerPointPPT和WordDocuments、金山公司的WPS表格工作簿、WPS演示演示文稿和WPS文字文档。可以遍历AutoCAD、 CorelDRAW 、Exce、 PowerPoint、 Word和金山公司Office系列软件等应用程序生成的文件。如图3所示。
7 l2 @% y8 b8 b$ j' x; t( m& \$ K
SearchFolders属性:确定调用 FileSearch 对象的 Execute 方法时是否搜索子文件夹。

" Z' O$ c! @/ D: Q/ [0 {9 V/ S; p* ~
Execute 方法:开始对指定文件的搜索。返回一个 Long 类型,如果没有找到文件,则返回零 (0),如果找到一个或多个文件,则返回一个正数
$ W4 Y+ b  T2 t; A& J8 U: r
FoundFiles 属性:返回一个 FoundFiles 集合对象,该对象包括一次查找操作中找到的所有文件的文件名。只读。

$ p, e0 V' `3 ~& w
9 }: P7 S& z$ j6 ~ 03.jpg ; w4 @! s2 y0 k4 Y/ ^% @& ^- Q

* q/ B  s# |3 J1 k9 W7 | Snap1.jpg ( ^  K: O, }6 A% G
7 d5 J' L! ^* z* y3 `" b& A
四、其他说明的
+ b- e$ |$ v* m: L由于类的可移植性强,所以glFileseach类可以用于其他支持VBA的程序中,如Microsoft Office 2007CorelDRAW中。有兴趣的朋友可以使用一下,欢迎你多提宝贵的建议。
7 y4 @- J9 C, V! S; {; \增加了文件类型:( U2 v: Y* A) N. Q
支持:
! |+ J' W9 s5 ^' ~+ `$ h# i, YAutoCADs
( Y' U  q& n( b6 [CorelDRAW9 g4 Y# b/ J' [* \! p
ExcelWorkbooks1 J! D) T) \, `& [
PowerPointPPT5 H4 L* s, r( d
WordDocuments, j: f! f: @( m9 x
可以遍历AutoCAD、 CorelDRAW 、Exce、 PowerPoint、 Word等应用程序生成的文件+ t0 `( ]  B& Z. E2 _* |" \9 ]# T

4 b& x9 L$ g: ]9 P8 G7 D+ h最新版,请测试!

glFileseach.rar

15.86 KB, 下载次数: 1

评分

参与人数 1三维币 +10 收起 理由
woaishuijia + 10 原创内容

查看全部评分

发表于 2011-4-23 08:18:36 | 显示全部楼层 来自: 中国广东深圳
呵呵,下下来试试,还不知道怎么用呢!
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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