QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
本帖最后由 woaishuijia 于 2011-4-23 10:35 编辑
3 t: ?4 H( ~/ T  S' ~
! j+ a4 u9 n' l: `$ n一、问题的由来) a* e; a9 q5 O  b6 i
我们知道在Microsoft Office Excel 2003VBA中有一个FileSearch对象,利用FileSearch对象可以很方便的遍历某个目录下的所有Excel文件,以批量修改或打印Excel文件,如图1所示。! I" x' W, X: u
Snap3.jpg
; E% O  T. |2 g8 _$ Z7 j! W6 R( Y% M# m3 p6 f/ ^( T
AutoCAD中没有类似的功能。我写了一个glFileseach类,可以模拟ExcelFileseach对象所提供的一些功能,用于遍历AutoACD应用程序所支持的文件。应用它可以方便的批量修改和打印AutoACD文件,如图2所示。4 @. B$ Q% l6 t; b6 d- d  c
Snap4.jpg
( l3 v6 R  \- Y( r
# |  ^' Y( s6 u- \二、Fileseach类的属性和方法简介
( m9 Q! d( @2 r9 ?$ ^5 t2 C$ \
LookIn 属性:返回或设置在指定的文件搜索过程中要搜索的文件夹。String 类型,可读写。

- b9 J4 I7 g# M9 b
FileName 属性:返回或设置文件搜索过程中要查找的文件名。文件名中可以包含 *(星号)或 ?(问号)通配符。问号通配符可以匹配任意一个单个字符。如键入“gr?y”可以匹配“gray”和“grey”。星号通配符可以匹配任意个字符。如键入“*.txt”可以查找到所有带 .TXT 扩展名的文件。String类型,可读写。

/ e% F" p+ `* @2 O3 @" U; f
FileType 属性:返回或设置文件搜索过程中要查找的文件类型。可读写,支持:AutoCADs、CorelDRAW、ExcelWorkbooks、PowerPointPPT和WordDocuments、金山公司的WPS表格工作簿、WPS演示演示文稿和WPS文字文档。可以遍历AutoCAD、 CorelDRAW 、Exce、 PowerPoint、 Word和金山公司Office系列软件等应用程序生成的文件。如图3所示。
# G3 I7 M  a6 {
SearchFolders属性:确定调用 FileSearch 对象的 Execute 方法时是否搜索子文件夹。
/ e9 W" J, z4 B% z$ V$ }( A
Execute 方法:开始对指定文件的搜索。返回一个 Long 类型,如果没有找到文件,则返回零 (0),如果找到一个或多个文件,则返回一个正数
2 m+ V  u9 r8 k( U
FoundFiles 属性:返回一个 FoundFiles 集合对象,该对象包括一次查找操作中找到的所有文件的文件名。只读。
* `0 m( x5 z% Y( O; T; N/ y) n
' c1 j3 ^+ Q0 b* X' U9 ~
03.jpg 0 G6 ~- @* i% j) Z! [! r; J
6 A- B9 J, K" O: Z
Snap1.jpg
; S4 v% s/ D% h5 m& ?; |% g
- x, }- K4 g6 s9 R" }6 _四、其他说明的
8 \) M: r+ x1 W: H, ]+ Q由于类的可移植性强,所以glFileseach类可以用于其他支持VBA的程序中,如Microsoft Office 2007CorelDRAW中。有兴趣的朋友可以使用一下,欢迎你多提宝贵的建议。
1 C3 m% w0 _1 y$ Q* R! [增加了文件类型:" w' g: U, G0 V( a
支持:
: @0 Z* m% l1 i& @+ u  H2 }2 m. L+ @AutoCADs( R$ s5 w3 m2 z9 K& l
CorelDRAW
# Y, x& ?- e& @3 oExcelWorkbooks2 ~* ^) ^$ F  n- M4 B
PowerPointPPT
6 [- T& ]1 q; \; x' AWordDocuments0 A1 V8 i6 O+ H3 f, J8 u
可以遍历AutoCAD、 CorelDRAW 、Exce、 PowerPoint、 Word等应用程序生成的文件" Q$ D+ X8 {; _! k: w. Q5 b; E7 \
8 e) i' r% z. }; P$ V5 t4 B0 W
最新版,请测试!

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 )

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