基于VBA的AutoCAD图块属性提取与Excel输出(2)

２．３运行结果

运行上述代码后，将在“文件夹下生成一“属Ｅ：＼”

文件，见图２。第一行标题的文字不是块属性，性表．ｘｌｓ”

而是文本对象，所以在“属性表．ｘｌｓ”文件中的第１行为空。在多数情况下，作为标题的明细表行是固定的，所以标题行的块属性往往被设成固定不变（Ｃｏｎｓｔａｎｔ）类

图１

创建具有属性块供电主接线图

型。在ＡｃｔｉｖｅＸ中的Ａｔｔｒｉｂｕｔｅ和ＡｔｔｒｉｂｕｔｅＲｅｆ对象，都有一个Ｃｏｎｓｔａｎｔ属性，用来判断某个块或块引用中的属性值类型，它是一个布尔类型的值，其值若为Ｔｒｕｅ，表示块属性值为Ｃｏｎｓｔａｎｔ类型。

３结论

应用ＡｕｔｏＣＡＤ的ＶＢＡ二次开发功能，编制了属性块的属性提取程序，运行程序后，自动提取属性块的有关参数，方便进行图纸相关信息管理。对设计信息管理系统（ＭＩＳ）具有参考价值，在企业信息化管理建设中具有重要意义。

图２

在Ｅｘｃｅ中提取的属性结果

参考文献

［１］［２］［３］［４］［５］

何何黄

兵．滚子直动从动件圆锥凸轮实体参数化造型［Ｊ］．机兵，车林仙．ＡｕｔｏＣＡＤ中由三维模型自动生成二维工康，柯尊忠，周方泽．ＡｕｔｏＣＡＤ的属性块及其应用［Ｊ］．械设计与制造，２００４，１６２（２）：８７－８８．程图的研究［Ｊ］．机械设计，２００５（９）：１０－１２．机械与电子，２００１（４）：３９－４１．

李宝珠，陈莉．Ｅｘｃｅｌ及其应用［Ｍ］．重庆：重庆大学出版社，

＇创建一个新工作簿

Ｓｅｔ

ＥｘｃｅｌＳｈｅｅｔ＝Ｅｘｃｅｌ．ＡｃｔｉｖｅＳｈｅｅｔ

＇确保Ｓｈｅｅｔ１工作表＇将新创建的工作

＇遍历

为当前工作表

ＥｘｃｅｌＷｏｒｋｂｏｏｋ．ＳａｖｅＡｓ＂Ｅ：＼属性表．ｘｌｓ＂

簿保存为Ｅｘｃｅｌ文件

ＦｏｒＥａｃｈＷｉｔｈ

ｂｌｋＥｌｅｍＩｎＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ

模型空间，查找表的每个块引用表行

ｂｌｋＥｌｅｍ

Ｉｆ

ＳｔｒＣｏｍｐ（．ＥｎｔｉｔｙＮａｍｅ，＂ＡｃＤｂＢｌｏｃｋＲｅｆｅｒ－＇当一个块引用表行被找到后，检查它是

Ｔｈｅｎ

２０００．

李凤华．ＡｕｔｏＣＡＤ２００２／２０００ＶＢＡ开发指南［Ｍ］．北京：清华大学出版社，２００１．

ｅｎｃｅ＂，１）＝０

!!!!"

简

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"讯欢迎订阅２００８年《机械管理开发》杂志

!!!!"

《机械管理开发》杂志于１９８６年创刊，是集机械工程技术及机械行业管理科学为一体的专业技术期刊，多年评为山西省一级期

邮编：０３０００１

地址：太原市并州北路３９号

咨询电话：０３５１－４１３７５４２

联系人：石万坤

刊，刊号ＩＳＳＮ１００３－７７３ＸＣＮ１４－１１３４／ＴＨ，双月刊、大１６开、１９２页，每期定价１０元，全年６０元。本刊自办发行，邮局汇款，款到寄

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" １６

刊。机械管理开发杂志社

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说公务员考试基于VBA的AutoCAD图块属性提取与Excel输出(2)在线全文阅读。