求完整的VAB生成表格代码

黄玉宏

如题，请各位同行提供一份完整的CAD的VAB生成表格代码，表格中填写表头、每个单元格数据，并设置字高.字体对齐方式.图层.表格样式等！我只找到一份生成空表的代码。

谢谢大家！

黄玉宏   二○○九年八月十六日

Sub Example_AddTable()
'该示例在模型空间中添加一个表格
Dim MyModelSpace As IAcadModelSpace2
Set MyModelSpace = ThisDrawing.ModelSpace
Dim pt(2) As Double
Dim MyTable As AcadTable
Set MyTable = MyModelSpace.AddTable(pt, 5, 5, 10, 30)
ZoomExtents
End Sub

雪山飞狐_lzh

efan很早以前写过：）

不过说实在，Cad的Table很不好用

http://www.mjtd.com/bbs/dispbbs.asp?BoardID=4&replyID=18080&id=20488&skin=0