论文部分内容阅读
摘要：将Visual Basic Application语言（简称VBA）和Microsoft PowerPoint相结合，设计开发了发动机零部件照片存取系统。系统实现了发动机零部件照片的存储和查询功能，提高了照片的利用效率，有助于发动机研发工作高效顺利开展。本文详述了发动机零部件照片管理方式、存储、读取和界面设计等多个模块。系统经过实践检验，稳定可靠，设计方法值得借鉴。
关键词：发动机零部件;VBA; PowerPoint; Excel;照片管理
中图分类号：U464 文献标识码：A
1发动机零部件照片存取系统方法
系统分为2个子系统，分别为零部件照片存储系统和零部件照片查询系统。前者主要为试验人员使用，后者主要为项目组研发人员使用，零部件照片信息流如图1所示。
零部件照片存储系统工作原理，主要是将发动机解体后，根据需要对发动机零部件位置进行拍照，然后将单个零部件多张照片存放在同一张幻灯片，再在存储照片的幻灯片中编译宏程序，运行宏程序后实现将单张幻灯片以唯一指定的命名方式保存为单张图片，并将所有图片存放在指定服务器文件夹中，这样便可实现零部件照片的存储功能[1]。
零部件照片查询系统原理主要基于Excel VBA程序平台，建立查询系统。首先根据发动机的固有特征信息，查询并调取存放在服务器文件夫中零部件单张图片，然后将图片以相应规则排列组合显示在系统界面中，以便研发人员实现集中对多张零部件图片信息的获取。
2零部件照片存储功能实现
发动机零部件图片要满足查询需求，就必须使图片文件名在文件夫中具有唯一性，这样才能精准定位，不引起查询冲突。图片命名方式多种多样，系统采用发动机号加零部件名称方式，例如XXX-AAA-18-001-缸盖（XXX为部门，AAA为发动机型号，18为年份，001为序号）。根据图片命名定义要求，存储系统将单张幻灯片存储为图片前，必须将发动机号和零部件名称识别出来，组合后形成新的图片文件名[2]。
本系统中采取如下方式：发动机号存放地址为试验工程师编辑的零部件照片及幻灯片文件名前，例如XXX-AAA-18-001，AAA发动机交变负荷试验报告，发动机号即为XXX-AAA-18-001;零部件名称的存放地址为存放零部件的单张幻灯片任意位置，但字体必须指定格式，单张幻灯片中不能再使用相同的字体格式，以便程序识别，本系统中采取“华文仿宋”格式。程序部分代码如下。
fname= ActivePresentation.Namen= InputBox（"请输入发动机号位数"）
If shp.TextFrame.TextRange.Font.NameFarEast = "華文仿宋"
Then
trng = shp.TextFrame.TextRange.Text
saveimagename = fname
关键词：发动机零部件;VBA; PowerPoint; Excel;照片管理
中图分类号：U464 文献标识码：A
1发动机零部件照片存取系统方法
系统分为2个子系统，分别为零部件照片存储系统和零部件照片查询系统。前者主要为试验人员使用，后者主要为项目组研发人员使用，零部件照片信息流如图1所示。
零部件照片存储系统工作原理，主要是将发动机解体后，根据需要对发动机零部件位置进行拍照，然后将单个零部件多张照片存放在同一张幻灯片，再在存储照片的幻灯片中编译宏程序，运行宏程序后实现将单张幻灯片以唯一指定的命名方式保存为单张图片，并将所有图片存放在指定服务器文件夹中，这样便可实现零部件照片的存储功能[1]。
零部件照片查询系统原理主要基于Excel VBA程序平台，建立查询系统。首先根据发动机的固有特征信息，查询并调取存放在服务器文件夫中零部件单张图片，然后将图片以相应规则排列组合显示在系统界面中，以便研发人员实现集中对多张零部件图片信息的获取。
2零部件照片存储功能实现
发动机零部件图片要满足查询需求，就必须使图片文件名在文件夫中具有唯一性，这样才能精准定位，不引起查询冲突。图片命名方式多种多样，系统采用发动机号加零部件名称方式，例如XXX-AAA-18-001-缸盖（XXX为部门，AAA为发动机型号，18为年份，001为序号）。根据图片命名定义要求，存储系统将单张幻灯片存储为图片前，必须将发动机号和零部件名称识别出来，组合后形成新的图片文件名[2]。
本系统中采取如下方式：发动机号存放地址为试验工程师编辑的零部件照片及幻灯片文件名前，例如XXX-AAA-18-001，AAA发动机交变负荷试验报告，发动机号即为XXX-AAA-18-001;零部件名称的存放地址为存放零部件的单张幻灯片任意位置，但字体必须指定格式，单张幻灯片中不能再使用相同的字体格式，以便程序识别，本系统中采取“华文仿宋”格式。程序部分代码如下。
fname= ActivePresentation.Namen= InputBox（"请输入发动机号位数"）
If shp.TextFrame.TextRange.Font.NameFarEast = "華文仿宋"
Then
trng = shp.TextFrame.TextRange.Text
saveimagename = fname