---

Hallo,
habe noch mal eine Frage. Wie benutze ich add von einem Selection Objekt.
Ich erhalte bei folgendem Code immer als Fehlermeldung:

Zitat:

---

Object doesn.t support this method or property

---

Code:

---

Set Point = hybridShapeFactory1.AddNewPointCoord(1,1,1)
  Set SelectList = CATIA.ActiveDocument.Selection
  SelectList.Clear
  SelectList.Add (Point)

---

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

---

Guten morgen
lass die Klammern mal bei

Code:

---

SelectList.Add Point

---

wech  

Grüsse
Andy

[Diese Nachricht wurde von AndyMF am 17. Mrz. 2010 editiert.]

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

---

Hallo,

ich geb Andy da recht, du musst einfach nur die Klammern löschen ansonsten mein VB das du eine Funktion aufrufen willst. ABER ich würde das Part Updaten bevor ich den Punkt in die Selection schiebe den wenn du mit dieser weiterarbeiten möchtest (z.B. einen neuen Punkt erstellen der sich auf den Punkt in der Selektion bezieht) kann es zu Laufzeitfehlern kommen wenn das Part nicht up-to-date ist. Dies ist eine schwer zu debuggende Fehlerquelle 

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo,
ja die dummen Klammern waren der Fehler.

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

---

Hallo Zusammen,

ich würde ein Element aus mein selection entfernen.
Mein Code sieht so aus:

Code:

---

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")

Set hybridShapes1 = hybridBody1.HybridShapes

Set hybridShapePointCoord1 = hybridShapes1.Item("Point.2")

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

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

selection1.Remove hybridShapePointCoord1

End Sub

---

Warum funktioniert es nicht?

Mit .Add geht es, mit .Remove geht es nicht.

Wie kann ich in diesem Art Element aus der Selection entfernen?
Oder es funktioniert nur mit .Remove(1) ... .Remove(2) ...

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

---

Servus
Ja du kannst bei Remove die Elemente nur über den Index (zB Remove(1) angeben.
Siehe auch Doku. (Sollte nicht gemäß Doku eher Remove2 verwendet werden?)

Gruß
Bernd

EDIT:
Lösungsvorschlag:
- Schleife über die Selection
- jedes Selektierte Element mit deinem "Vergleichselement" vergleichen
- falls diese gleich sind: Element aus Selektion entfernen und Schleife verlassen

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

[Diese Nachricht wurde von bgrittmann am 21. Feb. 2014 editiert.]

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

---

Hallo Bernd,

vielen Dank für die Antwort.
Wie kann ich 2 Object vergleichen?

so funktioniert es leider nicht:

Code:

---

if  hybridShapePointCoord1 = selection1.item(i).value then

---

mit .Name ist auch nicht die gute Lösung.

Edit:
mit

Code:

---

If hybridShapePointCoord1 Is selection1.Item(i).Value Then

---

kann man 2 Object vergleichen.

[Diese Nachricht wurde von imation1999 am 21. Feb. 2014 editiert.]

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