Dobrý den,

nedávno jsem řešil přesně to samé. Hledal jsem i na zahraničních fórech a nic kloudného, jak by to šlo přímo nenašel. Přitom by to mělo být úplně snadné, tangentní výběr používá hned několik funkcí (thickness, draft, extract). Pokud neexistuje nějaká nedokumentovaná syntaxe pro dotaz search, tak to opravdu asi nejde. A bohužel to nevypadá lépe ani ve vyšších release V5 (ve V6 jsem to nezkoušel).

Nakonec jsem to vyřešil makrem, které se opírá o extract a následné měření vzdáleností face na solidu od tohoto extractu, resp. bodu který se na extractu vytváří. Funguje to spolehlivě, ale s rostoucí velikostí modelu uměrně narůstá čas potřebný k identifikaci příslušnosti plochy k tangentnímu extractu. Takže uživatel pak nemusí s Ctrl oklikávat každou plochu (zvlášť pokud jsou hodně malé segmenty), ale chvilku to trvá.

A nechcete si rovnou vyzkoušet makro Color Standard, které kromě obarvení ploch podle barevného standardu umí i výběr podle tangentní návaznosti? Licence na zkoušku zdarma na 21 dnů.

Kolekce faces není nikde, ale jde to takhle:

oSelection.Add(solid)

oSelection.Search(".face, sel")

primitivní, ale velice účinné...

Potřebuji vybrat tečné plochy na Solidu, tak se vracím k tomuto tématu:
Když vyberu přes SelectElement2 plošku na Solidu a následně přetypuji objekt ze Selection na Face. Tak nevím jak následně položku převést na Reference.
Názve Face. get_Name() je "Selection_RSur:(Face:(Brp:(Pad.1;2);None:();Cf14:());Add.1_ResultOUT;Z0;G10403)"

CreateReferenceFromObject a CreateReferenceFromGeometry mi nefungují.

refPloska = dil.CreateReferenceFromName(ploska.get_Name());

funguje, ale asi jen na oko.

Tady to následně zkolabuje

extractTecPlocha = hsFactory.AddNewExtract(refPloska);

když dám záznam makra, tak se Reference tvoří následovně:

Set reference1 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(Pad.1;2);None:();Cf14:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR29)", add1)

Musí se opravdu Reference tvořit přes CreateReferenceFromBRepName?

Jaký je nej postup ze selekce plošky na solidu získat použitelnou referenci?
Dá se vždycky počítat s tím, že řetěz:

"Selection_RSur:(Face:(Brp:(Pad.1;2);None:();Cf14:());Add.1_ResultOUT;Z0;G10403)"

Mohu vždy rozbít na "RSur:(Face:(Brp:(Pad.1;2);None:();Cf14:());" a připojit "WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR29)" ? Co značí CXR29 a kde dohledám?

Z názvu selekce za středníkem "Add.1" bude vždy příslušný vhodný tvar?, který si musím následně vytěžit do příslušného tvarového objektu?

Dim add1 As Add
Set add1 = shapes1.Item("Add.1")

Podařilo se mi dopracovat se k pomalému řešení. Bych měl dotaz na případnou optimalizaci. Nejprve relativně rychle vyfiltruji plošky, které mají nulovou vzdálenost od Extractu. Následně jedu druhý filtr, ale zde narážím. Pokud mám tečnou plochu třeba z 500 plošek, tak mi potom makro běží přes hodinu. Beru plošky z Extractu a již předfiltrované na Solidu. Jedu následně tyto smyčky:

            For (int j = 0; j < facesOnExtractCount; j++) 

            {

                CATIA.set_StatusBar("Macro progress second Loop " + j.ToString() + " out of " + facesOnExtractCount.ToString());               

                int i = 0;

                bool identical = false;



                While (i < facesFirstFilteringResult.Count && !identical)

                {

                    try

                    {

                        Reference referFaceOrig = facesFirstFilteringResult[i];

                        Measurable measFaceOrig = spa.GetMeasurable(referFaceOrig);

                        Reference referExtractFace = facesOnExtract[j];

                        Measurable measExtractFace = spa.GetMeasurable(referExtractFace);

                        If (measFaceOrig.Area == measExtractFace.Area) 

                        {

                            double distance = measFaceOrig.GetMinimumDistance(referExtractFace);

                            If (distance == 0)

                                {

                                    object[] oCOG = new object[3];

                                    object[] eCOG = new object[3];

                                    measFaceOrig.GetCOG(oCOG);

                                    measExtractFace.GetCOG(eCOG);

                                    If (((double)oCOG[0] == (double)eCOG[0]) && ((double)oCOG[1] == (double)eCOG[1]) && ((double)oCOG[2] == (double)eCOG[2]))

                                    {                                      

                                        facesToColor.Add(referFaceOrig);

                                        facesFirstFilteringResult.RemoveAt(i);                                       

                                        identical = true;                                  

                                    }

                                }

                            }

                        }

                        catch

                        {

                            MessageBox.Show("Něco se podělalo při druhém filtrování", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information);

                        }

                        i++;

               }              

            }

Neměl by někdo rychlejší a efektivnější způsob na filtrování plošek? Můj kód sice jede, ale dost pomalu...než projede cca 500x500x(~500/2) měření při 500ploškách.
By DS mohl tu selekci plošek na Solidu také implementovat do CATIA, když už mají kód pro výběr ploch v rámci Extractu....