![](../cz/img/nic.gif)
Diskuzní fórum, poradna
|
![CAD Fórum - Homepage CAD Fórum - Homepage](forum_images/web_wiz_forums.png)
|
Odpovědět ![]() |
Stránka 12> archiv |
Autor | |
Honzicek ![]() Diskutér ![]() Přihlášen: 27.úno.2006 Stav: Offline Bodů: 32 |
![]() 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... |
|
![]() |
|
Seiner ![]() 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 |
![]() |
To číslo 100 je tam přece proto, že na řádku 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 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 |
|
![]() |
|
Seiner ![]() 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 |
![]() |
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() Ale zřejmě máte nějak blbě přepsané ty parametrické rovnice. Kreslí to epicykloidě nepodobnou bramboru.
|
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Seiner ![]() 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 |
![]() |
Takže funkční varianta je: (defun c:epicykloida() Ještě upuzornění: až to budete zkoušet, vypněte si uchopovací mód. Nebo nebudete věřit vlastním očím jako já |
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Honzicek ![]() Diskutér ![]() Přihlášen: 27.úno.2006 Stav: Offline Bodů: 32 |
![]() |
Uznávám...že s tím intervalem to nedává moc smysl odečítat od 2*PI nulu ale interval je přece od (0,2Pi) ?Myslim...
|
|
![]() |
|
Honzicek ![]() Diskutér ![]() Přihlášen: 27.úno.2006 Stav: Offline Bodů: 32 |
![]() |
PS:Moc děkuji ale kreslí mi to nějakou záhadnou křivku i po vypnutí modu uchop
|
|
![]() |
|
Honzicek ![]() Diskutér ![]() Přihlášen: 27.úno.2006 Stav: Offline Bodů: 32 |
![]() |
problém je v tom že u tý křivky se interval od (0,nekonečno...)jak se to dá zapsat v programu?
|
|
![]() |
|
Seiner ![]() 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 |
![]() |
a) mně to kreslí správně. Jaké zadáváte poloměry kružnic? b) jaký interval o,nekonečno? Nerozumím. Parametrem je úlel odvalení a ten je od 0 do 2*PI rozdělený na 100 dílků. c) kde jste přišel na jaké 0,2 PI ??? |
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Seiner ![]() 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 |
![]() |
Výstup u mne
|
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Honzicek ![]() Diskutér ![]() Přihlášen: 27.úno.2006 Stav: Offline Bodů: 32 |
![]() |
nemyslel jsem 0,2PI ale interval od 0 do 2PI.. blbě jsem to napsal
jaké jste použil poloměry kružnic pro tuto křivku? |
|
![]() |
|
Honzicek ![]() Diskutér ![]() Přihlášen: 27.úno.2006 Stav: Offline Bodů: 32 |
![]() |
mám třeba problém s tímhle zadán a=2 b=10
![]() a má to dělat: ![]() |
|
![]() |
|
Honzicek ![]() Diskutér ![]() Přihlášen: 27.úno.2006 Stav: Offline Bodů: 32 |
![]() |
jak se vkládá obrázek..?
|
|
![]() |
|
Seiner ![]() 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 |
![]() |
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. |
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Ľubomír Pápay ![]() Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
TOP uživatel ![]() Přihlášen: 04.říj.2004 Lokalita: Slovensko Používám: AIS2009, AIS 2012 Stav: Offline Bodů: 955 |
![]() |
Nesledujem túto tému, ale vidím že sa tu moríte s epicykloidou. Ja v
acade 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 |
|
Ľubomír Pápay
Inventor 2009,2012 |
|
![]() |
|
Seiner ![]() 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 |
![]() |
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 :-) |
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Honzicek ![]() Diskutér ![]() Přihlášen: 27.úno.2006 Stav: Offline Bodů: 32 |
![]() |
¨ funguje to..paráda..jeětě bych se chtěl zeptat jaké jste použil poloměry při té první ukázce?? |
|
![]() |
|
Seiner ![]() 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 |
![]() |
To už nevím, ale myslím, že pevná byla 100 a tvořící jednou 50 a jednou 25.
|
|
Vítězslav Seiner
Chrudim |
|
![]() |
|
Honzicek ![]() Diskutér ![]() Přihlášen: 27.úno.2006 Stav: Offline Bodů: 32 |
![]() |
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.. ?? |
|
![]() |
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 ![]() |
Stránka 12> archiv |
Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 1,293 sekund.