| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SolidEdge |
Autor
|
Thema: Custom tabelle einlesen (247 mal gelesen)
|
chico Mitglied
Beiträge: 3 Registriert: 01.04.2005
|
erstellt am: 01. Apr. 2005 10:28 <-- editieren / zitieren --> Unities abgeben:
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 |
Jonas Sommerfeld Mitglied
Beiträge: 43 Registriert: 08.03.2005 Help... I need Somebodys help (Beatles)
|
erstellt am: 01. Apr. 2005 10:31 <-- editieren / zitieren --> Unities abgeben: Nur für chico
|
chico Mitglied
Beiträge: 3 Registriert: 01.04.2005
|
erstellt am: 01. Apr. 2005 11:58 <-- editieren / zitieren --> Unities abgeben:
|
modeng Ehrenmitglied V.I.P. h.c.
Beiträge: 7061 Registriert: 10.12.2003
|
erstellt am: 01. Apr. 2005 11:58 <-- editieren / zitieren --> Unities abgeben: Nur für chico
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 |
chico Mitglied
Beiträge: 3 Registriert: 01.04.2005
|
erstellt am: 01. Apr. 2005 13:39 <-- editieren / zitieren --> Unities abgeben:
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 |
Arne Peters Ehrenmitglied V.I.P. h.c. CAD Dokumentation / Training / Programmierung / Datenbanken
Beiträge: 7467 Registriert: 05.2002.24 Solid Edge Seminarunterlagen Training, Beratung, Programmierung
|
erstellt am: 01. Apr. 2005 13:53 <-- editieren / zitieren --> Unities abgeben: Nur für chico
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 |