[测试]：AutoCAD表格制作工具的接口

efan2000

该组件可供所有支持ActiveX的编程语言调用，目前仅供测试。部分说明如下：

2. 
   
3. 1、AddTable
   
4. Sub AddTable(ByVal InsertionPoint, ByVal NumRows As Integer, ByVal NumColumns As Integer, [ByVal InsertionDirection As Integer], [RowHeight As Double], [ByVal ColumnWidth As Double])
   
5. 创建表格，需指定表格的插入点、行数和列数，以及插入方向、默认的行高和列宽。
   
6. 插入方向：1代表从上到下，2代表从下到上。
   
7. 
   
8. ETObj.AddTable iPt,3,2,1,8,10
   
9. 表示创建一个3行2列的表格，默认方向是从上到下，行高是8，列宽是10。
   
10. 
    
11. 2、SelectTable
    
12. Sub SetTable(ByVal EntObj As Object)
    
13. 选取现有的表格作为当前表格，仅供后续操作之用。
    
14. EntObj：表示表格的块引用对象。
    
15. 
    
16. ETObj.SetTable EntObj
    
17. 
    
18. 3、ConvertExcel
    
19. 将Excel中的表格插入到AutoCAD，需指定表格的插入点。
    
20. 注：Excel需要先行启动。
    
21. Sub ConvertTableFromExcel(ByVal RangeObj As Object, ByVal InsertionPoint, ByVal InsertoinDirection As Integer)
    
22. RangeObj：代表Excel表格中要转换的单元格区域对象。
    
23. InsertionPoint：代表表格在AutoCAD中的插入点。
    
24. InsertoinDirection：代表表格在AutoCAD中的方向。
    
25. 
    
26. ETObj.ConvertTableFromExcel xlSheet.Selection,iPt,2
    
27. 从Excel中以当前选定的区域插入一个从下到上的表格。
    
28. 
    
29. 4、ConvertAutoCAD
    
30. 将AutoCAD中的表格插入到Excel。
    
31. 注：Excel需要先行启动。
    
32. Sub ConvertTableFromAutoCAD(SheetObj As Object)
    
33. 
    
34. ETObj.ConvertTableFromExcel xlSheet
    
35. 从AutoCAD中转换当前表格到Excel中。
    
36. 
    
37. 5、AddColumn
    
38. 往当前表格中添加列，需指定列的索引。
    
39. 注：列的索引为列插入后的位置。
    
40. Sub AddColumn(ByVal Index As Integer)
    
41. 
    
42. ETObj.AddColumn 1
    
43. 在当前表格中的第一列位置插入一列。
    
44. 
    
45. 6、RemoveColumn
    
46. 从当前表格中删除列，需指定列的索引。
    
47. Sub RemoveColumn(ByVal Index As Integer)
    
48. 
    
49. ETObj.RemoveColumn 1
    
50. 在当前表格中删除第一列。
    
51. 
    
52. 7、SetColumnWidth
    
53. 更改当前表格中某一列的列宽，需指定列的索引。
    
54. Public Property Width As Variant
    
55. 
    
56. ETObj.Range("A:A").Width=20
    
57. 在当前表格中将第一列的列宽设置为20mm。
    
58. 
    
59. 15、DisplayHeadings
    
60. 设置当前表格是否隐藏行号列标
    
61. Sub DisplayHeadings(ByVal bShow As Boolean)
    
62. 
    
63. ETObj.DisplayHeadings False
    
64. 隐藏当前表格的行号列标。
    
65. 
    
66. 16、DisplayGridlines
    
67. 设置当前表格是否隐藏网格线
    
68. Sub DisplayGridlines(ByVal bShow As Boolean)
    
69. 
    
70. ETObj.DisplayHeadings False
    
71. 隐藏当前表格的网格线。
    

<br /> 1、AddTable<br /> Sub AddTable(ByVal InsertionPoint, ByVal NumRows As Integer, ByVal NumColumns As Integer, [ByVal InsertionDirection As Integer], [RowHeight As Double], [ByVal ColumnWidth As Double])<br /> 创建表格，需指定表格的插入点、行数和列数，以及插入方向、默认的行高和列宽。<br /> 插入方向：1代表从上到下，2代表从下到上。<br /> <br /> ETObj.AddTable iPt,3,2,1,8,10<br /> 表示创建一个3行2列的表格，默认方向是从上到下，行高是8，列宽是10。<br /> <br /> 2、SelectTable<br /> Sub SetTable(ByVal EntObj As Object)<br /> 选取现有的表格作为当前表格，仅供后续操作之用。<br /> EntObj：表示表格的块引用对象。<br /> <br /> ETObj.SetTable EntObj<br /> <br /> 3、ConvertExcel<br /> 将Excel中的表格插入到<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>，需指定表格的插入点。<br /> 注：Excel需要先行启动。<br /> Sub ConvertTableFromExcel(ByVal RangeObj As Object, ByVal InsertionPoint, ByVal InsertoinDirection As Integer)<br /> RangeObj：代表Excel表格中要转换的单元格区域对象。<br /> InsertionPoint：代表表格在AutoCAD中的插入点。<br /> InsertoinDirection：代表表格在AutoCAD中的方向。<br /> <br /> ETObj.ConvertTableFromExcel xlSheet.Selection,iPt,2<br /> 从Excel中以当前选定的区域插入一个从下到上的表格。<br /> <br /> 4、ConvertAutoCAD<br /> 将AutoCAD中的表格插入到Excel。<br /> 注：Excel需要先行启动。<br /> Sub ConvertTableFromAutoCAD(SheetObj As Object)<br /> <br /> ETObj.ConvertTableFromExcel xlSheet<br /> 从AutoCAD中转换当前表格到Excel中。<br /> <br /> 5、AddColumn<br /> 往当前表格中添加列，需指定列的索引。<br /> 注：列的索引为列插入后的位置。<br /> Sub AddColumn(ByVal Index As Integer)<br /> <br /> ETObj.AddColumn 1<br /> 在当前表格中的第一列位置插入一列。<br /> <br /> 6、RemoveColumn<br /> 从当前表格中删除列，需指定列的索引。<br /> Sub RemoveColumn(ByVal Index As Integer)<br /> <br /> ETObj.RemoveColumn 1<br /> 在当前表格中删除第一列。<br /> <br /> 7、SetColumnWidth<br /> 更改当前表格中某一列的列宽，需指定列的索引。<br /> Public Property Width As Variant<br /> <br /> ETObj.Range("A:A").Width=20<br /> 在当前表格中将第一列的列宽设置为20mm。<br /> <br /> 15、DisplayHeadings<br /> 设置当前表格是否隐藏行号列标<br /> Sub DisplayHeadings(ByVal bShow As Boolean)<br /> <br /> ETObj.DisplayHeadings False<br /> 隐藏当前表格的行号列标。<br /> <br /> 16、DisplayGridlines<br /> 设置当前表格是否隐藏网格线<br /> Sub DisplayGridlines(ByVal bShow As Boolean)<br /> <br /> ETObj.DisplayHeadings False<br /> 隐藏当前表格的网格线。<br />

DLL文件：

zzyong00

多少年前的老贴子，今日有幸拜读，荣幸之至！
作者应该是重新定义一些接口了，虽然没有帮助文档，但顾思义，也能看懂！

mccad

真不错，以后的表格程序完全可以抛开EXCEL了。

myfreemind

太好了!

zeng29

以下程序调用AddTable无任何输出,无任何提示.(AutoCAD2k4,Win2K)

2. 
   
3. Sub Test()
   
4.    Dim NewTable As EFCAD.Table
   
5.    Dim InsertP As Variant, RowCount As Integer, ColCount As Integer, TableDir As Integer, _
   
6.        RowHeight As Double, ColHeight As Double
   
7.       
   
8.    With ThisDrawing.Utility
   
9.       InsertP = (.GetPoint(, "请输入表格插入点:"))
   
10.       'MsgBox InsertP(0) & vbCr & InsertP(1) & vbCr & InsertP(2)
    
11.       RowCount = (.GetInteger("请输入表格的行数:"))
    
12.       'MsgBox RowCount
    
13.       ColCount = (.GetInteger("请输入表格的列数:"))
    
14.       'MsgBox ColCount
    
15.       TableDir = (.GetInteger("表格的方向(1从上到下,2从下到上):"))
    
16.       'MsgBox TableDir
    
17.       RowHeight = (.GetDistance(, "请输入行高:"))
    
18.       'MsgBox RowHeight
    
19.       ColHeight = (.GetDistance(, "请输入列宽:"))
    
20.       'MsgBox ColHeight
    
21.    End With
    
22.    Set NewTable = New EFCAD.Table
    
23.    NewTable.AddTable InsertP, RowCount, ColCount , TableDir, RowHeight, ColHeight
    
24. End Sub
    
25. 
    

<br /> Sub Test()<br />    Dim NewTable As EFCAD.Table<br />    Dim InsertP As Variant, RowCount As Integer, ColCount As Integer, TableDir As Integer, _<br />        RowHeight As Double, ColHeight As Double<br />        <br />    With ThisDrawing.Utility<br />       InsertP = (.GetPoint(, "请输入表格插入点:"))<br />       'MsgBox InsertP(0) & vbCr & InsertP(1) & vbCr & InsertP(2)<br />       RowCount = (.GetInteger("请输入表格的行数:"))<br />       'MsgBox RowCount<br />       ColCount = (.GetInteger("请输入表格的列数:"))<br />       'MsgBox ColCount<br />       TableDir = (.GetInteger("表格的方向(1从上到下,2从下到上):"))<br />       'MsgBox TableDir<br />       RowHeight = (.GetDistance(, "请输入行高:"))<br />       'MsgBox RowHeight<br />       ColHeight = (.GetDistance(, "请输入列宽:"))<br />       'MsgBox ColHeight<br />    End With<br />    Set NewTable = New EFCAD.Table<br />    NewTable.AddTable InsertP, RowCount, ColCount , TableDir, RowHeight, ColHeight<br /> End Sub<br /> <br />

zeng29

有人试过吗?

efan2000

在Set NewTable = New EFCAD.Table之后，使用Set NewTable.Application=Application初始化应用程序对象。

efan2000

这是一段生成坐标数据输入到表格中的程序。

2. 
   
3. Dim etObj As EFCAD.Table
   
4. 
   
5. '创建表格并选择要输入坐标的对象
   
6. Sub test()
   
7.     Dim iPt As Variant
   
8.     Dim EntObj As AcadEntity
   
9.     Dim Pts As Variant
   
10.     Dim i As Integer
    
11.    
    
12.     On Error GoTo ErrTrap
    
13.     Set etObj = New EFCAD.Table
    
14.     Set etObj.Application = Application
    
15.     iPt = etObj.GetPoint(, "指定表格的插入点: ")
    
16.     If IsEmpty(iPt) Then Exit Sub
    
17.     '在iPt点生成1行3列，方向从上到下的表格，默认行高为5，列宽为30
    
18.     etObj.AddTable iPt, 1, 3, 1, 5, 30
    
19.     '设置1行1列的值为“角点”，以下同
    
20.     etObj.Range("A1").Text = "角点"
    
21.     etObj.Range("B1").Text = "X坐标"
    
22.     etObj.Range("C1").Text = "Y坐标"
    
23.     '设置1行的文字对齐方式为正中对齐
    
24.     etObj.Range("A1:C1").Alignment = 5
    
25.     Set EntObj = etObj.GetEntity(, "选择对象: ")
    
26.     Do While Not (EntObj Is Nothing)
    
27.         Pts = EntObj.Coordinates
    
28.         For i = 0 To UBound(Pts) Step 2
    
29.             '在表格中插入1行
    
30.             etObj.AddRow etObj.Rows.Count + 1
    
31.             etObj.Cells(etObj.Rows.Count, 1).Text = etObj.Rows.Count - 1
    
32.             etObj.Cells(etObj.Rows.Count, 2).Text = Round(Pts(i) + 0.0000000001, 4)
    
33.             etObj.Cells(etObj.Rows.Count, 3).Text = Round(Pts(i + 1) + 0.0000000001, 4)
    
34.         Next
    
35.         Set EntObj = etObj.GetEntity(, "选择对象: ")
    
36.     Loop
    
37.     etObj.Range("A1:C" & etObj.Rows.Count).Alignment = 5
    
38.     ThisDrawing.Regen acActiveViewport
    
39.     Set EntObj = Nothing
    
40.     Set etObj = Nothing
    
41.     Exit Sub
    
42.    
    
43. ErrTrap:
    
44.     On Error GoTo 0
    
45. End Sub
    
46. 
    

<br /> Dim etObj As EFCAD.Table<br /> <br /> '创建表格并选择要输入坐标的对象<br /> Sub test()<br />     Dim iPt As Variant<br />     Dim EntObj As AcadEntity<br />     Dim Pts As Variant<br />     Dim i As Integer<br />     <br />     On Error GoTo ErrTrap<br />     Set etObj = New EFCAD.Table<br />     Set etObj.Application = Application<br />     iPt = etObj.GetPoint(, "指定表格的插入点: ")<br />     If IsEmpty(iPt) Then Exit Sub<br />     '在iPt点生成1行3列，方向从上到下的表格，默认行高为5，列宽为30<br />     etObj.AddTable iPt, 1, 3, 1, 5, 30<br />     '设置1行1列的值为“角点”，以下同<br />     etObj.Range("A1").Text = "角点"<br />     etObj.Range("B1").Text = "X坐标"<br />     etObj.Range("C1").Text = "Y坐标"<br />     '设置1行的文字对齐方式为正中对齐<br />     etObj.Range("A1:C1").Alignment = 5<br />     Set EntObj = etObj.GetEntity(, "选择对象: ")<br />     Do While Not (EntObj Is Nothing)<br />         Pts = EntObj.Coordinates<br />         For i = 0 To UBound(Pts) Step 2<br />             '在表格中插入1行<br />             etObj.AddRow etObj.Rows.Count + 1<br />             etObj.Cells(etObj.Rows.Count, 1).Text = etObj.Rows.Count - 1<br />             etObj.Cells(etObj.Rows.Count, 2).Text = Round(Pts(i) + 0.0000000001, 4)<br />             etObj.Cells(etObj.Rows.Count, 3).Text = Round(Pts(i + 1) + 0.0000000001, 4)<br />         Next<br />         Set EntObj = etObj.GetEntity(, "选择对象: ")<br />     Loop<br />     etObj.Range("A1:C" & etObj.Rows.Count).Alignment = 5<br />     ThisDrawing.Regen acActiveViewport<br />     Set EntObj = Nothing<br />     Set etObj = Nothing<br />     Exit Sub<br />     <br /> ErrTrap:<br />     On Error GoTo 0<br /> End Sub<br /> <br />

citykunan

请问各位版主，我何时才有浏览精华帖子的权限？

mccad

citykunan发表于2003-9-24 13:31:00请问各位版主，我何时才有浏览精华帖子的权限？

努力一点，很快你就可以看到了

zeng29

为什么我以前能更改自己的基本资料,而现在总是出错!!!???