Topic: Asking for a lisp to insert blocks relates to list.

[HasanCAD]

Hi all

Could some one help me with this lisp?

I want to insert block with attribute related to a list
blocks   already inserted in file

[CAB]

Need more information. 

[HasanCAD]

Thanks CAB for quick reply

These blocks with attribute are in a file
A
B
C
D

I want to insert them in a column or a row with specified distance depending on a list
A A C D A A D D D .....

[HasanCAD]

Lets tell all the story

We are structural consultant one of our jobs is creating a Bar Binding List Which has all bars with its data
We draft the bars on the plan then export ATTOUT to modify some data the ATTIN again as a table
The next step is adding a symbol in the table depending on the SHAPE CODE
My planing was to pick the cell then pick SHAPE CODE
the lisp should read the contents of the shape code contents then insert the block then read the next cell contents ( A ) to add in the block attribute then next cell then next cell

I hope that I explained the idea

Attached a part of a file with BBL

[CAB]

It's been a long time ago that I did anything with tables.
Why don't you update the shape code before the data is imported / created?
A simple lisp could be used to add the shape to PREVIEW that matched the shape code.

Just a suggestion. Obviously I don't know all the processes at work here.

[HasanCAD]

It's been a long time ago that I did anything with tables.
Why don't you update the shape code before the data is imported / created?
A simple lisp could be used to add the shape to PREVIEW that matched the shape code.

Just a suggestion. Obviously I don't know all the processes at work here.

That what I am planing for. But the preview should be has the values
For Example see attached

[HasanCAD]

These are blocks
there are 2 types one to use in plan and another one to use in table

[CAB]

This is where I would start:
http://www.theswamp.org/index.php?topic=13878.msg167603#msg167603

The zip file contains the routines.

Just enter the block names in the PREVIEW cells before you bring the table into ACAD.
This section of code will update the block cells.

Code - Auto/Visual Lisp: [Select]

1. ; This function converts a column of data cell with a blocknames into
2. ; A column of block cells with symbols
3.  
4. (defun AU06:ConvertBlockNameToSymbol (objTable       ; Object Table
5.                                       intNumColumn   ; Integer Column Index
6.                                       /
7.                                       intNumRow      ; Integer Row Index
8.                                       intObjectID    ; Integer Block Definition Object ID
9.                                       strBlockName)  ; String Block Name
10.  (repeat (- (setq intNumRow (vla-get-rows objTable)) 2)
11.   (setq intNumRow   (1- intNumRow ))
12.   (and
13.    (AU06:Errortrap (quote (setq strBlockName (vla-getText objTable intNumRow intNumColumn))))
14.    (AU06:Errortrap (quote (setq intObjectID (vla-get-objectID
15.                                              (vla-item
16.                                               (vla-get-blocks
17.                                                (vla-get-activedocument
18.                                                 (vlax-get-acad-object)))
19.                                               strBlockName)))))                  
20.    (AU06:Errortrap
21.     (quote (vla-setcelltype objTable intNumRow intNumColumn acBlockCell)))
22.    (AU06:Errortrap
23.     (quote (vla-setblocktablerecordID objTable intNumRow intNumColumn intObjectID :vlax-true)))
24.    (AU06:Errortrap
25.     (quote (vla-SetCellAlignment objTable intNumRow intNumColumn acMiddleCenter))))))

[HasanCAD]

Thanks CAB