VB.NET读取Excel数据在CAD上展图

根据网友的需求,编写此程序:读取Excel文件当中的数据,在CAD图上展绘孔位及其桩号与孔深的属性. 

---

 

本实例包含以下技术要点:

1.如何用代码创建带属性的块对象,而非导入外部图块文件(尤其是带填充对象的图块).

2.如何更改块属性的属性值.

3.如何创建文本样式.

4.如何读取Excel文件当中的数据.

5.最大的特色是用VB.Net语言编写(因为用VB.Net编写的实例代码,在本论坛较少),望给用VB.Net的朋友有帮助.

6.因本人极少写VB.Net代码,难免水平较低,如有不足之处,请指出批评.

 

---

 

Excel文件的数据格式:

 

JKC1	静力触探孔	3045304.377	543717.354	2.630	32.500
JKC2	静力触探孔	3045617.146	545348.081	3.200	35.800
JKC3	静力触探孔	3046038.390	546159.911	3.380	35.500
SKC1	十字板	3045617.739	545346.739	3.200	30.000
SKC2	十字板	3046138.556	548510.327	2.520	30.000
SKC3	十字板	3046605.847	555424.066	2.200	30.000
ZKC1	取土样钻孔	3045384.183	544032.220	2.680	80.000
ZKC2	取土样钻孔	3045436.779	544468.844	2.720	76.100
ZKC3	取土样钻孔	3045477.244	544827.897	2.680	80.500

 

---

 

创建图块的源码:

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry

''' <summary>
''' 创建图块
''' </summary>
''' <remarks></remarks>
Public Class CreateBlock

    ''' <summary>
    '''