- 积分
- 64
- 明经币
- 个
- 注册时间
- 2015-11-13
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
本帖最后由 有病多吃饭 于 2015-11-16 16:30 编辑
Sub Test()
Dim MyModelSpace As IAcadModelSpace
Set MyModelSpace = ThisDrawing.ModelSpace
Dim pt(0 To 2) As Double
Dim MyTable As AcadTable
Set MyTable = MyModelSpace.AddTable(pt, 12, 1, 804, 2431)
MyTable.SetRowHeight(7, 2412) ‘这行编译的时候语法错误
End Sub
为什么呢,SetRowHeight,的提示就是(row as long, height as double)
|
|