---

Hallo,

ich habe folgendes Macro geschrieben und stoße nun auf ein Problem beim selektieren eines Parts im Product.
Das Macro funktioniert file based aber nicht in Verbindung mit einer Datenbank (3dcom).

Ich habe herausgefunden, dass nicht wie in filebased der Dateiname z.B Teil1.CATPart verwendet wird, sondern der Datenbankname des Teils --> Set partDocument1 = documents1.Item("4142AD66FBC806AD4142AD66FBC806AESPACE  DOCV5            DBVVALI7").

Die Frage ist wie kann ich den Datenbankname vorher abfragen?

Ähnliche Frage gabe es schon, konnte aber nichts damit anfangen:

http://ww3.cad.de/foren/ubb/Forum137/HTML/003007.shtml#000001

'**********Selection User Part für Punkte import**************************************************'
Set selection = CATIA.ActiveDocument.Selection

Dim filter(0)
filter(0)="Part"

Status=selection.SelectElement2(filter,"Select the Part you want to import the points --> Cancel with ESC!", false)

if Status="Normal" then

      If (CATIA.GetWorkbenchId <> "PrtCfg") Then
           
            Call CATIA.ActiveDocument.Activate
            Call CATIA.StartWorkbench("PrtCfg")
               
      End If

     
'Hier findet die Abfrage des Dateinames statt. Gibt es auch die Möglichkeit den Datenbankname des Teils abzufragen?
      Word1 = (selection.Item(1).Value.Name) & ".CATPart"

      Dim documents1 As Documents
      Set documents1 = CATIA.Documents

      Dim partDocument1 As Document
      Set partDocument1 = documents1.Item(Word1)

      Dim part1 As Part
      Set part1 = partDocument1.Part

      Set factory = part1.HybridShapeFactory

    'Geometrische Set anlegen'
      Set geometrische_sets=part1.hybridbodies
      Set geometrisches_set = geometrische_sets.add
      geometrisches_set.name = "Bending_Points"

      else

      MsgBox " Macro is terminated"
      selection.Clear

      Exit Sub

End If
'Ende Bereich Selection'

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

---

Servus
Wenn du das Part bzw die Instance schon selektiert hast solltest du direkt auf das Dokument kommen (Watchfenster).
(zB über (ungetestet): selection.Item(1).Value.parent)

Gruß
Bernd

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

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

---

Hallo Bernd,

leider hat es nicht funktioniert:

'Word1 = (selection.Item(1).Value.Name) & ".CATPart"
     
Word1 = (selection.Item(1).Value.Parent)
     
MsgBox Word1

      Dim documents1 As Documents
      Set documents1 = CATIA.Documents

      Dim partDocument1 As Document
      Set partDocument1 = documents1.Item(Word1)

Das Ergebnis der MsgBox ist leer.

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

---

Servus
Geht doch auch direkt ohne den Namen auszulesen/verwenden:

Code:

---

Set PartDocument = selection.Item(1).Value.Parent

---

Gruß
Bernd

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

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

---

Hallo Bernd,

die Lösung war erfolgreich. Vielen Dank!

Gruß Jens

Wen es interessiert, anbei die Lösung:

'**********Selection User Part für Punkte import**************************************************'
Set selection = CATIA.ActiveDocument.Selection

Dim filter(0)
filter(0)="Part"

Status=selection.SelectElement2(filter,"Select the Part you want to import the points --> Cancel with ESC!", false)

if Status="Normal" then

      If (CATIA.GetWorkbenchId <> "PrtCfg") Then
           
            Call CATIA.ActiveDocument.Activate
            Call CATIA.StartWorkbench("PrtCfg")
               
      End If

      Dim partDocument1 As Document
      Set partDocument1 = selection.Item(1).Value.Parent

      Dim part1 As Part
      Set part1 = partDocument1.Part

      Set factory = part1.HybridShapeFactory

    'Geometrische Set anlegen'
      Set geometrische_sets=part1.hybridbodies
      Set geometrisches_set = geometrische_sets.add
      geometrisches_set.name = "Bending_Points"

      else

      MsgBox " Macro is terminated"
      selection.Clear

      Exit Sub

End If
'Ende Bereich Selection'

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