---

Hallo Ihr Spezialisten.

Ich habe da mal wieder was kleines wo ich im Moment etwas stehe.

Ich mache folgendes. Ich starte ein Macro das zunächst den User auffordert ein bestimmtes GeoSet zu selektieren. In diesem Set sind nur Punkte. In einer For Schleife durchsuche ich das Set und möchte jeden Punkt abfangen. Der Punkt der erkannt wird soll als Referenz für eine geometrische Konstruktion genommen werden. Einzeln klappt das alles wunderbar. Aber wenn ich das in eine Schleife packe dann sagt er mir immer dass der Punkt kein Objekt ist. Ich habe den direkten code jetzt hier Zuhause leider nicht zur Hand aber dennoch geht mir das im Kopf rum, warum er den Punkt nicht als Objekt behandeln kann. Ich kann mir den Namen des Punktes den er gerade in der Mangel hat anzeigen lassen. Er kennt diesen Punkt also. Aber diesen als Objekt weiter zu behandeln bekomme ich nicht hin. Code kommt morgen früh.

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

---

Servus
Wenn d im Part unterwegs bis, kannst du den Punkt selbst (zB oSel.Item2(1).Value) direkt an die Methode CreateReferenceFromObject übergeben.
Für weitere Tipps wäre der Code hilfreich.

Gruß
Bernd

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

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

---

Ja. So habe ich es auch gedacht. Er tut es aber leider nicht. Hier mal der Code bis jetzt.

Code:

---

Dim oDoc As Document
Dim Auswahl As String
Dim SelType(0)
Dim oPart As Part
Dim myBody As Object
Dim mySelektionChecker As Boolean
   
    mySelektionChecker = False

SelType(0) = "HybridBody"

Set oDoc = CATIA.ActiveDocument
    Set oSel = oDoc.Selection
    oSel.Clear
    Set oPart = oDoc.Part
    Set myBody = oPart.InWorkObject
    myType = TypeName(myBody)

Auswahl = oSel.SelectElement2(SelType, "Bitte selektieren Sie ein geometrisches Set mit den Punkten / ESC zum abbrechen", True)

mySelektionChecker = True
Set myBody = oSel.Item(1).Value
oPart.InWorkObject = myBody

MsgBox (myBody.Name)

Set selection1 = CATIA.ActiveDocument.Selection
selection1.Search "Type=Point*,sel"

For i = 1 To selection1.Count
   Set element = selection1.Item(i).Value
   MsgBox element.Name         ' gibt den namen aus

   Dim Ref1 As Reference
Set Ref1 = part1.CreateReferenceFromObject(element) 'HIER KOMMT FEHLER 424 OBEJECT REQUIRED

---

[Diese Nachricht wurde von Kay Petri am 17. Apr. 2013 editiert.]

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

---

Servus
Vermutlich liegt es daran dass es "oPart.CreateReferenceFromObject" heißen müsste.

Gruß
Bernd

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

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

---

Ja. Danke das war es.

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