Vítejte !   Přihlášení | Registrace
Hledat
Hlavní menu
CATIA fórum.cz
Novinky
Seriál CATIA
Obecně o CAD
Novinky ze světa DS
Makra pro CATIA V5
Diskuse
Základy Catia
Ke stažení
Doporučujeme
Pracovní příležitosti
Reklama a kampaně
O fóru
Vznik a historie
Statistiky
Přehledy
Hledat na fóru
Nápověda

Seznam příspěvků uživatele

V tabulce jsou všechny příspěvky uživatele Michal Nytra (Michalnytra) řazené podle témat. Kliknutím na název téma se zobrazíte celou diskusi.

TémaZaloženoOdpověď
Konfigurace-deformovaná/nedeformovaná 3.6. 2019 A neměl byste k tomu prosím nějaké video, kde by to bylo vidět step-by-step? Z toho popisu totiž nejsem úplně moudrý, ještě nejsem v CATII tak daleko.
 
Rovnice souřadnic bodu v makru 29.1. 2018 Děkuji za odpověď. Rekordér píše právě Vámi výše zmíněný příkaz, jeho syntaxi jsem ale úplně nepochopil, takže jsem se to snažil nějak obejít.
GetZDirection funguje bez problémů, výsledkem je rovina xy. Bohužel, funkce Helix neumožňuje jako volbu směru šroubovice rovinu, resp. její normálu.
Rovnice souřadnic bodu v makru 28.1. 2018 Tak už jsem objevil způsob 


Dim hybridShapePointCoord1 As HybridShapePointCoord



Dim parameters1 As Parameters

Set parameters1 = part1.Parameters



Dim relations1 As Relations

Set relations1 = part1.Relations



If (MirrorWidth = True) Then

    Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(diameter / 2, 0, width / 2)

Else

    Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(diameter / 2, 0, width)



End If

hybridShapePointCoord1.Name = "Helix_start_point"

hybridShapePointCoord1.RefAxisSystem = reference1



hybridBody1.AppendHybridShape hybridShapePointCoord1



part1.Update



Dim formula1 As Formula

Set formula1 = relations1.CreateFormula("Formula.4", "", hybridShapePointCoord1.x, "pitch_circle / 2")



Dim formula2 As Formula

If (MirrorWidth = True) Then

    Set formula2 = relations1.CreateFormula("Formula.5", "", hybridShapePointCoord1.z, "width / 2")

Else

    Set formula2 = relations1.CreateFormula("Formula.5", "", hybridShapePointCoord1.z, "width")



End If


A mohl se prosím ještě zeptat na způsob, jak do reference vložit osu souřadného systému, např. osu Z? Kód níže nefunguje 


Dim axisSystems1 As AxisSystems

Set axisSystems1 = part1.AxisSystems



Dim axisSystem1 As AxisSystem

Set axisSystem1 = axisSystems1.Item("Absolute Axis System")



Dim reference3 As Reference

Set reference3 = part1.CreateReferenceFromObject(axisSystem1.GetZAxis)
Rovnice souřadnic bodu v makru 28.1. 2018 Dobrý den,

a jak se prosím mohu odkázat na souřadnice vytvořeného bodu, abych mohl správně zadat řízený parametr? Rovnici jsem zvládl vytvořit např. pro velikost vysunutí, ale s bodem a souřadnicemi si nevím rady
 
Multi Section Body 15.9. 2017 Děkuji za radu s tím scaling. S catií teprve začínám, takže ještě neznám všechny funkce, protože doteď jsem pracoval v SolidWorks nebo Inventoru.

Ten kužel byl zvole z toho důvodu, že vytvoření obrázku netrvalo ani minutu :D
Multi Section Body 12.9. 2017 Ale zubová mezera má bok zubu evolventu. Největší šířka zubové mezery je na vnější površce a vodící křivky se protínají ve vrcholu roztečného kuželu.
Multi Section Body 12.9. 2017 Jak to přesně myslíte? Moc tomu nerozumím
Multi Section Body 12.9. 2017 Děkuji, to bylo jen pro ilustraci.
Konkrétně bych to chtěl aplikovat na tvorbu kuželového ozubení, kde se boční křivka zubu z vnějšího kuželu soustředí do vrcholu kužele.
 
GSD-Excel 11.9. 2017 A v jste už takový algoritmus, který prochází data souřadnic, tvoří body a případně jimi proloží křivku, používal?
GSD-Excel 11.9. 2017 Soubor *.xls, který má křivky vytvořit, je přímo od DS (viz příloha).
Cíl je takový, že si na základě vlastního algoritmu vypočítám souřadnice bodů, které tvoří boční křivku zubu ozubeného kola. Ten bude vytvořený v libovolném jazyce (zatím je v matlabu, ale posléze bude v javě nebo jiném jazyce). Souřadnice mi algoritmus uloží do textového souboru nebo excelu a na základě těchto dat bych vytvořil křivku/křivky.
Určitě by se algoritmus dal pak převést do aplikace, která by byla vytvořena jako form app v CATII, jedná se jen o převedení metod do správné podoby pro basic.
 
UserRefProperites 6.9. 2017 Dobrý den, děkuji. A univerzálním přístupem se ke konkrétnímu parametru dostanu jak? Takto? 




Dim Params As Parameters



Params = oDocument.Product.UserRefProperties.Item("nazev parametru")
 
Svary-velikost značek 27.8. 2017 Dobrý den, problém se značkami vyřešen. Bylo nutné změnit parametry fontu, tzv. Ascend a Descend. Po změně na hodnoty např. písma Arial jsou značky vpořádku.
 
Úprava fontu 18.8. 2017 Tohle přesně jsem neměl na mysli, myslel jsem spíš ikonu do horní lišty okna user form aplikace (tam kde je minimalizovat, zvětšit a křížek). Všíml jsem si, že v aplikaci na úpravu vlastností ikonu v liště máte.
Úprava fontu 17.8. 2017 Dobrý večer,

mohu mít dotaz? Ta aplikace vznikla ve VBA? Jak se Vám prosím podařilo umístit do lišty ikonu?
Úprava fontu 13.8. 2017 Ještě jsem se nestihl rozkoukat. Já si ten CATScript upravil pro školní standard a dále si ještě napsal aplikaci, která mi doplní ještě některé věci jako drsnost, tolerance, poznámky nad razítkem atd.
Úprava fontu 13.8. 2017 S tímhle jsem se ještě nesetkal, nevím, co přesně ty "detaily" jsou, teprve s Catií začínám. Ale říkal jsem si, že když jde do texu ve výkresu dát Part Number, což je tak udělané ve frame and title block od DS, tak by to stejné mělo jít i s uživatelem definovanou vlastností typu string.
Neposlal byste mi prosím nějaký tutoriál k tomu katalogu textů?
Úprava fontu 12.8. 2017 Dobrý den,

vyzkouším tedy ve Vámi zmíněném softwaru upravit nějaký znak, který lze postrádat. Dělám to totiž z důvodu automatizace, chci totiž vytvořit userform aplikaci, kde budu moci navolit polotovar právě pomocí znaků a hodnot, vypíše se do text boxu a ten budu moci vložit do vlastnosti součásti a napojit na text ve výkresu.
 
CatiaV5 - save as *.pdf 29.3. 2019 Dobrý den, jde nějak nastavit, aby při použití Save as PDF byly za textem rámeček, např. když je kóta přes šrafování? Při tisku z virtuální tiskárny se rámeček objeví, ale kvalita textu je značně snížena.