autocad vba

AutoCAD VBA - Create Table and insert data

Submitted by techrev on Sun, 01/06/2019 - 12:31

AutoCAD VBA - Create Table and add data

ADD TABLE @ X=400,  Y = 300

 

Call AddTable(400, 300)

 

Code Begins

'----------------------

Sub AddTable(ByVal x1 As Double, ByVal y1 As Double)

Dim pt(0 To 2) As Double
Dim acTable As AcadTable
pt(0) = x1: pt(1) = y1: pt(2) = 0
Set acTable = ThisDrawing.ActiveLayout.Block.AddTable(pt, 5, 3, 15, 80)

AutoCAD VBA - Create Table and insert data

Submitted by techrev on Sun, 01/06/2019 - 12:31

AutoCAD VBA - Create Table and add data

ADD TABLE @ X=400,  Y = 300

 

Call AddTable(400, 300)

 

Code Begins

'----------------------

Sub AddTable(ByVal x1 As Double, ByVal y1 As Double)

Dim pt(0 To 2) As Double
Dim acTable As AcadTable
pt(0) = x1: pt(1) = y1: pt(2) = 0
Set acTable = ThisDrawing.ActiveLayout.Block.AddTable(pt, 5, 3, 15, 80)

AutoCAD VBA - Create Table and insert data

Submitted by techrev on Sun, 01/06/2019 - 12:31

AutoCAD VBA - Create Table and add data

ADD TABLE @ X=400,  Y = 300

 

Call AddTable(400, 300)

 

Code Begins

'----------------------

Sub AddTable(ByVal x1 As Double, ByVal y1 As Double)

Dim pt(0 To 2) As Double
Dim acTable As AcadTable
pt(0) = x1: pt(1) = y1: pt(2) = 0
Set acTable = ThisDrawing.ActiveLayout.Block.AddTable(pt, 5, 3, 15, 80)

AutoCAD VBA - Create Table and insert data

Submitted by techrev on Sun, 01/06/2019 - 12:31

AutoCAD VBA - Create Table and add data

ADD TABLE @ X=400,  Y = 300

 

Call AddTable(400, 300)

 

Code Begins

'----------------------

Sub AddTable(ByVal x1 As Double, ByVal y1 As Double)

Dim pt(0 To 2) As Double
Dim acTable As AcadTable
pt(0) = x1: pt(1) = y1: pt(2) = 0
Set acTable = ThisDrawing.ActiveLayout.Block.AddTable(pt, 5, 3, 15, 80)

AutoCAD VBA - Create Table and insert data

Submitted by techrev on Sun, 01/06/2019 - 12:31

AutoCAD VBA - Create Table and add data

ADD TABLE @ X=400,  Y = 300

 

Call AddTable(400, 300)

 

Code Begins

'----------------------

Sub AddTable(ByVal x1 As Double, ByVal y1 As Double)

Dim pt(0 To 2) As Double
Dim acTable As AcadTable
pt(0) = x1: pt(1) = y1: pt(2) = 0
Set acTable = ThisDrawing.ActiveLayout.Block.AddTable(pt, 5, 3, 15, 80)