CAD Fórum : epicykloida

CAD Fórum : epicykloida https://www.cadforum.cz/forum/ Wed, 17 Jun 2026 16:12:55 +0000 Fri, 10 Mar 2006 09:59:47 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=2251 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[epicykloida : oprava: (defun c:tk () (initget...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9651&title=epicykloida#9651 Autor: Honzicek
Předmět: 2251
Zasláno: 10.bře.2006 v 09:59

oprava:

(defun c:tk ()
(initget "CY EP HYP EV ARCH ")
(setq word (getkword "Zadejte druh krivky:(CYkloida EPicykloida HYPocykloida EVolventa ARCHimedova-spirála)"))
(cond ((= word "CY")   (setq r(getreal"poloměr tvořící kružnice:"))
                           (setq d(getreal"vzdálenost bodu:"))
                           (setq pocet (getreal"Zadejte pocet cyklu:"))
                   (setq bod(getpoint"Zadejte počáteční bod odvalovací úsečky:"))
                   (command "úsečka" (list (car bod) (cadr bod)) (list (* (car bod) 1.2) (cadr bod)) "")         &nb sp;
                           (setq t1 0)
                           (setq t2 (* pocet Pi))
                           (setq int (/ (- t2 t1) 100.0))
                           (setq a t1)
                           (setq x (-(* r a)(* d (sin a))))
                           (setq y (- r (* d (cos a))))         & nbsp;
                           (setq x (+ x (car bod)))
                           (setq y (+ y (cadr bod)))
                           (command "bod" (list x y))
                               (repeat 100
                                   (setq a (+ int a))
                                   (setq x (-(* r a)(* d (sin a))))
                                   (setq y (- r(* d(cos a))))
                                   (setq x (+ x (car bod)))
                                   (setq y (+ y (cadr bod)))
                                   (command "úsečka" "@" (list x y) "")
                                              )
                           (command "regen")
                   (setq part 1))

         ((= word "EP") (setq a(getreal"Zadejte poloměr pevné kružnice:"))
                           (setq b(getreal"Zadejte poloměr kutálející se kružnice:"))
                           (setq pocet (getreal"Zadejte pocet cyklu:"))
                           (setq bod (getpoint"Zadejte bod"))
                           (setq t1 0)
                           (setq t2 (* pocet Pi))
                           (setq int (/ (- t2 t1) 100.0))
                           (setq c t1)
                           (setq x (-(* (+ a b) (cos c))(* b( cos (* (/ (+ a b) b) c)))))
                           (setq y (-(* (+ a b) (sin c))(* b( sin (* (/ (+ a b) b) c)))))
                           (setq x (+ x (car bod)))
                           (setq y (+ y (cadr bod)))
                           (command "_POINT" (list x y))
                             (repeat 100
                               (setq c (+ int c))
                               (setq x (-(* (+ a b) (cos c))(* b( cos (* (/ (+ a b) b) c)))))
                               (setq y (-(* (+ a b) (sin c))(* b( sin (* (/ (+ a b) b) c)))))
                               (setq x (+ x (car bod)))
                                (setq y (+ y (cadr bod)))
                               (command "úsečka" "@" (list x y) "")
                                         )
                            (command "_CIRCLE" (list (car bod) (cadr bod)) a)
                            (command "regen")
                   (setq part 2))

((= word "HYP") (setq a(getreal"Zadejte poloměr pevné kružnice:"))
                           (setq b(getreal"Zadejte poloměr kutálející se kružnice:"))
                           (setq pocet (getreal"Zadejte pocet cyklu:"))
                           (setq bod (getpoint"Zadejte bod:"))
                           (setq t1 0)
                           (setq t2 (* pocet PI))
                           (setq int (/ (- t2 t1) 100.0))
                           (setq c t1)
                           (setq x (+(* (- a b) (cos c))(* b( cos (* (/ (- a b) b) c)))))
                           (setq y (-(* (- a b) (sin c))(* b( sin (* (/ (- a b) b) c)))))
                           (setq x (+ x (car bod)))
                           (setq y (+ y (cadr bod)))
                           (command "_POINT" (list x y))
                             (repeat 100
                               (setq c (+ int c))
                               (setq x (+(* (- a b) (cos c))(* b( cos (* (/ (- a b) b) c)))))
                               (setq y (-(* (- a b) (sin c))(* b( sin (* (/ (- a b) b) c)))))
                               (setq x (+ x (car bod)))
                               (setq y (+ y (cadr bod)))
                            (command "úsečka" "@" (list x y) "")
                                      )
                            (command "_CIRCLE" (list (car bod) (cadr bod)) a)
                            (command "regen")
                   (setq part 3))

       ((= word "EV")     (setq r (getreal"Zadejte poloměr:"))
                            (setq d (getreal"Zadejte průměr:"))
                            (setq pocet (getreal"Zadejte pocet cyklu:"))
                            (setq bod (getpoint"Zadejte bod:"))
                            (setq t1 0)
                            (setq t2 (* pocet PI))
                            (setq int (/(- t2 t1) 100.0))
                            (setq c t1)
                            (setq x (+(*(+ r d) (cos c)) (* (* r c) (sin c))))
                            (setq y (-(*(+ r d) (sin c)) (* (* r c) (cos c))))
                            (setq x (+ x (car bod)))
                            (setq y (+ y (cadr bod)))
                            (command "_POINT" (list x y))
                              (repeat 100
                                (setq c (+ int c))
                                (setq x (+(*(+ r d) (cos c)) (* (* r c) (sin c))))
                                (setq y (-(*(+ r d) (sin c)) (* (* r c) (cos c))))
                                (setq x (+ x (car bod)))
                                (setq y (+ y (cadr bod)))
                                (command "úsečka" "@" (list x y) "")
                                            )
                            (command "regen")
                   (setq part 4))

((= word "ARCH")   (setq r(getreal"Zadejte poloměr Archimedovy spirály:"))
                             (setq pocet (getreal"Zadejte pocet cyklu:"))
                             (setq bod (getpoint"Zadejte bod:"))
                             (setq t1 0)
                             (setq t2 (* pocet PI))
                             (setq int (/(- t2 t1) 100.0))
                             (setq c t1)
                             (setq x (* (* r c) (sin c)))
                             (setq y (* (* r c) (cos c)))
                             (setq x (+ x (car bod)))
                             (setq y (+ y (cadr bod)))
                             (command "_POINT" (list x y) )
                               (repeat 100
                                 (setq c (+ int c))
                                 (setq x (* (* r c) (sin c)))
                                 (setq y (* (* r c) (cos c)))
                                 (setq x (+ x (car bod)))
                                 (setq y (+ y (cadr bod)))
                                 (command "úsečka" "@" (list x y) "")
                                             )
                             (command "regen")
                      (setq part 5))

(T (prompt "Chyba:nevybral jste žádnou křivku!!!"))
)
)

]]> Fri, 10 Mar 2006 09:59:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9651&title=epicykloida#9651 <![CDATA[epicykloida : (defun c:tk () (initget "CY...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9638&title=epicykloida#9638 Autor: Honzicek
Předmět: 2251
Zasláno: 09.bře.2006 v 17:00

(defun c:tk ()
(initget "CY EP HYP EV ARCH ")
(setq word (getkword "Zadejte druh krivky:(CYkloida EPicykloida HYPocykloida EVolventa

ARCHimedova-spirála)"))
(cond ((= word "CY")   (setq r(getreal"poloměr tvořící kružnice:"))
         &nbs p;         &nbs p;    (setq d(getreal"vzdálenost bodu:"))
         &nbs p;         &nbs p;    (setq pocet (getreal"Zadejte pocet cyklu:"))
         &nbs p;         &nbs p;    (setq t1 0)
         &nbs p;         &nbs p;    (setq t2 (* (pocet) 2. Pi))
         &nbs p;         &nbs p;    (setq int (/ (- t2 t1) 100.0))
         &nbs p;         &nbs p;    (setq bod(getpoint"Zadejte počáteční bod odvalovací úsečky:"))
         &nbs p;         &nbs p;    (setq a t1)
         &nbs p;         &nbs p;    (setq x (-(* r a)(* d (sin a))))
         &nbs p;         &nbs p;    (setq y (- r (* d (cosa))))        & nbsp;
         &nbs p;         &nbs p;    (setq x (+ x (car bod)))
         &nbs p;         &nbs p;    (setq y (+ y (cadr bod)))
         &nbs p;         &nbs p;    (command "bod" (list x y))
         &nbs p;         &nbs p;        (repeat 100
         &nbs p;         &nbs p;         &nbs p;  (setq a (+ int a))
         &nbs p;         &nbs p;         &nbs p;  (setq x (-(* r a)(* d (sin a))))
         &nbs p;         &nbs p;         &nbs p;  (setq y (- r(* d(cos a))))
         &nbs p;         &nbs p;         &nbs p;  (setq x (+ x (car bod)))
         &nbs p;         &nbs p;         &nbs p;  (setq y (+ y (cadr bod)))
         &nbs p;         &nbs p;         &nbs p;  (command "úsečka" "@" (list x y) "")
         &nbs p;         &nbs p;         &nbs p;         &nbs p; )
         &nbs p;         &nbs p;    (command "regen")
         &n bsp;          (setq part 1))

         ((= word "EP") (setq a(getreal"Zadejte poloměr pevné kružnice:"))
         &nbs p;         &nbs p;    (setq b(getreal"Zadejte poloměr kutálející se kružnice:"))
         &nbs p;         &nbs p;    (setq pocet (getreal"Zadejte pocet cyklu:"))
         &nbs p;         &nbs p;    (setq bod (getpoint"Zadejte bod"))
         &nbs p;         &nbs p;    (setq t1 0)
         &nbs p;         &nbs p;    (setq t2 (* (pocet) 2. Pi))
         &nbs p;         &nbs p;    (setq int (/ (- t2 t1) 100.0))
         &nbs p;         &nbs p;    (setq c t1)
         &nbs p;         &nbs p;    (setq x (-(* (+ a b) (cos c))(* b( cos (* (/ (+ a b) b) c)))))
         &nbs p;         &nbs p;    (setq y (-(* (+ a b) (sin c))(* b( sin (* (/ (+ a b) b) c)))))
         &nbs p;         &nbs p;    (setq x (+ x (car bod)))
         &nbs p;         &nbs p;    (setq y (+ y (cadr bod)))
         &nbs p;         &nbs p;    (command "_POINT" (list x y))
         &nbs p;         &nbs p;      (repeat 100
         &nbs p;         &nbs p;        (setq c (+ int c))
         &nbs p;         &nbs p;        (setq x (-(* (+ a b) (cos c))(* b( cos (* (/ (+ a b) b) c)))))
         &nbs p;         &nbs p;        (setq y (-(* (+ a b) (sin c))(* b( sin (* (/ (+ a b) b) c)))))
         &nbs p;         &nbs p;        (setq x (+ x (car bod)))
         &nbs p;         &nbs p;         (s etq y (+ y (cadr bod)))
         &nbs p;         &nbs p;        (command "úsečka" "@" (list x y) "")
         &nbs p;         &nbs p;         &nbs p;       )
         &nbs p;         &nbs p;     (command "_CIRCLE" (list (car bod) (cadr bod)) a)
         &nbs p;         &nbs p;     (command "regen")
         &n bsp;         &n bsp;(setq part 2))

   ((= word "HYP") (setq a(getreal"Zadejte poloměr pevné kružnice:"))
         &nbs p;         &nbs p;    (setq b(getreal"Zadejte poloměr kutálející se kružnice:"))
         &nbs p;         &nbs p;    (setq pocet (getreal"Zadejte pocet cyklu:"))
         &nbs p;         &nbs p;    (setq bod (getpoint"Zadejte bod:"))
         &nbs p;         &nbs p;    (setq t1 0)
         &nbs p;         &nbs p;    (setq t2 (* (pocet) 2. PI))
         &nbs p;         &nbs p;    (setq int (/ (- t2 t1) 100.0))
         &nbs p;         &nbs p;    (setq c t1)
         &nbs p;         &nbs p;    (setq x (+(* (- a b) (cos c))(* b( cos (* (/ (- a b) b) c)))))
         &nbs p;         &nbs p;    (setq y (-(* (- a b) (sin c))(* b( sin (* (/ (- a b) b) c)))))
         &nbs p;         &nbs p;    (setq x (+ x (car bod)))
         &nbs p;         &nbs p;    (setq y (+ y (cadr bod)))
         &nbs p;         &nbs p;    (command "_POINT" (list x y))
         &nbs p;         &nbs p;      (repeat 100
         &nbs p;         &nbs p;        (setq c (+ int c))
         &nbs p;         &nbs p;        (setq x (+(* (- a b) (cos c))(* b( cos (* (/ (- a b) b) c)))))
         &nbs p;         &nbs p;        (setq y (-(* (- a b) (sin c))(* b( sin (* (/ (- a b) b) c)))))
         &nbs p;         &nbs p;        (setq x (+ x (car bod)))
         &nbs p;         &nbs p;        (setq y (+ y (cadr bod)))
         &nbs p;         &nbs p;     (command "úsečka" "@" (list x y) "")
         &nbs p;         &nbs p;         &nbs p;     )
         &nbs p;         &nbs p;     (command "_CIRCLE" (list (car bod) (cadr bod)) a)
         &nbs p;         &nbs p;     (command "regen")
         &n bsp;         &n bsp;(setq part 3))

       ((= word "EV")     (setq r (getreal"Zadejte poloměr:"))
         &nbs p;         &nbs p;     (setq d (getreal"Zadejte průměr:"))
         &nbs p;         &nbs p;     (setq pocet (getreal"Zadejte pocet cyklu:"))
         &nbs p;         &nbs p;     (setq bod (getpoint"Zadejte bod:"))
         &nbs p;         &nbs p;     (setq t1 0)
         &nbs p;         &nbs p;     (setq t2 (* (pocet) 2. PI))
         &nbs p;         &nbs p;     (setq int (/(- t2 t1) 100.0))
         &nbs p;         &nbs p;     (setq c t1)
         &nbs p;         &nbs p;     (setq x (+(*(+ r d) (cos c)) (* (* r c) (sin c))))
         &nbs p;         &nbs p;     (setq y (-(*(+ r d) (sin c)) (* (* r c) (cos c))))
         &nbs p;         &nbs p;     (setq x (+ x (car bod)))
         &nbs p;         &nbs p;     (setq y (+ y (cadr bod)))
         &nbs p;         &nbs p;     (command "_POINT" (list x y))
         &nbs p;         &nbs p;       (repeat 100
         &nbs p;         &nbs p;         (s etq c (+ int c))
         &nbs p;         &nbs p;         (s etq x (+(*(+ r d) (cos c)) (* (* r c) (sin c))))
         &nbs p;         &nbs p;         (s etq y (-(*(+ r d) (sin c)) (* (* r c) (cos c))))
         &nbs p;         &nbs p;         (s etq x (+ x (car bod)))
         &nbs p;         &nbs p;         (s etq y (+ y (cadr bod)))
         &nbs p;         &nbs p;         (c ommand "úsečka" "@" (list x y) "")
         &nbs p;         &nbs p;         &nbs p;         )
         &nbs p;         &nbs p;     (command "regen")
         &n bsp;         &n bsp;(setq part 4))

    ((= word "ARCH")   (setq r(getreal"Zadejte poloměr Archimedovy spirály:"))
         &nbs p;         &nbs p;      (setq pocet (getreal"Zadejte pocet cyklu:"))
         &nbs p;         &nbs p;      (setq bod (getpoint"Zadejte bod:"))
         &nbs p;         &nbs p;      (setq t1 0)
         &nbs p;         &nbs p;      (setq t2 (* (pocet) 2. PI))
         &nbs p;         &nbs p;      (setq int (/(- t2 t1) 100.0))
         &nbs p;         &nbs p;      (setq c t1)
         &nbs p;         &nbs p;      (setq x (* (* r c) (sin c)))
         &nbs p;         &nbs p;      (setq y (* (* r c) (cos c)))
         &nbs p;         &nbs p;      (setq x (+ x (car bod)))
         &nbs p;         &nbs p;      (setq y (+ y (cadr bod)))
         &nbs p;         &nbs p;      (command "_POINT" (list x y) )
         &nbs p;         &nbs p;        (repeat 100
         &nbs p;         &nbs p;         &nbs p;(setq c (+ int c))
         &nbs p;         &nbs p;         &nbs p;(setq x (* (* r c) (sin c)))
         &nbs p;         &nbs p;         &nbs p;(setq y (* (* r c) (cos c)))
         &nbs p;         &nbs p;         &nbs p;(setq x (+ x (car bod)))
         &nbs p;         &nbs p;         &nbs p;(setq y (+ y (cadr bod)))
         &nbs p;         &nbs p;         &nbs p;(command "úsečka" "@" (list x y) "")
         &nbs p;         &nbs p;         &nbs p;         &nbs p;)
         &nbs p;         &nbs p;      (command "regen")
         &n bsp;         &n bsp; (setq part 5))


    (T (prompt "Chyba:nevybral jste žádnou křivku!!!"))
    )
)

zatim mám tohle...tedak nevim jestli je to správně protože jsem to upravoval v textáku ...
]]> Thu, 09 Mar 2006 17:00:07 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9638&title=epicykloida#9638 <![CDATA[epicykloida : možná bych to měl trochu zkrátit...prostě...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9637&title=epicykloida#9637 Autor: Honzicek
Předmět: 2251
Zasláno: 09.bře.2006 v 16:47

možná bych to měl trochu zkrátit...prostě potřebuju,aby po tom coudělám křivku program dal uživateli na výběr \Konec\změnitparametry\další\

]]> Thu, 09 Mar 2006 16:47:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9637&title=epicykloida#9637 <![CDATA[epicykloida : Ok děkuju moc všechno parádně...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9606&title=epicykloida#9606 Autor: Honzicek
Předmět: 2251
Zasláno: 08.bře.2006 v 12:52

Ok děkuju moc všechno parádně funguje...ještě bych potřeboval udělat u tý epicykloidy toto:

zadám parametry a udělá mi to křivku -to mám

potom potřebuju,aby se mě to zeptalo,jestli jsem s křivkou spokojen a když dám ne,tak aby mi to tu křivku smazalo a hodilo mě to zpátky na tvorbu křivky

chtěl bych se zeptat,jestli by to šlo řešit funkcí ssget

po přečtení co ta funkce vlastně dělá,ale pořád nevím,jestli tato funkce dokáže vybrat křivku v celku(nechci ale,abych to vybíral oknem)....kdyby toto nešlo,tak bych musel funkci naprogramovat tak aby vybrala posledních x(101 v tomto případě)entit...ale tady si nejsem jistý jak by to mělo vypadat..

]]> Wed, 08 Mar 2006 12:52:20 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9606&title=epicykloida#9606 <![CDATA[epicykloida : To už nevím, ale myslím, že pevná...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9579&title=epicykloida#9579 Autor: Seiner
Předmět: 2251
Zasláno: 07.bře.2006 v 16:45

To už nevím, ale myslím, že pevná byla 100 a tvořící jednou 50 a jednou 25.]]> Tue, 07 Mar 2006 16:45:36 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9579&title=epicykloida#9579 <![CDATA[epicykloida : ¨ funguje to..paráda..jeětě...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9571&title=epicykloida#9571 Autor: Honzicek
Předmět: 2251
Zasláno: 07.bře.2006 v 15:00

funguje to..paráda..jeětě bych se chtěl zeptat jaké jste použil poloměry při té první ukázce??

]]> Tue, 07 Mar 2006 15:00:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9571&title=epicykloida#9571 <![CDATA[epicykloida : OK, jenže účelem této diskuse...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9568&title=epicykloida#9568 Autor: Seiner
Předmět: 2251
Zasláno: 07.bře.2006 v 14:32

OK, jenže účelem této diskuse je naučit zmateného studenta programovat v lispu aspoň tak, aby byl schopen udělat domácí úkol :-)

]]> Tue, 07 Mar 2006 14:32:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9568&title=epicykloida#9568 <![CDATA[epicykloida : Nesledujem túto tému, ale vidím...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9567&title=epicykloida#9567 Autor: Ľubomír Pápay
Předmět: 2251
Zasláno: 07.bře.2006 v 14:29

Nesledujem túto tému, ale vidím že sa tu moríte s epicykloidou. Ja vacade na geometricke krivky používam voľný lisp GEOMCURV.LSP
Stiahol som ho v minulosti niekde na webe. Poznáte ho? Možno by vám vyhovoval.
Ak je záujem, môžem ho poslať.
Lubo
]]> Tue, 07 Mar 2006 14:29:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9567&title=epicykloida#9567 <![CDATA[epicykloida : Takhle vypadá ta 2/10. Žádný...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9565&title=epicykloida#9565 Autor: Seiner
Předmět: 2251
Zasláno: 07.bře.2006 v 13:58

Takhle vypadá ta 2/10. Žádný problém. PRACUJETE OPRAVDU S TOU POSLDNÍ VERZÍ, KDE JSEM VÁM OPRAVIL VZORCE?

Vkládání obrázku: V AutoCADu zmenšit okno kolem požadovaného obrázku, vybrat do schránky (Ctrl-C), vložit do nějakého grafického malovátka (Irfan), použít tlačítka Nahrát obrázek na této stránce.

]]> Tue, 07 Mar 2006 13:58:13 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9565&title=epicykloida#9565 <![CDATA[epicykloida : jak se vkládá obrázek..? ...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9562&title=epicykloida#9562 Autor: Honzicek
Předmět: 2251
Zasláno: 07.bře.2006 v 13:22

jak se vkládá obrázek..?

]]> Tue, 07 Mar 2006 13:22:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=2251&PID=9562&title=epicykloida#9562