CAD Fórum : podíl vybraných čísel https://www.cadforum.cz/forum/ Mon, 22 Jun 2026 08:44:43 +0000 Tue, 09 Oct 2007 14:31:31 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=5072 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[podíl vybraných čísel : Kackac napsal(a):...když ho...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=25289&title=podil-vybranych-cisel#25289 Autor: Ferdinand
Předmět: 5072
Zasláno: 09.říj.2007 v 14:31

Původně odeslal(a) Kackac Kackac napsal(a):

...když ho autocad vyzve svým obecným "vyberte objekty". ...
Lze použít vlastní výzvy Smile (pokud nastavíte cmdecho=0)
...a před výkonem funkce lze napsat (prompt "\nMojevýzva1...")
]]> Tue, 09 Oct 2007 14:31:31 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=25289&title=podil-vybranych-cisel#25289 <![CDATA[podíl vybraných čísel : Omlouvám se za odmlku, nějak nebyl...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=25108&title=podil-vybranych-cisel#25108 Autor: Kackac
Předmět: 5072
Zasláno: 28.zář.2007 v 23:26

Omlouvám se za odmlku, nějak nebyl čas...
Vysvětlení p. Chlebovského je to co jsem potřebovala; to co psal p. Michl jsem tak nějak celkově chápala, nešly mi samostatně ty závorky, knížka totiž o AND, OR, NOT pojednává způsobem, že popíše v kterých případech jaký příkaz vrátí TRUE a kdy NIL a to pro neprogramátora je naprostá španělština, takže mě vůbec nenapadlo to chápat doslova přeloženo jako spojky a s konvencí matematických operací:)
Tedy díky
]]> Fri, 28 Sep 2007 23:26:06 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=25108&title=podil-vybranych-cisel#25108 <![CDATA[podíl vybraných čísel : Jo je to tak, ale ještě bych doplnil...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24506&title=podil-vybranych-cisel#24506 Autor: chlebovsky
Předmět: 5072
Zasláno: 30.srp.2007 v 08:32

Jo je to tak, ale ještě bych doplnil :
Opakuj (pokud je ent1 prázdná) nebo (pokud ent1 je vybrána a je různá od text)
 
a závorkově :
(nebo (ent1 je prázdná)(a (ent1 je vybrána)(ent1 není text)))
 
Tímto si ale nedovoluju opravovat předešlý mejlík... nechtěl bych učit orla létat
Big%20smile
]]> Thu, 30 Aug 2007 08:32:13 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24506&title=podil-vybranych-cisel#24506 <![CDATA[podíl vybraných čísel : V &#034;člověčině&#034; je to: Opakuj...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24500&title=podil-vybranych-cisel#24500 Autor: Vladimír Michl
Předmět: 5072
Zasláno: 30.srp.2007 v 00:05

V "člověčině" je to:
Opakuj pokud je ent1 prázdná nebo pokud typ ent1 není TEXT
]]> Thu, 30 Aug 2007 00:05:31 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24500&title=podil-vybranych-cisel#24500 <![CDATA[podíl vybraných čísel : To je paráda, ono to funguje!...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24498&title=podil-vybranych-cisel#24498 Autor: Kackac
Předmět: 5072
Zasláno: 29.srp.2007 v 23:13

To je paráda, ono to funguje! Dokonce se mi povedlo i ošetření výběru čísla a ne slova, při slovechto padalo na dělení nulou. Sice mi těch pět řádků trvalo asi hodinu apůl, než to bylo funkční, ale teď se z toho raduju o to vícSmile
Původně odeslal(a) chlebovsky 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?
]]> Wed, 29 Aug 2007 23:13:15 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24498&title=podil-vybranych-cisel#24498 <![CDATA[podíl vybraných čísel : u výběru můžete použít jak entsel...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24449&title=podil-vybranych-cisel#24449 Autor: chlebovsky
Předmět: 5072
Zasláno: 26.srp.2007 v 21:41

u výběru můžete použít jak entsel s potřebnou hláškou kterou napíšete rovnou do příkazu (entsel "Hláška"), ale můžete tak vybrat cokoliv, pak je třeba napsat podmínku kdy kontrolujete parametr  0-nula v entget aby byl "TEXT", nebo "LINE" "CIRCLE".....
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
]]> Sun, 26 Aug 2007 21:41:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24449&title=podil-vybranych-cisel#24449 <![CDATA[podíl vybraných čísel : Dobrý den,napsala jsem si lisp,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24442&title=podil-vybranych-cisel#24442 Autor: Kackac
Předmět: 5072
Zasláno: 25.srp.2007 v 23:23

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
)
]]> Sat, 25 Aug 2007 23:23:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5072&PID=24442&title=podil-vybranych-cisel#24442