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

Pojmenování v AllCatpartu

UživatelPříspěvek
Dalibor Goryl

Poslat zprávu | Profil
Datum: 9.5. 2013 | Zobrazeno: 9720x
Konfigurace CATIA:

Text dotazu:
Dobrý den.

Mám otázku ohledne tvorby Allcatpartu, respektive jeho pojmenování ve vnitř.
Když vytvořím AllCatpart ze velke sestavy, jednotlivé party v něm pojmenuje i podle cesty..
Je možnost někde nastavit aby mi generace allcatpartu automaticky brala jen jméno partu bez toho aby tam nebyla vidět "cesta"?

Příklad:
Takhle jej vytvoří automaticky

Produkt_01_AllCATPart
xy plane
yz plane
zx plane
PartBody
Produkt_02\Produkt_02_01\Slon
Produkt_02\Produkt_02_01\Ucho
Produkt_02\Produkt_02_01\Oko
Produkt_03\Produkt_01_01\Chobot
Produkt_04\Produkt_02_01\Chlup
Produkt_04\Produkt_02_03\Žihadlo

požadované:
Produkt_01_AllCATPart
xy plane
yz plane
zx plane
PartBody
Slon
Ucho
Oko
Chobot
Chlup
Žihadlo

S pozdravem Dalibor Goryl

Ing Jan Cinert

Poslat zprávu | Profil 		[#3879] | Publikováno: 09.05. 2013 - 20:12
U funkce Create Part from Product se dá nastavit jen to, jestli sloučí vše do jednoho body nebo zda pro každý produkt vytvoří samostatné body. Ty názvy by se ale daly jednoduše přejmenovat makrem, něco ve stylu: 

Sub Main()



Set oBodies = CATIA.ActiveDocument.Part.Bodies 



For i = 1 To oBodies.Count 



   Parts() = Split(oBodies.Item(i).Name, "\") ' rozdelime nazev podle lomitek 



   sName = Parts(Ubound(Parts)) ' vezmeme posledni cast nazvu 



   oBodies.Item(i).Name = sName '  prejmenujeme body



Next 



End Sub


PS: Psáno z hlavy, nevyzkoušeno...


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.