lisp for search handle id

[chrirehp]

Good morning to all,
are aware of the command to search for a block handle code
(zoom---object--- (handent"xxxxxxx")
but I wondered if there was a lisp that would avoid having to do the steps every time for research.

or if you know a faster and leaner method than I mentioned above

thank you always

Christian

 

[rpor66]

(defun c:rethandle(/ sel ent n)
(setq sel (entsel "seleziona entita": ")))
(if (/= sel nil)
(progn)
(setq n (to sel))
(setq ent (get n))
(cdr (assoc 5 ent))
)
)
)

 

[chrirehp]

gr

(defun c:rethandle(/ sel ent n)
(setq sel (entsel "seleziona entita": ")))
(if (/= sel nil)
(progn)
(setq n (to sel))
(setq ent (get n))
(cdr (assoc 5 ent))
)
)
)

Thank you very much, but I need the reverse search, that is:
starting from the handle code I would like to get to understand which is the reference block

I hope I have been clear in the explanation

 

[dieva]

(cdr(assoc 2 (handent "230"))

 

[chrirehp]

(cdr(assoc 2 (handent "230"))

Thank you! I'm super lisp neophyte, do I have to replace this string instead of the last one, right?

 

[dieva]

I didn't understand what your problem is.
If you want to zoom in on an object you only know the handle then use:

(command "_zoom" "_o" (handent "230") ")

if you know the<ename>:</ename>

(command "_zoom" <ename>")</ename>