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

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

如何用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,我现在已经解决这个问题了,先扑抓到一点,然后根据根据扑捉到的点坐标,生成线段和表!

账号		自动登录	找回密码
密码			注册