讨论一下2005新功能的编程-表格生成及格式设置

mccad

2. '有关表格的VBA编程
3. '生成表格，填写文字并设置框线宽度 '以下例子生成一个3行4列的表格，并将第二行和第三行的4列各合并成一列
4. Sub mcAddTabel()
5.        Dim Table As AcadTable
6.        Dim InsertionPoint As Variant
7.        InsertionPoint = ThisDrawing.Utility.GetPoint(, vbCrLf & "请选择表格插入点：")
8.        Dim NumRows As Double, NumColumns As Double, _
9.                RowHeight As Double, Colwidth As Double
10.        NumRows = 3: NumColumns = 4 '行数和列数
11.        RowHeight = 10: Colwidth = 25 '行高及列宽
12.        Set Table = ThisDrawing.ModelSpace.AddTable _
13.                                (InsertionPoint, NumRows, NumColumns, RowHeight, Colwidth)
14.        '取消原先表格格式中的首行合并
15.        Table.UnmergeCells 0, 0, 0, 3   '按顺序为合并的起始行号、结束行号、起始列号、结束列号
16.        '将第二行的三列合并成一列
17.        Table.MergeCells 1, 1, 0, 3   '按顺序为合并的起始行号、结束行号、起始列号、结束列号
18.        Table.MergeCells 2, 2, 0, 3
19.        '在表格中写入文字
20.        Table.SetText 0, 0, "{\fSimSun|b0|i0|c134|p2;明}"
21.        Table.SetText 0, 1, "{\fSimSun|b0|i0|c134|p2;经}"
22.        Table.SetText 0, 2, "{\fSimSun|b0|i0|c134|p2;通}"
23.        Table.SetText 0, 3, "{\fSimSun|b0|i0|c134|p2;道}"
24.        Table.SetText 1, 0, "{\fSimSun|b0|i0|c134|p2;VBA编程技术}"
25.        Table.SetText 2, 0, "{\fSimSun|b0|i0|c134|p2;%<\AcVar Date \f ""yyyy年M月d日"">%}"
26.        '设置表外框线宽度,宽度的设置有点麻烦，因为表格被分成三个功能部分 _
27.          最顶一行为标题行(acTitleRow)，第二行为行头(acHeaderRow) _
28.          剩下的就是数据行(acDataRow)了，而这三种都必须单独设置
29.        ThisDrawing.SetVariable "LWDISPLAY", 1
30.        Table.SetGridLineWeight acHorzTop + acVertLeft + acVertRight, _
31.                          acTitleRow, acLnWt050
32.        Table.SetGridLineWeight acHorzBottom + acVertLeft + acVertRight, _
33.                          acDataRow, acLnWt050
34.        Table.SetGridLineWeight acVertLeft + acVertRight, _
35.                          acHeaderRow, acLnWt050
36. End Sub

'有关表格的VBA编程 '生成表格，填写文字并设置框线宽度 '以下例子生成一个3行4列的表格，并将第二行和第三行的4列各合并成一列 Sub mcAddTabel()        Dim Table As AcadTable        Dim InsertionPoint As Variant        InsertionPoint = ThisDrawing.Utility.GetPoint(, vbCrLf & "请选择表格插入点：")        Dim NumRows As Double, NumColumns As Double, _                RowHeight As Double, Colwidth As Double        NumRows = 3: NumColumns = 4 '行数和列数        RowHeight = 10: Colwidth = 25 '行高及列宽        Set Table = ThisDrawing.ModelSpace.AddTable _                                (InsertionPoint, NumRows, NumColumns, RowHeight, Colwidth)        '取消原先表格格式中的首行合并        Table.UnmergeCells 0, 0, 0, 3   '按顺序为合并的起始行号、结束行号、起始列号、结束列号        '将第二行的三列合并成一列        Table.MergeCells 1, 1, 0, 3   '按顺序为合并的起始行号、结束行号、起始列号、结束列号        Table.MergeCells 2, 2, 0, 3        '在表格中写入文字        Table.SetText 0, 0, "{\fSimSun|b0|i0|c134|p2;明}"        Table.SetText 0, 1, "{\fSimSun|b0|i0|c134|p2;经}"        Table.SetText 0, 2, "{\fSimSun|b0|i0|c134|p2;通}"        Table.SetText 0, 3, "{\fSimSun|b0|i0|c134|p2;道}"        Table.SetText 1, 0, "{\fSimSun|b0|i0|c134|p2;VBA编程技术}"        Table.SetText 2, 0, "{\fSimSun|b0|i0|c134|p2;%<\AcVar Date \f ""yyyy年M月d日"">%}"        '设置表外框线宽度,宽度的设置有点麻烦，因为表格被分成三个功能部分 _          最顶一行为标题行(acTitleRow)，第二行为行头(acHeaderRow) _          剩下的就是数据行(acDataRow)了，而这三种都必须单独设置        ThisDrawing.SetVariable "LWDISPLAY", 1        Table.SetGridLineWeight acHorzTop + acVertLeft + acVertRight, _                          acTitleRow, acLnWt050        Table.SetGridLineWeight acHorzBottom + acVertLeft + acVertRight, _                          acDataRow, acLnWt050        Table.SetGridLineWeight acVertLeft + acVertRight, _                          acHeaderRow, acLnWt050 End Sub

生成的表格如下图：

efan2000

有了表格的功能，制表确实方便了点，不过其数据计算的功能还是太差，可以考虑参照Excel的部分功能，将其移植到ACAD中，比如公式计算、数据关联、数据的导入和导出等。

goldenshin

建议调整一下版块,


用VB写Arx程序(或C#)值得大力推广.


VB是最方便和最丰富的编程语言,Arx是功能最强的二次开发工具.两者结合在一起,值得推广应用.

my_computer

goldenshin发表于2004-3-30 8:46:00建议调整一下版块, 用VB写Arx程序(或C#)值得大力推广. VB是最方便和最丰富的编程语言,Arx是功能最强的二次开发工具.两者结合在一起,值得推广应用.

有这样的方法？能不能给点提示。

lhtfh

支持！！！！

asd_10000

Table.SetText 0, 0, "{\fSimSun|b0|i0|c134|p2;明}"
       Table.SetText 0, 1, "{\fSimSun|b0|i0|c134|p2;经}"
       Table.SetText 0, 2, "{\fSimSun|b0|i0|c134|p2;通}"
       Table.SetText 0, 3, "{\fSimSun|b0|i0|c134|p2;道}"
       Table.SetText 1, 0, "{\fSimSun|b0|i0|c134|p2;VBA编程技术}"
       Table.SetText 2, 0, "{\fSimSun|b0|i0|c134|p2;%<\AcVar Date \f ""yyyy年M月d日"">%}"
"{\fSimSun|b0|i0|c134|p2;%<\AcVar Date \f ""yyyy年M月d日"">%}" 是什么意思

crazylsp

收下了改改做个自己的表格。