Vítejte !   Přihlášení | Registrace
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

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

UživatelPříspěvek
Pavel Krsek

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