利用AutoCD VBA二次开发解决深圳市水利基金项目排水管线成图问题.docVIP

利用AutoCAD VBA二次开发解决深圳市水利基金项目排水管线成图问题 赖东杰 深圳市水务规划设计院，广东，深圳 518000 【摘要】：AutoCAD VBA是AutoCAD和Visual Basic的结合技术，利用它可以完成AutoCAD的二次开发工作，本文重点讲述的是利用VBA二次开发，将管线基本信息写入块属性中，实现在AutoCAD图上就能直观显示管线的基本参数，方便管线图使用，提高工作效率。 【关键词】：AutoCAD；Visual Basic；VBA；DAO；管线图；块属性。 Application of AutoCAD VBA Secondary Development in Pipeline Drawings Lai Dongjie Shenzhen Water Planning and Design Institute, 518000,Shenzhen,Guangdong, China Abstract:AutoCAD VBA is a combination of AutoCAD software and Visual Basic programming language, which can be used to complete AutoCAD secondary development. This paper focuses on how to write the basic information of pipeline into block properties through AutoCAD VBA programming.After that,the basic parameters of pipeline would be directly displayed on AutoCAD drawings,which benefits the use of pipeling drawings and improves work efficiency. Key words: AutoCAD；Visual Basic；Microsoft Visual Basic for Applications；Data Access Objects；Pipeline Drawing；Block property. 一 前言 为加快水务建设步伐，提高防洪抗灾能力，缓解我市水资源供需矛盾，促进国民经济持续、快速、健康发展，为深圳建设一流的现代化国际性城市创造良好的水环境，水利建设基金从市收取的政府性基金中提取3％用于水务建设的专项资金。）Dim dbDataName As Database Dim dbRecordLine As Recordset Set dbDataName =_ OpenDatabase(FileNameStr) ′打开数据库文件FileNameStr Set dbRecordLine =_ dbDataName.OpenRecordset(Select * From 管线数据) ′打开数据记录:管线数据 四 块属性写入 要使用块属性，首先需要先定义属性，方法是使用AddAttribute来添加块属性，代码如下： ′定义并插入块对象和写入块属性 Dim BlocksObj As AcadBlockReference Dim AttriObj As AcadAttribute Set BlocksObj=_ Thisdrawing.Blocks.Add(BlockInPoint, 块名称) AttValue= dbRecordLine(点号) dbRecordLine(连接点号) _ dbRecordLine(地面标高) _ dbRecordLine(埋深) _ dbRecordLine(管径) _ dbRecordLine(材质) _ ...... Set AttriObj=_ BlocksObj.AddAttribute(AttHeight,AttMode,AttPrompt,AttInsPoint,AttTag,AttValue) 其中AttHeight 为文字高度，AttMode 属性的类型，AttPrompt 提示字符串，AttValue为块属性的属性值，即管线信息数据，可以将打开的管线记录中相应的内容赋值给它。写入到块属性中的管线信息在打开的AutoCAD图上就可以直接显示出来，如下图所示： 放大图： 由上图可知，利用VBA编程生成的综合地下管图，图中块是有属性的，当我们打开这类图形时，想要知道每个管线点的信息，可以在图上直接获取，而不需要在图和成果表中来回查找，方便使用，可以大大提高工作效率。 五 数据库关闭 块属性写入完成以后，通过VB编程，需要将打