Code to scale multiple objects together

[rishidoshi]

Hello,

I am very new to autocad. (and have no knowledge about lisp as well)

I have a floor plan layout dwg (attached snapshot) and have 145 tables linked to an excel sheet.

The font size of the tables is too small when printed. (Font size in excel is already set to max possible)

 

I would like to scale all the tables to a certain factor. (tables are marked in red in the snapshot)

When we do QSELECT>Table>layer>equals>text, all the tables get selected.

Applying scale to the entire selection about a point results in translation as well as scale, and the tables move out of position (as expected)

 

1. Is there any way we can loop the process for each table one by one without selecting the table each time. (Like looping range in excel)

2. Can we scale them together about a certain corner point (any point would do).

Would really appreciate the replies.

Regards

[Tiger]

Hi Rishidoshi and welcome to the forum.

 

I have moved your thread to its own thread, please start a new thread for each new question.

 

Wouldn't the basic command SCALE work?

[ReMark]

There are custom lisp routines that will scale blocks based upon there own original insertion point but I don't know if such a routine would work on an OLE object.

[rishidoshi]

Wouldn't the basic command SCALE work?

It would. I'd have to select each of the 145 tables individually. Can do it once and for all.

But if my excel data changes, (which happens quite frequently) and I use the 'updatelinks' command, the table resets to the original font size as in excel.

So i need a code or some automated way to do this quickly, each time after issuing the updatelinks command.

[Tiger]

But if you do SCALE for all the tables at once, doesn't it scale them from a single point of origin? Isn't that what you want?

 

Why not change font-size in Excel? Even if there is a new Excel-file, to open it and change the font size for everything is not that hard.

[rishidoshi]

It scales all at once, but from 1 source point. So all the tables move away as well. As if the entire collection is 1 big object.

Only the tables shown in red ellipse need to be scaled. The other things need to be as they are.

I have kept the font size and column width as maximum as possible in excel. I can go on increasing the font size but not column width.

This results in very thin columns having vertical data in autocad.

Unfortunately the update links 'copies' the format of the excel table. color, size, column width, everything

I need only the value and font color.

[steven-g]

Try altering the text size for headers, title and data in the table styles dialogue (menu-format-table style / and modify the style), and then globally change the properties for all the selected tables in the properties palette (table width and height). It worked on a test drawing but try this on a copy of your drawing because it could really mess up the layout.

[rishidoshi]

That's a good option. Sadly my tables are of the kind "From a data link". So the template does not apply to it. The option is grayed out.

If we were to use "Start from empty table" we could have controlled it using the table styles.

Appreciate your reply.

[rishidoshi]

Solved but with a Workaround:

1. Scaled the whole drawing down to 0.4 times.

2. Run Update links command. (This makes the table appear relatively larger)

3. Scale everything back up to original (2.5x)

The tables and fonts look larger now.

Hope this helps to someone.

 

The lisp:

(command "._scale" "all" "" '(0 0 0) 0.4)

(command "._DATALINKUPDATE" "u" "k")

(command "._scale" "all" "" '(0 0 0) 2.5)

 

Cheers