Seznam příspěvků uživatele

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

Téma	Založeno	Odpověď
Nula pro řetězovou kótu a propojení razítka s modelem	5.5. 2023	.. tak třeba ten font v sekci Styles/Text/Default/Font/Name a šipky Styles/Arrow

Nula pro řetězovou kótu a propojení razítka s modelem	4.5. 2023	http://www.catia-forum.cz/articles/?article_id=160
Nula pro řetězovou kótu a propojení razítka s modelem	4.5. 2023	... tak například tady:
Nula pro řetězovou kótu a propojení razítka s modelem	4.5. 2023	... jinak pokud to chcete změnit přímo v xml souboru, tak jo jsou tyto řádky: <std:node name="CUMLZeroDisplay"> <std:intval>1</std:intval> </std:node> , kde se musí změnit volba na 2.
Nula pro řetězovou kótu a propojení razítka s modelem	4.5. 2023	... máte opravdu Catia v admin modu - nahoře musí být titulek Catia V5 Administration Mode viz. obr. Pak jako mně, to jde editovat.
Nula pro řetězovou kótu a propojení razítka s modelem	4.5. 2023	Uživatel odpovídá na příspěvek #7124: ... pustit Catia v admin modu.
Nula pro řetězovou kótu a propojení razítka s modelem	4.5. 2023	... tak koukám, že jsem odpověděl pozdě. Já si to připravil před obědem a teď jsem si nevšiml, že pan Cinert už to našel :)
Nula pro řetězovou kótu a propojení razítka s modelem	4.5. 2023	Dobrý den, koukal jsem na to a předpokládám, že to bude ve standard volba viz. obr. Co se týká provázání razítka výkresu s partem, tak doporučuji vytvořit makro, které např. z aktivního view chytí název partu, v něm najde potřebné informace např. z parametrů a je použije na aktualizování textů v razítku. Takové relativně jednoduché makro jsem dělal a funguje jaká má :).

Knihovny release 2022	3.3. 2023	Děkuji. Ted už je mi to jasné. Toho Tooltip u COM refernces jsem si vůbec nikdy nevšiml. Já jsem vždy je checkoval dané knihovny a nenajel myší na daný název knihonvy :)
Knihovny release 2022	2.3. 2023	.. děkuji moc. Ještě se prosím zeptám. Je ta registrace knihoven nutná? Pokud byla na PC např. jen verze R28 a nyní se doinstalovala verze R32, tak se automaticky zaregistrovaly knihovny z poslední verze. Nebo tomu tak není? A druhý dotaz. Pokud už jsou registrovány nové knihovny, tak stačí u starých projektů ve VS dát v references na knihovny remove a pak zase add pro nahrání nových knihoven? Pokud už máte připravený balíček knihoven a jste ochoten mi ho sdílet, tak bude rád. Děkuji
Knihovny release 2022	1.3. 2023	.. tak na první bod jsem již přišel. Knihovna se jmenuje CATGSMIDLItf :)

Nastavení hodnoty dle volby parametru typu String	14.7. 2021	Dobrý den, další možnost je také ve skeletonu vytvořit design table ze kterého se nalinkují parametry. Něco hodné podobného jsme měli u nás také vytvořené a fungovalo to OK. Sice jsem to nakonec předělal jako externí makro, ale jen z důvodu, že při práci s naším PLM systémem se musí XLS tabulka design table ukládat jako samostatný dataset.

Makro Constraints	23.4. 2021	Děkuji za radu. Zkusím to ještě nějak vyzkoušet.

Licence Catia offline	17.3. 2020	... tak se omlouvám za chybnou část dotazu. Zjistil jsem, že chycení licence pro offline použití je asi možné u všech licencí, ale podmínkou je, že daná licence není právě používána.

Logování chybové hlášky	18.12. 2019	Dobrý den, ten log mi celkem vyhovuje, protože u nás ve firmě používá moje aplikace cca 20 kolegů, ale všichni mi neříkají, že jim vyskočila chybová hláška. Pokud se, ale tyto chyby archivují do logu na síti, tak mám pak možnost kouknout, proč aplikace nefungují optimálně a mám pak možnost úpravou kódu předejít podobným chybám - pádům aplikace. Na ten universální rutinu jsem koukal včera na nějakém anglickém fóru, ale zatím jsem to nepochopil, jak na to :)

Sketch / Unable to cast COM	18.12. 2019	Ještě bych se prosím zeptal. Víte, jak se nechá poznat ve windows jaké jsou aktuálně zaregistrované knihovny - tím myslím, pro jaký release Catia? A druhý dotaz - myslíte, že pokud použiji Vaše knihovny, ale my máme R28SP4 tak může být problém? Děkuji.
Sketch / Unable to cast COM	18.12. 2019	Děkuji moc. Určitě to vyzkouším. Jen si nejsem jistý, že to pomůže na můj problém. Pokud by chyby u řádku se sketch vyskočila pokaždé, tak bych tomu rozumněl, ale pokud to několikrát projde a pak zase ne, tak nevím.
Sketch / Unable to cast COM	18.12. 2019	.. ještě náhled na references k dané aplikaci.
Sketch / Unable to cast COM	18.12. 2019	Dobrý den, děkuji za rychlou reakci. Abych se přiznal, tak s těmi knihovnami celkem bojuji tj. ani nevím jak poznat, jaké knihovny aktuálně aplikace používá. Měli jsme R2016 tzn. ve windows byly zaregistrovány tyto knihovny. Pak se doinstalovala R2018 tj. ve windows jsou nové tyto knihovny. Při vytváření aplikace např. v R2016 se aktuální knihovny nakopírují do ....\obj\Debug\. Jak se vlastně správně překompiluje pak aplikace na nový release? To stačí otevřít danou aplikace ve VS a pak spustit znovu Build Solutions?

Startcommnad Reframe ON	4.12. 2019	.. to je zajímavé. My máme R28 SP4 BN 28 - že by to bylo tím?
Startcommnad Reframe ON	4.12. 2019	.. ono to vlastně jde vyzkoušet přímo v Catia. Když mám aktivní vrcholovou sestavu (+označený nějaký part) a do příkazového řádku vpravo dole napíši c:Reframe on, tak dostanu chybovou hlášku. Pokud se přepnu do nějakého partu a nechám nějaký označený a zase vložím daný příkaz, tak je vše OK.
Startcommnad Reframe ON	4.12. 2019	Dobrý den, tak to je zvláštní. Máte prosím následující postup: 1) oSelection.Add(nějáký part v sestavě) 2) příkaz CATIA.StartCommand("Reframe On") ?? Jiné příkazy jako např. CATIA.StartCommand("CATCafCenterGraphOnCSOHdr") fungují, jen u toho Reframe On je problém. Děkuji.

Změna hybridního designu za NEhybridní design v již hotovém partu	13.5. 2019	Hezký návod jak to udělat je např. tady: [URI]https://catiatutor.com/listing/conversion-of-hybrid-to-non-hybrid-environment/[LINK] ale v principu je to postup, který popsal pan Cinert.

Existing Component ze šablony	25.6. 2018	... pokud to jde jinak, tak bych osobně příkazy typu CATIA.StartCommand nevolil, ale např.: Dim oProduct As Product oProduct = oSelection.Item(1).Value Dim var1 ( 0 ) var1 ( 0 ) = "... cesta.... " oProduct.Products.AddComponentsFromFiles var1, "All"

Měření středu edge	24.10. 2017	Dobrý den, tu malou korekce jsem chtěl vymazat, ale nějak mi to nejde. Až teď jsem si všiml, že pan Cinert položkou Part.2 myslel další instanci v řetězci a ne název partu.
Měření středu edge	24.10. 2017	Dobrý den, děkuji moc za radu. Nakonec jsem to dal dohromady, ale je to hrůza - ta délka řetězce pro vytvoření reference. Jinak jen malá korekce - tvar je: `Product1/Part2.1/!(nazev ve tvaru BRep)`. Tj. Partnumber se do řetězce nedává. Díky.

Vytvoření surface	18.10. 2017	Dobrý den, děkuji za reakci. S tou externí referencí mě to také napadlo, takže jsem odškrtl v options Restrict external selection with link to PE. I tak mně to nefunguje. Cesta přes Copy není pro mě schůdná, protože potřebuji opravdu jen označené faces na solidu a s těmito konkrétníma dále pracovat. Myslel jsem si, že by mělo jít něco jako, když se přepnu do cílového partu, zaškrtnu volbu Create Datum a vytvořím přes extract rovnou odizolovaný surface (označený na solidu jiného partu).

Stisk klávesnice - Key press	7.2. 2017	... a tak se mi to nakonec podařilo vyřešit. Pořád jsem sledoval diskuze okolo RegisterHotkey, to se mi ale pořád nedařilo rozchodit. Nakonec jsem našel něco, co po lehké úpravě bezva chodí viz. kód: Imports System.Runtime.InteropServices Imports System.Windows.Forms <DllImport("user32.dll")> _ Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short End Function a pak někde ve sub procedůře (např. pro space klávesu): Do If GetAsyncKeyState(Keys.Space) <> 0 Then Exit Do End If Loop
Stisk klávesnice - Key press	1.2. 2017	Dobrý den, tak s tou konzolou to není vůbec ideální. Já potřebuji, aby script zastavil, uživatel s modelem zatočil a něco zkontroloval a pak po stisku tlačítka script pokračoval. Tím pádem není ani možné předání focusu, protože nevím, kdy uživatel dokončí kontrolu. Nyní to řeším přes SelectElement2, kdy uživatel po kontrole klikne třeba na Body ve stromě. Sice to funguje, ale mnohem pohodlnější by bylo právě stisknutí klávesnice. Určitě by mělo i jít chytit presskey globálně pro celý windows, ale nevím jak na to :)
Stisk klávesnice - Key press	31.1. 2017	Dobrý den, děkuji za radu. Nicméně já konzolu hned na začátku scriptu nechávám schovat, aby "neobtěžovala" uživatele. Pokud by, ale neexistovala jiná možnost, tak bych schování konzole vynechal a zvolil třeba daný způsob.

Vytvoření obálky sestavy	13.1. 2017	To jsem přesně udělat, ale jelikož má sestava cca 500 komponentů, tak samotné sjednocovaní bodies přes boolovské operace trvalo velmi dlouho, tak i vytvoření resultu s daného sjednoceného Body. Trvalo to skoro hodinu a step pak měl 0,5 Gb přitom step uložený přímo se sestavy má necelých 100 Kb. Nakonec jsem dané řešení pro tuto chvíli použil, ale do budoucna bych chtěl najít jiné řešení.
Vytvoření obálky sestavy	13.1. 2017	Děkuji za radu. Nicméně jsem ještě nezmínil, že jsme nuceny zasílat data ve formátu STP (oni mají více software, kde to otevírají) a pokud uložím sestavu do wrl, cgr nebo 3dxml, tak pak nejsem schopný dané facety uložit do STP. Za další zůstává i stromová struktura z Catie a já bych si představoval výstup sestavy jako jeden part - jeden feature.

Poloha textu ve draw	14.10. 2016	Děkuji moc radu. Ještě mi nedaří vytvořit referenci po 2D bod, abych prošlo GetCoordinates. CATIA.StartCommand("Duplicate Geometry") oSel.Clear() oSel.Search("Type=Point,all") Dim oPoint2D As Point2D = oSel.Item(1).Reference oPoint2D.GetCoordinates(oCoord2) 4. řádek háže chybu.

Excel kusovník z vyplněných parametrů v partech - jak?	10.2. 2016	Dobrý den, co se týče dalších atributů, tak opravdu jen přes funkci Added Properties. Ty se samozřejmně dají namáhavě u každého partu vytvořit ručně, popř. použit startovací model s již vytvořenými atributy. My máme u každého partu cca 6 atributů a ty vytváříme makrem (viz. obr.) při založení nového partu - makro vytvoří nové atributy, nabídne seznam povolených názvů, atd.... Zde si dovolím, ale tvrdit, že žádné makro není univerzální a musí být vytvořeno pro konkrétní požadavky - já jsem ho také vytvářel přesně podle našich představ. Makro zároveň vytvoří i v partu parametry, které přes formule spojí s novými atributy a jejich hodnoty se pak hned objevují ve stromě. Kusovník do excelu jde také samozřejmně přes makro, popř. přes Bill of Material, kde se v Define formats nechají definovat všechny požadované sloupce včetně nových atributů.

Added Properties	8.2. 2016	Děkuji za rychlou reakci. Já pro uživatele Catie to mám "vychytané" přes makro, kde se vyplňují všechny pole properties včetně added properties. Tam makro konce řádků nahrazuje jedním znakem a po opětovném spouštění sciptu zase znaky převede na konce řádků. Problém je, ale s ukládáním do PLM systému, kde se vše uloží do jednoho řádku a je to pro další oddělení velice nepřehledné. Matně si vzpomínám, že někdo používal nějaký special znak - takový malý čtvereček v horní části textu - ale nevím teď jak ho napsat - ale šance, že by to s ním fungovalo, je asi malá ....

Načtení JPG náhledu z CATPart souboru	5.1. 2016	Dobrý den, velmi zajímavý script. Ani jsem nevěděl, že catpart má v sobě již ukrytý previw. Nevíte, zda-li se nechá někdě v catii implicitně nastavit rozlišení danéno preview? Aktuální vlastnosti preview viz. obr.. Potřeboval bych dané rozlišení zvětšit! Děkuji.

Vb net Hole	8.1. 2016	Tak konečně. Problem byl opravdu jen v tom, že Hole neměl deklaraci. Jinak LimitMode funguje jak s catUpToPlaneLimit tak s catUpToSurfaceLimit. Ve VBA ta tak taky bylo. Mockrát děkuji.
Vb net Hole	7.1. 2016	Pořád jsme bohužel na tom stejně. Typ je tedy object. Ve space je jeden part (v příloze) - pad ve kterém je Hole-Blind(neprůchozí) - spustím script (označím hole a pak označenou plochu jako limitu) a zase stejná hláška viz. začátek (na řádku ....=oLimit)(Member not found). Celý script v Console Aplication: Imports INFITF Imports MECMOD Imports PARTITF Module Module1 Dim oDoc Dim CATIA As Application Sub Main() CATIA = GetObject(, "CATIA.Application") oDoc = CATIA.ActiveDocument Dim oSelection = oDoc.Selection Dim ObjSel(0) ObjSel(0) = "Hole" oSelection.SelectElement2(ObjSel, "dira", False) Dim oHole = oSelection.Item(1).Value oSelection.Clear() Dim oLimit As Object Dim ObjSel2(0) ObjSel2(0) = "BiDimInfinite" oSelection.SelectElement2(ObjSel2, "face", True) oLimit = oSelection.Item(1).Value oHole.BottomLimit.LimitMode = CatLimitMode.catUpToPlaneLimit oHole.BottomLimit.LimitingElement = oLimit oDoc.Part.Update() End Sub End Module
Vb net Hole	7.1. 2016	Děkuji. Zatím mi to pořád nejde. Zkusil jsem udělat úplně nový projekt s vaším scriptem, ale mám problém s deklarací oLimit. Viz. hláška. Jaké musím mít naiportované knihovny? Já mám nyní: Imports INFITF Imports MECMOD Imports PARTITF
Vb net Hole	6.1. 2016	Zkusil jsem místo k ploše jako limit použít rovinu XY, viz.: Dim originElements1 = oPart.OriginElements Dim oPlane = originElements1.PlaneXY Dim oRef = oPart.CreateReferenceFromObject(oPlane) oLimit = oHole.BottomLimit oLimit.LimitMode = PARTITF.CatLimitMode.catUpToPlaneLimit oLimit.LimitingElement = oRef ale pořád stejná hláška. Ach, jo.
Vb net Hole	6.1. 2016	CATUpToSurfaceLimit take nefunguje - viz. stejná hláška Member not found. Recorder jsem zkusil a hodnoty mám stejné - skoro stejný script, když pustím ve VBA, tak jde OK, ale tady ve vb.net to za nic neprojde? Je jedno, zda-li se napíše: oLimit.LimitingElement = LimitFace nebo oLimit.LimitingElement(LimitFace) ?
Vb net Hole	6.1. 2016	Jsem v part designu - part v samostatnem oknu. Reference je asi v pořádku. Zkusil jsem: Dim Thickness = oShapeFactory.AddNewThickSurface(LimitFace, 1, 5, 5) a thickness se provedl korektně. K té referenci - já jsem něvěděl, že jde použít u oSelection.Item(1) hodnota Reference, tak jsem to složitě nahrazoval přes CreateReferenceFromBRepName.
Vb net Hole	6.1. 2016	Děkuji za radu. Zkusil jsem změnit na: Dim LimitFace = oSelection.Item(1).Reference ............ oLimit.LimitingElement(LimitFace) ale u posledního řádku dostanu hlášku viz. příloha.
Vb net Hole	6.1. 2016	Dobrý den, ještě mám prosím problém s přiřazením reference k ButtomLimit - catUpToPlaneLimit. Ve VBA to chodilo přes příkaz: oBottomLimit.LimitingElement = LimitFace . Ve vb.net mám script, kde vyskočí chyba na posledním řádku (nevím také, zda-li musím vytvářet referenci LimitFaceRef - ve VBA stačilo jen LimitFace): Status = oSelection.SelectElement2(InputObjectType, "Select limit face", True) If (Status = "Cancel") Then Exit Sub Dim LimitFace = oSelection.Item(1).Value oSelection.Clear() oBrepDelka = Len(LimitFace.DisplayName) oBrepKorekce = InStr(LimitFace.DisplayName, "(") oBrepName = Microsoft.VisualBasic.Left(LimitFace.DisplayName, oBrepDelka - 1) oBrepName = Microsoft.VisualBasic.Right(oBrepName, Len(oBrepName) - oBrepKorekce) Dim LimitFaceRef = oPart.CreateReferenceFromBRepName(oBrepName, LimitFace.Parent) '***************************************************** Dim oHole Dim oLimit Dim oDiamater Dim oVisProperty oHole = oShapeFactory.AddNewHoleFromRefPoint(oVertex, FirstFace, 10) oHole.Type = PARTITF.CatHoleType.catCounterboredHole oHole.AnchorMode = catExtremPointHoleAnchor oHole.BottomType = PARTITF.CatHoleBottomType.catTrimmedHoleBottom oHole.ThreadingMode = PARTITF.CatHoleThreadingMode.catSmoothHoleThreading oDiamater = oHole.Diameter oDiamater.Value = oPrumerM oDiamater = oHole.HeadDiameter oDiamater.Value = oPrumerV oLimit = oHole.BottomLimit oLimit.LimitMode = PARTITF.CatLimitMode.catUpToPlaneLimit oLimit.LimitingElement(LimitFaceRef) Děkuji moc za radu.
Vb net Hole	16.12. 2015	Děkuji moc. Už to chodí.

Spojitá křivka v DXF	14.12. 2015	Stejný problém jsme také řešili. Nakonec jsem upravil makro, které nám DXF generuje z 3D modelu - je tam určitý algorismus, který zabezpečí, že křivka není "nespojitá"a také to, že otvory jsou circle tj. jedna křivka - požadavek kooperace pro rychlejší řezání materiálu.

Vb.net nezobrazení Label	4.12. 2015	Hláška viz. příloha. Nekompatibilitě nerozumím. Na mém PC je pouze VS2013 a na dalších PC není nainstalován žádný VS??? Pokud si nechám nainstalovat VS2010, tak mohu mít na jednom PC 2 verze? Děkuji za radu.

Vb.net versus Catvba	24.11. 2015	Dobrý den, děkuji za reakci. Já mám nainstalován VS2013 a tam opravdu krokuju F10. Co se týká té struktůry. Já jsem byl v catvba zvyklý, že mám např. definový Part a pak v okně locals vidím jeho vlastnosti a hlavně i hodnoty. Tj. např. Partnumber - xxxxx, Name - xxxxx, inworkobjecrt - xxxx, atd.....Nyní tyto hodnoty a vlastnosti u vb.net nevidím

Vb net procedury	24.11. 2015	Děkuji za reakci. Asi to tak bude, jen to asi zatím nedokáži správně uchopit ve vb.net prostředí.

Get Instance Name v sestavě	22.1. 2015	Tak už jsem na to nejspíše přišel. Problém byl v tom, že jsem v selekci měl více komponentů a pak se přes Item(1) vybral jiný. Stačilo přidat jen: oSelection.Clear Děkuji.
Get Instance Name v sestavě	22.1. 2015	Děkuji za radu. Byl jsem rád, protože script mi chvilku fungoval, pak jsem ho nějak asi změnil a už zase nedochází k přejmenování instance name. Script je: oSelection.Search "Name='xy plane',in" 'vyhledá rovinu xy v aktivním Partu (parametr "in") [PRE] If oSelection.Count > 0 Then Set oInstaceName = oSelection.Item(1).LeafProduct oName = "pokus" oInstaceName.Name = oName End If [/PRE] nefunguje ani: oSelection.Item(1).LeafProduct.Name = "pokus" Vidíte prosím nějakou chybu? Děkuji.

Formulář CatVBA	14.1. 2015	Prodleva je cca 5 vteřin. Zajimavé je, ale že se to nechová pokaždé stejně. Tj. otevřu catii a hned spustim macro a někdy musím čekat danou prodlevu a někdy jsou prvky hned aktivni.
Formulář CatVBA	14.1. 2015	Děkuji za vysvětlení příkazu CATIA.Interactive. Nicméně bych prosil hlavně o radu ohledně "zatuhnutého" formuláře viz. můj dotaz.

Isolate DesignTable	8.1. 2015	Tak přeci, ale ... Našel jsem na netu, že je třeba v Tools/Customize/Commands u správného příkazu ISOLATE (ja vidím 2) změnit User_Alias např. na ISOLATE_T. Pak script: oSelection.Add oDesignTable CATIA.StartCommand ("Isolate_T") skutečně funguje a link mezi tabulkou a xls je přerušen. Jen teď nevím, jak to provést, aby daný script fungoval všude na všech PC???
Isolate DesignTable	8.1. 2015	Děkuji za radu, ale u mě asi nefunguje. Označil jsem tabulku a pustil isolate - script projede, ale nic se nestane. oSelection.Add oDesignTable CATIA.StartCommand ("Isolate")

Get path library	19.12. 2014	Děkuji za radu. O této syntaxi jsem věděl, ale stále nevím, jak na můj problém. Popíši to ještě detailně: Mám nainstalované několik verzí Catie, kde platí, že z poslední instalace jsou registrovány jeji knihovny. V mém případě viz. obr. nahoře "Location: C:\Dessault Systemes\B19\win_b64\.... " - tj. dana knihova "InfTypeLib.tlb" je registrovana z R19 - a tuto informaci potřebuji dostat scriptem.

Create technological results	26.8. 2014	Dobrý den, já bych k tomu měl prosím všeobecnější dotaz. K čemu se používá daná funkce "Create Technological Results"??? Děkuji za info.

Rsur Reference	14.7. 2014	Děkuji moc. Já to nemám, tak krkolovné, ale pro zjednodušení jsem vyškrtal dost řádků - metodu SelectElement3 používám. Vůbec jsem nevěděl, že jde do pole ukládat přímo reference - teď už to vypadá velmi nadějně. Jen upřesním, že daný řádek, který mě tak zajímal začíná příkazem SET tj. Set oPoleReference(i - 1) = oSelection.Item(i).Reference
Rsur Reference	14.7. 2014	Děkuji za radu, nicméně teď stejně nevím jak dále. Script je: For s = 1 To UBound(oPoleBodies()) Dim oPoleReference() sFilter(0) = "Face" sStatus = oSelection.SelectElement2(sFilter, "Choose Faces", False) If (sStatus = "Cancel") Then Exit Sub End If Set oReference = oSelection.Item(1).Reference ReDim Preserve oPoleReference(s) oPoleReference(s) = oReference.Name Next tj. potřebuji vybrat více ploch na solidu a ty buď uložit do array oPoleReference (tam, ale asi můžu uložit jen jména RSUR a pak mám problém s označením dané plochy v další části scriptu) a nebo potřebuji vytvořit více referencí (dle počtu UBound(oPoleBodies()) a to také nevím jak provést.

Izolace dvou dílů v sestavě	23.7. 2014	Já jsem daný problém řešil zhotovením makra, kdy si nejdříve označím party nebo podsestavy, které chci vidět samostatně a dané makro provede to, že v novém okně otevře novou sestavu, kam vloží vše označené. My děláme nástroje, kde je hlavní sestava a pak 2 hlavní podsestavy (spodní části a horní části) a když jsem chtěl vidět např. kvůli kolizím jen několik partu ze spodních částí a několik z horních částí, tak označování a vypínání ostatních partu a podsestav např. do NO SHOW bylo velmi otravné.

Spuštění makra z externího souboru	15.5. 2014	Super, diky moc, už to funguje.
Spuštění makra z externího souboru	15.5. 2014	Dobrý den, děkuji za radu. To že nemusí být Redim se mi podařilo již vygooglovat, ale vůbec nevím, jak uchopit tu druhou část tj. co musí být ve spuštěném scriptu za příkaz. Já chci mít v Catii ikony na které jsou napojené jednoché catscripty, ve kterých budou 2 proměnné v závislosti dle zmáčknuté ikony. Catstript spouští catvba, kde s danými proměnnými potřebuji pracovat, ale vždy to končí na dané hlášce tj. "Invalid parameter array size" ........ Když proměnné nedefinuji v první části, tak vše proběhně až do konce, ale to nechci.
Spuštění makra z externího souboru	15.5. 2014	Díky za typ. Bohužel se nadaří ani s takto upraveným kodem: Sub CATMain() Dim Params() Dim ScPath ReDim Preserve Params(1) Params(0) = 20 Params(1) = 30 ScPath = "q:\Catia5\Macros\Otvory\" CATIA.SystemService.ExecuteScript ScPath, catScriptLibraryTypeDirectory, "6H7.CATScript", "CATMain", Params End Sub Dostanu stejnou chybovou hlášku

Nové icons	16.5. 2014	Tak já asi musím dělat něco špatně při ukládání. Mám stejný program GIM a když orig. ikonu upravím a uložím, tak se již nezobrazí. Pro ukládání mám následující postup: Export as/vybrání BMP Formátu/Export a následujíc tabulku viz. příloha nechám defaultně nastavenou/Export
Nové icons	16.5. 2014	Děkuji za radu. Nicméně tady asi problém nabude, protože indexování barev je již provedeno viz. obr. v příloze.
Nové icons	16.5. 2014	Dobry den, tak už mi začína z těch ikon "hrabat". Myslel jsem si, že jsem už našel všechny parametry viz. rozlišení 72 DPI, ale byla to asi náhoda, že to jednou fungovalo. Dnes se zase žádná nově vytvořená ikona nezobrazí. Po správném přejmenování a uložení do správného adresáře se zobrazí v náhledu icons pouze text viz. obr "Capture" v příloze. Daná ikona je na http://leteckaposta.cz/525726715, tak prosím kdo můžete, tak ji zkuste zeditovat, zda-li neuvidíte důvod, proč ji Catia nebere. Díky moc.
Nové icons	15.5. 2014	Tak už jsem na to přišel. Musel jsem ještě změnit rozlišení z 90 na 72 DPI. Nyní se ikona již zobrazuje a pokud ji nechci mít v náhledu icons, tak je opravdu jedno, kde se nachází. Jinak by mě ještě zajímalo v jakém programu je dobré icons tvořit a jak udělat, aby neměla bílé pozadí. Díky za rady.
Nové icons	15.5. 2014	Dobrý den, děkuji za radu. Já jsem toto zkoušel již včera, ale bez úspěchu. Teď jsem zkusil ještě změnit tu barevnou hlubku a opět změnit název a uložit na danou cestu - opět bez úspěchu - catii jsem zavřel a znovu otevřel. Přikládám do přílohy bmp (bmp nejde jako příloha vložit, tak jsem ho natvrdo přepsal na jpg), který zkouším přiřadit, zda-li tam neuvidí někdo problém. Jinak pokud se nepletu, tak dříve umístění i název bmp byl libovolný.

Velká sestava	28.3. 2014	Diky za připomínky. Se zobrazením problém není. I když je celá sestava v show, tak pohyb je relativně plynulý tj. bez velkého trhání. I když mám zapnutou volbu od pana Bernáta, tak načítání sestavy trvá asi stejně dlouho tj. cca 3-5 min. Upřesním parametry sestavy tj. 307 different parts a 1141 total parts. Stanice Dell T3400 (starší typ, ale zkoušel jsem na stanici o asi 3 levels vyšší a rozdíl nebyl téměř žádný). U swapovaní problém nevidím - paměť je využita na cca 50%. U položky "Do not activate default shapes on open" je i Visualization mode type, kde mám nastaveno "None" - ostatní 2 volby jsou neaktivní. Znáte někdo jak se dají zapnout a kde se používají?
Velká sestava	27.3. 2014	Bohužel zjišťuji, že na rychlost vkládání (otevírání) dalších parts toto nastavení nemá min. zřetelný vliv.
Velká sestava	27.3. 2014	Děkuji za typ. To vypadá dobře. Jen upřesňují název pro případné další zájemce: Options/Infrastructure/Product Structure/Product Visualization/Representation - Do not activate default shapes on open. Budu testovat a uvidím. Já jsem věděl o položce Cache Activation/Work with the cache system, ale zde mám pak problémy s ukládáním do našeho teamcentru.

R22 a problém s catvba	2.12. 2014	Dobrý den, ještě jednou prosím o radu. Pokud se správně provede daná "přeregistrace" knihovny InfTypeLib.tlb, jak se to dá ověřit? Nyní mám např. PC kde je jen Catie R22 a potřebuji "zaregistrovat" knihovnu z R19. Děkuji za rady.
R22 a problém s catvba	5.11. 2014	Já mám také problémy s některými příkazy, které fungují u R19 a u dalších verzí (pokud tedy není jako poslední nainstalována R19) na daných příkazech Catia "padne". Já jsem přesně nevěděl, jak zaregistrovat knihovnu InfTypeLib.tlb do Catia, tak jsem ji zkusil jen jednoduše zkopirovat z R19 a na PC, kde je jen R22 jsem ji nahradil. Tím se vyřešilo padání Catia na daných příkazech, ale nevím, zda-li tímto "jednoduchým způsobem" nehrozí jiné potíže (např. kapacita dané knihovny je u R22 větší a tím mě napadé, že by mohl zase být problém s nějakými jinými příkazy). Prosím o názor, radu. Děkuji.

Value od Thickness	9.1. 2014	To bude ono. Funkci Sublist jsem neznal. Dekuji moc.

Počet entit v ramci jednoho body	8.1. 2014	Super. Diky moc. To bude ono. Uz mam i hruby kod a ani se nebude muset z Extract udelat rozpad (disassemble), jelikoz tento script: oDatum = oFactory.AddNewDatums(oExtract) oPocetEntit=Ubound(oDatum)+1 ukáže vše potřebné.
Počet entit v ramci jednoho body	7.1. 2014	O tom filtrovani jsem take premyslel, ale nebylo by to 100%, protože někdy může být případ, že 2 Pads tvoří jeden objekt, ale fce. Shapes udá počet 2. Zkoušel jsem to na příkladu, kde ve sketch mám 3 čtverce, z nich vytáhlý Pad a fce. Shapes pořád ukazuje počet 1.?!?
Počet entit v ramci jednoho body	7.1. 2014	Děkuji za tipy. Zkoušel jsem to s těmy Shapes, ale to mi příjde, že ukáže jen počet features v body (tj. např. pad.1 a pad.2 bude Shapes.Count=2, ale pokud budu mit pad.1 a hole.1, tak vysledek bude stejny) - tj. to neřeší asi můj problém. A také to neřeší situaci, kdy z jednoho sketch je vytaženo více Pads - to pak Shapes.Count je pořad 1.

Catvba windows 7	9.1. 2015	Ještě zde doplním mé poslední zkušenosti s daným problemém např. na příkazu: CATIA.StartCommand "Isolate" Podotýkám jen, že padání Catie je způsobeno knihovnou InfTypeLib.tlb z jednotlivých release. Daný příkaz chodí OK u nás na následujících konfiguracích: R19 - OK R20, ale jen pokud je na PC nainstalována jako poslední R19 R22, ale jen pokud je na PC nainstalována jako poslední R19 R24 - OK Přeregistrování knihovny u PC kde je pouze R20 popř. R22 příkazem CNEXT.exe /regserver se nám zatím nedaří a řešíme to. Mohl by někdo ověřit, že daný problém není pouze u nás? Tj. na PC kde je pouze R20 popř. R22 zkusit spustit script s daným příkazem?!? Děkuji předem.
Catvba windows 7	23.7. 2014	Ahoj, mán nové poznatky k danému staršímu tématu a potřeboval bych s ním i pomoci. Dané padání makra nebylo způsobeno přechodem na windows 7, ale tím, že na některých stanicích zůstala instalace Catie R19 a na jiných ne (zde dochází k padání makra). Dle naši podpory jsem to pochopil tak, že makra byla vytvořena v R19 a při práci v R20 pak chybí *.tlb knihovny z R19. Pokud se, ale na PC nejdříve nainstaluje R20 a pak teprve R19, tak dané knihovny jsou pak z posledně nainstalované release a tím vše chodí OK. Připomínám, že makra padají (zatuhnutí Catie) na příkazech typu: CATIA.StartCommand ("Reframe On") CATIA.StartCommand ("Collapse All") CATIA.StartCommand "Isolate" atd. Řešení je prý provedením kompilace na nových tlb knihovnách z nových release např. R20. Má někdo představu, jak danou "kompilaci" provést?

select FACE - name	15.10. 2012	Ahoj, vaše diskuze mě zaujala, protože nedávno jsem řešil něco podobného. Potřeboval jsem také uložit nějakým způsobem strukturu podsestav až k označenému partu, tak abych mohl později zase part(parts) označit. Dělam to složitým způsobem, kdy postupně do různých polích ukladám rodiče partu a ty pak zase postupně deklaruji. Nyni, kdybych chtěl využít váš příklad: Kontext = oSelection.Item(1).LeafProduct.Name & "/" a dostanu např.: Kontext = "Product2.0/Product1.3/Product1.1/", tak nevim jak jednoduše deklarovat z tohoto řetězce poslední podsestavu "Product1.1". Mě by napadlo jen najít znaménko "/", pak text oříznout nechat jen xxx="Product2.0" a pak: Set oProductParent = oAtiveDocument.Product.Products.Item(xxx) a pak podobným způsobem pokračovat dále, ale to je moc složité. Nechá se to prosím řešit jednoduše?

Obarveni plochy	8.9. 2012	Ahoj, tak jsem trochu pokrocil, ale cil stale v nedohlednu. Muj script najde na danem solidu plochy Rsur, ty dle urcite podminky vyhodnoti a ulozi jejich jmeno do pole napr. Objekty viz. p. Cinert. Dale se musi jmeno Rsur........ upravit tak, aby z neho pres funkci CreateReferenceFromBRepName sla vytvorit reference. To vse se mi podarilo, ale i když je selekce ploch aktivni, tak nefunguje obarveni viz. SetRealColour. Po skonceni makra plochy stale jsou oznaceny (umyslne jsem nedal oSelection.Clear) a toolbar s barvamy se zobrazuje pozadovana barva, ale realita je jina tj. plochy obarveny nejsou. Na stejne tema je diskuze zde: http://ww3.cad.de/foren/ubb/Forum137/HTML/003912.shtml ale nepochopil jsem z ni reseni. Nevite nekdo jak na to?
Obarveni plochy	7.9. 2012	Diky za dalsi rady. Ja jsem to jiz vcera zkousel s tim naplnenim pole. To se mi podarilo, ale jelikoz s poli neumim moc pracovat, tak nevim jak napsat, aby se selektovali objekty ulozene v poli (objekty). Zkousel jsem napr.: oSelection.Add (objekty(1)) pro oznaceni jedne polozky z pole, ale to nefunguje. Nic se neoznaci (neselektuje).
Obarveni plochy	6.9. 2012	Diky za radu. To mě již také napadlo. Zkoušel jsem to, ale nefungovalo to (snad jsem to dobře napsal). Nejsem si vubec jisty, zda-li jde kombinovat vice selekci.

Podminka If	30.8. 2012	Diky moc Michal, dle Vaseho odkazu stacilo zmenit promennou na typ Single a uz to funguje OK.
Podminka If	30.8. 2012	Ano, proměnná je opravdu typu Variant/Double. Na jakou ji mam teda zkusit zmenit? Dekuji.

ROVINA ROVNOBĚŽNÁ S OBRAZOVKOU	29.8. 2012	Presne tak - vybrat novou rovinu - Equation - vybrat ci definovat bot - zmacknout Parallel to screen
ROVINA ROVNOBĚŽNÁ S OBRAZOVKOU	29.8. 2012	Plane Definition - Plane type (Equation) - Tlacitko (Parallel to screen)

Vymazani elementu	16.8. 2012	Diky za radu. Seznam s jednotlivymi features jiz mam (priklad: Pad.1, Pocket.2, Hole.1 atd....), ale nyni nevim (nemuze ani najit v helpu), jak vyhledat rodice daneho feature. Pres klasicky "Parent" dostanu nazev Body ve kterem se nachazi, ale to nepotrebuji. Diky za pripadnou dalsi radu.

Prochazeni sestavy	3.8. 2012	Diky za pomoc. Zkousel jsem zkousel, ale nakonec se nezdarilo. Nakonec jsem jeste zkusil uplne jednoduchy kod bez rekurze a volani podprocedury: Set LocDocs = CATIA.Documents For i = 1 To LocDocs.Count Set LocDoc = LocDocs.Item(i) Set oPart = LocDoc.Product.ReferenceProduct Set MyParams = oPart.UserRefProperties ' ........pokracovani meho scriptu Next a to udela presne co jsem potreboval - tj. vymaze ve vsech parts a products parametry. Muzete mi prosim rici, jaky teda pak rozdil mezi timto a rekurzy? Diky.
Prochazeni sestavy	2.8. 2012	Diky moc za pomoc, ale stejne na to koukam jako na prvni makro pred casem. 1) opravdu staci muj script doplnit na oznacene misto? (porad nerozumim jak funguje prikaz "explore" - to postupne aktivuje v sestave vsechny party a produkty?) 2) jak se necha osetrit vynechani hlavni sestavy v dane rekurzy?

Selectelement3	30.7. 2012	Diky moc, uz to funguje. Akorat na podminku "True" to nijak neregovalo tj. neokazalo napr. nazev Body, kterou jsou v boolovske operaci. Pri podmince "False" to funguje tj.napr. ukaze nazev Body ktere jsou v zakladnim rootu.
Selectelement3	30.7. 2012	Dekuji moc za rady. Nahradil jsem tedy radek: Set oBodyx = bodies1.Item(i) radkem: Set oBodyx = oSelection.Item(i).Value a jiz to funguje. Tim jsem vyresil prvni problem v celem scriptu. Druhy je ten, ze pokud uzivatel nechce prejmnovat jen vybrana Body, ale vsechny, tak nevim, jak oznacit jen Body "v rootu" viz. obr. (potrebuji oznacit jen PartBody, Body.2 a Body.3). Pokud pouziji funkci search Bodies, tak dostanu samozrejmne kolekci vsech Body vcetne tech vlozenych pres boolovske operace. Diky za radu
Selectelement3	30.7. 2012	V pripade, ktery jsem napsal, chci opravdu prejmenovat jen vybrana Body uzivatelem.
Selectelement3	30.7. 2012	Ja, ale potrebuji prochazet Body v Partu. Uzivatel pres SelectElement oznaci zadouci Body v Partu a ty se pak dle dalsiho scriptu korektne prejmenuji.

Search	25.7. 2012	Diky moc. Takhle to uz funguje. I kdyz mne prijde, ze tuhle kombinaci jsem take zkousel. Ty "apostrofy" u uvozovek musi take byt?

Zmena offset plane	21.7. 2012	V napovede jsem samozrejmne hledal a nasel jsem asi stejnou syntaxi. V kazdem pripade mi nefunguje. Abych nedostal chybové hlaseni u prvniho radku, tak musim pridat SET: Set oPlaneOffSet = oHybridShapeFactory.AddNewPlaneOffset(oRef, oDir, 100) ' zmena oPlaneOffset.OffsetValue = 200 a pak po spusteni makra dostanu hlasku u radku "zmena", ze makro nepodporuje danou methodu. Mne se nakonec podarilo danou zmenu offsetu provest nasledovne: Set parameters1 = oPart.Parameters Set Length = parameters1.Item(oPart.Name & "\POMOC\oPlaneOffset\Offset") Length.Value = 200
Zmena offset plane	20.7. 2012	Diky za typ. Bohuzel mi to nefunguje. Dostanu hlasku: "The method SubList failed" Pripada mi, zda-li se tato funkce nepouziva jen pro objemova telesa (pad, hole, ...). Diky predem za dalsi typy.

Combobox default value	17.7. 2012	Tak to take nefunguje. Jinak opravdu pisi ve VB6. Nakonec jsem nasel toto: ComboBox_Rovina.ListIndex = 0 coz nastavi jakou defaultni hodnotu prvni hodnotu ze seznamu.
Combobox default value	17.7. 2012	Diky za typ, ale tohle bohuzel nefunguje.

DefineView	17.7. 2012	Dekuji moc. Uz to funguje.
DefineView	16.7. 2012	Dekuji za radu. Mereni ve scriptu jsem jiz pouzival - napr. pouziti namerene hodnoty - vzdalenosti mezi 2 body. Co se, ale tyka dostani hodnot vektoru pomoci fce GetPlane, tak ted netusim jak na to. Pokud by jste mohl naznacit kousek scriptu s danou funkci, tak by to bylo super. Diky.

Zjednodušení CATVBA	2.7. 2012	Problem je ale v tom, ze takhle to nefununguje a po spusteni dostanu hlasku 424(viz.nahore) s chybou na radku MsgBox.
Zjednodušení CATVBA	2.7. 2012	Co se tyka globalnich a lokalnich promennych, tak to mi opravdu moc nerika. Snad se to doucim pozdeji. Muzu pro pochopeni poprosit o priklad. Napr. kdyz mam: Sub Alfa() Set partDocument1 = CATIA.ActiveDocument End Sub a chci aby po zavolani procedury se mi v boxu ukazalo jmeno aktivniho partu: Private Sub CommandButton1_Click() Dim partDocument1 As PartDocument Alfa MsgBox partDocument1.Name End Sub Dekuji moc.
Zjednodušení CATVBA	29.6. 2012	Diky. Bez zavorek to jiz funguje, tj. makro vykona proceduru, ale problem je v tom, ze po vraceni do hlavniho kodu nezna promenne z procedury. Priklad: když do vaseho makra doplnim MsgBox Sub GetDoc() Dim sDocExt Dim Parts() If CATIA.Documents.Count > 0 Then Set oDoc = CATIA.ActiveDocument MsgBox oDoc.Name ................... tak, dostanu nazev partu. Ale když stejny MsgBox zaradím do hlavniho kodu za "Getdoc", tak dostanu hlasku "....424:Object required" s odkazem chyby na radek MsgBox v hlavnim kodu.
Zjednodušení CATVBA	29.6. 2012	Diky za pomoc. Jakmile po dane uprave viz. Vas prispevek spustim makro, tak v hlavnim kodu u radku: GetDoc() dostanu chybu - "Compile error: Syntax error"
Zjednodušení CATVBA	28.6. 2012	Dekuji za odpoved. S tou kostickou se zmenou vysky jsem to udaval jako priklad, takze s tou rozbalovaci nabidkou to asi nepude. Co se tyka te funkce, tak rozumim tomu dobre tak, ze: Ve MVB 6.0 napr. do Zalozky General zadam: Function dekla() bla,bla,bla End Function a pak u codu k tlacitku zadam: Private Sub Buttom_xxx_Click() a zde bude odkaz - pozadavek na spusteni nadefinovane funkce? Jak to bude vypadat? Diky za radu.

Sketch u Hole do No Show	25.6. 2012	Uz se mi to podarilo vyresit. Set visPropertySet1 = Selection.VisProperties visPropertySet1.SetShow 1
Sketch u Hole do No Show	25.6. 2012	Dekuji moc za pomoc. Pomoci search "in" to funguje. Tzn. sketsch je oznacena. Nyni ale jeste nevim, protoze jsem to jeste nepouzival, jak dat vyber do NoShow. Myslem jsem si, ze je to: Selection.NoShow ale tomu tak neni.

Copy to clipboard	12.4. 2012	Diky za prispevky. Ja jsem opravdu potreboval text vlozit do "schranky" - s tim excelem to byl jen priklad. Dik Michalovi a jeho scriptu to jiz chodi.

Neexistující adresář	13.3. 2012	Release 19, SP 9 Zkoušel jsem sDocpath zadat natvrdo bez inputboxu, ale vysledek je steny. Dana cast scriptu funguje u Catvbs, ale když ho nakopiruji k ovladacimu prvku do CatVBA, tak vznika dany problem.

Měření a zaokrouhlování	8.3. 2012	Nakonec jsem zjistil, že stačí jednoduchý script pro zaokrouhlování: MyValue = Int(Distance+1) Stejně díky, ale za pomoc.
Měření a zaokrouhlování	8.3. 2012	Já jsme věděl, že nejde stejnou syntaxi pro Formula Editor použít do scriptu, ale nevěděl jsem jak na to. Po Vaší nápovědě už jsem to dokupy dal. Děkuji. Ještě bych poprosil trochu pomoci s tím oddělením části za desetinnou čárkou přes string. To zatím si nedokážu představit. Díky moc.

Extract hran kostky	6.3. 2012	Diky moc za rady. Nakonec se mi to podařilo, aniž bych tedy vytvářel ty reference. selection1.Search "Topology.Edge,sel" For i = 1 To selection1.Count Set hybridShapeFactory1 = part1.HybridShapeFactory Set myExtract = part1.HybridShapeFactory.AddNewExtract(selection1.Item(i).Value) myExtract.PropagationType = 3 myExtract.ComplementaryExtract = False myExtract.IsFederated = False hybridBody1.AppendHybridShape myExtract Next Akorat, ten poslední řádek mi dal zabrat. Ze začátku jsem ho tam neměl - makro projelo celé bez chyby do konce, ale nic se nestalo. Pak až na německém fóru jsem našel tento "dodatek".
Extract hran kostky	5.3. 2012	To nefunguje. Vyskoci chybova hlaska: The method CreateReferenceFromObject failed

Update sestavy	22.11. 2011	Tak uz jsem to nasel na nemeckem foru. Staci pridat k tlacitku prikaz CATIA.RefreshDisplay = True Pak to funguje jak jsem si predstavoval.
Update sestavy	22.11. 2011	Diky za typ. Ani bohuzel toto nepomohlo. Zkousel jsem k tlacitku "Update" pridat jeste: CATIA.ActiveWindow.ActiveViewer.Update CATIA.ActiveWindow.ActiveViewer.Reframe ale na 3D modelu se nic nezmeni. Az po ukonceni makra se zobrazi jiz "updatovana" sestava.

Combobox	21.11. 2011	Diky moc. Uz to funguje.
Combobox	18.11. 2011	To s vlastosti "value" me napadlo, ale stale porad to nefunguje: kod pro UserForm mam nasledujici: Private Sub UserForm_Initialize() Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set parameters1 = part1.Parameters Set oParametr = parameters1.Item("xxx") CHECKBOX_xxx.Value = oParametr.Value End Sub VBA nyni funguje tak, ze se makro spusti (checkbox nezatrzeny - bez ohledu na hodnotu true/false) - po zaskrtnuti checkbox se hodnota zmeni z false na true (pokud pred startem VBA byla hodnota true tak se logicky nic nestane) tj. potrebuji aby pri hodnote true a naslednem spusteni VBA bylo pole zaskrtnute. Diky Pavel
Combobox	18.11. 2011	Diky za pomoc. Bohuzel co se tyka checkboxu, tak to se mi zatim nepodarilo. Duvod je pravdepodobne s tim, ze vlastnost "checked" ve VBA neni obsazeno. Min. ji nemuzu najit a kdyz ji napisi do codu, tak to vyhodi chybu.
Combobox	17.11. 2011	Díky moc za nápovědu. Již to funguje. Ještě bych se k tomu zeptal, zda-li dané řešení funguje i pro tlačítko Checkbox (zaškrtnutí políčka). Tj. Checkbox se odkazuje na parametr typu boolen (true,false) a potřebuji aby při spuštění makra u nastavené hodnoty false bylo políčko v checkboxu zaškrtnuté. Díky.

šnek se borti	6.9. 2011	Myslim si, ze ve Vasem pripade staci nastavit ve funkci RIB: Profil control - PULING DIRECTION Selection - napr. Z AXIS

Skeleton	3.8. 2011	Dekuji za postrehy. Nicmene se ale ujistuji, ze asi neexistuje moznost "pohodlneho" vymazani referenci ze skeletonu, na ktere jiz nejsou navazany zadne party. Metoda Delete Useless Elements v partu urcite nefunguje. Ta vymaze vsechny Geometrical elementy, ktere v danem partu nejsou navazane na nejaky solid. To by v mem pripade bylo cca 90 % vsech referenci, jelikoz solidy ve skeletonu moc nepouzivam.

Nový díl jako kopie existujícího	30.4. 2011	Dost složíte řešení. Já používám toto: Copy Part v dané sestavě - Paste Special Break Link - Save. A kopie partu je v sestavě vytvořena a mohu ji modifikovat.

Nastaveni grafickych vlastnosti setu	29.11. 2010	Diky za reakci. Pokud feature, ktery vytvorim v danem setu nepriradim specificke graficke vlastnosti, tak je prebira prave ze setu. To prave potrebuji - makrem vytvorit set, nadefinovat jeho graficke vlastnosti - pak vytvorit nekolik krivek nebo lines a jit od toho. Vim jak nadefinovat barvu ploch, tloustku a typ cary / ale barvu cary ne.

Myš a trackball (spaceball)	29.11. 2010	U me je to klasicka 2tlacitkova mys s koleckem - LOGITECH, a do leve ruky Spacepilot, kde jsou take nadefinovany na tlacitkach nejcastejsi prikazy. S touto kombinaci jsem naprosto spokojen. Nedokazu si predstavit praci na Catii pouze s mysi.

Jakou verzi Catie používáte a na jakém OS ji provozujete	29.11. 2010	My pracujeme s R18 /jiz jsme byli na R19, ale byl problem s Teamcentrem, tak jsme se vratili/. Co se tyka PC, tak u me napr.: Dell Precision T3400 Intel Core Duo CPU E8400 - 3,00Ghz 8 GB RAM

Vyhledaní daného feature v sestavě	8.4. 2010	Tak to taky nepomuze. Upravil jsem to dle vasi rady tj.: Language="VBSCRIPT" Sub CATMain() Set productDocument1 = CATIA.ActiveDocument Set selection1 = productDocument1.Selection Set Jmeno = selection1.Item(1).Value strName = Jmeno.Name strSearch = "Name=" & strName & ", all" MsgBox (strName) selection1.Search strSearch If selection1.Count <= 1 Then MsgBox("Hledany Part nebyl nalezen") End If End Sub Vsechny elementy to najde, ale jakmile je tam ta pomlcka tak to nic nenajde. Viz. priloha. Element 001_zakladana NAJDE (je tam podtrzitko) - elementy 002 - ... a 003- ... nenajde. Jinak prohlizec je IE 6.0. Spise to, ale vzniklo tim, ze jsem text psal v jinem soft a pak pres schranku dany text kopiroval.

Oznaceni elementu makrem	6.4. 2010	Co myslite terminem "Workbench"? Jak by se muselo prosim kon***ne nastavit? Dekuji
Oznaceni elementu makrem	6.4. 2010	Tak jsem zkousel to vase makro a je "temer" OK. Vadi mi na nem je to, ze musi byt aktivni sestava a ne part do ktereho kopiruji linky. Nechapu proc prikaz oSelection.Copy() musi byt pri aktivni sestave, jinak vyskoci chybova hlaska catstriptu. Pokud makro upravim tak, ze zacatek scriptu vymazu, Copy provedu manualne a pak terpve spustim makro, tak je vse OK. Pri manualnim Copy je jedno co je aktivni (part ci sestava), ale v makru ne. Nechapu. Predpokladam, ze tema, ktere jste zalozil na aktivaci partu ci produktu makrem se vztahuje k tomuto problemu. Je to tak? Dekuji.
Oznaceni elementu makrem	6.4. 2010	Dobry den, dekuji za pomoc. Ja jsem dane makro take jiz vytvoril - princip je, ale jiny nez ten Vas - ten take vyzkousim - prijde mi lepsi. To moje makro, ktere jsem sestavil diky vasim dilcim napadum funguje tak, ze part s oznacenymi features se otevre do noveho okna, tam se pomoci funkce FindObjectByName opet reference najdou, zkopiruji, vrati do hlavni sestavy a tam se jako paste special vlozi do aktivniho partu. Vse funguje OK, ale nevyhoda je, ze pokud zdrojovy part obsahuje hodne features, tak pomerne dlouho trva, nez makro v druhem okne pomoci dane funkce jednotlive features najde. Vubec me nenapadlo to sestavit Vasim zpusobem tj. ze do druheho okna se neotevira zdrojovy part, ale part do ktereho potrebuji nakopirovat linky. SUPER napad. Pokud by Vas zajimalo, to moje makro, tak je v priloze. Diky moc.
Oznaceni elementu makrem	2.4. 2010	Dekuji za pomoc, ale urcite neni mozne, aby se selekce musela znovu v novem okne provest manualne viz.: 'ted si otevrete nove okno s partem a dale si musite znovu nastavit selekci v partu to by pak nemelo makro temer zadny vyznam. Neslo by to treba pres ten Search - kde se nejprve nadefinuje jmeno oznacenoho elementu a pak se v novem okne pres search vyhleda? Dekuji.
Oznaceni elementu makrem	2.4. 2010	Ja se snazim sestavit makro na kopirovani linku pomoci metody Multimodellink - jiz zalozene tema. Proto potrebuji v hlavni sestave oznacit nejaky feature, pak se dany feature (vcetne partu) otevre do noveho okna - tam ho potrebuji nakopirovat, vratit se zpet do sestavy a tam ho vlozit do pozadovaneho partu jako Pastespecial. Dekuji za pomoc.
Oznaceni elementu makrem	2.4. 2010	Ten radek oSelPart.Clear(), tam je schvalne - jde jen o nazorny priklad. Ve skutecnosti to potrebuji k tomu, aby se oznaceny feature ulozil do "pameti" (jak rikate) - pak se dany part otevre v novem okne a tam potrebuji dany feature opet automaticky oznacit, abych mohl provest prikaz copy. ale nevim jak na to. Dekuji

Nekonečné opakování	2.4. 2010	Dekuji za radu. Jiz jsem to aplikoval a funguje to.

Vložení do aktivního setu	26.3. 2010	Dekuji za pomoc. Akorat mi jeste trochu dalo zabrat to, ze pred promenou oGeoSet musi byt funkce SET. Jeste mne nejde do hlavy, proc dane makro nefunguje v pripade, ze nazev setu je z cislic napr. 09 - pokud ho zmenim napr. na OB - 09, tak vse je OK. Diky.

Vlozeni objektu do daneho umisteni v sestave	4.3. 2010	Uživatel odpovídá na příspěvek #246: SUPER. Dekuji moc. To presne jsem potreboval, jeste zkusim doladit to, jak jste sam naspal, aby se makro ukoncilo v pripade, ze je aktivni CATpart. S pozdravem Pavel K.
Vlozeni objektu do daneho umisteni v sestave	3.3. 2010	Uživatel odpovídá na příspěvek #234: Je úplně jedno kde byla provedena selekce. Pokaždé to vkladá part, který je ve schránce do stejné sestavy (tj. v případě popsaného makra výše do podsestavy Product2.1). Když daný řádek smažu a upravím řádek níže (selection1.Add product1), tak se objekt ze schranky bude pořád vkládat do hlavní sestavy a je úplně jedno kde jsem byl přepnutý (selektovany).

SKELETON - KOPIROVANI LINKU	4.3. 2010	Uživatel odpovídá na příspěvek #240: Dany set se vytvari automaticky. Podud "stojite" na nazvu partu a pouzijete funkci Paste Special (with link). Pokud "stojite" na již vytvořeném geom. setu, tak je reference vložena do něho. S pozdravem Pavel K.
SKELETON - KOPIROVANI LINKU	3.3. 2010	Uživatel odpovídá na příspěvek #239: Dobry den, drive jsme tvorili sestavy na zaklade skeletonu pomoci contextualni linku (neboli import linku). Posledni 1-2 roky tvorime sestavy pomoci ccp linku (neboli multi model linku) a jednoznace mohu z osobni zkusenosti rici, ze CCP linky jsou mnohem vyhodnejsi. Uvedu nektere vyhody: snadnejsi editace (jednoducha vazba na zdrojovy part) - v pripade preruseni linku jednoduche napojeni - 2. instance stejneho partu v sestave neni s bleskem - ridici skeleton nemusi byt vubec v sestave - nikdy nedojde k nelogickemu preruseni linku jako u contextualnich (napr. pri duplikaci ci presunu zakazky atd..)...... I kdyz kopirovani linku je slozitejsi - viz. muj prvni prispevek na vytvoreni makra, tak bych nikdy nevracel zpet. S pozdravem Pavel K.
SKELETON - KOPIROVANI LINKU	3.3. 2010	Uživatel odpovídá na příspěvek #235: Dobry den, nejlepe poznate typ linku, kdyz u partu s external references se podivate do Edit/links a tam typ linku musi byt prave CCP. Viz. obr. v priloze. Dekuji. S pozdravem Pavel K.
SKELETON - KOPIROVANI LINKU	3.3. 2010	Uživatel odpovídá na příspěvek #231: Dobry den, mam sestavu (pro prehled velmi jednoduchou). Sestava.catproduct, skeleton.catpart, kostka.catpart Ve skeletonu mam vytvorene ridici planes. V sestave se prepnu do partu kostka - nyni bych oznacil jednu popr. vice ridicich referenci ve skeletonu a spustil dane makro. Vysledek je, ze v partu kostka se objevi externi reference ze skeletonu (ty samozrejme odpovidaji predchozi selekci). Jeste jen opakuji ze externi reference - linky musi byt typu CCP link a ne IMPORT link viz. muj predchozi popis makra. Dekuji. S pozdravem Pavel K.

Vyhledani daneho partu v sestave	2.3. 2010	Uživatel odpovídá na příspěvek #220: Dekuji moc za odpoved. Jeste by me zajimalo, jak nastavit, aby makro hledalo text pouze v polich "Part Number" a ne i v poli "Instance Name". Dekuji moc. P.S. e-mail jsem Vam posilal, tak nevim, zda-li dorazil.

Reklama

Partneři CATIA fóra