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

Extract hran kostky

UživatelPříspěvek
Pavel Krsek

Poslat zprávu | Profil
Datum: 5.3. 2012 | Zobrazeno: 10044x
Konfigurace CATIA:

Text dotazu:
Ahoj,

mel bych prosim dotaz, jak vyresit toto:

mam v macru vytvoreny PAD (nachazi se v daklarovanem oBody) a potrebuji extrahovat jeho hrany. Pomoci daneho prikazu: 

 oSelection.Add(oBody)

 oSelection.Search "Topology.CGMEdge,sel"


se mi podari najit a vybrat jeho hrany, ale nyni nevim jak z dane "selekce" vytvorit referenci a z ni pak vytvorit nejlepe jeden multiextract popr. 12 extractu.

Diky za pripadnou radu

Ing Jan Cinert

Poslat zprávu | Profil 		[#2653] | Publikováno: 05.03. 2012 - 11:07
Než se do toho zkusím ponořit, standardní (viz kód) postup nefunguje? 
For i = 1 To oSelection.Count

 

  oRef = oPart.CreateReferenceFromObject(oSelection.Item(i).Value)



Next ...
Pavel Krsek

Poslat zprávu | Profil 		[#2654] | Publikováno: 05.03. 2012 - 11:23
To nefunguje. Vyskoci chybova hlaska:

The method CreateReferenceFromObject failed
Ing Jan Cinert

Poslat zprávu | Profil 		[#2655] | Publikováno: 05.03. 2012 - 14:26
To jsem očekával... :-(

Pak je ještě CreateReferenceFromBrepName, ale to jsem nikdy pořádně nerozchodil.

Ještě bych zkusil mezikrok. Pomocí TypeName() zjistit, jaký typ objektu je vybraná hrana,
vytvořit tento objekt a přiřadit do něj instanci výběru ...Item(i).Value a pak zkusit vytvořit referenci z tohoto objektu. Párkrát už mi to zabralo.

Anebo nevytvářet referenci vůbec a nacpat Extraktu přímo ten objekt hrany - to mi také už zafungovalo.
Pavel Krsek

Poslat zprávu | Profil 		[#2667] | Publikováno: 06.03. 2012 - 19:32
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".


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.