Vyhledani daneho partu v sestave

Kompletní přehled příspěvků v tématu Vyhledani daneho partu v sestave řazený podle data jejich publikace na fóru.

Uživatel	Příspěvek
Pavel Krsek Poslat zprávu \| Profil	Datum: 2.3. 2010 \| Zobrazeno: 10544x Konfigurace CATIA: Text dotazu: Dobry den, jako zacatecnik v oblasti maker bych potreboval doladit makro na hledani partu s danym jmenem napr. ve velkym sestavach. Sub CATMain() Dim Vstup DefaultValue = "XXXXX*" Input = InputBox ("Zadej název hledaného partu:", "Vyhledávač", DefaultValue, 100, 100) Set Input = Name Set productDocument1 = CATIA.ActiveDocument Set selection1 = productDocument1.Selection selection1.Search "(Name = & ((((((CATProductSearch.Part +CATStFreeStyleSearch.PartFeature) + CATAsmSearch.Part) + CATPrtSearch.PartFeature) + CATGmoSearch.PartFeature) + CATSpdSearch.PartFeature) + CATPcsSearch.Part)),all" End Sub Nevim jak k hodnote Name (tucne) doplnit zadanou hodnotu z pole Input. Dekuji moc za pomoc. S pozdravem Pavel K.

Ing Jan Cinert Poslat zprávu \| Profil	[#220] \| Publikováno: 02.03. 2010 - 11:48 Tohle funguje... V proměnné Query string je sestaven dotaz pro vyhledávání - .Part znamená vyhledávat jen party, a pak Name = SearchedPart - vstup z Input boxu Sub CATMain() SearchedPart = InputBox ("Zadej název hledaného partu:", "Vyhledávač", "") Set productDocument1 = CATIA.ActiveDocument Set selection1 = productDocument1.Selection QueryString = ".Part & Name = " & SearchedPart & ", all" selection1.Search(QueryString) If selection1.Count > 0 Then MsgBox("Hledany Part byl nalezen!") Else MsgBox("Hledany Part nebyl nalezen!") End If End Sub PS: Mohl byste mi na mail poslat přesně ten text, který jste odesílal v příspěvku? Nějak zlobí zobrazení znaků uvozovek, ale jen někdy - chtěl bych zjistit proč. Díky.
Pavel Krsek Poslat zprávu \| Profil	[#221] \| Publikováno: 02.03. 2010 - 13:12 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.
Ing Jan Cinert Poslat zprávu \| Profil	[#223] \| Publikováno: 02.03. 2010 - 15:17 Tam bych to potom řešil trochu jinak. Selekce obecně je dost pomalá, lepší by bylo projet rekurzí celý strom a porovnávat jednotlivé produkty s hledaným výrazem. Tam pak si pak můžete vybrat jestli chcete porovnávat `PartNumber` nebo `InstanceName`. Pěkný příklad na rekurzi je v sekci Makra - Příklady a vyřešené problémy. PS: Mail dorazil, ale chybu jsem neobjevil. Ještě se tedy zeptám jaký používáte prohlížeč?

Uživatel nepřihlášen

Pro zobrazení obsahu stránky / provedení akce (vytvoření nového téma, napsání odpovědi do diskuse apod.) musíte být přihlášeni.

Reklama

Partneři CATIA fóra

Uživatel	Příspěvek
Pavel Krsek Poslat zprávu \| Profil	Datum: 2.3. 2010 \| Zobrazeno: 10544x Konfigurace CATIA: Text dotazu: Dobry den, jako zacatecnik v oblasti maker bych potreboval doladit makro na hledani partu s danym jmenem napr. ve velkym sestavach. Sub CATMain() Dim Vstup DefaultValue = "XXXXX*" Input = InputBox ("Zadej název hledaného partu:", "Vyhledávač", DefaultValue, 100, 100) Set Input = Name Set productDocument1 = CATIA.ActiveDocument Set selection1 = productDocument1.Selection selection1.Search "(Name = & ((((((CATProductSearch.Part +CATStFreeStyleSearch.PartFeature) + CATAsmSearch.Part) + CATPrtSearch.PartFeature) + CATGmoSearch.PartFeature) + CATSpdSearch.PartFeature) + CATPcsSearch.Part)),all" End Sub Nevim jak k hodnote Name (tucne) doplnit zadanou hodnotu z pole Input. Dekuji moc za pomoc. S pozdravem Pavel K.

Ing Jan Cinert Poslat zprávu \| Profil	[#220] \| Publikováno: 02.03. 2010 - 11:48 Tohle funguje... V proměnné Query string je sestaven dotaz pro vyhledávání - .Part znamená vyhledávat jen party, a pak Name = SearchedPart - vstup z Input boxu Sub CATMain() SearchedPart = InputBox ("Zadej název hledaného partu:", "Vyhledávač", "") Set productDocument1 = CATIA.ActiveDocument Set selection1 = productDocument1.Selection QueryString = ".Part & Name = " & SearchedPart & ", all" selection1.Search(QueryString) If selection1.Count > 0 Then MsgBox("Hledany Part byl nalezen!") Else MsgBox("Hledany Part nebyl nalezen!") End If End Sub PS: Mohl byste mi na mail poslat přesně ten text, který jste odesílal v příspěvku? Nějak zlobí zobrazení znaků uvozovek, ale jen někdy - chtěl bych zjistit proč. Díky.
Pavel Krsek Poslat zprávu \| Profil	[#221] \| Publikováno: 02.03. 2010 - 13:12 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.
Ing Jan Cinert Poslat zprávu \| Profil	[#223] \| Publikováno: 02.03. 2010 - 15:17 Tam bych to potom řešil trochu jinak. Selekce obecně je dost pomalá, lepší by bylo projet rekurzí celý strom a porovnávat jednotlivé produkty s hledaným výrazem. Tam pak si pak můžete vybrat jestli chcete porovnávat `PartNumber` nebo `InstanceName`. Pěkný příklad na rekurzi je v sekci Makra - Příklady a vyřešené problémy. PS: Mail dorazil, ale chybu jsem neobjevil. Ještě se tedy zeptám jaký používáte prohlížeč?