乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 87|回复： 2

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

[复制链接]
sanmujun

3

主题

6

帖子

2

银币

初来乍到

Rank: 1

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

mmqedvcufuy.jpg

mmqedvcufuy.jpg

drjkwhagob4.jpg

drjkwhagob4.jpg

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

  2. Imports System.Windows.Forms

  3. Imports Microsoft.Office.Interop

  4. Imports System.IO

  5. Imports System.Threading '导入命名空间

  6. Imports 

  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.         Dim AcadApp As AcadApplication

  34.         Dim AcadDoc As AcadDocument

  35.         On Error Resume Next

  36.         AcadApp = GetObject(, "AutoCAD.Application")     '如果CAD已经运行，则返回对CAD应用程序对象的引用，否则发生一个错误          

  37.         If Err.Number Then                               '如果Err.Number非零（为真）             

  38.             Err.Clear()

  39.             AcadApp = CreateObject("AutoCAD.Application")

  40.             If Err.Number Then

  41.                 MsgBox(Err.Description)

  42.                 Exit Sub

  43.             End If

  44.         End If

  45.         AcadApp.Visible = True                            '设置界面可视         

  46.         AcadApp.WindowState = AutoCAD.AcWindowState.acMax '设置界面最大化         

  47.         AppActivate(AcadApp.Caption)                      '显示AutoCAD界面           

  48.         Dim count As Integer

  49.         Dim i As Integer

  50.         Dim dir_dwg As String

  51.         dir_dwg = "d:\400V\shigong"

  52.         Dim j As Integer

  53.         Dim blk As String

  54.         Dim blk_obj As Object

  55.         Dim startp(0 To 2) As Double

  56.         Dim countg As Integer

  57.         Dim attVars As Object

  58.         Dim k As Integer

  59.         Dim mulian As Integer

  60.         Dim guihao As Integer          '1、柜号

  61.         Dim xinghao As Integer         '2、型号

  62.         Dim chicun As Integer          '3、尺寸

  63.         Dim huiluhao As Integer        '4、回路号

  64.         Dim xiaoshiguige As Integer    '5、模数

  65.         Dim kaiguanhao As Integer      '6、开关号

  66.         Dim duanluqi As Integer        '7、断路器型号

  67.         Dim tuokouqi As Integer        '8、脱扣器型号

  68.         Dim liuhu As Integer           '9、流互

  69.         Dim dianliubiao As Integer     '10、电流表

  70.         Dim diandubiao As Integer      '11、电度表

  71.         Dim langyong As Integer         '浪涌保护器

  72.         Dim mingcheng As Integer       '17、回路名称

  73.         Dim shebeirongliang As Integer '18、设备容量

  74.         Dim jisuanrongliang As Integer '19、计算容量

  75.         Dim jisuandianliu As Integer   '20、计算电流

  76.         Dim zhengding As Integer       '21、整定

  77.         Dim peidianxiang As Integer    '22、配电箱

  78.         Dim dianlan As Integer         '23、电缆

  79.         Dim xiajizhengding As Integer   '24、下级整定

  80.         Dim fuhedengji As Integer      '25、负荷等级

  81.         Dim sanyao As Integer          '26、三遥

  82.         Dim jiankong As Integer         '27、监控

  83.         Dim fujian As Integer          '28、接地保护及定值

  84.         Dim xiaofang As Integer         '29、负荷类型

  85.         Dim beizhu As Integer          '30、备注

  86.         Dim muxianduan As Integer      '31、母线段

  87.         Dim duanyanshi As Integer           '32、短延时整定值

  88.         Dim shundong As Integer           '33、瞬动整定值

  89.         Dim xiangxian As Integer           '34、相线截面

  90.         Dim nxian As Integer           '35、N线截面

  91.         Dim pexian As Integer           '36、PE线截面

  92.         Dim m As Integer

  93.         Dim deng As Integer

  94.         count = yy   '行数

  95.         For i = 1 To xx

  96.             Select Case arr_FuHeBiao(1, i)

  97.                 Case "开关柜编号"

  98.                     guihao = i

  99.                 Case "开关柜型号"

  100.                     xinghao = i

  101.                 Case "外型尺寸"

  102.                     chicun = i

  103.                 Case "回路编号"

  104.                     huiluhao = i

  105.                 Case "模数"

  106.                     xiaoshiguige = i

  107.                 Case "主回路开关编号"

  108.                     kaiguanhao = i

  109.                 Case "断路器型号"

  110.                     duanluqi = i

  111.                 Case "脱扣器型号"

  112.                     tuokouqi = i

  113.                 Case "电流互感器"

  114.                     liuhu = i

  115.                 Case "电流表"

  116.                     dianliubiao = i

  117.                 Case "电度表"

  118.                     diandubiao = i

  119.                 Case "浪涌保护器"

  120.                     langyong = i

  121.                 Case "回路名称"

  122.                     mingcheng = i

  123.                 Case "设备容量"

  124.                     shebeirongliang = i

  125.                 Case "计算容量"

  126.                     jisuanrongliang = i

  127.                 Case "计算电流"

  128.                     jisuandianliu = i

  129.                 Case "长延时整定值"

  130.                     zhengding = i

  131.                 Case "下级配电箱编号"

  132.                     peidianxiang = i

  133.                 Case "馈线电缆截面"

  134.                     dianlan = i

  135.                 Case "下级配电箱整定值"

  136.                     xiajizhengding = i

  137.                 Case "负荷等级"

  138.                     fuhedengji = i

  139.                 Case "操作机构"

  140.                     sanyao = i

  141.                 Case "电气火灾监控模块"

  142.                     jiankong = i

  143.                 Case "接地保护及定值"

  144.                     fujian = i

  145.                 Case "负荷类型"

  146.                     xiaofang = i

  147.                 Case "备注"

  148.                     beizhu = i

  149.                 Case "母线段"

  150.                     muxianduan = i

  151.                 Case "短延时整定值"

  152.                     duanyanshi = i

  153.                 Case "瞬动整定值"

  154.                     shundong = i

  155.                 Case "相线截面"

  156.                     xiangxian = i

  157.                 Case "N线截面"

  158.                     nxian = i

  159.                 Case "PE线截面"

  160.                     pexian = i

  161.             End Select

  162.         Next i

  163.         Me.Visible = False

  164.         AcadDoc = AcadApp.ActiveDocument

  165.         Dim intp(0 To 2) As Double

  166.         'CAD中块插入的初始坐标

  167.         intp(0) = 0

  168.         intp(1) = 0

  169.         intp(2) = 0

  170.         Dim fitPoint(0 To 2) As Double

  171.         Dim minExt As Object

  172.         Dim maxExt As Object

  173.         Dim intp_gui(0 To 2) As Double

  174.         mulian = 0

  175.         Dim ij As Integer

  176.         Dim gui As String

  177.         Dim guishu As Integer

  178.         Dim kk As Integer

  179.         blk = dir_dwg + "表头" + ".dwg"     '图块路径及图块名称

  180.         blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)     '插入块InsertBlock（插入点，名称，1，1，1，0）

  181.         intp(0) = intp(0) + 20              '下一个图块插入点的x坐标

  182.         i = 2

  183.         While i  "" Then

  184.                                     attVars(k).TextString = System.Math.Round(arr_FuHeBiao(i, jisuandianliu), 2)

  185.                                 Else

  186.                                     attVars(k).TextString = ""

  187.                                 End If

  188.                         End Select

  189.                     Next k

  190.                 Case "进线"

  191.                     blk = dir_dwg + "进线" + ".dwg"       '图块路径及图块名称

  192.                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)   '插入图块InsertBlock（插入点，名称，1，1，1，0）

  193.                     attVars = blk_obj.GetAttributes      'GetAttributes获得图块的属性

  194.                     For k = 0 To UBound(attVars)

  195.                         Select Case attVars(k).TagString

  196.                             Case "断路器型号"

  197.                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)

  198.                                 attVars(k).GetBoundingBox(minExt, maxExt)                    'GetBoundingBox(minExt, maxExt)获取文字的左端和右端的坐标

  199.                                 If minExt(0)  (intp(0) + 20) Then    '文字左端坐标小于方框的左端坐标，或者文字右端坐标大于方框右端的坐标，即可判断为文字已超出方框

  200.                                     attVars(k).Alignment = acAlignmentFit()                  '文字对齐方式：调整

  201.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  202.                                     attVars(k).InsertPoint = fitPoint

  203.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  204.                                     attVars(k).TextAlignmentPoint = fitPoint

  205.                                 End If

  206.                             Case "脱扣器型号"

  207.                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)

  208.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  209.                                 If minExt(0)  (intp(0) + 20) Then

  210.                                     attVars(k).Alignment = acAlignmentFit

  211.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  212.                                     attVars(k).InsertPoint = fitPoint

  213.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  214.                                     attVars(k).TextAlignmentPoint = fitPoint

  215.                                 End If

  216.                             Case "电流互感器"

  217.                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)

  218.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  219.                                 If minExt(0)  (intp(0) + 20) Then

  220.                                     attVars(k).Alignment = acAlignmentFit

  221.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  222.                                     attVars(k).InsertPoint = fitPoint

  223.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  224.                                     attVars(k).TextAlignmentPoint = fitPoint

  225.                                 End If

  226.                             Case "馈线电缆截面"

  227.                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)

  228.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  229.                                 If minExt(0)  (intp(0) + 20) Then

  230.                                     attVars(k).Alignment = acAlignmentFit()

  231.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  232.                                     attVars(k).InsertPoint = fitPoint

  233.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  234.                                     attVars(k).TextAlignmentPoint = fitPoint

  235.                                 End If

  236.                         End Select

  237.                     Next k

  238.                 Case "有源滤波"

  239.                     blk = dir_dwg + "有源滤波" + ".dwg"

  240.                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  241.                     attVars = blk_obj.GetAttributes

  242.                     For k = 0 To UBound(attVars)

  243.                         Select Case attVars(k).TagString

  244.                             Case "断路器型号"

  245.                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)

  246.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  247.                                 If minExt(0)  (intp(0) + 20) Then

  248.                                     attVars(k).Alignment = acAlignmentFit

  249.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  250.                                     attVars(k).InsertionPoint = fitPoint

  251.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  252.                                     attVars(k).TextAlignmentPoint = fitPoint

  253.                                 End If

  254.                             Case "脱扣器型号"

  255.                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)

  256.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  257.                                 If minExt(0)  (intp(0) + 20) Then

  258.                                     attVars(k).Alignment = acAlignmentFit

  259.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  260.                                     attVars(k).InsertionPoint = fitPoint

  261.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  262.                                     attVars(k).TextAlignmentPoint = fitPoint

  263.                                 End If

  264.                             Case "电流互感器"

  265.                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)

  266.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  267.                                 If minExt(0)  (intp(0) + 20) Then

  268.                                     attVars(k).Alignment = acAlignmentFit

  269.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  270.                                     attVars(k).InsertionPoint = fitPoint

  271.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  272.                                     attVars(k).TextAlignmentPoint = fitPoint

  273.                                 End If

  274.                             Case "馈线电缆截面"

  275.                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)

  276.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  277.                                 If minExt(0)  (intp(0) + 20) Then

  278.                                     attVars(k).Alignment = acAlignmentFit

  279.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  280.                                     attVars(k).InsertionPoint = fitPoint

  281.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  282.                                     attVars(k).TextAlignmentPoint = fitPoint

  283.                                 End If

  284.                         End Select

  285.                     Next k

  286.                 Case "母联"

  287.                     blk = dir_dwg + "母联1" + ".dwg"

  288.                     blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  289.                     attVars = blk_obj.GetAttributes

  290.                     For k = 0 To UBound(attVars)

  291.                         Select Case attVars(k).TagString

  292.                             Case "断路器型号"

  293.                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)

  294.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  295.                                 If minExt(0)  (intp(0) + 20) Then

  296.                                     attVars(k).Alignment = acAlignmentFit()

  297.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  298.                                     attVars(k).InsertPoint = fitPoint

  299.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  300.                                     attVars(k).TextAlignmentPoint = fitPoint

  301.                                 End If

  302.                             Case "脱扣器型号"

  303.                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)

  304.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  305.                                 If minExt(0)  (intp(0) + 20) Then

  306.                                     attVars(k).Alignment = acAlignmentFit()

  307.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  308.                                     attVars(k).InsertPoint = fitPoint

  309.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  310.                                     attVars(k).TextAlignmentPoint = fitPoint

  311.                                 End If

  312.                             Case "电流互感器"

  313.                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)

  314.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  315.                                 If minExt(0)  (intp(0) + 20) Then

  316.                                     attVars(k).Alignment = acAlignmentFit()

  317.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  318.                                     attVars(k).InsertPoint = fitPoint

  319.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  320.                                     attVars(k).TextAlignmentPoint = fitPoint

  321.                                 End If

  322.                             Case "馈线电缆截面"

  323.                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)

  324.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  325.                                 If minExt(0)  (intp(0) + 20) Then

  326.                                     attVars(k).Alignment = acAlignmentFit()

  327.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  328.                                     attVars(k).InsertPoint = fitPoint

  329.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  330.                                     attVars(k).TextAlignmentPoint = fitPoint

  331.                                 End If

  332.                         End Select

  333.                     Next k

  334.                 Case Else

  335.                     Select Case arr_FuHeBiao(i, muxianduan)

  336.                         Case "11"

  337.                             blk = dir_dwg + "12级馈线" + ".dwg"

  338.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  339.                         Case "111"

  340.                             blk = dir_dwg + "12级馈线（三相流互）" + ".dwg"

  341.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  342.                         Case "12"

  343.                             blk = dir_dwg + "照明馈线" + ".dwg"

  344.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  345.                         Case "121"

  346.                             blk = dir_dwg + "照明馈线（三相流互）" + ".dwg"

  347.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  348.                         Case "14"

  349.                             blk = dir_dwg + "照明总开关（左-右）" + ".dwg"

  350.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  351.                         Case "141"

  352.                             blk = dir_dwg + "照明总开关（三相流互）（左-右）" + ".dwg"

  353.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  354.                         Case "15"

  355.                             blk = dir_dwg + "照明总计量（左-右）" + ".dwg"

  356.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  357.                         Case "151"

  358.                             blk = dir_dwg + "照明总计量（三相流互）（左-右）" + ".dwg"

  359.                             blk_obj = AcadApp.ActiveDocument.ModelSpace.InsertBlock(intp, blk, 1, 1, 1, 0)

  360.                     End Select

  361.                     attVars = blk_obj.GetAttributes

  362.                     For k = 0 To UBound(attVars)

  363.                         Select Case attVars(k).TagString

  364.                             Case "断路器型号"

  365.                                 attVars(k).TextString = arr_FuHeBiao(i, duanluqi)

  366.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  367.                                 If minExt(0)  (intp(0) + 20) Then

  368.                                     attVars(k).Alignment = acAlignmentFit()

  369.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  370.                                     attVars(k).InsertionPoint = fitPoint

  371.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  372.                                     attVars(k).TextAlignmentPoint = fitPoint

  373.                                 End If

  374.                             Case "脱扣器型号"

  375.                                 attVars(k).TextString = arr_FuHeBiao(i, tuokouqi)

  376.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  377.                                 If minExt(0)  (intp(0) + 20) Then

  378.                                     attVars(k).Alignment = acAlignmentFit()

  379.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  380.                                     attVars(k).InsertionPoint = fitPoint

  381.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  382.                                     attVars(k).TextAlignmentPoint = fitPoint

  383.                                 End If

  384.                             Case "电流互感器"

  385.                                 attVars(k).TextString = arr_FuHeBiao(i, liuhu)

  386.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  387.                                 If minExt(0)  (intp(0) + 20) Then

  388.                                     attVars(k).Alignment = acAlignmentFit()

  389.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  390.                                     attVars(k).InsertionPoint = fitPoint

  391.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  392.                                     attVars(k).TextAlignmentPoint = fitPoint

  393.                                 End If

  394.                             Case "回路名称"

  395.                                 attVars(k).TextString = arr_FuHeBiao(i, mingcheng)

  396.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  397.                                 If minExt(0)  (intp(0) + 20) Then

  398.                                     attVars(k).Alignment = acAlignmentFit()

  399.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  400.                                     attVars(k).InsertionPoint = fitPoint

  401.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  402.                                     attVars(k).TextAlignmentPoint = fitPoint

  403.                                 End If

  404.                             Case "馈线电缆截面"

  405.                                 attVars(k).TextString = arr_FuHeBiao(i, dianlan)

  406.                                 attVars(k).GetBoundingBox(minExt, maxExt)

  407.                                 If minExt(0)  (intp(0) + 20) Then

  408.                                     attVars(k).Alignment = acAlignmentFit()

  409.                                     fitPoint(0) = intp(0) + 0.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  410.                                     attVars(k).InsertionPoint = fitPoint

  411.                                     fitPoint(0) = intp(0) + 19.5 : fitPoint(1) = minExt(1) : fitPoint(2) = minExt(2)

  412.                                     attVars(k).TextAlignmentPoint = fitPoint

  413.                                 End If

  414.                         End Select

  415.                     Next k

  416.             End Select

  417.             intp(0) = intp(0) + 20

  418.             i = i + 1

  419.         End While

  420.         MsgBox("已完成排列图绘制，请核查！")

  421.         Me.Visible = True

  422.     End Sub

  423.     Private Function acAlignmentFit() As Object

  424.         Throw New NotImplementedException

  425.     End Function

  426. End Class
回复

使用道具 举报

sanmujun

3

主题

6

帖子

2

银币

初来乍到

Rank: 1

铜币
18
发表于 2020-1-2 16:18:00 | 显示全部楼层
已解决，获取下一个文本外框坐标前，需要将上一个文本的外框坐标清除。
回复

使用道具 举报

cairunbin

9

主题

66

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
102
发表于 2020-1-19 21:39:00 | 显示全部楼层
操作Excel，别用微软自己的Microsoft.Office.Interop.Excel.Application。这个实在太难用，读、写均是龟速。且操作不当，经常你的程序退出了，但是系统中存留一大堆Excel的线程。
推荐EPPlus，超级简单，速度快。
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-13 02:11 , Processed in 0.494094 second(s), 61 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表