---

Servus leute!

mal eine hoffentlich kurze Frage:

Ich habe ein makro was ganz wunderbar unter der partumgebung läuft.
gibt es eine einfache lösung dieses auch unter product zum laufen zu bekommen? mein gedanke war da erstmal einfach folgende zeile umzuändern, weiß aber nicht wie : Set oPart = CATIA.ActiveDocument.Part
am besten wäre es wenn ich einfach im product ein part selektieren kann und dieses dann als "opart" gespeichert wird und ich dann das makro ganz einfach übernehmen kann. funkioniert das überhaupt so einfach?

grüsse matthias

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

---

habs selbst lösen können

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

---

Mit diesem Problem habe ich eine Weile zu Kämpfen gehabt. ich habe ein kleines WA. dazu entwickelt.ich hoffe das hilft dir weiter.
ich habe es allerdings rekursiv. dh. du musst es in dein Makro als Unterroutine einbauen.... hier der Qellcode

Sub docuanalyse()
    Dim Status As Object
    sel.Clear
    If TypeName(CATIA.ActiveDocument) = "ProductDocument" Then
        MsgBox "Bitte das PartDocument in dem die Geometrie erzeugt werden soll aus dem CATIA-Baum selektieren"
        Dim docutype(0)
        docutype(0) = "Part"
        Status = sel.SelectElement2(docutype, "Bitte Part auswählen, Abbrechen mit 'Esc'", True)
        If Status = "Cancel" Then Exit Sub
        Set bauteil = sel.Item(1).Value
        sel.Clear
       
    ElseIf TypeName(CATIA.ActiveDocument) = "PartDocument" Then
        Set bauteil = CATIA.ActiveDocument.Part
   
    Else
        MsgBox "Das geöffnete Dokument ist kein Part und ist für den Durchlauf des Makros nicht geeignet!!" + Chr(10) + "Bitte öffnen Sie Ihren Part in einem neuen Fenster und starten das Makro erneut."
        End
    End If
End Sub

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

---

Zitat:

---

Original erstellt von dersummi:
habs selbst lösen können 

---

Wäre schön wenn du deine Lösung einmal posten würdest.

Dank im vorraus und Gruß
Lutz

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

---

So......    ich habe es auch gelöst.

Hier meine Lösung,
um in einer Pruduktstruktur, in einem selktierten GeoSet eine Part-Object z.B eine Punkt zu erzeugen.

Language="VBSCRIPT"
Sub CATMain()

Dim selektion1 'As Selection
Set selektion1 = CATIA.ActiveDocument.Selection

If selektion1.Count = 1 Then
  If selektion1.Item(1).Type <> "HybridBody" Then ' kein GeoSet gewählt
    MsgBox("Es ist kein GeoSet ausgewählt.")
    Exit Sub
  End If
Else MsgBox("Es ist genau ein GeoSet auszuwählen.")
  Exit Sub
End If ' alles okay!

'----------- In welchem Part befinden wir uns?
Dim myPart 'As Part
Set myPartDocument = selektion1.Item(1).Value.Parent.Parent.Parent
MsgBox "mein Part: " & myPartDocument.FullName
Set myPart = myPartDocument.Part

'----------- Punkt erzeugen
Set GeoSet = Selektion1.Item(1).Value
Set Factory1 = myPart.HybridShapeFactory
Set PointCoord1 = Factory1.AddNewPointCoord(0, 0, 0)
GeoSet.AppendHybridShape PointCoord1
myPart.InWorkObject = PointCoord1
myPart.Update

Exit Sub

---------------------------------------------

Danke an Alle die hier posten und so zur Lösung meiens Problems beigetragen haben.

Gruß Lutz

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