microstation 批量插入单元和文字

Microstation利用VBA批量插入单元和文字

在油田总图绘制过程中，总是要批量插入井、间、站。我习惯的做法是，点状要素在一个图层，要素的注记在另一个图层，利用vba工具实现批量插入

需要的工具

详细工具如下：

1. Microsoft Excel ；
2. MICROSTATION VBA；
3. cel文件
   真实代码如下

Sub aa()
Dim levelname As String '定义一个字符串对象
levelname = “油井03” '字符串赋值
Dim easementlevel As Level '定义一个层对象
Set eastmentlevel = ActiveDesignFile.AddNewLevel(levelname) '设置当前层
eastmentlevel.IsActive = 1

Dim ExcelApp As New Excel.Application '定义一个应用对象
ExcelApp.Workbooks.Open “e:\cadtools\dgn.xlsx”, , ReadOnly 'excel对象地址
Dim startPoint As Point3d
Dim i As Integer
i = 2
Do
Select Case ExcelApp.ActiveWorkbook.Worksheets(“sheet1”).Range(“b” & i)
Case “圆”:
’ 坐标以主单位计