CAD Fórum : n-krát https://www.cadforum.cz/forum/ Wed, 13 May 2026 00:04:28 +0000 Tue, 18 Mar 2008 11:10:40 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=5335 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[n-krát : To len jeden znak mi tam chýbal?!...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=30145&title=nkrat#30145 Autor: michaelflyer
Předmět: 5335
Zasláno: 18.bře.2008 v 11:10

To len jeden znak mi tam chýbal?! Mňa šľak trafí!!! Ja sa stým mordujem jeden celý deň a nechápal som prečo to nefunguje!

Ďakujem za pomoc.
Ďakujem aj za opravu „drobných“ chýb. Zbáchal som to narýchlo. Samozrejme, že ma to neospravedlňuje :-)
Ešte raz ďakujem...
]]> Tue, 18 Mar 2008 11:10:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=30145&title=nkrat#30145 <![CDATA[n-krát : začnu od začátku, taková malá...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=30119&title=nkrat#30119 Autor: chlebovsky
Předmět: 5335
Zasláno: 17.bře.2008 v 13:41

začnu od začátku, taková malá chybička v zadávání, a) musí být menší jako b)
 
dále na začátku né n\  ale \n naopak pro nový řádek
 
pak if (< a b)
 
 
ale hlavně
While = dokud je splněna podmínka.
 
To znamená že vy potřebujete aby probíhalo tak dlouho dokud a < b
popř. a <= b
 
takže napsat
(while (<= a b)
pak fungovat bude
 
a možná na konec bych dal (princ a)(princ "\n")
nebo rovnou (princ (strcat "\nHodnota je : " (rtos a 2 2)))
 
Embarrassed
]]> Mon, 17 Mar 2008 13:41:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=30119&title=nkrat#30119 <![CDATA[n-krát : Pro porovnávání reálných čísel...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=30117&title=nkrat#30117 Autor: Vladimír Michl
Předmět: 5335
Zasláno: 17.bře.2008 v 12:05

Pro porovnávání reálných čísel není vhodné při programování testovat přesnou shodu (či neshodu) - dochází k zaokrouhlování reprezentace hodnoty. Použijte > nebo >=.]]> Mon, 17 Mar 2008 12:05:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=30117&title=nkrat#30117 <![CDATA[n-krát : Dobrý deň. Prosím Vás o radu....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=30116&title=nkrat#30116 Autor: michaelflyer
Předmět: 5335
Zasláno: 17.bře.2008 v 11:26

Dobrý deň.
Prosím Vás o radu. Dávam sem jednoduchý príklad. Nechápem prečo mi to nefunguje :-( Viem, že mi tam niečo chýba, ale neviem sa dopracovať k tomu, že čo :-(
Chcem dosiahnuť aby mi pripočítalo 0.1 k hodnote "a" až do vtedy (sa to bude opakovať), pokiaľ sa nebude "=" hodnote "b".

(defun c:OPAKUJ     ()
(setq a (getreal "n\Zadaj hodnotu (a) ktorá je väčšia ako b:"))
(setq b (getreal "n\Zadaj hodnotu (b) ktorej sa to má rovnať:"))
(if (/= a b)
    (progn
     (while (= a b)
     (setq a (+ a 0.1))
     (princ a)
        )
    )
)
)

Vopred Ďakujem.
]]> Mon, 17 Mar 2008 11:26:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=30116&title=nkrat#30116 <![CDATA[n-krát : Problém je v tom že while testuje...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26133&title=nkrat#26133 Autor: michaelflyer
Předmět: 5335
Zasláno: 06.lis.2007 v 20:47

Problém je v tom že while testuje podmienku (ak podmienka nevyhovuje príkazy sa opakuje). Ale foreach zase vyberá každý prvok zo zoznamu a opakuje danú funkciu naň.
Ja si neviem predstaviť ako by to malo robiť na túto funkciu:

(prompt "\nVyber nazov dielca:")
      (setq rozmer (ssget))

      (setq entita2 (ssname rozmer 0))
      (setq zoznam_ent2 (entget entita2))
      (setq a (cdr (assoc 42 zoznam_ent2)))

Mysleli ste asi na funkciu princ, ktorú by mi opakovalo. Lenže to by som musel nejako vytvoriť zoznam vybraných položiek. A to je problém, pretože sú typu a1 až an....
Ja som tiež len začiatočník...
]]> Tue, 06 Nov 2007 20:47:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26133&title=nkrat#26133 <![CDATA[n-krát : Zkusit ten cyklus pomocí příkazu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26123&title=nkrat#26123 Autor: Ferdinand
Předmět: 5335
Zasláno: 06.lis.2007 v 16:29

Zkusit ten cyklus pomocí příkazu foreach Question

...anebo (nevím, jestli to takhle lze dohromady)
(while (if (and (....))))


Upravil Ferdinand - 06.lis.2007 v 16:31]]> Tue, 06 Nov 2007 16:29:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26123&title=nkrat#26123 <![CDATA[n-krát : Ďakujem....to b... Našli ste mi...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26121&title=nkrat#26121 Autor: michaelflyer
Předmět: 5335
Zasláno: 06.lis.2007 v 15:21

Ďakujem....to b...
Našli ste mi ďalšiu chybu.

      (setq entita2 (ssname rozmer 0))
      (setq zoznam_ent2 (entget entita2))
      (setq a (cdr (assoc 42 zoznam_ent2))) ;;;TU MABYT NAMIESTO "a" "b".

Ale vrátim sa k:
(while (and ((/= nazov "") (/= rozmer "")))
toto mi nechce vobez zobrať. vyhlasuje mi to chybu
Možno to má niečo spoločné so (ssget)]]> Tue, 06 Nov 2007 15:21:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26121&title=nkrat#26121 <![CDATA[n-krát : Až tak moc to s lispem neumím,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26094&title=nkrat#26094 Autor: Ferdinand
Předmět: 5335
Zasláno: 06.lis.2007 v 11:26

Až tak moc to s lispem neumím, ale nemělo by být
      (while (and ((/= nazov "") (/= rozmer "")))
Question
Co znamená "b" v řádku
      (princ b f)
Question


Upravil Ferdinand - 06.lis.2007 v 11:27]]> Tue, 06 Nov 2007 11:26:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26094&title=nkrat#26094 <![CDATA[n-krát : Dobrý deň. Nejako som to pochopil...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26069&title=nkrat#26069 Autor: michaelflyer
Předmět: 5335
Zasláno: 05.lis.2007 v 16:27

Dobrý deň.
Nejako som to pochopil (hádam)...
Len mám problém s while :-(
Vyhlasuje mi po to:
; error: bad argument type: lselsetp nil
a už mi nechce opakovať „výber“...

(defun c:ko ()
(progn
(setq f (open "F:\\kusovník.txt" "W"))

(while (/= vyber "")
    (progn
      (initget 1 "M S")
      (setq vyber (getkword "\nZadaj prvok [Madlo,Stlp]:"))

      (if (= vyber "M")
     (progn
      (princ "\n" f)
      (princ "MADA" f)
     )
      )

      (if (= vyber "S")
     (progn
      (princ "\n" f)
      (princ "STLPY" f)
     )
      )

      (while (and (/= nazov "") (/= rozmer ""))
     (progn

      (prompt "\nVyber nazov dielca:")
      (setq nazov (ssget))

      (prompt "\nVyber nazov dielca:")
      (setq rozmer (ssget))

      (setq entita1 (ssname nazov 0))
      (setq zoznam_ent1 (entget entita1))
      (setq a (cdr (assoc 1 zoznam_ent1)))

      (setq entita2 (ssname rozmer 0))
      (setq zoznam_ent2 (entget entita2))
      (setq a (cdr (assoc 42 zoznam_ent2)))

      (princ "\n" f)
      (princ a f)
      (princ "        " f)
      (princ b f)
     )
      )
    )
)
(close f)
)
)
]]> Mon, 05 Nov 2007 16:27:31 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=26069&title=nkrat#26069 <![CDATA[n-krát : &#034;Návod na programování&#034;...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=25685&title=nkrat#25685 Autor: Vladimír Michl
Předmět: 5335
Zasláno: 24.říj.2007 v 13:52

"Návod na programování" neumím, ale cyklus má vypadat např. takto:
 
(repeat 37
 (command "XY" ....)
)
 
Základní příklady a pomoc najdete v nápovědě nebo v online příručce Programování AutoCADu (vývojové prostředky).
]]> Wed, 24 Oct 2007 13:52:35 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=5335&PID=25685&title=nkrat#25685