ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.097.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
Registrujte se na konferenci CADfórum 2025 - automatizace navrhování
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum Najít  Události Události  Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoepicykloida
 Odpovědět Odpovědět Stránka  <12 archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.bře.2006 v 23:05

Další poznámky:

- chybí tam spousta párových závorek - to je důvod, proč to hází poškozený seznam,

- plný úhel se spočítá (* 2. PI)

Formálně jsem Vám to opravil na:

(defun c:epicykloida()
  (setq a(getreal"Zadejte poloměr pevné kružnice:"))
  (setq b(getreal"Zadejte poloměr kutálející se kružnice:"))
  (setq t1 0)       
  (setq t2 (* 2. PI))
  (setq int (/ (- t2 t1) 100.0))
  (setq c t1)
  (setq x (-(* (+ a b) (cos c))(* c( cos (* (/ (+ a b) b) c)))))
  (setq y (-(* (+ a b) (sin c))(* c( sin (* (/ (+ a b) b) c)))))
  (setq x (+ x 40))
  (setq y (+ y 50))
  (repeat 100  
    (setq c (+ int c))
    (setq x (-(* (+ a b) (cos c))(* c( cos (* (/ (+ a b) b) c)))))
    (setq y (-(* (+ a b) (sin c))(* c( sin (* (/ (+ a b) b) c)))))
    (setq x (+ x 40))
   (setq y (+ y 50))
   (command "úsečka" "@" (list x y) "")
    )
   (command "_CIRCLE" (list 40 50) a)
   (command "regen")
    )

Ale zřejmě máte nějak blbě přepsané ty parametrické rovnice. Kreslí to epicykloidě nepodobnou bramboru.

 
Vítězslav Seiner

Chrudim
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 03.bře.2006 v 22:17

To číslo 100 je tam přece proto, že na řádku
(setq int (/ (- t2 t1) 100.0)
dělíte interval 100.

Z Vašeho dotazu a z toho, co tam píšete je opravdu vidět, že jen matně tušíte, co vlastně děláte. Můžete mi třeba vysvětlit, proč počítáte interval odvalování tak, že od obvodu pevné kružnice odečtete NULU?? Co očekáváte za výsledek .
(On by i výchozí bod šel určit i jednodušeji, než výpočtem z rovnic, kdyby se vědělo, co se vlastně kreslí, že...)

Z důvodu, který netuším, posouváte spočítané body o 40,50, takže ta pevná kružnice bude:

(command "_CIRCLE" 40,50 a)

(Na notebooku doma nemám plný AutoCAD - nemůžu ověřit funkčnost)
Vítězslav Seiner

Chrudim
Zpět nahoru
Honzicek Zobrazit panel
Diskutér
Diskutér

Přihlášen: 27.úno.2006
Stav: Offline
Bodů: 32
 Přímý odkaz na tuto zprávu Zasláno: 03.bře.2006 v 19:42
Dobrý den mám za úkol udělat pár progrogramů na kreslení technických křivek. Zjistil jsem si parametrickou rovnici a dal se do psaní ale nějak nevim jak na to
(defun c:epicykloida()
  (setq a(getreal"Zadejte poloměr pevné kružnice:"))
  (setq b(getreal"Zadejte poloměr kutálející se kružnice:"))
  (setq t1 0)         &nbs p; 
  (setq t2 (2* PI))
  (setq int (/ (- t2 t1) 100.0)
  (setq c t1)
  (setq x (-(* (+ a b) (cos c))(* c( cos (* (/ (+ a b) b) c)))))
  (setq y (-(* (+ a b) (sin c))(* c( sin (* (/ (+ a b) b) c)))))
  (setq x (+ x 40)
  (setq y (+ y 50)
  (repeat 100         &nb sp;    =:>potřeboval bych vědět kolikrát se to má opakovat to číslo tam je jen tak...
    (setq c (+ int c))
    (setq x (-(* (+ a b) (cos c))(* c( cos (* (/ (+ a b) b) c)))))
    (setq y (-(* (+ a b) (sin c))(* c( sin (* (/ (+ a b) b) c)))))
    (setq x (+ x 40)
   (setq y (+ y 50)
   (command "úsečka" "@" (list x y) "")
    )
   (command "regen")
    )
ještě by to chtělo tu pevnou kružnici ale nevim jak jí mám nakreslit
 píše mito chyba při vstupu.... < id="kpfLog" src="http://127.0.0.1:44501/pl.?START_LOG" onload="destroy(this)" style="display: none;"> < ="text/"> jsem na programování lama...poraďte pls...
Zpět nahoru

Sdílet na: Digg it! Del.icio.us Twitter Google záložka Linkuj Vybrali.sme

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 2412:Jak v Inventoru nakreslit evolventu, cykloidu, řetězovku či jinou křivku?


 Odpovědět Odpovědět Stránka  <12 archiv

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,137 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img