dgp000 发表于 2005-7-6 17:00:00

如何用VBA实现自动生成表格，并在表格中写入数据？

如何用VBA实现自动生成表格，并在表格中写入数据？
望高人赐教！

zyh0312 发表于 2005-7-7 09:40:00

将表格以块的形式插入，再在excel中输入表格数据，逐条将excel中的数据写入块的属性中去。       以下是一段主要代码：
                        Dim blkref As AcadBlockReference
        With blkref
        atr = .GetAttributes
        For i = 0 To n       'n为表格的列数
        atr(i).TextString = excelsheet.cells(rownum, i + 1)
        End With
        rownum = rownum + 1
        Wend
不知这段程序是否符合你的意思

霹雳啪啦啦 发表于 2005-7-7 11:35:00

如果你使用2005或者2006，CAD本身就有表格功能。在AutoCAD的开发指南中查询table对象，有大量的属性和方法可用。

dgp000 发表于 2005-7-7 23:08:00

可惜我用的是2002,我现在已经解决这个问题了,先扑抓到一点,然后根据根据扑捉到的点坐标,生成线段和表!
页: [1]
查看完整版本: 如何用VBA实现自动生成表格，并在表格中写入数据？