关于在VB.net中采用GetBoundingBox或者图块文字坐标的问题

sanmujun

各位大哥好，有个问题想请教一下，不知道能不能帮忙看看啊，谢谢。我想在VB.net编制的程序（独立的exe文件）中实现这么一个功能：程序自动根据excel表格的数据，调取对应的图块，并把图块插入cad文件中，然后图块中的各个属性需根据excel表格的内容进行修改，有的属性修改后文字超出了图块的范围，为保证美观需要对该文字进行缩放。这个功能已经在VBA中实现了，但是VBA需要依靠CAD 才能运行，因此单独编制了基于VB.net的程序。VBA代码拷贝到VB.net中基本能用，只是无法实现文字缩放，问题截图及代码如下，麻烦帮忙看看是哪里的问题啊，谢谢！（代码有所简化，个别不需要缩放的属性对应的代码没贴）

调试中发现这句代码：attVars(k).GetBoundingBox(minExt, maxExt)，对某一个块的第一个属性修改后，它能计算出修改后的文字的坐标，但是后面修改的其他属性的坐标无法计算，结果始终保持为第一个属性的文字的坐标，在VBA中没有这个问题。
代码如下：

2. Imports System.Windows.Forms
   
3. Imports Microsoft.Office.Interop
   
4. Imports System.IO
   
5. Imports System.Threading '导入命名空间
   
6. Imports AutoCAD
   
7. Public Class Form1
   
8.     Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   
9.         '读取excel负荷表
   
10.         Dim ExcelApp As Microsoft.Office.Interop.Excel.Application        '声明Excel对象
    
11.         Dim ExcelWorkBook As Excel.Workbook         '声明工作簿对象
    
12.         Dim ExcelWorkSheet As Excel.Worksheet       '声明工作表对象
    
13.         Dim arr_FuHeBiao
    
14.         ExcelApp = New Microsoft.Office.Interop.Excel.Application         '实例化Excel对象
    
15.         ExcelWorkBook = ExcelApp.Workbooks.Open("D:\桌面文件\VB.net测试\output1.xlsx")
    
16.         ExcelApp.Visible = False                                          '隐藏Excel文件
    
17.         ExcelWorkBook = ExcelApp.Workbooks(1)
    
18.         arr_FuHeBiao = ExcelWorkBook.Sheets("sheet1").UsedRange.value     '负荷表读入数组
    
19.         ExcelWorkBook.Close(True)   '关闭工作簿  
    
20.         ExcelApp.Quit()             '结束EXCEL对象
    
21.         ExcelApp = Nothing          '释放xlApp对象
    
22.         ExcelWorkBook = Nothing
    
23.         ExcelWorkSheet = Nothing
    
24.         '关闭excel进程
    
25.         Dim arrProcesses As Process() = Process.GetProcessesByName("excel")
    
26.         Dim objNewExcelProcess As Process = (From objProcess As Process In Process.GetProcessesByName("excel")
    
27.         Where Not arrProcesses.Contains(objProcess))(0)
    
28.         objNewExcelProcess.Kill()
    
29.         Dim xx As Integer
    
30.         Dim yy As Integer
    
31.         xx = UBound(arr_FuHeBiao, 2)          'excel表格列数
    
32.         yy = UBound(arr_FuHeBiao, 1)          'excel表格行数
    
33. 
    
34.         Dim AcadApp As AcadApplication
    
35.         Dim AcadDoc As AcadDocument
    
36.         On Error Resume Next
    
37.         AcadApp = GetObject(, "AutoCAD.Application")     '如果CAD已经运行，则返回对CAD应用程序对象的引用，否则发生一个错误         
    
38.         If Err.Number Then                               '如果Err.Number非零（为真）            
    
39.             Err.Clear()
    
40.             AcadApp = CreateObject("AutoCAD.Application")
    
41.             If Err.Number Then
    
42.                 MsgBox(Err.Description)
    
43.                 Exit Sub
    
44.             End If
    
45.         End If
    
46.         AcadApp.Visible = True                            '设置界面可视         
    
47.         AcadApp.WindowState = AutoCAD.AcWindowState.acMax '设置界面最大化         
    
48.         AppActivate(AcadApp.Caption)                      '显示AutoCAD界面           
    
49.         Dim count As Integer
    
50.         Dim i As Integer
    
51.         Dim dir_dwg As String
    
52.         dir_dwg = "d:\400V\shigong"
    
53.         Dim j As Integer
    
54.         Dim blk As String
    
55.         Dim blk_obj As Object
    
56.         Dim startp(0 To 2) As Double
    
57.         Dim countg As Integer
    
58.         Dim attVars As Object
    
59.         Dim k As Integer
    
60.         Dim mulian As Integer
    
61.         Dim guihao As Integer          '1、柜号
    
62.         Dim xinghao As Integer         '2、型号
    
63.         Dim chicun As Integer          '3、尺寸
    
64.         Dim huiluhao As Integer        '4、回路号
    
65.         Dim xiaoshiguige As Integer    '5、模数
    
66.         Dim kaiguanhao As Integer      '6、开关号
    
67.         Dim duanluqi As Integer        '7、断路器型号
    
68.         Dim tuokouqi As Integer        '8、脱扣器型号
    
69.         Dim liuhu As Integer           '9、流互
    
70.         Dim dianliubiao As Integer     '10、电流表
    
71.         Dim diandubiao As Integer      '11、电度表
    
72.         Dim langyong As Integer         '浪涌保护器
    
73.         Dim mingcheng As Integer       '17、回路名称
    
74.         Dim shebeirongliang As Integer '18、设备容量
    
75.         Dim jisuanrongliang As Integer '19、计算容量
    
76.         Dim jisuandianliu As Integer   '20、计算电流
    
77.         Dim zhengding As Integer       '21、整定
    
78.         Dim peidianxiang As Integer    '22、配电箱
    
79.         Dim dianlan As Integer         '23、电缆
    
80.         Dim xiajizhengding As Integer   '24、下级整定
    
81.         Dim fuhedengji As Integer      '25、负荷等级
    
82.         Dim sanyao As Integer          '26、三遥
    
83.         Dim jiankong As Integer         '27、监控
    
84.         Dim fujian As Integer          '28、接地保护及定值
    
85.         Dim xiaofang As Integer         '29、负荷类型
    
86.         Dim beizhu As Integer          '30、备注
    
87.         Dim muxianduan As Integer      '31、母线段
    
88.         Dim duanyanshi As Integer           '32、短延时整定值
    
89.         Dim shundong As Integer           '33、瞬动整定值
    
90.         Dim xiangxian As Integer           '34、相线截面
    
91.         Dim nxian As Integer           '35、N线截面
    
92.         Dim pexian As Integer           '36、PE线截面
    
93.         Dim m As Integer
    
94.         Dim deng As Integer
    
95.         count = yy   '行数
    
96.         For i = 1 To xx
    
97.             Select Case arr_FuHeBiao(1, i)
    
98.                 Case "开关柜编号"
    
99.                     guihao = i
    
100.                 Case "开关柜型号"
     
101.                     xinghao = i
     
102.                 Case "外型尺寸"
     
103.                     chicun = i
     
104.                 Case "回路编号"
     
105.                     huiluhao = i
     
106.                 Case "模数"
     
107.                     xiaoshiguige = i
     
108.                 Case "主回路开关编号"
     
109.                     kaiguanhao = i
     
110.                 Case "断路器型号"
     
111.                     duanluqi = i
     
112.                 Case "脱扣器型号"
     
113.                     tuokouqi = i
     
114.                 Case "电流互感器"
     
115.                     liuhu = i
     
116.                 Case "电流表"
     
117.                     dianliubiao = i
     
118.                 Case "电度表"
     
119.                     diandubiao = i
     
120.                 Case "浪涌保护器"
     
121.                     langyong = i
     
122.                 Case "回路名称"
     
123.                     mingcheng = i
     
124.                 Case "设备容量"
     
125.                     shebeirongliang = i
     
126.                 Case "计算容量"
     
127.                     jisuanrongliang = i
     
128.                 Case "计算电流"
     
129.                     jisuandianliu = i
     
130.                 Case "长延时整定值"
     
131.                     zhengding = i
     
132.                 Case "下级配电箱编号"
     
133.                     peidianxiang = i
     
134.                 Case "馈线电缆截面"
     
135.                     dianlan = i
     
136.                 Case "下级配电箱整定值"
     
137.                     xiajizhengding = i
     
138.                 Case "负荷等级"
     
139.                     fuhedengji = i
     
140.                 Case "操作机构"
     
141.                     sanyao = i
     
142.                 Case "电气火灾监控模块"
     
143.                     jiankong = i
     
144.                 Case "接地保护及定值"
     
145.                     fujian = i
     
146.                 Case "负荷类型"
     
147.                     xiaofang = i
     
148.                 Case "备注"
     
149.                     beizhu = i
     
150.                 Case "母线段"
     
151.                     muxianduan = i
     
152.                 Case "短延时整定值"
     
153.                     duanyanshi = i
     
154.                 Case "瞬动整定值"
     
155.                     shundong = i
     
156.                 Case "相线截面"
     
157.                     xiangxian = i
     
158.                 Case "N线截面"
     
159.                     nxian = i
     
160.                 Case "PE线截面"
     
161.                     pexian = i
     
162.             End Select
     
163.         Next i
     
164.         Me.Visible = False
     
165. 
     
166.         AcadDoc = AcadApp.ActiveDocument
     
167.         Dim intp(0 To 2) As Double
     
168. 
     
169.         'CAD中块插入的初始坐标
     
170.         intp(0) = 0
     
171.         intp(1) = 0
     
172.         intp(2) = 0
     
173. 
     
174.         Dim fitPoint(0 To 2) As Double
     
175.         Dim minExt As Object
     
176.         Dim maxExt As Object
     
177.         Dim intp_gui(0 To 2) As Double
     
178. 
     
179.         mulian = 0
     
180. 
     
181.         Dim ij As Integer
     
182.         Dim gui As String
     
183.         Dim guishu As Integer
     
184.         Dim kk As Integer
     
185. 
     
186.         blk = dir_dwg + "表头" + ".dwg"     '图块路径及图块名称
     
187.         blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)     '插入块InsertBlock（插入点，名称，1，1，1，0）
     
188.         intp(0) = intp(0) + 20              '下一个图块插入点的x坐标
     
189. 
     
190.         i = 2
     
191.         While i <= count
     
192.             Select Case LTrim(RTrim(arr_FuHeBiao(i, mingcheng)))
     
193.                 Case "变压器"              '表格总名称为变压器时，插入变压器图块
     
194.                     blk = dir_dwg + "变压器（左-右）" + ".dwg"
     
195.                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
196.                     attVars = blk_obj.GetAttributes          '获取图块属性
     
197.                     For k = 0 To UBound(attVars)
     
198.                         Select Case attVars(k).TagString
     
199.                             Case "回路编号"
     
200.                                 attVars(k).TextString = arr_FuHeBiao(i, huiluhao)    '将图块属性修改为表格中的数据
     
201.                             Case "回路名称"
     
202.                                 attVars(k).TextString = arr_FuHeBiao(i, mingcheng)
     
203.                             Case "设备容量"
     
204.                                 attVars(k).TextString = arr_FuHeBiao(i, shebeirongliang) + "kVA"
     
205.                             Case "计算电流"
     
206.                                 If arr_FuHeBiao(i, jisuandianliu) <> "" Then
     
207.                                     attVars(k).TextString = System.Math.Round(arr_FuHeBiao(i, jisuandianliu), 2)
     
208.                                 Else
     
209.                                     attVars(k).TextString = ""
     
210.                                 End If
     
211.                         End Select
     
212.                     Next k
     
213.                 Case "进线"
     
214.                     blk = dir_dwg + "进线" + ".dwg"       '图块路径及图块名称
     
215.                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)   '插入图块InsertBlock（插入点，名称，1，1，1，0）
     
216.                     attVars = blk_obj.GetAttributes      'GetAttributes获得图块的属性
     
217.                     For k = 0 To UBound(attVars)
     
218.                         Select Case attVars(k).TagString
     
219.                             Case "断路器型号"
     
220.                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)
     
221.                                 attVars(k).GetBoundingBox(minExt, maxExt)                    'GetBoundingBox(minExt, maxExt)获取文字的左端和右端的坐标
     
222.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then    '文字左端坐标小于方框的左端坐标，或者文字右端坐标大于方框右端的坐标，即可判断为文字已超出方框
     
223.                                     attVars(k).Alignment = acAlignmentFit()                  '文字对齐方式：调整
     
224.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
225.                                     attVars(k).InsertPoint = fitPoint
     
226.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
227.                                     attVars(k).TextAlignmentPoint = fitPoint
     
228.                                 End If
     
229.                             Case "脱扣器型号"
     
230.                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)
     
231.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
232.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
233.                                     attVars(k).Alignment = acAlignmentFit
     
234.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
235.                                     attVars(k).InsertPoint = fitPoint
     
236.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
237.                                     attVars(k).TextAlignmentPoint = fitPoint
     
238.                                 End If
     
239.                             Case "电流互感器"
     
240.                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)
     
241.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
242.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
243.                                     attVars(k).Alignment = acAlignmentFit
     
244.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
245.                                     attVars(k).InsertPoint = fitPoint
     
246.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
247.                                     attVars(k).TextAlignmentPoint = fitPoint
     
248.                                 End If
     
249.                             Case "馈线电缆截面"
     
250.                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)
     
251.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
252.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
253.                                     attVars(k).Alignment = acAlignmentFit()
     
254.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
255.                                     attVars(k).InsertPoint = fitPoint
     
256.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
257.                                     attVars(k).TextAlignmentPoint = fitPoint
     
258.                                 End If
     
259.                         End Select
     
260.                     Next k
     
261.                 Case "有源滤波"
     
262.                     blk = dir_dwg + "有源滤波" + ".dwg"
     
263.                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
264.                     attVars = blk_obj.GetAttributes
     
265.                     For k = 0 To UBound(attVars)
     
266.                         Select Case attVars(k).TagString
     
267.                             Case "断路器型号"
     
268.                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)
     
269.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
270.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
271.                                     attVars(k).Alignment = acAlignmentFit
     
272.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
273.                                     attVars(k).InsertionPoint = fitPoint
     
274.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
275.                                     attVars(k).TextAlignmentPoint = fitPoint
     
276.                                 End If
     
277.                             Case "脱扣器型号"
     
278.                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)
     
279.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
280.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
281.                                     attVars(k).Alignment = acAlignmentFit
     
282.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
283.                                     attVars(k).InsertionPoint = fitPoint
     
284.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
285.                                     attVars(k).TextAlignmentPoint = fitPoint
     
286.                                 End If
     
287.                             Case "电流互感器"
     
288.                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)
     
289.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
290.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
291.                                     attVars(k).Alignment = acAlignmentFit
     
292.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
293.                                     attVars(k).InsertionPoint = fitPoint
     
294.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
295.                                     attVars(k).TextAlignmentPoint = fitPoint
     
296.                                 End If
     
297.                             Case "馈线电缆截面"
     
298.                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)
     
299.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
300.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
301.                                     attVars(k).Alignment = acAlignmentFit
     
302.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
303.                                     attVars(k).InsertionPoint = fitPoint
     
304.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
305.                                     attVars(k).TextAlignmentPoint = fitPoint
     
306.                                 End If
     
307.                         End Select
     
308.                     Next k
     
309.                 Case "母联"
     
310.                     blk = dir_dwg + "母联1" + ".dwg"
     
311.                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
312.                     attVars = blk_obj.GetAttributes
     
313.                     For k = 0 To UBound(attVars)
     
314.                         Select Case attVars(k).TagString
     
315.                             Case "断路器型号"
     
316.                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)
     
317.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
318.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
319.                                     attVars(k).Alignment = acAlignmentFit()
     
320.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
321.                                     attVars(k).InsertPoint = fitPoint
     
322.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
323.                                     attVars(k).TextAlignmentPoint = fitPoint
     
324.                                 End If
     
325.                             Case "脱扣器型号"
     
326.                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)
     
327.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
328.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
329.                                     attVars(k).Alignment = acAlignmentFit()
     
330.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
331.                                     attVars(k).InsertPoint = fitPoint
     
332.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
333.                                     attVars(k).TextAlignmentPoint = fitPoint
     
334.                                 End If
     
335.                             Case "电流互感器"
     
336.                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)
     
337.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
338.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
339.                                     attVars(k).Alignment = acAlignmentFit()
     
340.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
341.                                     attVars(k).InsertPoint = fitPoint
     
342.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
343.                                     attVars(k).TextAlignmentPoint = fitPoint
     
344.                                 End If
     
345.                             Case "馈线电缆截面"
     
346.                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)
     
347.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
348.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
349.                                     attVars(k).Alignment = acAlignmentFit()
     
350.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
351.                                     attVars(k).InsertPoint = fitPoint
     
352.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
353.                                     attVars(k).TextAlignmentPoint = fitPoint
     
354.                                 End If
     
355.                         End Select
     
356.                     Next k
     
357.                 Case Else
     
358.                     Select Case arr_FuHeBiao(i, muxianduan)
     
359.                         Case "11"
     
360.                             blk = dir_dwg + "12级馈线" + ".dwg"
     
361.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
362.                         Case "111"
     
363.                             blk = dir_dwg + "12级馈线（三相流互）" + ".dwg"
     
364.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
365.                         Case "12"
     
366.                             blk = dir_dwg + "照明馈线" + ".dwg"
     
367.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
368.                         Case "121"
     
369.                             blk = dir_dwg + "照明馈线（三相流互）" + ".dwg"
     
370.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
371.                         Case "14"
     
372.                             blk = dir_dwg + "照明总开关（左-右）" + ".dwg"
     
373.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
374.                         Case "141"
     
375.                             blk = dir_dwg + "照明总开关（三相流互）（左-右）" + ".dwg"
     
376.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
377.                         Case "15"
     
378.                             blk = dir_dwg + "照明总计量（左-右）" + ".dwg"
     
379.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
380.                         Case "151"
     
381.                             blk = dir_dwg + "照明总计量（三相流互）（左-右）" + ".dwg"
     
382.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)
     
383.                     End Select
     
384.                     attVars = blk_obj.GetAttributes
     
385.                     For k = 0 To UBound(attVars)
     
386.                         Select Case attVars(k).TagString
     
387.                             Case "断路器型号"
     
388.                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)
     
389.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
390.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
391.                                     attVars(k).Alignment = acAlignmentFit()
     
392.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
393.                                     attVars(k).InsertionPoint = fitPoint
     
394.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
395.                                     attVars(k).TextAlignmentPoint = fitPoint
     
396.                                 End If
     
397.                             Case "脱扣器型号"
     
398.                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)
     
399.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
400.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
401.                                     attVars(k).Alignment = acAlignmentFit()
     
402.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
403.                                     attVars(k).InsertionPoint = fitPoint
     
404.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
405.                                     attVars(k).TextAlignmentPoint = fitPoint
     
406.                                 End If
     
407.                             Case "电流互感器"
     
408.                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)
     
409.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
410.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
411.                                     attVars(k).Alignment = acAlignmentFit()
     
412.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
413.                                     attVars(k).InsertionPoint = fitPoint
     
414.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
415.                                     attVars(k).TextAlignmentPoint = fitPoint
     
416.                                 End If
     
417.                             Case "回路名称"
     
418.                                 attVars(k).TextString = arr_FuHeBiao(i, mingcheng)
     
419.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
420.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
421.                                     attVars(k).Alignment = acAlignmentFit()
     
422.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
423.                                     attVars(k).InsertionPoint = fitPoint
     
424.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
425.                                     attVars(k).TextAlignmentPoint = fitPoint
     
426.                                 End If
     
427.                             Case "馈线电缆截面"
     
428.                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)
     
429.                                 attVars(k).GetBoundingBox(minExt, maxExt)
     
430.                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then
     
431.                                     attVars(k).Alignment = acAlignmentFit()
     
432.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
433.                                     attVars(k).InsertionPoint = fitPoint
     
434.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)
     
435.                                     attVars(k).TextAlignmentPoint = fitPoint
     
436.                                 End If
     
437.                         End Select
     
438.                     Next k
     
439.             End Select
     
440.             intp(0) = intp(0) + 20
     
441.             i = i + 1
     
442.         End While
     
443.         MsgBox("已完成排列图绘制，请核查！")
     
444.         Me.Visible = True
     
445.     End Sub
     
446. 
     
447.     Private Function acAlignmentFit() As Object
     
448.         Throw New NotImplementedException
     
449.     End Function
     
450. End Class
     

Imports System.Windows.Forms<br /> Imports Microsoft.Office.Interop<br /> Imports System.IO<br /> Imports System.Threading '导入命名空间<br /> Imports <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a><br /> Public Class Form1<br />     Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click<br />         '读取excel负荷表<br />         Dim ExcelApp As Microsoft.Office.Interop.Excel.Application        '声明Excel对象<br />         Dim ExcelWorkBook As Excel.Workbook         '声明工作簿对象<br />         Dim ExcelWorkSheet As Excel.Worksheet       '声明工作表对象<br />         Dim arr_FuHeBiao<br />         ExcelApp = New Microsoft.Office.Interop.Excel.Application         '实例化Excel对象<br />         ExcelWorkBook = ExcelApp.Workbooks.Open("D:\桌面文件\VB.net测试\output1.xlsx")<br />         ExcelApp.Visible = False                                          '隐藏Excel文件<br />         ExcelWorkBook = ExcelApp.Workbooks(1)<br />         arr_FuHeBiao = ExcelWorkBook.Sheets("sheet1").UsedRange.value     '负荷表读入数组<br />         ExcelWorkBook.Close(True)   '关闭工作簿  <br />         ExcelApp.Quit()             '结束EXCEL对象<br />         ExcelApp = Nothing          '释放xlApp对象 <br />         ExcelWorkBook = Nothing<br />         ExcelWorkSheet = Nothing<br />         '关闭excel进程<br />         Dim arrProcesses As Process() = Process.GetProcessesByName("excel")<br />         Dim objNewExcelProcess As Process = (From objProcess As Process In Process.GetProcessesByName("excel")<br />         Where Not arrProcesses.Contains(objProcess))(0)<br />         objNewExcelProcess.Kill()<br />         Dim xx As Integer<br />         Dim yy As Integer<br />         xx = UBound(arr_FuHeBiao, 2)          'excel表格列数<br />         yy = UBound(arr_FuHeBiao, 1)          'excel表格行数<br /> <br />         Dim AcadApp As AcadApplication<br />         Dim AcadDoc As AcadDocument<br />         On Error Resume Next<br />         AcadApp = GetObject(, "AutoCAD.Application")     '如果CAD已经运行，则返回对CAD应用程序对象的引用，否则发生一个错误          <br />         If Err.Number Then                               '如果Err.Number非零（为真）             <br />             Err.Clear()<br />             AcadApp = CreateObject("AutoCAD.Application")<br />             If Err.Number Then<br />                 MsgBox(Err.Description)<br />                 Exit Sub<br />             End If<br />         End If<br />         AcadApp.Visible = True                            '设置界面可视         <br />         AcadApp.WindowState = AutoCAD.AcWindowState.acMax '设置界面最大化         <br />         AppActivate(AcadApp.Caption)                      '显示AutoCAD界面           <br />         Dim count As Integer<br />         Dim i As Integer<br />         Dim dir_dwg As String<br />         dir_dwg = "d:\400V\shigong"<br />         Dim j As Integer<br />         Dim blk As String<br />         Dim blk_obj As Object<br />         Dim startp(0 To 2) As Double<br />         Dim countg As Integer<br />         Dim attVars As Object<br />         Dim k As Integer<br />         Dim mulian As Integer<br />         Dim guihao As Integer          '1、柜号<br />         Dim xinghao As Integer         '2、型号<br />         Dim chicun As Integer          '3、尺寸<br />         Dim huiluhao As Integer        '4、回路号<br />         Dim xiaoshiguige As Integer    '5、模数<br />         Dim kaiguanhao As Integer      '6、开关号<br />         Dim duanluqi As Integer        '7、断路器型号<br />         Dim tuokouqi As Integer        '8、脱扣器型号<br />         Dim liuhu As Integer           '9、流互<br />         Dim dianliubiao As Integer     '10、电流表<br />         Dim diandubiao As Integer      '11、电度表<br />         Dim langyong As Integer         '浪涌保护器<br />         Dim mingcheng As Integer       '17、回路名称<br />         Dim shebeirongliang As Integer '18、设备容量<br />         Dim jisuanrongliang As Integer '19、计算容量<br />         Dim jisuandianliu As Integer   '20、计算电流<br />         Dim zhengding As Integer       '21、整定<br />         Dim peidianxiang As Integer    '22、配电箱<br />         Dim dianlan As Integer         '23、电缆<br />         Dim xiajizhengding As Integer   '24、下级整定<br />         Dim fuhedengji As Integer      '25、负荷等级<br />         Dim sanyao As Integer          '26、三遥<br />         Dim jiankong As Integer         '27、监控<br />         Dim fujian As Integer          '28、接地保护及定值<br />         Dim xiaofang As Integer         '29、负荷类型<br />         Dim beizhu As Integer          '30、备注<br />         Dim muxianduan As Integer      '31、母线段<br />         Dim duanyanshi As Integer           '32、短延时整定值<br />         Dim shundong As Integer           '33、瞬动整定值<br />         Dim xiangxian As Integer           '34、相线截面<br />         Dim nxian As Integer           '35、N线截面<br />         Dim pexian As Integer           '36、PE线截面<br />         Dim m As Integer<br />         Dim deng As Integer<br />         count = yy   '行数<br />         For i = 1 To xx<br />             Select Case arr_FuHeBiao(1, i)<br />                 Case "开关柜编号"<br />                     guihao = i<br />                 Case "开关柜型号"<br />                     xinghao = i<br />                 Case "外型尺寸"<br />                     chicun = i<br />                 Case "回路编号"<br />                     huiluhao = i<br />                 Case "模数"<br />                     xiaoshiguige = i<br />                 Case "主回路开关编号"<br />                     kaiguanhao = i<br />                 Case "断路器型号"<br />                     duanluqi = i<br />                 Case "脱扣器型号"<br />                     tuokouqi = i<br />                 Case "电流互感器"<br />                     liuhu = i<br />                 Case "电流表"<br />                     dianliubiao = i<br />                 Case "电度表"<br />                     diandubiao = i<br />                 Case "浪涌保护器"<br />                     langyong = i<br />                 Case "回路名称"<br />                     mingcheng = i<br />                 Case "设备容量"<br />                     shebeirongliang = i<br />                 Case "计算容量"<br />                     jisuanrongliang = i<br />                 Case "计算电流"<br />                     jisuandianliu = i<br />                 Case "长延时整定值"<br />                     zhengding = i<br />                 Case "下级配电箱编号"<br />                     peidianxiang = i<br />                 Case "馈线电缆截面"<br />                     dianlan = i<br />                 Case "下级配电箱整定值"<br />                     xiajizhengding = i<br />                 Case "负荷等级"<br />                     fuhedengji = i<br />                 Case "操作机构"<br />                     sanyao = i<br />                 Case "电气火灾监控模块"<br />                     jiankong = i<br />                 Case "接地保护及定值"<br />                     fujian = i<br />                 Case "负荷类型"<br />                     xiaofang = i<br />                 Case "备注"<br />                     beizhu = i<br />                 Case "母线段"<br />                     muxianduan = i<br />                 Case "短延时整定值"<br />                     duanyanshi = i<br />                 Case "瞬动整定值"<br />                     shundong = i<br />                 Case "相线截面"<br />                     xiangxian = i<br />                 Case "N线截面"<br />                     nxian = i<br />                 Case "PE线截面"<br />                     pexian = i<br />             End Select<br />         Next i<br />         Me.Visible = False<br /> <br />         AcadDoc = AcadApp.ActiveDocument<br />         Dim intp(0 To 2) As Double<br /> <br />         'CAD中块插入的初始坐标<br />         intp(0) = 0<br />         intp(1) = 0<br />         intp(2) = 0<br /> <br />         Dim fitPoint(0 To 2) As Double<br />         Dim minExt As Object<br />         Dim maxExt As Object<br />         Dim intp_gui(0 To 2) As Double<br /> <br />         mulian = 0<br /> <br />         Dim ij As Integer<br />         Dim gui As String<br />         Dim guishu As Integer<br />         Dim kk As Integer<br /> <br />         blk = dir_dwg + "表头" + ".dwg"     '图块路径及图块名称<br />         blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)     '插入块InsertBlock（插入点，名称，1，1，1，0）<br />         intp(0) = intp(0) + 20              '下一个图块插入点的x坐标<br /> <br />         i = 2<br />         While i <= count<br />             Select Case LTrim(RTrim(arr_FuHeBiao(i, mingcheng)))<br />                 Case "变压器"              '表格总名称为变压器时，插入变压器图块<br />                     blk = dir_dwg + "变压器（左-右）" + ".dwg"<br />                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                     attVars = blk_obj.GetAttributes          '获取图块属性<br />                     For k = 0 To UBound(attVars)<br />                         Select Case attVars(k).TagString<br />                             Case "回路编号"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, huiluhao)    '将图块属性修改为表格中的数据<br />                             Case "回路名称"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, mingcheng)<br />                             Case "设备容量"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, shebeirongliang) + "kVA"<br />                             Case "计算电流"<br />                                 If arr_FuHeBiao(i, jisuandianliu) <> "" Then<br />                                     attVars(k).TextString = System.Math.Round(arr_FuHeBiao(i, jisuandianliu), 2)<br />                                 Else<br />                                     attVars(k).TextString = ""<br />                                 End If<br />                         End Select<br />                     Next k<br />                 Case "进线"<br />                     blk = dir_dwg + "进线" + ".dwg"       '图块路径及图块名称<br />                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)   '插入图块InsertBlock（插入点，名称，1，1，1，0）<br />                     attVars = blk_obj.GetAttributes      'GetAttributes获得图块的属性<br />                     For k = 0 To UBound(attVars)<br />                         Select Case attVars(k).TagString<br />                             Case "断路器型号"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)                    'GetBoundingBox(minExt, maxExt)获取文字的左端和右端的坐标<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then    '文字左端坐标小于方框的左端坐标，或者文字右端坐标大于方框右端的坐标，即可判断为文字已超出方框<br />                                     attVars(k).Alignment = acAlignmentFit()                  '文字对齐方式：调整<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "脱扣器型号"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "电流互感器"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "馈线电缆截面"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                         End Select<br />                     Next k<br />                 Case "有源滤波"<br />                     blk = dir_dwg + "有源滤波" + ".dwg"<br />                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                     attVars = blk_obj.GetAttributes<br />                     For k = 0 To UBound(attVars)<br />                         Select Case attVars(k).TagString<br />                             Case "断路器型号"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertionPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "脱扣器型号"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertionPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "电流互感器"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertionPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "馈线电缆截面"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertionPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                         End Select<br />                     Next k<br />                 Case "母联"<br />                     blk = dir_dwg + "母联1" + ".dwg"<br />                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                     attVars = blk_obj.GetAttributes<br />                     For k = 0 To UBound(attVars)<br />                         Select Case attVars(k).TagString<br />                             Case "断路器型号"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "脱扣器型号"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "电流互感器"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "馈线电缆截面"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                         End Select<br />                     Next k<br />                 Case Else<br />                     Select Case arr_FuHeBiao(i, muxianduan)<br />                         Case "11"<br />                             blk = dir_dwg + "12级馈线" + ".dwg"<br />                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                         Case "111"<br />                             blk = dir_dwg + "12级馈线（三相流互）" + ".dwg"<br />                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                         Case "12"<br />                             blk = dir_dwg + "照明馈线" + ".dwg"<br />                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                         Case "121"<br />                             blk = dir_dwg + "照明馈线（三相流互）" + ".dwg"<br />                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                         Case "14"<br />                             blk = dir_dwg + "照明总开关（左-右）" + ".dwg"<br />                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                         Case "141"<br />                             blk = dir_dwg + "照明总开关（三相流互）（左-右）" + ".dwg"<br />                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                         Case "15"<br />                             blk = dir_dwg + "照明总计量（左-右）" + ".dwg"<br />                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                         Case "151"<br />                             blk = dir_dwg + "照明总计量（三相流互）（左-右）" + ".dwg"<br />                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)<br />                     End Select<br />                     attVars = blk_obj.GetAttributes<br />                     For k = 0 To UBound(attVars)<br />                         Select Case attVars(k).TagString<br />                             Case "断路器型号"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertionPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "脱扣器型号"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertionPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "电流互感器"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertionPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "回路名称"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, mingcheng)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertionPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                             Case "馈线电缆截面"<br />                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)<br />                                 attVars(k).GetBoundingBox(minExt, maxExt)<br />                                 If minExt(0) < intp(0) Or maxExt(0) > (intp(0) + 20) Then<br />                                     attVars(k).Alignment = acAlignmentFit()<br />                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).InsertionPoint = fitPoint<br />                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)<br />                                     attVars(k).TextAlignmentPoint = fitPoint<br />                                 End If<br />                         End Select<br />                     Next k<br />             End Select<br />             intp(0) = intp(0) + 20<br />             i = i + 1<br />         End While<br />         MsgBox("已完成排列图绘制，请核查！")<br />         Me.Visible = True<br />     End Sub<br /> <br />     Private Function acAlignmentFit() As Object<br />         Throw New NotImplementedException<br />     End Function<br /> End Class<br />

sanmujun

已解决，获取下一个文本外框坐标前，需要将上一个文本的外框坐标清除。

cairunbin

操作Excel，别用微软自己的Microsoft.Office.Interop.Excel.Application。这个实在太难用，读、写均是龟速。且操作不当，经常你的程序退出了，但是系统中存留一大堆Excel的线程。
推荐EPPlus，超级简单，速度快。