求助:如何读取(写入)CAD表格里的数值

挪威的森林 · 发表于 2012-10-30 13:13:00

Dim MyModelSpace As IAcadModelSpace
Set MyModelSpace = ThisDrawing.ModelSpace
Dim pt(2) As Double
Dim MyTable As AcadTable
Set MyTable = MyModelSpace.AddTable(pt, 5, 5, 10, 30)
插入一个这样的CAD表格后之,我想在表格里添加数据,比如在A2单元格里添加数值1.因该怎么操作呢?

liuxu042 · 发表于 2012-10-30 13:19:00

建议不要用com方式编写，去得table对象后，就可以再指定单元格内容

挪威的森林 · 发表于 2012-10-30 13:23:00

能写个简短的示例吗?我学这个没多久,不太明白你的意思.谢谢了

sscylh · 发表于 2012-10-30 16:21:00

MyTable.SetText 2, 1, "乐筑天下" 第一个参数2代表第二行,第二个参数1第一列,第三个是要输入的值

挪威的森林 · 发表于 2012-10-30 18:13:00

谢谢版主的帮助.我还想请教一下版主该如何读取表格里的内容易呢?可不可以把整个表里的内容赋值到一个二维数组中?
另外我也把你刚才的答复修正一下,CAD表格的行列计数是从0开始的,参数2,1代表是不是第2行第1列,而是第3行,第2列.

Flyingdancing · 发表于 2012-10-30 19:27:00

弄懂什么叫对象模型……，每个对象的变量类型是什么。这是必须的
A.B.C.D.E，这样的结构，每一个你需要的D，直接找父对象C。如果C不支持你要的D，说明程序不支持，你就必须变相的编程达到目的。你问其他人，得到的答案也不会超出这个范围。至于编什么样的程序，除了某些复杂情况，最好自己动手
还不明白，当我没说
以后，就完全只要依赖于F1就行了。对于需要的类型直接F1

sscylh · 发表于 2012-10-30 23:06:00

呵呵,大意了...........
读取表格里面的内容:object.GetText(row, col)
  如果想要赋值给一个二维数组
可以先定义数组:redim arr(1 to table.rows,1 to table.columns)
然后  两个循环 for i=1 to table.rows
                        for j=1 to table.columns
                        arr(i,j)=table.gettext(i,j)
这样子.
看楼主是好学之人,想必一点就通.