Hi all
I'm trying to create a simple table with:
--------------------------------------------
Sub Example_AddTable()
' This example adds a table in model space
Dim pt(2) As Double
Dim Tabela As AcadTable
Dim Numlinhas, Numcolunas As Integer
Dim Lcounas As Double
Dim pStr As String
Numlinhas = 3
Numcolunas = 7
Lcounas = 7
Set Tabela = ThisDrawing.ModelSpace.AddTable(pt, Numlinhas, Numcolunas,
10, Lcounas)
pStr = "121"
Tabela.SetText (1, 1, pStr)
ZoomExtents
End Sub
--------------------------------------------
create is OK but when I write de line
Tabela.setText (1,1, Pstr)
I get the compile error:
Expected: =
????
Apreciate Any help.
Thanks
