---

Hallo,

ich möchte derzeit eine Auswahl von Kurven machen.
Das ganze soll über SelectElement2 gehen.

Die Auswahl an sich ist nicht das Problem sondern der Filter den man bei SelectElement übergibt.

Bei Punkten oder Flächen ist es eigentlich ganz einfach da gibt es Point und Face,
aber bei Kurven habe ich das noch nicht gefunden.
In der Hilfe bin ich noch auf "MonoDimInfinite" gestoßen was mir schon mal weiterhilft, aber ich mir auch nicht sicher bin ob das alle Kurven beinhaltet.

Im Forum hier habe ich schon ein Beitrag gefunden.

Aber wie in dem Artikel schon beschrieben bin ich mir nicht sicher ob das alle sind.

Daher die Frage gibt es nicht was übergeordnetes für Kurven.

Zur Infor noch
Die ausgewählten Elemente werden dann einfach über Copy und PasteSpeziel kopiert.

Code:

---

                Sel.Copy
                Sel.Clear
                Sel.Add workNC_Input_body
                Sel.PasteSpecial ("CATPrtResultWithOutLink") '"CATIA_RESULT"
                Sel.Clear

---

------------------
Gruss Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Der Makrorekorder liefert folgende Suchstring:

Code:

---

selection1.Search "(((((CATStFreeStyleSearch.Curve + CATSketchSearch.2DCurve) + CATDrwSearch.2DCurve) + CATPrtSearch.Curve) + CATGmoSearch.Curve) + CATSpdSearch.Curve),all"

---

ggf kannst du einen Teil der Filter noch entfernen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

genau das bekomme ich bei Kurven ja nicht hin.

Wenn ich mit dem Makro-Rekorder eine Punkt-Suche aufzeichne bekomme ich folgendes

selection1.Search "CATPrtSearch.Point,all"

Daraus kann ich dann in meinem Makro folgendes Machen.

SelFilter(0) = "Point"
sStatus = Sel.SelectElement2(SelFilter, "Bitte wählen Sie ein Punkt aus", False)

Bei Kurven, wie von dir gezeigt, bekomme ich

selection1.Search "CATPrtSearch.Curve,all"

Aber im Makro funktioniert dann dies nicht.

SelFilter(0) = "Curve"
sStatus = Sel.SelectElement2(SelFilter, "Bitte wählen Sie eine Kurve aus", False)

Daher hoffe ich ja noch, dass es ein "Wort" gibt mit dem ich das bewerkstelligen kann

------------------
Gruss Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Markus,

probier eines hiervon:

Code:

---

strSelectableName = Array("Point", "Line", "Plane", "Face", "PlanarFace", "Vertex", _
      "TriDimFeatVertexOrBiDimFeatVertex", "NotWireBoundaryMonoDimFeatVertex", _
      "ZeroDimFeatVertexOrWireBoundaryMonoDimFeatVertex", "Edge", _
      "TriDimFeatEdge", "RectilinearTriDimFeatEdge", _
      "BiDimFeatEdge", "RectilinearBiDimFeatEdge", _
      "MonoDimFeatEdge", "RectilinearMonoDimFeatEdge", _
      "CylindricalFace", "HybridShapeAssemble", "AnyObject", "HybridShapeCircle", _
      "Solid", "Sketch", "AxisSystem", "Pad", "SketchBasedShape", "Revolution", _
      "Circle2D", "Line2D", "Curve2D", "Spline2D", "Point2D", "Geometry2D", _
      "GeometricElement", "Axis2D")

---

Für Curve würde ich 'MonoDimFeatEdge' probieren.

Oder 'HybridShapeCircle'

Wo ich die Bezeichnungen her hab? Aus der Doku.

Hope it helps,,
Joe

[Diese Nachricht wurde von joehz am 04. Nov. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Joe

Vielen dank schon mal, das hilft denk ich weiter.

'MonoDimFeatEdge' ist auf jeden Fall noch besser wie das 'MonoDimInfinite', welches ich zuvor hatte.
Bei 'MonoDimInfinite' werden nämlich auch (interne) Bauteil- und Flächenkanten zugelassen.

Bei 'MonoDimFeatEdge' Fäng es mir nur die "erstellten" Elemente, Kanten etc...

Bei Kreise muss ich es noch testen ob das geht, da hatte ich das 'HybridShapeCircle' auch schon im Auge...

Gruß Markus

------------------
Gruss Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP