---

Hallo Edganer

Gibt es eine Möglichkeit, ein SE Befehl (zB. Abwicklung speichern) durch ein Makro auszuführen lassen?

Mein hintergedanke ist:

1. Abwicklung speichern --> ausführen
2. grösse des Bleches auslesen mit Gandt
3. im Eingenschaftsfeld "Kommentar" eintragen.

Kann mir jemand helfen?

Peticeo

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

---

So etwas ist mit Bordmitteln nicht möglich. Aber die Programmierer im Forum haben sicher eine Idee wie man so etwas machen könnte.

Lars

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

---

Hallo Peticeo!

zum einen einmal würe es interessant, was du genau bezwecken möchtest.
Denn unter Umständen gibt es da schon die Lösung dafür.
Das Original GandT erstellt IMHO bereits ein externes Abwicklungsfile. Das hat zwar, so weit ich mich erinnere immer den selben Namen, aber dies wäre ja leicht zu ändern.

Wenn es Dir nur um die Info zur Abwicklung geht und nicht um die Geometrie, dann hilft Dir vielleicht mein Makro weiter, das Du unter:
http://www.cadcam-consult.com unter Solid Edge-Downloads-SheetLser.zip findest.
Es erzeugt Dir direkt im PSM alle Infodaten des Blechteils als Eigenschaften.

Und wenn es Dir nur um die Blechgröße des Zuschnitts geht, dann ist wahrscheinlich warten auf die V19 am besten.
Denn da sind diese Werte automatisch im PSM vorhanden.

Sag uns einfach, was Du genau brauchst, und wenn möglich finden wir eine Lösung.

mfg
Wolfgang

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

---

Moin,

und wenn die Daten nicht unbedingt im 'Kommentar' stehen muessen
geht's ueber Skizze und 'Variablen offenlegen'

modeng

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

---

Genau das ist für mich das Wichtigste.

Leider kommt bei uns immer wieder vor, dass die Zuschnittliste (Feld: Kommentar zB. Blech 3x916x3750) nicht mit den tatsächlichen Masse übereinstimmt.
Ich dachte, da wir jeweils eine Abwicklung machen, ginge dies im gleichen schritt. Wir haben zwar 3 Variablen (Dicke, Breite, Länge) freigegen aber irgend wie müsste ich diese 3 Werte im Feld "Kommentar" einbringen, der editierbar sein muss.

Gruss Peticeo

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

---

Moin,

vielleicht sollte man anders fragen: wird die Zuschnittsliste per Makro
etc. erstellt? Falls ja sollte es doch wohl moeglich dieses anzupassen,
anstatt ein neues Makro zu schreiben. Ob nun die Daten aus einer Variable
der Dateieigenschaften oder aus 3en abgegriffen werden ist programmtechnisch
trivial.

Sicher koennte man ein Makro schreiben, dessen Aufgabe es ist 3 vars
in eine zu packen. Nur: wird es beim Speichern ausgefuehrt *und*
das Feld soll ja editierbar sein, so wuerde jede manuelle Aenderung
beim naechsten Speichern durch das Makro wieder ueberschrieben werden.
Gleiches gilt wenn es beim Oeffnen ausgefuehrt wuerde.

modeng

[Diese Nachricht wurde von modeng am 05. Aug. 2006 editiert.]

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

---

Jetz hab ich was gefunden, was ich gebrauchen kann.

Ich müsste 3 Var. zusammen fassen wie hier.
http://ww3.cad.de/foren/ubb/Forum3/HTML/004510.shtml#000011

Aber wie kann ich die Variablennamen aus dem Eigenschaftsmanager ausfindig machen? (zB. Artikelnr. oder Länge ....)

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

---

Code.pdf

Ich habs irgendwie FAST geschaft. (Siehe Anhang)

Wie muss ich "mPart" richtig definieren dass es für psm und part geht und nicht für Assambly?

--> dies ist falsch :-(
Dim mPart As SolidEdgeFileProperties.Properties

Bitte hilft mir.

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

---

Sub ausleser()
    Dim mApp As SolidEdgeFramework.Application
    Dim mPart As SolidEdgeDocument ' SolidEdgeFileProperties.Properties
    Dim objProps As SolidEdgeFramework.PropertySets
    Dim objProp As Object
    Dim objItem As Object
    Dim Länge As String
    Dim Breite As String
    Dim Dicke As String
        Set mApp = GetObject(, "solidedge.Application")
          Set mPart = mApp.ActiveDocument
                Set objProps = mPart.Properties
                Set objProp = objProps.Item("Custom")
                For Each objItem In objProp
                        Select Case LCase(objItem.Name)
                            Case "länge"
                                Länge = objItem.Value
                            Case "breite"
                                Breite = objItem.Value
                            Case "dicke"
                                Dicke = objItem.Value
                        End Select
                Next
               
                Dim mSum As SummaryInfo
                Set mSum = mPart.SummaryInfo
                    mSum.Comments = "Blech " & Dicke & "x" & Breite & "x" & Länge

End Sub

''Gruß
''Micha

------------------
http://classicvb.org/petition/

       

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Ich glaubs bald nicht mehr. 

ich kann gar nicht die Varible "mPart" mit As SolidEdgeDocument definieren. Es ist bei mir nicht vorhanden. Von SEAssembly bis SEDraft ist nichts dazwischen.

Was muss ich machen?

Peticeo

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

---

Ich glaub so wirds gehen:
 
Dim mPart As SolidEdgeFramework.SolidEdgeDocument

Gruß
Micha
und btw: falls du VB.NET verwendest dann noch den LCase in Lcase$ ändern.

------------------
http://classicvb.org/petition/

       

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Danke 

Peticeo

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

---

Zitat:

---

Original erstellt von peticeo:
Danke 

Peticeo

---

Danke mir lieber durch Ü's <fg>
Micha

------------------
http://classicvb.org/petition/

       

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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