topic Re: Add a Data Row to the Top of the Table in Visual LISP, AutoLISP and General Customization Forum

Add a Data Row to the Top of the Table

kpennell — Thu, 14 May 2020 13:16:45 GMT

I tend to have a difficult time modifying dotted pair lists. But I'm looking for a way to modify a table that automatically gets generated. It has a Title Row, Header Row and of course several Data Rows. I'd like to add a data row at the top, then in each of the cells write some text. I'm assuming a good starting point, is to take all the 141 dotted pairs and insert an extra 141 dotted pair.

Original (141 . 5.0) (141 . 4.33333) (141 . 4.80952) (141 . 4.80952) (141 . 4.80952)

New (141 . 5.0) (141 . 4.33333) (141 . 4.80952) (141 . 4.80952) (141 . 4.80952) (141 . 4.80952)

Then to make sure the values are what I need them to be, but again, i'd have to insert them in the dotted pairs in the right order for them to be at the top data row. All of this of course, using entmod.

Re: Add a Data Row to the Top of the Table

pbejse — Thu, 14 May 2020 17:52:14 GMT

@kpennell wrote:

I tend to have a difficult time modifying dotted pair lists. But I'm looking for a way to modify a table that automatically gets generated.

.... All of this of course, using entmod.

Quick question: Why entmod?

The thought of using other than ActiveX to modify a table never cross my mind.

Re: Add a Data Row to the Top of the Table

kpennell — Thu, 14 May 2020 18:30:50 GMT

Because I don't know any better? ¯\_(ツ)_/¯

Re: Add a Data Row to the Top of the Table

pbejse — Thu, 14 May 2020 18:38:28 GMT

@kpennell wrote:

Because I don't know any better? ¯\_(ツ)_/¯

Fair enough, most of the time, the answer is "Im using Mac" 🙂

Post a drawing sample. I think its easy to come up with an vanilla solution for modifying a ACAD_table

<<< Shop Before and After please >>>

Re: Add a Data Row to the Top of the Table

Sea-Haven — Thu, 14 May 2020 23:51:24 GMT

Have you looked at VLA-INSERTROW method.

(vla-insertrows tb 1 1 1) look up help

(setq rownum (vla-get-rows obj2))
(vla-InsertRows obj2 rownum (vla-GetRowHeight obj2 (- rownum 1)) 1)

Re: Add a Data Row to the Top of the Table

pbejse — Fri, 15 May 2020 08:37:58 GMT

@Sea-Haven wrote:

Have you looked at VLA-INSERTROW method.

Exactly. But I think this topic is more an exercise for list manipulation.

Let see what the OP have in mind.

Re: Add a Data Row to the Top of the Table

kpennell — Fri, 15 May 2020 09:14:25 GMT

I have seen examples of vla-InsertRows, but they tend to add rows to the end of the table. As per all your comments, I do think vla is the way to go, and not 'entmod'.

Re: Add a Data Row to the Top of the Table

pbejse — Fri, 15 May 2020 09:45:27 GMT

@kpennell wrote:

I do think vla is the way to go, and not 'entmod'.

Shame you're giving up on entmod. I really thought its more of an exercise for list manipulation than anything.

@kpennell wrote:

I have seen examples of vla-InsertRows, but they tend to add rows to the end of the table.

Go for it then.

Not really you can assign the index as per @Sea-Haven post

(setq tb (vlax-ename->vla-object (CAr (entsel)))) (setq rownum (vla-get-rows tb)) (vla-InsertRows tb 1 (vla-GetRowHeight tb (- rownum 1)) 1)

1 = The first Row

And in your case should be 2 . as the first Data row after Title (0) Header (1)

Try it.

HTH

Re: Add a Data Row to the Top of the Table

kpennell — Fri, 15 May 2020 09:51:03 GMT

I think, 'entmod' will still have it's place, when I want to modify the 'new' blank cells with strings that I want to have in there.

(vla-InsertRows tb 2 (vla-GetRowHeight tb (- rownum 1)) 1)

... worked great. I need to get up to speed on vla. I can't seem to grasp it at all.

Re: Add a Data Row to the Top of the Table

pbejse — Fri, 15 May 2020 10:03:06 GMT

@kpennell wrote:

I think, 'entmod' will still have it's place, when I want to modify the 'new' blank cells with strings that I want to have in there.

I think you should go VL all the way @kpennell

((lambda (n) (mapcar '(lambda (str) (vla-settext tb 2 (setq n (1+ n)) str) str ) '("This" "is" "the" "data" "kpennell");<--- your string values ) ) -1 )

HTH

Re: Add a Data Row to the Top of the Table

kpennell — Fri, 15 May 2020 10:13:49 GMT

vla. where do I start reading?

Re: Add a Data Row to the Top of the Table

pbejse — Fri, 15 May 2020 10:22:33 GMT

@kpennell wrote:

vla. where do I start reading?

Good for you kpennell, This a good place to start Visual LISP

Re: Add a Data Row to the Top of the Table

Sea-Haven — Mon, 18 May 2020 04:19:02 GMT

Vlisp and tables is a bit complicated but plenty of examples for me at times trial and error and of course Google.

Re: Add a Data Row to the Top of the Table

pbejse — Tue, 19 May 2020 04:19:39 GMT

@pbejse wrote:

@kpennell wrote:

I do think vla is the way to go, and not 'entmod'.

Shame you're giving up on entmod. I really thought its more of an exercise for list manipulation than anything.

I went ahead and tried it for myself. it took a whole lot of codes compared to just using vla-InsertRows, breaking the entity data apart, modifying the associated list, adding new stuff and then putting it back together. I'm not going through that again.

But it was fun though.

Re: Add a Data Row to the Top of the Table

kpennell — Wed, 20 May 2020 09:54:41 GMT

You have certainly taught a man how to fish. At least with a pole, and not yet a net.

There are tons of reference material that articulate all the functions and the arguments required for each. Is there an equivalent for VLisp functions/methods, like vla-insertrows?

I haven't looked at the text files that @Sea-Haven posted yet. I will be doing that shortly.

Thanks so much all, for the enlightening conversation.

Re: Add a Data Row to the Top of the Table

kpennell — Wed, 20 May 2020 09:58:39 GMT

I'm getting:

; error: Automation Error. Invalid input

for the Make Table.lsp file

Re: Add a Data Row to the Top of the Table

Sea-Haven — Fri, 22 May 2020 01:56:20 GMT

Sorry my fault I am trying to put values to columns that do not exist.

set the column number to 5 (setq numcolumns 5)

Re: Add a Data Row to the Top of the Table

kpennell — Fri, 22 May 2020 08:38:32 GMT

Very nice. I can see this being extremely valuable.