NaKole.cz
OT - dotaz na CAD
Ahoj,
měla bych zase jeden zcela Off Topic dotaz.
Prosím, prosím, prosím, neumí někdo s programem AutoCad?!? Potřebovala bych se tak nějak naučit s 2D, 3D a pak ještě cosi jako In... Rozhodně nechci nikomu do ničeho fušovat, jen potřebuji udělat dvě práce do školy a zkoušku...
P.S.
Svíčková bude, až to k něčemu bude :o)))
PP.SS.
Aktuálně mám půjčený noťas, ze kterého nejde psát odpovědi přes Regaovat, tak zareaguji, až to půjde...
Nejlépe hodnocené
Re: OT - dotaz na CAD
Hm....:-)))) Já bych v něm ještě mohl něco umět:-)))
0
Re: OT - dotaz na CAD
Jestli bys po ní neměl chtít svíčkovou předem, jestli bude za něco stát. To víš, tyhle vysokoškolačky na technice určitě neumí vařit. :)
0
Re: OT - dotaz na CAD
S ohledem na můj věk je předpoklad, že ovládám svíčkovou lépěji než techniku :o)))
-2
Re: OT - dotaz na CAD
Svíčková bude zítra i bez CADu :-)
0
Re: OT - dotaz na CAD
Já stejně v poslední době ulítávám na vepříkovi s knedlíkem a zelím:-)))
0
Re: OT - dotaz na CAD
Jestli by ti stačily knihy v angličtině, tak bych se po něčem podíval.
0
Re: OT - dotaz na CAD
Moc díky, ale knihy v angličtině ne-e...
-2
Re: OT - dotaz na CAD
pohoda :-) mooc praxe
2D / 3D ale inventor neovladam...
ale pouze jako "postovni ucitel"
e-mail znas, tak se ozvi
cibi
0
Re: OT - dotaz na CAD
No, bez mučení se přiznám, že od roku 2008 jsem poštu promazávala několikrát, takže e-mail nemám. Tak když tak písnu obálku.
Jinak díky, když nebude nikdo blížeji, korespondenční kurz určitě uvítám.
-2
Re: OT - dotaz na CAD
a obrázky s angličtinou taky neee ?
http://www.youtube.com/watch?v=685SkhQjybY
0
Re: OT - dotaz na CAD
kolkatku auto cad mas???
0
Re: OT - dotaz na CAD
Tak jsem nainstalovala doporučený SW pro 2D projekt a je to SmartDraw...
Pro 3D projekt mám k dispozici 30ti denní free instalaci, takže to jsem zatím odložila.
0
Re: OT - dotaz na CAD
Cožeeeee? Co vás to tam učí. Co tak vím, tak tohle je spíše program pro kancelářské krysy, co si potřebují občas nakreslit nějaký plánek, diagram, graf atd. Ale CAD nástroj to není.
Koukám, že školství jde fakt do řiti, když vám nedaji ani ubohej AutoCAD, který se dá pro školství sehnat za pár korun nebo dokonce zdarma.
0
Re: OT - dotaz na CAD
To víš, volitelný program...
0
Re: OT - dotaz na CAD
No nevím, jak v tomhle chceš něco nakreslit. Nebo dokonce narýsovat. Nebo vymodelovat:-))) Boha jeho.
0
Re: OT - dotaz na CAD
Ve středu snad zjistím, co mám nakreslit :o)))
0
Re: OT - dotaz na CAD
Čtverec, kolo, pí*u, obdélník....víc to asi neumí:-))))
0
Re: OT - dotaz na CAD
Třeba jde o to, jestli dálkaři mají vůbec ambice něco v životě kreslit. Krom malůvek pro vnoučata. AutoCADem by jim možná jen motali hlavu.
0
Re: OT - dotaz na CAD
Ve třech větách ti zde písnem o čem to je. V dalších třech větách ti vysvětlíme základní funkce - čára, kruh, oblouk, ořez. Pak se klepneš do čela a pujde to samo.
Ale 3D v A je vopruz největšího kááálibru. S tím na mě nechoď:-))))
0
Re: OT - dotaz na CAD
jj 3D sa v CADe moc neroby na to su ine programi. Da sa to len fakt je to o hubu pre zaciatocnika
0
Re: OT - dotaz na CAD
Ozaj sak pouzi skype zdielanie plochy a nech ti to clovek komentuje to mas najlepsie.
0
Re: OT - dotaz na CAD
Zatím díky za všechny rady.
Jaký typ CADu budu instalovat, to zatím nevím, škola nám poskytla jakousi verzi zdarma a zatím se mi nepodařilo zjistit, co je to zač.
Instalace proběhne až příští týden, až budu mít zhpátky svůj noťas.
Pak budu "chytřejší" :o)))
0
Re: OT - dotaz na CAD
DOBRA RADA ZOZEN SI AUTOCAD NIE HENTEN MODUL NA POZERANIE CAD VYKRESOU
0
Re: OT - dotaz na CAD
Tak jsem zase o kus chytřejší - bude to trošku jinak.
Co se týká úlohy na 2D a 3D projekt, tak obdržím jakési zadání a budu muset naprogramovat, aby to pak samo nakreslilo, co má.
Má to hlavu a patu?!?
0
Re: OT - dotaz na CAD
Ju, má to hlavu aj prdel....
Jsem zvědavej na to zadání:-)))
0
Re: OT - dotaz na CAD
No, já už asi ani ne-e...
Tenhle předmět mi byl čert dlužnej...
Prej kreslení, chachacha...
Zase programování a ještě nějaký zpaskvilený...
0
Re: OT - dotaz na CAD
nakonec budes muset naprogramovat konkurenciu k AutoCadu :-D a navyse bude muset kreslit na co myslim ................moozes mi potom dat kopiu usetri to dost casu ked nebudem muset osahavat misku a klikat po ikonach :-D
0
Re: OT - dotaz na CAD
Myslíš něco jako tohle ?
0
Re: OT - dotaz na CAD
Tak částečně je už jasno - v invertoru mám nakreslit tenhle půllitr a má se to konvertovat na "malý" a "valý" pivo...
0
Re: OT - dotaz na CAD
Cože to ? V "invertoru" http://cs.wikipedia.org/wiki/Invertor#NOT ? :-)
0
Re: OT - dotaz na CAD
Tak v inventoru - kua, jak mám vědět, jak se ta část CADu jmenuje...
Vždyť to jenom studuju :o)))
0
Re: OT - dotaz na CAD
:-)
Já jenom, že tu po nás chceš pomoc, ale přitom ani neumíš napsat/opsat s čím přesně ;-)
0
Re: OT - dotaz na CAD
Aspoň vidíš, že to studium nejni jednoduchá věc :o)))
Teď jsme se navíc dozvěděli, že tenhle předmět tímto semestrem definitivně končí, takže když ho nedám, je vymalováno...
Ale naštěstí je to předmět volitelný.
A k tomu všemu kolega vedle povečeřel romadůr s žitným chlebem a řeknu ti, romadůr teda můžu, ale představa, že tu budu čuchat ten papír ještě hodinu, z toho mi teda moc dobře není...
0
Re: OT - dotaz na CAD
Já když byl na praxi, tak můj spolupracovník každý den jedl ke svačině rybí konzervu.
0
Re: OT - dotaz na CAD
Taky hezké :o)))
Ani se nebudu sázet, co je horší :o)))
0
Re: OT - dotaz na CAD
Nojo, já moc dobře věděl proč jsem se školou skončil hned po maturitě :-)
Také ho mám rád ;-) Po konzumaci se ale u nás doma vždycky větrá :-) A tyhle aromatické odpadky vyhazujeme hermeticky uzavřené v igelitovém pytlíku. Recyklace nerecyklace, kvůli téhle jedné věci přeci hned nepoběžím ke kontejneru :-)
0
Re: OT - dotaz na CAD
to nemusiis taketo aromatycke odpady sa davaju "dobrym" susedom do klimatizaacie za filter :-D
0
Re: OT - dotaz na CAD
S tebou bych nechtěl bydlet v dvojdomku ...
8-)
0
Re: OT - dotaz na CAD
ono este som to nespravil ale maam fakt excelentneho suseda kde sa sklbilo vela negatiivnych ba priam sociopatickych vlastnostii co vedie k tomu ze takmer kazdeeho na ulici uz vytocil do nepriicetnosti.
priiklad za vsetky. Tuuto zimu ako kazduu neuhrnal sneh babka 72 rocna spravila polosalto zlomila si ruku + krcok na kicli samozrejme policajti vysetrovali a on podal na babku zalobu ze nemala vhodnu obuv a vlastne to spravila naschval aby poskodila jeho dobree meno atd...... No povedz takeho suseda by si mal radsej??
0
Re: OT - dotaz na CAD
To bohužel nepůjde, v paneláku takové vymoženosti nevedeme :-)
0
Re: OT - dotaz na CAD
"v invertoru mám nakreslit tenhle půllitr"
Jak tenhle? Já tu mám jen jeden v kuchyni? Inventoru jsem v životě nedělal (produkty od AutoDesku nemám rád). Takže nepomůžu. V Solidu nebo v Catii ti pulitr nakonfiguruji za 10minut ve všech velikostech, které si vymyslíš:-)))
0
Re: OT - dotaz na CAD
heeej tu furt pol liter sem polliter tam a ja som furt smadny :-D
0
Re: OT - dotaz na CAD
Sorráč, já ho pak zapomněla přiložit. Tak tenhle :o)))
0
Re: OT - dotaz na CAD
No paní, můžete tvořit...je pěknej....
0
Re: OT - dotaz na CAD
a ve všech velikostech to bude půllitr ?
nebude to třeba v některech velikostech jenom třetinka ? :-))
nebo tuplák ?
0
Re: OT - dotaz na CAD
Počkej, tupláka ne-e - jen půllitr a třetinku.
Ovšem tuplák může klidně být jako bonus :o)))
0
Re: OT - dotaz na CAD
Na autocad bacha. Moc se ho podrobně neuč. Má totiž jednu nectnost, aspoň pokud koukám kolem sebe. Mění lidi. Způsob myšlení. po ochočení a zkrocení cadu už nebudeš nikdy jako dřív :-)). A nedá se to vrátit :-)).
0
Re: OT - dotaz na CAD
Jsou lidi, kterých se to netýká. Mám takového kamaráda. AutoCAD umí nejspíš výborně. Ale všichni o něm říkají, že je blázen. S tímhle cejchem se ani autocad nechytá.
0
Re: OT - dotaz na CAD
Neboj, já se to nijak učit nehodlám.
Jen když se zadaří, tak bych si z tohoto předmětu ráda připsala pár kreditů.
Je to nepovinný předmět a navíc jsme zřejmě definitivně poslední, kdo má šanci tento předmět navštěvovat. Pan učitel (externista) už na učení nemá čas.
0
Re: OT - dotaz na CAD
Vedle jsi psala, že ti to nechceme nakreslit...namodelovat. Chceme a fakt by mi to zabralo pár minut. Ale problém je, že Venca, co ti slíbil kredity by to poznal.
S AutoCADem nedělám (a nechcu). Takže bych to musel vymodelovat v jiném programu a pak to přes nějaký univerzální formát importovat do AutoCADu. Blbý je, že ty to tam budeš mít jen jako model a nebude tam nikde vidět, jak jsi to dělala... Takže každému hned bude jasné, že je to import....
0
Re: OT - dotaz na CAD
Jo, tohle prostě musíme "vymodelovat" v tom invertoru...
A dobře, chcete mi to namalovat, ale nešlo by to pak použít :o)))
Hele, to mi připomíná kamaráda - ten neuměl kváknout cizí řečí, ale odmítal to cizincům přiznat. Když ho někdo zastavil o radu a ptal se jestli umí anglicky nebo německy, on vždycky že francouzsky a to zase neuměli oni. Tak jim řekl, že holt mají smůlu :o)))
0
Re: OT - dotaz na CAD
Počkej až narazí na francouze:-))
Jo, musíte. Jemu jde hlavně o postup, jak jsi k pulitru došla (pět schodů asi nebere). Nevím jak Inventor, ale třeba Catia, Solid mají historii. Vš e co modeluješ se zaznamenává.
0
Re: OT - dotaz na CAD
Jo, tak to netuším...
Ale tady asi fakt nebude moct možností řešení...
0
Re: OT - dotaz na CAD
Trošku tě poškádlím:-)) Sice to není pulitr, ale ten čas...:-))) A pulitr by byl snad ještě snadnější:-)))
http://www.3epraha.cz/spolecnost/aktuality...
0
Re: OT - dotaz na CAD
Tssss, hladký pohár...
Až do toho budou dělat vytlačené vzory, tak mi řekni :o)))
0
Re: OT - dotaz na CAD
No co? To je nějaká pravidelná ďoura a nabalená na plochu. Otázka 5minut:-)))
0
Re: OT - dotaz na CAD
Omyl, v inventoru se to dělá takhle
- kruh
- pak to zvedneš na vále
- sundáš horní hranu
- stiskneš tlačítko "skořepina" a zadáš tam tloušťku stěny... :o)))
Tahle fáze by šla. Ale jak k tomu přilepit ucho a jak do toho udělat ty půlďůlky, to je otázka...
0
Re: OT - dotaz na CAD
Psala jsi o ťuflíkách...
Ucho uděláš snadno. Tažení po křivce.
Jeden průřez, druhej průřez a mezi tím křivka ve tvaru ucha.
Ťuflíky. V Solidu bych to dělal...jak to vysvětlit, sakra:-)))
Jukni se na youtube....občas tam návody bývají.
0
Re: OT - dotaz na CAD
Jo, ťuflíky, ale dovnitř :o)))
Když to ale nepůjde, tak je udělám ven :o)))
Jako radu poradu nám řekl, že se udělá jeden a pak se tam nastaví Xkrát opakovat...
:o)))
0
Re: OT - dotaz na CAD
No když půjdou ven, musí jít i dovnitř.
Rovina, na ní kruh a z ní kopule, která zasahuje do pulitru. Vzniknou ti dvě tělesa a ty od sebe odečtěš. A pak to jen rozkopíruješ
0
Re: OT - dotaz na CAD
Výborně, jen nemůžu říct, že by se mi touhle radou nějak ulevilo...
Ale předám to mladším mozkům, oni už si s tím poradí :o)))
0
Re: OT - dotaz na CAD
nedaly by sa tie dulky spravit tak ze by si spravila tu skorepinu spravila prienik s valcom (pullitr) a dala to podla nej orezat??
0
Re: OT - dotaz na CAD
Co prosím?!?
Mohl by jsi to říct tak, aby tomu blondýna rozumněla?!?
0
Re: OT - dotaz na CAD
Stejně je musíš vytvořit na válcové ploše tak i tak. Proč je tvořit a pak je odečítat do negativu? Dvojí práce, více času na výpočet...
0
Re: OT - dotaz na CAD
Nevim, jak ten ACAD, ale třeba Solid má funkci kopule. Ale ta funguje asi jen na rovině. Ale mělo by tam někde být aj deformace ve tvaru koule (půlkoule:-) ) a ta by mohla fungovat i na zakřivené ploše (tečně). Jde o to, co umí ten bláznivej ACAD:-)))
0
Re: OT - dotaz na CAD
ja robým iba v AutoCade co sa tyce architektury secko 2D. 3D riesim archicadom a dalsiimy. Ale pointa je ta ze vytvorit teleso ktoré x krat odcítam od nejakej plochy je podla mna jednoduchsie ako kazdy otvor ratat zvlást.
Pre blondinky: Tu kupolu vytvorís ako razítko + valec. Do valca nakopírujes n x kupolu a dás teleso orezat podla kupoly. Malo by to fungovat. Co ide v 2D musí iist aj v 3D akurat tam musiis prerátat 3 suradnicu a uhol pootocenia. A este jedna vec kto tvrdí ze je to kupola ?? Ved podla mna by sa dala pouzid aj gula teda jej vrchlík. a mas to o 2/3 lahsie
0
Re: OT - dotaz na CAD
To, že je něco snadnější udělat tak, že to máš za minutu, neznamená, že je to lehčí pro výpočet.
Každopádně jsme se asi nepochopili, ale postup jsme měli podobný. Já vše udělal tak, jak je dole na těch videích. Pak jsem udělal plochu tečnou na pulitr a na ní udělal primitivum koule. Odečet od pulitru a rotací a posuvem rozmnožil (nikde jsem nepsal, že to budu otvory dělat každý zvlášť...takové jebání nemám rád:-)))). Vše je parametrické. Zkoušel jsem i tvé razítko (v Solidu je deformace) a bylo to na výpočet složitější.
Cest, jak tohle udělat je několik:-))) Jedna cesta vede do hospody se na ten pulitr vůbec podívat:-))) Voni stejně v poslední době všude dávají jen ty hladké:-(
0
Re: OT - dotaz na CAD
presne kazdy ma zauzívane svoje postupi a ist na to inak ho brzdii. Ale to pivko by som si dal :-D
0
Re: OT - dotaz na CAD
Hmmmm, zajímavé...
Díííky
I Michalovi :o)))
0
Re: OT - dotaz na CAD
A je ten pulitr aktuální? Nebo padl a musíš dělat tu pitomost, co jsi psala dole.
0
Re: OT - dotaz na CAD
Samozřejmě, že je to aktuální. Zadání bylo upřesněno takto:
---
Model pullitru v Inventoru
Vymodelujte nadobu - pivni pullitr - dle obrazku na http://3.bp.blogspot.com/_4xqWhLgZcPg... (nahodne vyhledano na Internetu):
Jedna se o klasicky tlustostenny pullitr s ouskem, dekorovany vtlacenymi kulovymi vrchliky v kruhovych radach pod sebou. Vizaz a proporce dodrzte priblizne dle obrazku, pocty dekoracnich vlisu si zvolte. V modelu vymezte vsechny stupne volnosti (pouzijte maximalni mnozstvi vazeb/kot) a plne jej parametrizujte. Vsechny parametry budou zavisle - budou funkcemi jedineho volneho parametru, kterym bude objem. Idealne reseny model tedy po zmene parametru objem, po aktualizaci modelu, prizpusobi cely pullitr tak, aby zachoval prirozene proporce pro zvoleny objem.
Model bude smysluplne reagovat prinejmensim v rozmezi hodnot pro objem 0,25l - 1,0l, pri hodnoceni bude testovan pro hodnoty "male pivo" (0,25l a 0,33l), "pivo" (0,4l a 0,5l) a "tuplak" (1,0l). Pro parametrizaci je mozne (nikoliv povinne) vyuzit pripojeny excelovsky soubor.
Pokud nezvladnete rizeni modelu pouze jednim parametrem, muzete ponechat vice volnych parametru (napr. vyska, prumer, tlousta steny, atd.), nedosahnete vsak plneho bodoveho ohodnoceni.
0
Re: OT - dotaz na CAD
Čooveče, vyšší dívčí:-))) Ale dá se. Jenže když to udělám v jiném CADu než je ACAD, bude ti to stejně skoro k ničemu:-(
Když přijímám studentíky na brigádu, tak jim dávám něco vymodelovat:-) Tohle je docela dobrý nápad:-)))
0
Re: OT - dotaz na CAD
Akorát si uvědomuji, že to zadání je zcestné:-))) Jedním parametrem se to totiž řídit nedá. Objem je krásný parametr a základní, ale kam poroste? Do průměru nebo na výšku??? A jak?
Vstupní parametry by měly být "objem" a třeba "průměr" s tím, že by se výška přizpůsobila.
0
Re: OT - dotaz na CAD
Zadání je zcestné?!?
Tak to ti teda pěkně děkuju...
No, ale nějak to budeme muset zpracovat...
0
Re: OT - dotaz na CAD
Tvar pulitru bych řešil dle tohodle:
http://www.youtube.com/watch?v=j9-PkO_-KfY
Proč né skořepina? Páč skořepinou vytvoříš všude konstantní tloušťku stěny. A co když pánčel bude chtít, aby jsi měla dno silnější než stěnu?
Ucho bych tvořil dle tohodle:
http://www.youtube.com/watch?v=rfDtyzi1h-E&...
Je to vše pro SolidWorks, ale princip je stejnej.
A jdu něco dohledat na ťuflíky.
0
Re: OT - dotaz na CAD
Že ty chceš tu psíčkovou, že jo?!? :o)))
Ale máš na ni nakročeno dobře, jen co je pravda :o)))
Jen doufám, že ti nevadí knedlíky z pytlíku. Domácí já teda umím jen bramborový a ty jaksi k psíčkový...
0
Re: OT - dotaz na CAD
Já někde psal, že raději prase knedlo zelo....:-)
0
Re: OT - dotaz na CAD
No tak dobře, tak prase... Nebo si pán přál tu husičku?!? :o)))
0
Re: OT - dotaz na CAD
Ženskou nechcu....
0
Re: OT - dotaz na CAD
Tak už jsem obdržela zadání...
Docela ftipné...
---
Vytvorte makro ve VBA, ktere vykresli ctverec (s vodorovnou stranou) s
kruznici opsanou a vepsanou, podle nasledujicich pokynu (chcete-li pouzit
jine vyvojove prostredi, jako napr. ObjectARX a C++, nebo C#, muzete).
1. Makro po spusteni vyzve uzivatele pro zadani bodu, ktery bude reprezentovat pravy dolni roh pro ctverec (s vodorovnou stranou). Zadani bodu se bude chovat standardne, napr. jako standardni prikaz AutoCADu pro kruznici pri zadavani jejiho stredu.
2. Po zadani prvniho bodu vyzve k zadani dalsiho udaje, kterym je polomer opsane kruznice. (I zde je preferovane reseni, ktere se bude chovat standardne jako u podobnych prikazu v AutoCADu - v dusledku je mozne rozmer urcit zadanim druheho bodu nebo napr. primo cislem. Pokud toto reseni nezvladnete, pokuste se o alternativni jednodussi reseni. Nejhorsi pripad je pevne zadani souradnic v kodu makra. Kazde zjednoduseni vsak bude mit vliv na bodove hodnoceni zadanni.)
3. Makro vykresli ctverec (s vodorovnou stranou) a do nej kruznici vepsanou
a kolem nej kruznici opsanou. (Nezadane body a rozmery dopocte.)
4. Makro tvary umisti do hladin "ctverec" (cervena barva), "kruznice vepsana" (tmave modra barva) a "kruznice opsana" (fialova barva). Makro si hladiny vytvari samo, pokud neexistuji, a nastavi jim barvy uvedene v zavorkach.
5. Makro na zaver zobrazi MessageBox (okno) s informaci "Obsah vepsane
kruznice je ....", doplneno vypoctenym cislem.
6. Makro (pokud je ve VBA, C# nebo jinem jazyce podporujicim vlastnosti) bude mit a korektne vyuzivat vlastnosti pro polomer opsane kruznice a Obsah vepsane kruznice.
0
Re: OT - dotaz na CAD
Tak hodně štěstí:-)))
V AutoLispu bych to možná ještě zbouchal, ale nevím nevím. Tyhle pitomosti v praxi několik let již nepotřebuji:-)))
0
Re: OT - dotaz na CAD
Ty barvy tam nemají přesné dané hodnoty v RGB :-) Abyste se pak nehádali, jestli tohle je tmavě modrá nebo už tmavší světlá ;-)
Jinak teda takovýhle úkol nezávidím...
0
Re: OT - dotaz na CAD
No ty si taky dobrej pomocník :o)))
0
Re: OT - dotaz na CAD
Taky pozor třeba na vínovou vs bordó :-)))
Pomohl bych rád, ale tohle je už hodně daleko za hranicí mých schopností... Naposledy jsem "programoval" v Basicu a pak nějaké hodně lehké věci v assembleru pro 8080 ;-) CAD, a to jakýkoli, jsem snad nikdy zblízka ani neviděl...
0
Re: OT - dotaz na CAD
Jeslti tě to uklidní, tak já taky ne :o)))
0
Re: OT - dotaz na CAD
Máš to opravdu zapotřebí??
No nejbližší makro je v Budějovicích...
:))
0
Re: OT - dotaz na CAD
Já ti příště ty gastro passy přece jenom přivezu :o)))
0
Re: OT - dotaz na CAD
A nedá s tim pokoj.....
Přivez si to, až pudeš do bazenu a zkus tam s tim zaplatit, pojedeš jak fretka...:))).
0
Re: OT - dotaz na CAD
Jo, bazén... Tam se teď dostanu nejdříve po zkouškovým...
0
Re: OT - dotaz na CAD
A je to... :o)))
Sub test()
Dim opsana As AcadLayer
Dim vepsana As AcadLayer
Dim ctverec As AcadLayer
Dim color As AcadAcCmColor
Set opsana = ThisDrawing.Layers.Add("opsana")
opsana.color = acMagenta
Set vepsana = ThisDrawing.Layers.Add("vepsana")
vepsana.color = acBlue
Set ctverec = ThisDrawing.Layers.Add("ctverec")
ctverec.color = acRed
Dim bod_B As Variant, endPt As Variant
bod_B = ThisDrawing.Utility.GetPoint(, "Pravý dolní roh: ")
endPt = ThisDrawing.Utility.GetPoint(bod_B, "Poloměr opsané kružnice: ")
Dim x_bod_B As Double
Dim y_bod_B As Double
x_bod_B = bod_B(0)
y_bod_B = bod_B(1)
Dim x_endPt As Double
Dim y_endPt As Double
x_endPt = endPt(0)
y_endPt = endPt(1)
Dim dx As Double
Dim dy As Double
Dim polomer_opsana As Double
Dim polomer_vepsana As Double
dx = Abs(x_bod_B - x_endPt)
dy = Abs(y_bod_B - y_endPt)
If dx = 0 And dy = 0 Then
MsgBox ("Body nesmí ležet na sobě")
Exit Sub
End If
polomer_opsana = Sqr((dx * dx) + (dy * dy))
strana = Sqr(polomer_opsana * polomer_opsana * 2)
polomer_vepsana = strana / 2
Dim bod_A As Variant
Dim bod_C As Variant
Dim bod_D As Variant
Dim bod_S As Variant
bod_A = endPt
bod_C = endPt
bod_D = endPt
bod_S = endPt
bod_A(0) = bod_B(0) - strana
bod_A(1) = bod_B(1)
bod_C(0) = bod_B(0)
bod_C(1) = bod_B(1) + strana
bod_D(0) = bod_A(0)
bod_D(1) = bod_C(1)
bod_S(0) = bod_A(0) + strana / 2
bod_S(1) = bod_A(1) + strana / 2
Dim strana_a As AcadLine
Dim strana_b As AcadLine
Dim strana_c As AcadLine
Dim strana_d As AcadLine
Set strana_a = ThisDrawing.ModelSpace.AddLine(bod_A, bod_B)
Set strana_b = ThisDrawing.ModelSpace.AddLine(bod_B, bod_C)
Set strana_c = ThisDrawing.ModelSpace.AddLine(bod_C, bod_D)
Set strana_d = ThisDrawing.ModelSpace.AddLine(bod_D, bod_A)
strana_a.Layer = "ctverec"
strana_b.Layer = "ctverec"
strana_c.Layer = "ctverec"
strana_d.Layer = "ctverec"
Dim kruznice_vepsana As Variant
Dim kruznice_opsana As Variant
Set kruznice_vepsana = ThisDrawing.ModelSpace.AddCircle(bod_S, polomer_vepsana)
Set kruznice_opsana = ThisDrawing.ModelSpace.AddCircle(bod_S, polomer_opsana)
kruznice_vepsana.Layer = "vepsana"
kruznice_opsana.Layer = "opsana"
Dim obsah_vepsane As Double
obsah_vepsane = polomer_vepsana * polomer_vepsana * 3.14159
MsgBox ("Obsah vepsane kruznice je " & obsah_vepsane)
End Sub
A když se to spustí, tak to nakreslí tohle:
0
Re: OT - dotaz na CAD
Co to je??
Dali ti na to nějaký prášky??
:))
0
Hledám: Cyklovyjížďky na e-kole
Hledám: Nejen z mého kraje - parťačku nejen na kolo :-)
Hledám: Parťáka nejen na kolo
článků a fotografií je dovoleno pouze se svolením NaKole, o.s. a s uvedením zdroje.
NaKole.cz se právě projíždí
Kazachstán a Kyrgyzstán 2022 - 11. část
Kolečko se uzavírá Ještě v Kazachstánu jsme byli tak trochu celebrity. „Zdrastě, jak se máte? Viděl jsem vás…
Dámská 2024 – jezero Milada, Děčínský Sněžník, Ploučnice, Husí cesta a z Roudnic
Začínáme další desítku naší tradiční Dámské, dlouho jsme nevěděly kam vlastně pojedeme a kdy pojedeme. Radka…