| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Excelliste gleichzeitig in allen Komponenten löschen? (1761 mal gelesen)
|
Alexander_M Mitglied Maschinenbautechniker
Beiträge: 926 Registriert: 09.03.2006 IV 2010 SP3 64-bit Acad 2007 32-bit Win 7 Ultimate 64 bit NVIDA Quatro FX 4800 1,5GB Xeon E540 2,5 GHz 24GB RAM<P>SIEMENS optiPoint500 economy
|
erstellt am: 26. Feb. 2007 08:24 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, neue Woche neue Frage, weiß jemand ob man eine Excelverknüpfung der BG Komponenten in allen Teilen Gleichzeitig löschen kann. Die Excelliste muss aber erhalten bleiben. Es wir eine BG für die IDW Erstellt und darf sich nicht mehr verändern, die "Original IAM" soll aber über Excelliste variabel bleiben. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Leo Laimer Moderator CAD-Dienstleister
Beiträge: 26104 Registriert: 24.11.2002 IV bis 2019
|
erstellt am: 26. Feb. 2007 08:35 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
Hallo Alexander, Es gibt von Igor ein kleines Tool namens "Kill Excel" oder so ähnlich (Forensuche!). Ob's genau das macht was Du brauchst musst Du halt recherchieren. ------------------ mfg - Leo Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Alexander_M Mitglied Maschinenbautechniker
Beiträge: 926 Registriert: 09.03.2006 IV 2010 SP3 64-bit Acad 2007 32-bit Win 7 Ultimate 64 bit NVIDA Quatro FX 4800 1,5GB Xeon E540 2,5 GHz 24GB RAM<P>SIEMENS optiPoint500 economy
|
erstellt am: 26. Feb. 2007 08:48 <-- editieren / zitieren --> Unities abgeben:
HAt noch jemand dieses EXCEL-Kill Die ZIP-Datei die ich finde hat einen lüstigen Superman drin Habe was bei fx64 gefunden geht aber nicht. Mann muss eine neue Version anfordern. Habs gemacht. Abwarten
[Diese Nachricht wurde von Alexander_M am 26. Feb. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 26. Feb. 2007 08:53 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
|
Leo Laimer Moderator CAD-Dienstleister
Beiträge: 26104 Registriert: 24.11.2002 IV bis 2019
|
erstellt am: 26. Feb. 2007 08:54 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
|
Alexander_M Mitglied Maschinenbautechniker
Beiträge: 926 Registriert: 09.03.2006 IV 2010 SP3 64-bit Acad 2007 32-bit Win 7 Ultimate 64 bit NVIDA Quatro FX 4800 1,5GB Xeon E540 2,5 GHz 24GB RAM<P>SIEMENS optiPoint500 economy
|
erstellt am: 26. Feb. 2007 09:57 <-- editieren / zitieren --> Unities abgeben:
To IGORDanke der IV 11 bringt die o.g. Fehlermeldung meine E-Mail kann ja dann ignoriert werden. Vielen Dank. To Leo Laimer Danke!!! es hat gelappt, bis auf die Tabelle in der OberBG aber darauf pfeife ich. To all SUPER Leute Weiter so!!!!!!!!
Ohne Euch hätten wir viel schwerer gehabt
[Diese Nachricht wurde von Alexander_M am 26. Feb. 2007 editiert.] [Diese Nachricht wurde von Alexander_M am 26. Feb. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 26. Feb. 2007 11:17 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
|
Alexander_M Mitglied Maschinenbautechniker
Beiträge: 926 Registriert: 09.03.2006 IV 2010 SP3 64-bit Acad 2007 32-bit Win 7 Ultimate 64 bit NVIDA Quatro FX 4800 1,5GB Xeon E540 2,5 GHz 24GB RAM<P>SIEMENS optiPoint500 economy
|
erstellt am: 26. Feb. 2007 11:31 <-- editieren / zitieren --> Unities abgeben:
|
Harry G. Ehrenmitglied V.I.P. h.c. one-man-show
Beiträge: 4585 Registriert: 24.01.2003 PDSP2014.1.3; W7.1-64 E3-1240, 16 GB Quadro K2000
|
erstellt am: 10. Mai. 2007 11:12 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
|
Leo Laimer Moderator CAD-Dienstleister
Beiträge: 26104 Registriert: 24.11.2002 IV bis 2019
|
erstellt am: 10. Mai. 2007 11:38 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 10. Mai. 2007 12:25 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 10. Mai. 2007 13:31 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
Probier mal das: Code:
Sub DeleteFirstLinkedTable() If ThisApplication.Documents.Count = 0 Then MsgBox "Die Baugruppe öffnen.", vbExclamation, "Keine Baugruppe" Exit Sub End If If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject Then MsgBox "Die Baugruppe öffnen.", vbExclamation, "Keine Baugruppe" Exit Sub End If Dim oAsm As AssemblyDocument Set oAsm = ThisApplication.ActiveDocument ForAllComponents oAsm.ComponentDefinition.Occurrences ThisApplication.ActiveDocument.Update End SubSub ForAllComponents(oOccs As ComponentOccurrences) Dim oOcc As ComponentOccurrence Dim i As Integer For Each oOcc In oOccs On Error Resume Next oOcc.Definition.Parameters.ParameterTables(1).Delete ThisApplication.StatusBarText = oOcc.Name If Err.Number <> 0 Then Err.Number = 0 GoTo NEXTCOMP End If NEXTCOMP: ForAllComponents oOcc.SubOccurrences Next End Sub
Wie der interessierte Beobachter bestimmt merkt, ändert sich immer nur eine bis zwei Zeilen in dem Makro... ------------------ Grüße Igor FX64 Software Solutions Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Harry G. Ehrenmitglied V.I.P. h.c. one-man-show
Beiträge: 4585 Registriert: 24.01.2003 PDSP2014.1.3; W7.1-64 E3-1240, 16 GB Quadro K2000
|
erstellt am: 10. Mai. 2007 13:42 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 10. Mai. 2007 13:48 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 10. Mai. 2007 14:00 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
Also die Excel-Leiche ist über die API nicht zu greifen. Die Frage ist wie Inventor darauf kommt, dass da was verknüpft ist / war? Die Antwort bekommst du wenn du die Datei mit dem Texteditor öffnest und nach „x l s“ suchst. Ganz unten erscheint dann: \ E i g e n e D a t e i e n \ I n v e n t o r l o k a l e r A r b e i t s b e r e i c h \ V A 2 l o k a l e r A r b e i t s b e r e i c h \ G a s v e r t e i l u n g \ A n l a g e n v e r r o h r u n g . x l s Und die Bytes aus der Datei zu löschen ohne zu wissen wozu die da sind, bzw. wo die Ketten anfangen und wo aufhören ist ein Wahnsinn, den automatisieren lässt sich das nur schwer. Daher fang ich gar nicht an.
------------------ Grüße Igor FX64 Software Solutions Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Harry G. Ehrenmitglied V.I.P. h.c. one-man-show
Beiträge: 4585 Registriert: 24.01.2003 PDSP2014.1.3; W7.1-64 E3-1240, 16 GB Quadro K2000
|
erstellt am: 10. Mai. 2007 14:09 <-- editieren / zitieren --> Unities abgeben: Nur für Alexander_M
Ja, da hat die Verwendung von SUBST bei einer Migration einen Streich gespielt. Es liegt wohl an meinem umfassenden Verständis der Innereien von Inventordateien, daß ich geglaubt habe daß es nur eine Art von Verweisen auf Tabellen gibt Hab vielen Dank für Deine Mühe. Ich lasse das Makro nachher mal auf eine der Dateien los für die es gemacht ist. ------------------ Grüße von Harry Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |