---

Hallo Freunde,

Ich habe in Solid Edge eine ASM-Zeichnung gemacht.
Jetzt möchte ich in Visual Basic 6.0 die Custom tabelle von den Parts einlesen und ändern. Wer kann mich behilflich sein ?

Viele Grüße.

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

---

Denke mal es handelt sich nicht umeinen Aprilscherz.
Was kannste du denn schon in bezug auf VB in Solid Edge?

Jonas

der jetzt unterdrücker spielt

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

---

Ich bin Anfänger und möchte nur wissen wie man aus die Custom tabelle variabelen auslesen kan ......

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

---

getProp.zip

Moin,

anbei ein Beispiel, die Fehlerbehandlung ist noch zu machen. Listet
die Custom des aktiven Dokuments. Sollen alle Custom Sections aller
Parts einer Assembly gelistet werden, musst du Dich durch die
Occurences der Assembly arbeiten ...

Falls die zurueckgegebene Collection mehrfach verwendet werden
soll saehe das so aus;

Private Sub Command1_Click()
'
[...]

Dim coProps As Collection

'
    [...]
    Set coProps = clsProp.getAllProps(objDoc, aryProps)
    If coProps Is Nothing Then
        MsgBox clsProp.getError()
        GoTo cleanup:
    End If
    '
    For Each vTemp In coProps
    [...]

modeng

[Diese Nachricht wurde von modeng am 01. Apr. 2005 editiert.]

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

---

QUOTE: "Sollen alle Custom Sections aller
Parts einer Assembly gelistet werden, musst du Dich durch die
Occurences der Assembly arbeiten ..."

Das ist aber genau da Problem, wie rufe ich die Properties von aller Parts an ?

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

---

Bis Du SE-Anfänger oder Prgrammier-Anfänger?
Verzeih mein "O_"für Objekte.

Recursive Schleifen sind die Freude des Programmierens.
****
Function f_scan_occs(o_doc As AssemblyDocument)
Dim o_occs As Occurrences
Dim o_occ As Occurrence
Dim k As Integer
        Set o_occs = o_doc.Occurrences
        For k = 1 To o_occs.Count
            Set o_occ = o_occs.Item(k)
            *****
            Hier kommt as auslesen der props..
            *****
            If o_occ.Type = igSubAssembly Then
                'recursiver Aufruf für verschachtelte Subassemblies
                Call f_scan_occs(o_occ.OccurrenceDocument)
            End If
            Next k
End Function
****
APeters@BSS-Online.de

[Diese Nachricht wurde von Arne Peters am 01. Apr. 2005 editiert.]

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