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

挪威的森林

    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

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

挪威的森林

liuxu042 发表于 2012-10-30 13:19
建议不要用com方式编写，去得table对象后，就可以再指定单元格内容

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

sscylh

MyTable.SetText 2, 1, "明经通道"    第一个参数2代表第二行,第二个参数1第一列,第三个是要输入的值

挪威的森林

sscylh 发表于 2012-10-30 16:21
MyTable.SetText 2, 1, "明经通道"    第一个参数2代表第二行,第二个参数1第一列,第三个是要输入的值

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

Flyingdancing

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

sscylh

挪威的森林 发表于 2012-10-30 18:13
谢谢版主的帮助.我还想请教一下版主该如何读取表格里的内容易呢?可不可以把整个表里的内容赋值到一个二维 ...

呵呵,大意了...........
读取表格里面的内容: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)
这样子.
看楼主是好学之人,想必一点就通.

挪威的森林

Flyingdancing 发表于 2012-10-30 19:27
弄懂什么叫对象模型……，每个对象的变量类型是什么。这是必须的
A.B.C.D.E，这样的结构，每一个你需要的D ...

很惭愧,我的计算机方面的基础很差,需要去学的东西又多而杂,往往学了这头忘了那了那头,所以学了一段时间仍然长进不大.我现在是出于让自己的工作方便有效一些才想去编一个小程序,代码都是在论坛上东拼西凑,有些没找到的内容就发贴求助了

crazylsp

这个例子可以学习,不过我想知道的是把文本分开后按顺序放入一行各列里面