variable creation

[johnd]

Not sure if my first post went through:

I"m looking for suggestions for the following:

I have a series of rectangles that I want to create variable name and assign an elevation value to it
as it passes through a loop.

Start loop:
Select rectangle 1, assign an elevation then create variable Rectang-1-elev.
Select rectangle 2, assign an elevation then create variable Rectang-2-elev.
etc, etc,

Then later in the routine use a loop to with those variables to do a computation.

Start loop:

Rectang-1-elev - a value from variable
Rectang-2-elev - a value from variable.
etc, etc,

I don't want to keep typing
(setq Rectang-1-elev 2500)
(setq Rectang-2-elev 2800)
etc. etc.
Since I don't know how many rectangles would be present when the routine is ran.

[Kent1Cooper]

[Yes, the first one went through -- see my Reply there.]

[john.uhden · Accepted solution]

@johnd ,

Might I recommend using handles and a list?...

something like...

(while (setq e (car (entsel)))

  (setq Z (getreal "Enter Z value: "))

  (setq mylist (cons (list (cdr (assoc 5 (entget e))) Z) mylist))

)

So that mylist looks something like '(("abc123" 22.3)("abc124" 25.7) etc.) 

  (handle number)

Or ,if you prefer...

  (setq mylist (cons (cons (cdr (assoc 5 (entget e))) Z) mylist))

  (handle . number)

So that mylist looks something like '(("abc123" . 22.3)("abc124" . 25.7) etc.)

Then you can operate on the list whatever way you want.

Sorry, but I'm an old timer, so I often look at things decades past.

[Sea-Haven]

John this is posted twice.

[john.uhden]

@Sea-Haven ,

I hadn't noticed.  I have single vision.