Topic: How to get entity name from a point

[Adesu]

Hi Alls,
I forgot to find entity name from a point, look this code

Code: [Select]

(setq ss1 (osnap (getpoint "\nPick end object: ") "endp")) ; (4578.58 3345.75 0.0)
(setq ent ("bla..bla from"  ss1))
(setq sse (entget ent))
(setq sp (cdr (assoc 10 sse)))
(setq ep (cdr (assoc 11 sse)))


[Adesu]

Sorry I just got it solution

Code: [Select]

(if
    (setq ss (entsel "\nPick end object: "))
    (progn
      (setq ss1 (osnap (cadr ss) "endp"))
      (setq ss2 (osnap (getpoint "\nPick end dimension: ") "endp"))
      (setq dis (distance ss1 ss2))
      (setq ent (car ss))