２．３运行结果
运行上述代码后，将在“文件夹下生成一“属Ｅ：＼”
文件，见图２。第一行标题的文字不是块属性，性表．ｘｌｓ”
而是文本对象，所以在“属性表．ｘｌｓ”文件中的第１行为空。在多数情况下，作为标题的明细表行是固定的，所以标题行的块属性往往被设成固定不变（Ｃｏｎｓｔａｎｔ）类
图１
创建具有属性块供电主接线图
型。在ＡｃｔｉｖｅＸ中的Ａｔｔｒｉｂｕｔｅ和ＡｔｔｒｉｂｕｔｅＲｅｆ对象，都有一个Ｃｏｎｓｔａｎｔ属性，用来判断某个块或块引用中的属性值类型，它是一个布尔类型的值，其值若为Ｔｒｕｅ，表示块属性值为Ｃｏｎｓｔａｎｔ类型。
３结论
应用ＡｕｔｏＣＡＤ的ＶＢＡ二次开发功能，编制了属性块的属性提取程序，运行程序后，自动提取属性块的有关参数，方便进行图纸相关信息管理。对设计信息管理系统（ＭＩＳ）具有参考价值，在企业信息化管理建设中具有重要意义。
图２
在Ｅｘｃｅ中提取的属性结果
参考文献
［１］［２］［３］［４］［５］
何何黄
兵．滚子直动从动件圆锥凸轮实体参数化造型［Ｊ］．机兵，车林仙．ＡｕｔｏＣＡＤ中由三维模型自动生成二维工康，柯尊忠，周方泽．ＡｕｔｏＣＡＤ的属性块及其应用［Ｊ］．械设计与制造，２００４，１６２（２）：８７－８８．程图的研究［Ｊ］．机械设计，２００５（９）：１０－１２．机械与电子，２００１（４）：３９－４１．
李宝珠，陈莉．Ｅｘｃｅｌ及其应用［Ｍ］．重庆：重庆大学出版社，
＇创建一个新工作簿
Ｓｅｔ
ＥｘｃｅｌＳｈｅｅｔ＝Ｅｘｃｅｌ．ＡｃｔｉｖｅＳｈｅｅｔ
＇确保Ｓｈｅｅｔ１工作表＇将新创建的工作
＇遍历
为当前工作表
ＥｘｃｅｌＷｏｒｋｂｏｏｋ．ＳａｖｅＡｓ＂Ｅ：＼属性表．ｘｌｓ＂
簿保存为Ｅｘｃｅｌ文件
ＦｏｒＥａｃｈＷｉｔｈ
ｂｌｋＥｌｅｍＩｎＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ
模型空间，查找表的每个块引用表行
ｂｌｋＥｌｅｍ
Ｉｆ
ＳｔｒＣｏｍｐ（．ＥｎｔｉｔｙＮａｍｅ，＂ＡｃＤｂＢｌｏｃｋＲｅｆｅｒ－＇当一个块引用表行被找到后，检查它是
Ｔｈｅｎ
２０００．
李凤华．ＡｕｔｏＣＡＤ２００２／２０００ＶＢＡ开发指南［Ｍ］．北京：清华大学出版社，２００１．
ｅｎｃｅ＂，１）＝０
!!!!"
简
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"讯欢迎订阅２００８年《机械管理开发》杂志
!!!!"
《机械管理开发》杂志于１９８６年创刊，是集机械工程技术及机械行业管理科学为一体的专业技术期刊，多年评为山西省一级期
邮编：０３０００１
地址：太原市并州北路３９号
咨询电话：０３５１－４１３７５４２
联系人：石万坤
刊，刊号ＩＳＳＮ１００３－７７３ＸＣＮ１４－１１３４／ＴＨ，双月刊、大１６开、１９２页，每期定价１０元，全年６０元。本刊自办发行，邮局汇款，款到寄
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" １６
刊。机械管理开发杂志社