|
|
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） |
|
置顶卡
