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 Jakub Švejda (Kubas) řazené podle témat. Kliknutím na název téma se zobrazíte celou diskusi.

TémaZaloženoOdpověď
Čáry ohybu a broken view 1.11. 2017 Uživatel cituje z příspěvku #6357:
'Nemůže to ovlivnit nastavení, stejně jako se musí zapnout promítání pohledů s přerušením (použiji "Broken View" na Front view a poté generuji přes "Projection View" další pohledy)?'

Promítání pohledů s přerušením, zmiňuji nezávisle na problému se kterým bylo založeno toto téma.

V nastavení se dá určit, zda se promítne přerušený pohled nebo poheld bez přerušení. Tak mne napadlo zda to není podobné u přerušení čar ohybu.
 
Čáry ohybu a broken view 1.11. 2017 Dobrý den,
děkuji za reakci.

Nemůže to ovlivnit nastavení, stejně jako se musí zapnout promítání pohledů s přerušením (použiji "Broken View" na Front view a poté generuji přes "Projection View" další pohledy)?

Modely mám dva, konstrukční a technologický. Konstrukční je čistě z SMD, technologický má prvky z PartDesign. Přerušení rozvinutého pohledu dopadne z obou stejně.

Přikládám odkaz kam jsem nahrál oba modely, pokud by jste se na ně chtěl podívat:
Modely

 
Aktuální datum a jméno designera do výkresu 6.11. 2017 Děkuji za reakci, zkusil jsem, snad jsem pochopil správně, ale výsledek je stále stejný. (Viz. orázek v příloze) 

    Dim Datum

    Sub ZjisteniDatumu()

        Datum = Today

    End Sub

Zapsání do razítka: 
        'Pole zmen - DatumVytvoreniA

        myTextDatumVytvoreniA = MyDrawingViews.ActiveView.Texts.Add(Format(Datum, "yyyy-mm-dd"), 368.5, 36)

        myTextDatumVytvoreniA.SetFontSize(0, 0, 1.5)

        myTextDatumVytvoreniA.Name = "TextDatumVytvoreniA"



        'Pole zmen - DatumOvereniA

        myTextDatumOvereniA = MyDrawingViews.ActiveView.Texts.Add(Format(Datum, "yyyy-mm-dd"), 383, 36)

        myTextDatumOvereniA.SetFontSize(0, 0, 1.5)

        myTextDatumOvereniA.Name = "TextDatumOvereniA"



        'Pole zmen - DatumSchvaleniA

        myTextDatumSchvaleniA = MyDrawingViews.ActiveView.Texts.Add(Format(Datum, "yyyy-mm-dd"), 397.5, 36)

        myTextDatumSchvaleniA.SetFontSize(0, 0, 1.5)

        myTextDatumSchvaleniA.Name = "TextDatumSchvaleni"


Google zatím neporadil, nejspíše se špatně ptám. Zkusil jsem to tady, zda se tím někdo nesetkal.
Aktuální datum a jméno designera do výkresu 5.11. 2017 Dobrý den,
mám dotaz k tématu aktuálního data na na výkres pomocí makra.

Potřebuji datum ve formátu yyyy-mm-dd, použil jsem: 

Dim Datum

    Sub ZjisteniDatumu()

        Datum = Format(Today, "yyyy-mm-dd")

    End Sub

Bohužel do razítka se dostane jen 2017-00-05, nevíte proč se mi nechce vypsat měsíc? Pokud použiji Datum = Today, vypsání proběhne správně: 05.11.2017, jenže potřebuji výše uvedený formát.

Ve VBA jsem úplný začátečník, nejspíš mi uniká jen nějaká banalita, mohl by mě prosím někdo popostrčit ke správnému výsledku.

Děkuji
 
Create technological results 26.3. 2018 Jeden problém tu je, díry z PartDesingu nejsou vidět na rozvinu. To je asi dané uvnitř v programu, že Technological Result ignoruje Hole v SMD, že?

Další problém je s použitím Recognize, který vyruší TR (viz. přiložený obrázek). Úspěšně se TR vytvoří v Body.2, ale to není vidět na výkresu.

Neexistuje jiná možnost k přenosu informace o závitech?
Create technological results 26.3. 2018 Dobrý den,
prosím o pomoc dělám něco špatně když mi TR nefunguje na Sheetmetalu? Nebo je tato fce pouze pro Part Design?

Děkuji za odpověď.