---

Hallo,

ich habe in einem Product ein Part aktiv gemacht (...Edit). Nun möchte ich in diesem Part arbeiten (Solid etc.).

Leider kann ich im Makro das aktive Part nicht auslesen. Es wird immer das Root-Product ausgegeben:

Set WeldingProduct = CATIA.Documents
Set WeldingDoc = CATIA.ActiveDocument
MsgBox "Test - "&WeldingDoc.Name

' dann kommt der Fehler:
' Set WeldingPart = WeldingDoc.Part

Wie kann ich denn das Problem am Besten lösen?

Danke im Voraus,

Holger

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

---

Hallo hklein06,

ein ähnliches Problem gab es erst vor kurzen, vielleicht hilft Dir ja der Link: http://ww3.cad.de/foren/ubb/Forum137/HTML/001168.shtml

mfg,
Lusilnie

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

---

Hallo Lusilnie,

danke für den Hinweis. Den Artikel habe ich gelesen, allerdings hat der nichts mit meinem Problem zu tun. Ich möchte ja nicht alle Parts deaktivieren oder ähnliches.

Bei mir ist bereits ein Part aktiv. Ich möchte in diesem Part mit einem Makro arbeiten. Um dies zu können, benötige ich den Name des Parts um ihn mit

Set WeldingDoc = WeldingProduct.Item(???)

zu setzen.

Leider bekomme ich beim Auslesen von ActiveDocument nur den Name des Root Products, also nicht des Parts.

Viele Grüße,

Holger

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

---

Hallo hklein06,

wenn ich die Makro-Programmiererei richtig verstanden habe, ist dieser Fall nicht vorgesehen. Das ist aus meiner Sicht aber kein Beinbruch (bzw. Problem), da man dies mit einer Selektions-Abfrage umgehen kann. Das heißt, anstatt zu versuchen, daß aktivierte Part zu finden, fordert man den Makro-Nutzer einfach auf, dieses Part zu selektieren. Mit der Selektion kann man dann prima im Makro weiterarbeiten...

(Entschuldige, wenn ich eher "praktisch" veranlagt bin!)

mfg,
Lusilnie

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

---

Hallo Lusilnie,

da ist schon richtig, doch da gibt es mehrere Probleme:

1. die Auswahl eines Parts reicht nicht, da das Makro den Inhalt eines Geometrical Sets nicht findet, wenn das Part nicht aktiv ist,

=> deshalb müßte der Anwender das Part vorher von Hand aktivieren,
was leider auch nicht richtig funktioniert (CATIA.ActiveDocument gibt mir immer das Product, nicht das Part aus)

2. selbst wenn sich der Punkt 1 ohne eine Aktivierung des Parts lösen läßt, bleibt das Problem, dass der Anwender (nach dem Ablauf des Makros) die Teile im Geometrical Set verändern muss

=> also muss er das Part von Hand aktivieren

3. der Anwender arbeitet den ganzen Tag damit

=> wenn man das mal hochrechnet wird es ziemlich lästig, das Part jedesmal von Hand zu aktivieren

Das brachte mich zu der Fage, wie man per Makro ein Part aktivieren kann (z.B. mit einer Abfrage o.ä.).

Viele Grüße,

Holger

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

---

Hallo
Nach der Selektion des Parts durch den Benutzer mußt du das Part nicht aktiv schalten, sondern du weist die Selektion einer Variablen vom Typ PartDocument zu. Dadurch hast du vollen Zugriff auf alle Methoden und Eigenschaften des Parts aus deinem Produkt.
Schlußendlich ist das Part ja geladen und somit Teil der Document-Auflistung.
Code für die Auswahl eines Parts:
Dim oDoc
Dim SelFilter(1)
Dim sStatus As String
Dim selelm As SelectedElement
Set oDoc = CATIA.ActiveDocument
SelFilter(0) = "Part"
SelFilter(1) = "Part"
oDoc.Selection.Clear
msgbox "Bitte Part auswählen!", vbOKOnly, "Selektion durchführen"
sStatus = oPartDoc.Selection.SelectElement(SelFilter, "Bitte Part auswählen", True)
If Status ="Normal" Then
Dim oSelPart As PartDocument
Set oSelPart= oDoc.Selection.Item(1).Value
End If

------------------
Grüße TStone
  "Respektiere die Macht der Worte, wähle sie mit Bedacht!"

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

---

Zitat:

---

Original erstellt von hklein06:
3. der Anwender arbeitet den ganzen Tag damit
=> wenn man das mal hochrechnet wird es ziemlich lästig, das Part jedesmal von Hand zu aktivieren

---

Wie lästig wird es erst, wenn der Anwender gar kein Makro bekommt und ALLES von Hand machen muss?

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

---

Hallo Tstone,

bevor ich das ausprobiere, hätte ich da noch eine Frage.

Kann ich mit Deiner Methode auf ein Part zugreifen (Selektion und Erzeugen von Geometrie in einem Geometrical Set) ohne das Part vorher zu aktivieren?

Ich habe es im Moment so gelöst, dass das Part aktiviert werden muss und dann über ein (sowieso) benötigtes Geometrical Set gefunden wird. Allerdings ist mir das mit den "Parent" nicht ganz klar (es funktioniert aber einwandfrei, auch in einzelnen Parts).

Viele Grüße,

Holger

Dim WeldingProduct As Documents
Dim WeldingDoc As Document
Dim WeldingPart As Part
Dim WeldingBody As HybridBody
Dim WeldingBodyName As String
Dim WeldingGeometry As HybridShapeFactory
Dim Select_Objects As Selection
Dim Select_Part As Selection

Set WeldingProduct = CATIA.Documents
Set Select_Part = CATIA.ActiveDocument.Selection 
Select_Part.Clear

      Dim Objects(0)
      Objects(0) = "HybridBody"
      Select_GeoSet = Select_Part.SelectElement(Objects, Input_GeoSet, false)
      Set WeldingDoc = WeldingProduct.Item(Select_Part.Item(1).Value.Parent.Parent.Parent.Name)
      Set Select_Objects = WeldingDoc.Selection
      Set WeldingPart = WeldingDoc.Part
      Set WeldingGeometry = WeldingPart.HybridShapeFactory   
      Set Select_WeldingBody = Select_Part.Item(1).Value
      WeldingPart.InWorkObject = Select_WeldingBody

@Stoffel:
Dein Spruch kommt gleich hinter "Das hat es in CATIA V4 auch nicht gegeben..."

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