VBA程序接口在仪表设计中的应用.pdf

《VBA程序接口在仪表设计中的应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、化工自动化及仪表第43卷VBA程序接口在仪表设计中的应用任小龙宋国春(北京石油化工工程有限公司西安分公司，西安710075)摘要基于VBA二次开发工具，给出AutoCADPID图自动生成仪表索引表和坐标文件自动生成仪表位置图的设计思路与主要程序。实际应用结果表明：该程序可极大地减少设计仪表时的工作量和人为误差。关键词VBA程序仪表设计仪表索引表位置图AutoCAD中图分类号TH865文献标识码B文章编号1000-3932(2016)02-0144-04VBA(VisualBasicforApplications)是一种基于ActiveX技术的面向对象的应用程序开发工具，目前许

2、多流行通用的应用软件，如AutoCAD及Office等都内置了VBA开发工具，其强大的功能为各软件的二次开发提供了一个很好的平台。利用VBA对AutoCAD及Excel等办公软件进行二次开发，可以成百上千倍地提高绘图工作效率。VBA在各行各业的专业制图工作中均有广泛运用。对于石油化工行业中的仪表设计，绘制仪表索引表、仪表位置图是一项非常重要的工作，目前工程公司的仪表设计软件中采用INtools软件的较少，而采用Office及AutoCAD等操作软件者居多。因此在没有专业软件的帮助下，手工填写仪表索引表、绘制仪表位置图工作就显得非常繁琐。此外，设计图完成后如果工艺或管道专业设计

3、发生变化，对仪表文件产生联锁反应，则这些图纸都会有影响，即便一个很小的改变(如一条管线的变化)也要重新绘制整张图纸。因此，开发专业软件提高仪表设计工作效率成为一种经济、有效的首选方式⋯。笔者介绍一种基于VBA的二次开发程序模块，用以从AutoCADPID图和坐标文件中自动生成仪表索引表和位置图，提高设计工作效率、减少人为误差。1VBA程序设计1．1AutoCADPID图自动生成仪表索引表仪表索引表是仪表专业设计的基础性文件，传统做法是根据AutoCADPID图等工艺条件，人为判断回路类型，然后手动完成索引。如果要实现计算机自动生成索引表，则有两个问题需要解决：从AutoCAD

4、PID图获取所需的仪表信息至Excel表格；利用获取的仪表信息按照规定的顺序判断回路类型并生成索引表。1．1．1建立AutoCAD和Excel之间的通信为了将AutoCADPID图中的仪表信息反映到Excel中，需要建立AutoCAD和Excel之间的通信心o，在此，笔者基于ActiveX自动化技术采用内置函数来实现。在VBA编程中，首先声明一个指定类ID的对象变量，并用CreateObject函数创建Excel引用。引用当前激活状态Excel中的索引表程序如下：DimExcelapplicationAsExcel．AppficafionDimExcelworkbookAsW

5、orkbookDimExcelworksheetAsWorksheetSetExcelapplication：GetObject(，”excel．application”)SetExcelworkbook=Excelapplication．ActiveWorkbookSetExcelworksheet=Excelapplic8tion．ActiveWorkbook．Sheets(”索引表”)1．1．2创建并定义仪表块利用AutoCAD的块功能建立标准仪表块并定义必要的属性，如仪表功能号、回路号、仪表类型及信号类型等，具体见表1。由于就地、PLC及DCS等仪表图标的不同需分别建

6、立块。在绘制PID图时仪表专业需要工艺专业密切合作，仪表专业向工艺专业提交标准仪表块，工艺人员负责填写仪表功能号、回路号及管道号等，仪表和信号类型待工艺提交后由仪表专业填写。收稿日期：2015-06-25第2期任小龙等．VBA程序接口在仪表设计中的应用145表1AutoCAD建立的标准仪表块属性块名称图标仪表功能回路号仪表类型信号类型萎差喜PIDI匿149-防爆类型报警限值联锁限值备注远程仪表囹LIAS0102超声波液位计DCS—AIF0102AOl阀门类⑧xv。。。：气动切断球阀。c。一。。cw。m。。。。：本安LLL一隔爆一注：仪表图标中的横线可不集成在块中，这样可根据仪

7、表功能选择是否为虚线。1．1．3从AutoCADPID图中提取仪表信息至Excel为了将AutoCADPID图中的仪表信息提取至Excel，AutoCAD提供了两种方式。首先利用VBA编写程序，主要代码如下：SetadSS=ThisDrawing．SeleetionSets．Item(”xzj”)7创建选择集“adSS”SetadSS=ThisDrawing．SeleetionSets．Add(”xzj”)’添加对象至选择集ForEachelemInadSS’遍历选择集IfStrComp(Elem．En