---

Hi,

ich bin grad dabei etwas im NC Bereich zu programmieren. Ich möchte zunächst aus einem Process aus einer Aufspannung aus dem Kennsatz den Text der in der Beschreibung hinterlegt ist auslesen.

Wie gehe ich da am geschicktesten vor?

Grüße

Tiberius

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

---

Hallo Tiberius,

am einfachsten ist es über eine selection.search nach dem parameter zu suchen und ihn so auszulesen oder zu modifizieren.

grüße dominik

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

---

Hi Dominik,

kannst Du mir da mal mit nem Codeschnipsel auf die Sprünge helfen?

Bin schon am probieren komme aber grad nicht von der Stelle.

Danke schonmal.

Grüße

Tiberius

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

---

Hallo Tiberius,

ich hab nochmal nachgeschaut, mittlerweile spreche ich die Parameter direkt an:

Code:

---

Set strParam1 = CATIA.ActiveDocument.GetItem("Process").Parameters.Item("Kopierfräsen.1\MfgParameter.2\MfgFeedrateParameter\Bearbeitungsvorschub")  'Bearbeitungsvorschub
sVorschub = strParam1.Value

---

grüße Dominik

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

---

Danke für den Tipp, hoffe ich komme heute noch dazu es mal zu testen.

Grüße

Tiberius

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

---

Baumstruktur2.JPG

Hallo,

also irgendwie komme ich da nicht weiter. Ich hab mir mal vor einiger Zeit nen paar zeilen Code zusammengebastelt mit dem ich in einem Product ein Element auswählen konnte. Nun dachte ich ich das geht für den Process ebenso aber da sagt er mir das das an der Stelle so nicht möglich sei.

Code der für das Product funktionierte:

Code:

---

Dim EnableSelectionFor(0)

EnableSelectionFor(0) = "Product"
     
    Do
   
        UserSel.Clear
       
        UserAuswahl = UserSel.SelectElement2(EnableSelectionFor, "Vorgaengerpart waehlen", True)
       
        If UserAuswahl <> "Normal" Then
            MsgBox "Fehler!", vbCritical, "Abbruch"
            Exit Sub
        End If
           
        Set SelPart = UserSel.Item(1).Value
       
        Merker = SelPart.HasAMasterShapeRepresentation
           
        If Merker Then
            Exit Do
        Else
            Nachricht = MsgBox("ungültig! Bitte erneut auswaehlen", vbOKCancel, "Fehler")
            If Nachricht = vbCancel Then Exit Sub
        End If
       
    Loop

---

Ich hab auch mal ein Bild begefügt und die Zeiele die ich nach dem Selektieren auslesen und ggf. neu schreiben möchte falls sich eine Änderung ergibt (bei den Hinweisen, da das ja freier Text ist).

Vielleicht gibts da ja ne ganz einfach Lösung und ich denk viel zu kompliziert.

Grüße

Tiberius

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

---

Hol Dir doch die Parameters über ein .Parameters auf den Prozess oder direkt vom Dokument. die zum Prozess sind dann die unter Process.1\ bzw. geh auf die Eigenschaften von ihnen los. UserModifacation und so...

Hab grad kein VB hier, aber hatte da mal ein Makro zu geschrieben, welches alle Parameter im prozess durchgeht und ne Doku dazu erstellt.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hi,

sorry wenn ich mich jetzt erst melde, bin erst seit heute wieder da.

Kannst Du mir vielleicht das was Du schonmal geschrieben hast auszugsweise mal zukommen lassen. Hatte bisher noch nicht dran weitergemacht weil anderes anstand und dann auch Weihnachten inkl. der Ferien anstand.

Grüße

Tiberius

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

---

Ich hoffe das kann helfen. Ist einfach, aber sehr effektiv, da sehr schnell. Musste damals ne Weile danach suchen, denn der Prozess hat in seiner Gesamtheit einfach viel zu viele Paramaeter:

Set processDocument = CATIA.ActiveDocument
Set pPRActivity = processDocument.GetItem("Process")
Set processParameters = pPRActivity.Parameters.SubList(pPRActivity, False)

Dann einfach den gewünschten Parameter aus den wenigen verbleibenden nehmen. Also For each Parameter und dann den Namen prüfen und in der Value steht dann der Wert.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

[Diese Nachricht wurde von HoBLila am 15. Jan. 2009 editiert.]

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