Excel Table. Using text style "hand". How do I change font to archD?

[MillerMG]

Our company uses "hand" as the style for all our projects. I need to import a table from excel with excel formatting. After I change all the text to "hand" style I can't figure out how to change the font. Any help would be greatly appreciated!!

[ReMark]

You could try changing all the fonts in your Excel file to system font then reinsert.

[MillerMG]

I'll give that a try. Currently working on structural designs for a church addition. Thank you.

[ILoveMadoka]

Dealing with this same type issue..

I have no SYSTEM font listed in my Excel 

 

Where is this SYSTEM font?

 

Anyway..

no matter what font I have in Excel, when I Paste Special -> Autocad Entities (do not want a link)

I cannot globally change the font, I've changed the table style, change the table style font and the only option is to change them one cell at a time.

 

I know about Stripmtext (which works) but I have people in my dept who cannot use routines and so I am

looking for a way to be able to bring in a non-linked table and have the fonts changeable.

Even Match Cell doesn't work.

It works is a sprinkling of cells but it not consistent.

 

Please advise

[BIGAL]

I am testing make a Acad table form a open excel but you run it as a lisp. Should b eable to add option about text style as it only reads the cell text value non of the other stuff.

 

Watch this space

Edited August 21, 2022 by BIGAL

[ILoveMadoka]

I found a multi-step workaround procedure.

 

BIGAL's process sounds awesome when he rolls it out...

[BIGAL]

Post a sample excel to test.

 

Just need to wade through these options and find correct one to set text font. So please if want more than font ask now.

 

The command you want is (vla-setCellTextStyle obj row column textstyle) looping through the table cells.

 

list of methods for a table.txt

 

(defun settabsty ( / obj styname x y rows column)
(setq obj (vlax-ename->vla-object (car  (entsel "Pick table object"))))
(setq styname (getstring "\nEnter text style"))
(setq columns (vlax-get-property obj 'Columns))
(setq rows (vlax-get-property obj 'rows))
(setq x 0 y 0)
(repeat rows
(repeat columns
(vla-setCellTextStyle obj x y styname)
(setq y (1+ y))
)
(setq y 0)
(setq x (1+ x))
)
(princ)
)
(settabsty)

 

Edited August 27, 2022 by BIGAL