利用vba编程实现从excel表到autocad表转换

《利用vba编程实现从excel表到autocad表转换》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、利用VBA编程实现从EXCEL表到AUTOCAD表转换摘要：该程序可将Excel表格中的所有单元格全部按原来大小、风格转换到AutoCAD文件中来。在转换过程中，表格线条的转换和文字转换是重点。文字转换采用了直接利用AddMtext命令提供的属性进行转换，避免了已往修改形文件来进行文字标注的方法，直接控制表格文字字体、大小、下划线、上下脚标，倾斜，加粗等，使每个文字的风格均可以得到很好的控制，极大提高了文字标注的灵活性。关键词：计算机----一、前言----MicrosoftExcel软件具有十分强大的制表、表格计算等功能

2、，是普通人员常用的制表工具。可以通过其内嵌的VBA语言可以控制MicrosoftExcel的整个操作过程。----AutoCAD是由AutoDesk公司的工程绘图软件，是CAD市场的主流产品，功能十分强大，是工程制图人员常用的软件之一。AutoDesk公司从R14版以后，为其提供了VBA语言接口。----在工程制图中，常常需要在图中插入绘制表格，一般有两种方法。其一，是利用剪贴板，将MicrosoftExcel表格拷贝至剪贴板中，然后打开AutoCAD文件，再将剪贴板中的文件粘贴至所需位置。这种方法十分简单，但有其固有的缺

3、点。①在保存文件必须将.xls和.dergearea属性可以获得合并单元格的准确信息。具体方法为：读取cells(x,y)单元格时，用address()判断包含cells(x,y)单元格的合并单元格区域c.mergearea的绝对地址,如果前4个字符与cells(x,y)单元格的地址相同，为cells(x,y)单元格为合并单元格区域最靠上、靠左的那个合并单元格，读取其4条边信息，否则不读取。这样，彻底避免了重复读取，同时提高了整个读取和画线速度。----在AutoCAD中，线条有多种，考虑能够方便控制线条属性，选用了多义线

4、。具体命令如下：RetVal=object.AddLightergeArea‘求出单元格C的合并单元格地址IfLeft(Trim(ma.Address),4)=Trim(c.Address)Then假如c.mergearea的绝对地址,如果前4个字符与c单元格的地址相同xl="A1:"+ma.Addressxh=xlsheet.Range(ma.Address).a.Address).HEIghtSetxlrange=xlsheet.Range(xl)xinsert=xlrange.a.Borders(xlEdgeTop)

5、.LineStyle<>xlNoneThenptArray(0)=xpoint‘第一点坐标（数组下标0and1)ptArray(1)=ypointptArray(2)=xpoint+xh‘第二点坐标（数组下标2and3)ptArray(3)=ypointEndIfLinea.Borders(xlEdgeTop).a.Borders(xlEdgeBottom).LineStyle<>xlNoneThenptArray(0)=xpoint+xh‘第三点坐标（数组下标0and1)ptArray(1)=yp

6、oint-yhptArray(2)=xpoint‘第四点坐标（数组下标2and3）ptArray(3)=ypoint–yhLinea.Borders(xlEdgeBottom).a.Borders(xlEdgeLeft).LineStyle<>xlNoneThenptArray(0)=xpoint‘第四点坐标（数组下标0and1)ptArray(1)=ypoint-yhptArray(2)=xpoint‘第一点坐标（数组下标2and3)ptArray(3)=ypointEndIfLinea.Borders(xl

7、EdgeLeft).a.Borders(xlEdgeRight).LineStyle<>xlNoneThenptArray(0)=xpoint+xh‘第二点坐标（数组下标0and1)ptArray(1)=ypointptArray(2)=xpoint+xh‘第三点坐标（数组下标2and3）ptArray(3)=ypoint–yhLinea.Borders(xlEdgeRight).WeightEndIfSetloSpace.AddLightWeightPolyline(ptArray)‘在AutoCAD文件里画

8、线Withle‘指定l.----通过修改RetVal的属性可以控制表格文字在表格中的位置。----(1)．表格文字本身的转换----分析AddMText命令可以得出：表格文字所在位置、文字内容宽度，文字内容，均可通过此命令来添加。然而表格文字字体，大小，下划线、上下脚标，倾斜，加粗等却不能。一般的方法是