Floating point

[Steve Rudd]

Hi Guys,
Need some help with this one please.

(setq pt1 (entsel "Select Object :"))(terpri)
returns :- (<Entity name: 400b21a0> (10197.4 31317.6 0.0))

How do I extract the floating point so its values can be (in whole or part)
used later in the routine?

Rgds,
Steve

 

[Joe Burke]

Steve,

(setq pt1 (cadr (entsel))) returns the point picked. The second item in the list.

Study those help files, dude.

Joe Burke

 

[Steve Rudd]

Thanks Joe,
I was missing out on the car functions.

Rgds, Steve

 

[Joe Burke]

Steve,

You're welcome.

But in fact is probably makes more sense to take your initial approach:

(setq ent (entsel))

This way you can extract the point picked (cadr ent) or the ename (car ent). I can't recall how many times I thought I would need only one or the other, only to find later I needed both. Now I'm rewriting the program to cover my shortsighted mistake.

Joe Burke