Set block's attributes lisp

[Anonymous]

Hi this is my very first time posting here.

I need to solve this problem: I've an Excel sheet with some different blocks with attributes. I need a LISP routine to insert  directly the block with the correct attributes.

I'm getting started through programming in LISP

Thanks!

[Anonymous]

Hello @Anonymous
Could you post an example of your spreadsheet?

[Anonymous]

Sure!

Blk Name

Att1

Att2

Att3

Att4

Att5

Att6

Att7

Att8

Att9

Att10

Att11

Att12

Att13

Att14

Att15

Name1

N-XX A

RT-x

<>

<>

<>

<>

<>

<>

<>

<>

<>

<>

x

x

4

Name2

N-XX A

<>

ID-x

YY-mA

A

<>

<>

<>

<>

<>

<>

<>

x

x

6

Name3

<>

<>

<>

<>

<>

IC-x

N-XX A

<>

<>

<>

<>

<>

x

x

4

Name4

N-XX A

<>

<>

<>

<>

<>

<>

R

IM-x

<>

<>

<>

x

x

5

Name5

<>

<>

<>

<>

<>

<>

<>

<>

<>

CM

<>

<>

x

x

3

Name6

N-XX A

<>

<>

YY-mA

A

<>

<>

<>

<>

<>

IMD-x

<>

x

x

6

Name7

<>

<>

<>

<>

<>

<>

<>

<>

<>

<>

<>

CMx

x

x

3

 *(where <> means empty)

Each column is an attribute. I want to draw each block with its attributes at a given known position. I'd rather do this with some command functions  in a lisp file instead of lisp functions. By the moment, I know how to write attibutes. I've done something like that:

(command "insert" "blockname" (list base_point) scales rotation "first attribute's value" "second..." till the 15th)

By the way, how can I spicify how many attributes a block has and set it in a command line?

Thanks a lot!

[Sea-Haven]

You can write everything in excel and just copy a column to the command line, you use the concatenate command you would though need a IF blank then "" else value, using a lisp to read direct from excel would be easier just read block name then check excel row for attribute values using say a cell value as end of attributes so blanks work properly. 

[Anonymous]

It's been a usefull idea, thanks! However, how may I read each cell at the excel sheet? I've thought something similar to this:

(defun myfun file_path column_number

(open "file_path" "r")

(while not_empty_cell (setq atts (list read_cell)) (to_next_cell))

)

I don't know how to do the Italic tasks, and here's my problem...

Thanks a lot!