Dobrý den,

tohle je jednoznačně úkol pro makro. Pokud máte PDM/PLM, bývá toto většinou součástí integrace do CATIA, ale lze i pomocí makra. Jak píše kolega Doležal, informace většinou bývají uložené v parametrech (výkresu nebo partu/sestavy) a jde jen o to, dostat je to textů v razítku.

Pro představu ukázka již hotové řešení (na obrázku), kde se dá nakonfigurovat přenos atributů do razítka (kromě přenosu to zvládne i změnu formátu výkresu). Výhoda tohoto je, že se dá použít na již existující razítko a parametry.

Napsat makro na vyplnění USERNAME a DATE je otázkou několika desítek minut, pokud nebudete řešit všechny detaily toho co může nastat - spuštění makra mimo CATDrawing, více sheetů, verze Catie, apod......
Pokud budete chtít i stabilitu od makra a třeba i postihnout více listů a více druhů rámečků, apod... tak musíte řešit šiřší kontext a zde už to bude spíše několik hodin, protože je třeba si i minimálně vyjasnit zadání s tím, co všechno očekáváte od makra.
Pokud se do toho budete chtít dát sám, tak to není zas až tak složité a za pomoci tohoto fóra byste to asi dal i dohromady. Zásadní jsou asi tyto věci

'uživatel:

Set wshNet = CreateObject("WScript.Network")

strUzivatel = wshNet.UserName

'datum pomocí funkce

mujdatum = Date

'a už jde jen o to nasypat údaje Do CATIE:

drwAutor, drwDate As DrawingText

drwAutor.Text = strUzivatel

drwDate.Text = mujdatum

Myslím si, že ukecat vedoucí, vzít si do firmy na týden brigádníka co umí VBA by nemuselo být tak těžké. Ev. si zaplatit makro od externisty (DPP) a následně si jej už jen samostatně udržovat. Pokud je makro již hotové, tak jej pochopit a obstarávat už není zas tak těžké. Většinou jde jen o to poupravit Reference při změnách Releasu Catie a změnách šablony výkresu. Ev. se poptejte, kolik by za to vedoucí byli ochotni dát a třeba Vám někdo tady na fóru makro do nějaké částky udělá. Za mě dostat jedním tlačítkem jméno uživatele a datum do výkresu je úspora cca 20sec. To je údaj, který se dá přepočíst na roční úsporu.

Uživatel odpovídá na příspěvek #6264:

Ano, přesně tak jak píšete. Ale k makru. Pustil jsem se do toho. Nadefinoval jsem jméno textového pole na drwAutor viz příloha. Opsal kód, viz víše do makra a zakončilo to chybou

Language="VBSCRIPT"

Sub CATMain()

'uživatel:

Set wshNet = CreateObject("WScript.Network")

strUzivatel = wshNet.UserName

'datum pomocí funkce

mujdatum = Date

'a už jde jen o to nasypat údaje Do CATIE:

drwAutor As DrawingText

drwDate As DrawingText

drwAutor.Text = strUzivatel

drwDate.Text = mujdatum

End Sub

Samozřejmě, takhle snadno to nelze. Kód je jen ilustrativní...

K objektu textu se musíte nejprve nějak dostat. Vidím, že jste úplný začátečník :-)

Adresování testu vypadá nějak takhle:

oDrwRoot = CATIA.ActiveDocument.DrawingRoot ' root vykresu

oSheet = oDrwRoot.Sheets.Item("nazev listu" / poradi v kolekci) ' objekt listu

oView= oSheet.Views.Item("nazev pohledu" / poradi v kolekci) ' objekt pohledu

oText = oView.Texts.Item("nazev pohledu" / poradi v kolekci) ' objekt textu

oText.Text = "pozadovana hodnota" ' a konecne vlastni prirazeni hodnoty

Jde to i jinak, ale pokud nemáte zkušenosti OOP, bude chvíli trvat než na to přijdete a hlavně tápat v objektech, protože ten idi.otský integrovaný editor nemá nic jako zvýrazňování syntaxe, kontrolu chyb, intelisense....zkrátka to, co nabízí třeba VisualStudio.

PS: Upřímně nechápu to obhajování nákladů na pořízení makra, když se pak někdo, kdo tomu moc nerozumí, snaží něco vytvořit sám. Proti snaze se nedá nic říct, ale když se nad tím stráví třeba týden (a to vám garantuju, že za den to neuděláte a pak to stejně budete x-krát dolaďovat, až začne lidem díky neošetřeným chybám padat Catie), jsou náklady na zakoupení často stejné, ne-li nižší než vlastní vývoj (týden práce konstruktéra je pro firmu nákladově +/- 15-18tisíc).

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

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.

Pokud se nepodaří pomocí funkce Format, tak je možno si složit řetezec bez funkce. Myslím, že jde použít:

Dim Datum As DateTime

Dim rok, mesic, den As Integer



rok = Datum.Year

mesic = Datum.Month

den =  DateTime.Day



vyslednystring = rok.ToString & "-" & mesic.ToString & "-" & den.ToString

ale fci Format běžně používám bez problémů

 msgText = msgText & Format(DateTime.Now, "dd MMMM yyyy")