iCAx开思工具箱

标题: 在VB中设置工程图表格单元的字体和字高 [打印本页]

作者: youzigg 时间: 2015-5-2 18:37
标题: 在VB中设置工程图表格单元的字体和字高
   大家好，我想用VB编一个小二次开发程序，用于自动设置新插入到catia工程图的一个表格的各单元字体和字高，我的思路是先插入一个空表格，然后用循环将文本一一写到一个新建的DrawingText中，再设置该DrawingText的字体和字高，再用SetCellObject函数将DrawingText写入到对应单元格中。我编写的部分代码如下，但程序运行时，新添加的表格始终是空表（无任何文本，当然直接将文本导入工程图新建的表格中是没问题的，只是字体和字高不对而已），请高手指教一下问题出在哪？谢谢。
   部分代码如下：（注：MyView和BomTable都已定义好。）

Dim MyText As String
Dim DrawText As DrawingText
For i = 1 To Num_Row
For j = 1 To 5
      MyText = CStr(xlsheet.Cells(i, j ))
      Set DrawText = MyView.Texts.Add(MyText, 0, 0)
      'DrawText.Text = MyText
   DrawText.SetFontSize 0, 1, 2.5
   DrawText.SetFontName 0, 1, "Bell MT"

      BomTable.SetCellObject i, j, DrawText
         Next j
Next i

作者: watersp 时间: 2015-10-9 16:34
如果是设置TABLE中的文字要用：Set DrawText = BomTable.GetCellObject(i, j)

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)