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
Vytvořit téma
Koncepty
Seznam oblíbených
Soukromé zprávy
Pravidla
Live CHAT
VIP žádost
Základy Catia
Ke stažení
Doporučujeme
Pracovní příležitosti
Reklama a kampaně
O fóru
Nápověda

Vyhledani daneho partu v sestave

UživatelPříspěvek
Pavel Krsek

Poslat zprávu | Profil
Datum: 2.3. 2010 | Zobrazeno: 10946x
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.