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

efan2000

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

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

<br />   [FONT=courier new]<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中的表格插入到AutoCAD，需指定表格的插入点。<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 />   [/FONT]<br />

eachy

好东东，我要学习

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.cellsoft.cc/china/chanpin/jiazu/zujian.htm">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

ntchjie

在vb里可以用吗?怎么老是出现"不存在该属性"的提示
觉得很好,不知道用的人多不多?

lt_zzy

efan2000：
请你将上面的附件传给我，好吗？
我感觉我可能下载不了。

eachy

最初由 lt_zzy 发布
[B]efan2000：
请你将上面的附件传给我，好吗？
我感觉我可能下载不了。 [/B]

可能你是用了多窗口浏览，其中的一个是没有登陆的，保留一个窗口关掉其他的并刷新页面，看看是否是登陆状态。