teď to dát do cyklu

(setq ent1 nil)
(while (or (not ent1)(and ent1 (/= (cdr (assoc 0 (entget (car ent1)))) "TEXT")))
(setq ent1 (entsel "\nVyber ....."))
)

ted máte zaručeno že máte vybraný text.

 

Pak je ještě ale druhý způsob pomocí Vašeho SSGET, jen je třeba před tento výběr na monitor vypsat hlášku o výběru čeho :

takže

(princ "\nZpráva")

(setq ent (ssget........))

to \n znamená na nový řádek

\r zase znamená na téže řádek....

to jestli máte zadanou hodnotu či né, je lehké ošetřit :

 

(setq ent (entsel......))

(if (not ent) ;;; když není ent

  (alert "Nebylo nic vybráno") ;;; dá hlášku

  (progn  ;;; tady pokračuje když je podmínka neplatná

     .....

     .....a tady může být další vložená podmínka

      (setq ent2 (entsel))

      (if (not ent2)

          (alert "Nebyla vybrána druhá entita")

          (progn

              ......

           )

      )

     .....

   )

)

 

to co jsem ale popisoval na začátku, ten malý lispek, tak ten nedovolí nevybrat, jedině když to zrušíte Escapem.

 

co se týče toho zvýraznění tak já používám :

(redraw ent 3)  zvýrazní

2 - vypne úplně viditelnost

1 - tu viditelnost vráti do viditelné podoby

3 - jakože vybere

4 - to vybrání zruší

 

a vložil bych to hned za cyklus while když už máte jasný výběr, ale pozor ent musí být jen jméno entity kód -1 takové to <Jméno entity: 7efc8dd8>

nikoliv celý seznam (entget ) takže (cdr (assoc -1 (entget (car entsel))))

 

Snad vše :-)

 

Zdravím

 

a závorkově :

 

Tímto si ale nedovoluju opravovat předešlý mejlík... nechtěl bych učit orla létat