---

Hallo,

Ich hätte mal ein neues anliegen.

Gearbeitet wird in einem "Hauptproduct"(welches auch das aktive Fenster darstellt) mit Unterproducts und ner Menge Parts und ich möchte im jeweiligen aktivem Part(Blau hinterlegt -> PartDesign) Elemente (Geo-Sets, Punkte etc.) per Makro einfügen.

Da ich ja jedes X-belibige Part aktiv haben kann macht es das mit dem "ReferenceProduct.Parent....." von oben nach unten durchzählen ja glaube ich eher schwer und weniger Sinn, oder?
Deswegen war meine Idee das über eine UserSelection zu lösen, doch leider funktioniert das auch noch nicht so richtig.

Code:

---

Set oActDoc = CATIA.ActiveDocument
Set oUserSel1 = oActDoc.Selection

oUserSel1.Clear

MsgBox "Bitte (nach OK) Part selektieren ...", 16, oMakroname + oVersion

Dim oSel1 (0)
oSel1 (0) = "Part"

oChoice = oUserSel1.SelectElement2(oSel, "Part ...", False)

If oChoice = "Normal" Then
MsgBox "Ausgewählt wurde: "& oUserSel1.Item(1).Value.Name Else
MsgBox "Abbruch"
Exit Sub
End If

oPartName = oUserSel1.Item(1).Value.Name & ".CATPart"
MsgBox oPartName

Set oPart = ????

---

wie gesagt ich verzweifel da grad dran wie ich jetzt das Part aktiv schalten kann um z.B. etwaige GeoSets einzufügen.

Folgendes Funktioniert nicht :/

Code:

---

Set oPart = oActDoc.Item(oPartName)
Set oPart = oUserSel1.Item(oPartName)

---

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

---

Servus Booyaka

Bei der Selektion müsste

Code:

---

Set oPart = oUserSel1.Item(1).Value

---

das Part sein.
Oder über falls du den Partnamen (Dateinamen) schon kennst direkt über:

Code:

---

Set oPart = CATIA.Documents.Item("MeinPart.CATPart").Part

---

Gruß
Bernd

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

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

---

Ja also der Name ist mir nie wirklich bekannt (von Projekt zu Projekt teilweise anders).

Aber das mit UserSel1.Item(1).Value funzt super ich dank dir vielmals 

Da fällts mir wie Schuppen von den Augen, da hab ich aber schon ein groben Schnitzer gehabt. Danke fürs Aufzeigen meines Fehlers 

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

---

Hallo,

du hast zwar schon eine Lösung gefunden, aber ich dachte vielleicht kann's jemand trotzdem gebrauchen. Vor längerer Zeit hatte ich ein ähnliches Problem und habe auch das Blau hinterlegte Produkt benötigt. Dazu hatte ich von Birger Hahn unter http://www.tech-ecke.de/index_quereinstieg.htm?/catscript/diverse_codeschnipsel.htm folgendes gefunden:

Code:

---

Sub CATMain()

if TypeName(CATIA.ActiveDocument) = "ProductDocument" then
  set selection1 = CATIA.ActiveDocument.Selection
  selection1.Clear
  selection1.Search "(CATProductSearch.Product),in"
  if selection1.Count = 0 then
      ' wenn ein Part innerhalb des Products aktiv ist ---> Part im Product
      selection1.Search "(CATPrtSearch.PartFeature),in"
      set DokumentInst = GetDocumentByName(selection1.item(1).Value.Name)  ' Instanz
      set Dokument = DokumentInst.ReferenceProduct.Parent ' Dokument
      selection1.Clear
  else
      ' wenn ein Product innerhalb des Products aktiv ist ---> Product im Product
      set DokumentInst = selection1.Item(1).Value ' Instanz
      set Dokument = DokumentInst.ReferenceProduct.Parent ' Dokument
      selection1.Clear
  end if
else
  ' wenn das aktive Dokument ein Part ist
  set Dokument = CATIA.ActiveDocument
end if

MsgBox TypeName(Dokument) &": " &Dokument.Name ' Ergebnis = das aktive Part bzw. Product

End Sub

Function GetDocumentByName(DokName)
On Error Resume Next

set Dokumente = CATIA.Documents
for n = 1 to Dokumente.count
  set Produkte = Dokumente.Item(n)
  WieOft = 0
  WieOft = Produkte.product.products.count
  for i = 1 to WieOft
      set Produkt = Produkte.product.products.item(i)
      if DokName = Produkt.PartNumber then
        set GetDocumentByName = Produkt
        Exit Function
      end if
  next
next
End Function

---

Damit lässt sich das aktuell in Bearbeitung befindende Part/Produkt abfragen.

Gruß,
Sebastian

------------------
"Die Genialität einer Konstruktion liegt in ihrer Einfachheit. Kompliziert bauen kann jeder." - Sergej P. Koroljow

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