topic Re: what is this correct way to use rowtype in autocad vba in VBA Forum

what is this correct way to use rowtype in autocad vba

Anonymous — Thu, 26 Nov 2015 07:12:52 GMT

this is my program but not working , the problem is rowtype , what is the right way i can do

    Dim newTab As AcadTable
    Dim stPt(0 To 2) As Double
    stPt(0) = 0: stPt(1) = 0: stPt(2) = 0
    Set newTab = ThisDrawing.ModelSpace.AddTable(stPt, 3, 3, 1, 1)
    Call newTab.SetText(0, 0, "TestString")
    Call newTab.SetCellTextHeight(0, 0, 1)
    Call newTab.SetRowHeight(0, 1)
    Call newTab.SetAlignment(AcRowType.acDataRow + AcRowType.acTitleRow, acMiddleCenter)
    ThisDrawing.Regen acActiveViewport

Re: what is this correct way to use rowtype in autocad vba

Alfred.NESWADBA — Thu, 26 Nov 2015 10:59:33 GMT

Hi,

if you split your line to 2 seperate ones, each handling it's table area, is that what you are looking for?

Call newTab.SetAlignment(AcRowType.acDataRow, acMiddleCenter)
Call newTab.SetAlignment(AcRowType.acTitleRow, acMiddleCenter)

- alfred -

Re: what is this correct way to use rowtype in autocad vba

Anonymous — Fri, 27 Nov 2015 04:09:56 GMT

hi Alfred,

it's work , thanks.