Dobrý den,
napsala jsem si lisp, který vydělí dvě čísla, která coby text vyberu, a výsledkem přepíše třetí vybranou položku. Ale:

1) mám pocit, že jdu s kanónem na mravence, šlo by to nějak jednodušeji?
2) neumím na (entsel) aplikovat filtr na výběr textu, umím to jen na (ssget) pomocí (ssget ":s" '((0 . "TEXT"))), ale to mi u (entsel) hází "chyba: příliš mnoho argumentů". Když vyberu něco jiného, funkce se zhroutí. Ale (ssget) zase nechci použít, protože u něj neumím použít zadání výzvy, jestli to vůbec jde, jiný uživatel než já nebude vědět, co má vybrat, když ho autocad vyzve svým obecným "vyberte objekty". Tedy jak filtrovat výběr pomocí (entsel)?
3) neumím ošetřit, aby mi funkce nespadla, když se s vybráním netrefím a kliknu do prázdna. Chtěla bych, aby mi program dával tak dlouho šanci, dokud se netrfím na text.
4) nevím, jak a kde použít "blipmode", aby mi vysvítil vybranou hodnotu. Takhle má člověk pocit, že nic nevybral, když to není vidět.

Pro programátora je to asi prkotina, ale já v tom pořád strašně tápu. Prosím poraďte...

Zdrojový kód:
;vypocte pomer dvou cisel pro efektivitu podlazi
(defun c:pomer_ploch ()
;citatel
  (setq cst (car (entsel "\nvyberte cistou plochu " ))) ;vybere jeden prvek
  (setq e1data (entget cst)) ;data prvku
  (setq e1sez (assoc 1 e1data)) ;podseznam - textova hodnota
  (setq cista (cdr e1sez)) ;hodnota textoveho retezce
  (setq ccista (atof cista)) ;prevede text na cislo
  (princ (strcat "\ncista plocha je: " cista))
;jmenovatel
  (setq zst (car (entsel "\nvyberte zastavenou plochu " ))) ;vybere jeden prvek
  (setq e2data (entget zst)) ;data prvku
  (setq e2sez (assoc 1 e2data)) ;podseznam - textova hodnota
  (setq zast (cdr e2sez)) ;hodnota textoveho retezce
  (setq czast (atof zast)) ;prevede text na cislo
  (princ (strcat "\nzastavena plocha je: " zast))
;vypocet podilu
  (setq pom (/ ccista czast)) ;vypocte pomer dvou cisel
  (setq pomer (rtos pom 2 2)) ;prevede cislo na text
  (princ (strcat "\nefektivita je: " pomer " %"))
;prepsani textu
  (setq ef (car (entsel "\nvyberte text s efektivitou k prepsani " ))) ;vybere jeden prvek
  (command "_change" ef "" "" "" "" "" "" pomer) ;kdyz to otaci text pridat "" (bude tam 6x "" )
  ;__misto posledniho radku s prikazem "_change" lze pouzit nasledujicich 5 radek
  ;(setq e3data (entget e3)) ;data prvniho prvku mnoziny
  ;(setq oldtxt (assoc 1 e3data)) ;podseznam - textova hodnota
  ;(setq ef (cons 1 pomer)) ;zkonstruovani noveho podseznamu klice 1
  ;(setq e3data (subst ef oldtxt e3data)) ;nahrazeni stareho podseznamu novym (natoceni 0)
  ;(entmod e3data) ;modifikace seznamu
)

To je paráda, ono to funguje! Dokonce se mi povedlo i ošetření výběru čísla a ne slova, při slovech to padalo na dělení nulou. Sice mi těch pět řádků trvalo asi hodinu a půl, než to bylo funkční, ale teď se z toho raduju o to víc

chlebovsky napsal(a): (while (or (not ent1)(and ent1 (/= (cdr (assoc 0 (entget (car ent1)))) "TEXT")))

Tady mi to házelo chybu qůli tomu car, ale když jsem ho vyhodila a nechala tam jen (entget ent1), tak je to v pohodě. Akorát se nějak nemůžu vyznat ve významu AND, NOT a OR. Mám sice u ruky knížečku, kde je napsáno, co to dělá, ale když se snažím přeložit ten řádek v citaci, hrozně se do toho zamotám. Nemohl byste mi ještě, prosím, nějak jednoduše přechroustat tu sekvenci?

Jo je to tak, ale ještě bych doplnil :

Kackac napsal(a): ...když ho autocad vyzve svým obecným "vyberte objekty". ...