retrieve a keyword out of entsel

hi

i need to retrieve a keyword out of entsel,

when i type the keyword i get error that say a point were expected

how to do it right?

(setq ent (car (entsel "\n Select the entity type you want to isolate or [setting] \n")))

Thanks

Shay

(initget "Setting")
(setq ent (entsel "\nSelect the entity type you want to isolate or [setting]: "))

I don't understand . Ent holding the entity what holds the kword?

I don't understand . Ent holding the entity what holds the kword?

Did you try it?

Did you see what the expression returns for each user input?

I don't understand . Ent holding the entity what holds the kword?

Perhaps this demo helps you to understand a little more

(defun c:demo (/ ans flag)
 (setq flag t)
 (while flag
   (initget "Setting")
   (setq ans (entsel "\nSelect the entity type you want to isolate or or [setting] <exit>:"))
   (cond ((= 'list (type ans))
   (alert "\nYou've selected an object!!!")
  )
  ((= "Setting" ans)
   (alert "\nYou've chosen Setting!!!")
  )
  ((not ans)
   (setq flag nil)
   (alert "\nYou've Missed the Entity, or pressed Enter or the Spacebar to exit!!!")
  )
   );; cond
 );; while
 (princ)
)

HTH

Henrique

Perhaps this demo helps you to understand a little more

(defun c:demo (/ ans flag)
 (setq flag t)
 (while flag
   (initget "Setting")
   (setq ans (entsel "\nSelect the entity type you want to isolate or or [setting] <exit>:"))
   (cond ((= 'list (type ans))
   (alert "\nYou've selected an object!!!")
  )
  ((= "Setting" ans)
   (alert "\nYou've chosen Setting!!!")
  )
  ((not ans)
   (setq flag nil)
   (alert "\nYou've Missed the Entity, or pressed Enter or the Spacebar to exit!!!")
  )
   );; cond
 );; while
 (princ)
)

 

HTH

Henrique

Thank you Henrique

Brilient explanation!

Did you try it?

Did you see what the expression returns for each user input?

sorry LEE i didnt have Autocad at time of replying

now i test , unsrestand

Thank you Henrique

You're welcome, samifox

glad i could help

Henrique

Perhaps this demo helps you to understand a little more

(defun c:demo (/ ans flag)
 (setq flag t)
 (while flag
   (initget "Setting")
   (setq ans (entsel "\nSelect the entity type you want to isolate or or [setting] <exit>:"))
   (cond ((= 'list (type ans))
   (alert "\nYou've selected an object!!!")
  )
  ((= "Setting" ans)
   (alert "\nYou've chosen Setting!!!")
  )
  ((not ans)
   (setq flag nil)
   (alert "\nYou've Missed the Entity, or pressed Enter or the Spacebar to exit!!!")
  )
   );; cond
 );; while
 (princ)
)

 

HTH

Henrique

how can i repeat the entsel function until the user actually select the entity?

i was thinking about this way :

(if (while (not (setq ans (entsel "\nSelect the entity type you want to isolate or or [setting] <exit>:"))))
   (princ "i dont know how but user misses the entity")
   (princ "yes, the user selected an object")
   )

but it doesn't feel right!

Thanks

Shay

(defun c:demo (/ ans flag)
 (setq flag t)
 (while flag
   (initget 1 "Setting eXit")
   (setq ans (entsel "\nSelect the entity type you want to isolate or or [setting/eXit]:"))
   (cond ((= 'list (type ans))
   (princ "\nYes, the user selected an object!!!")
   (setq flag nil)
  )
  ((and ans (wcmatch ans "Setting"))
   (princ "\nYou've chosen Setting!!!")
   (setq flag nil)
  )
  ((and ans (wcmatch ans "eXit"))
   (princ "\nYou've chosen to eXit!!!")
   (setq flag nil)
  )
  ((not ans)
   (princ "\nI dont know how but user misses the entity...")
  )
   );; cond
 );; while
 (princ)
)

HTH

Henrique

Thank you Henrique

You're welcome, Shay

Henrique