| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
 | PNY präsentiert die PRO Elite™ High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung
|
Autor
|
Thema: Bauteil in Baugruppe einfügen (Regel) (3424 mal gelesen)
|
Rodario7 Mitglied Maschinenbautechniker

 Beiträge: 85 Registriert: 08.02.2013 Windows 7 64bit Inventor 2013 Visual Basic 2010 Express
|
erstellt am: 02. Apr. 2014 23:15 <-- editieren / zitieren --> Unities abgeben:         
Hallo zusammen, ich hoffe ich bin hier im richtigen Forum für mein Thema. Ich möchte folgendes machen: In Inventor 2013 eine Regel erstellen die mir folgendes bietet: 1.Abfrage ob ein Bauteil in der Baugruppe vorhanden ist. 2. Falls es vorhanden ist.... das Bauteil löschen 3. Falls es nicht vorhanden ist möchte ich es einfügen. Ich habe bisher nur den code für das ersetzen von Bauteilen gefunden (Component.Replace("Part1:1", "OtherPartfilename.ipt", True) Kann mir jemand weiterhelfen?
------------------ Gruß Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer

 Beiträge: 9807 Registriert: 01.12.2003 AutoCAD 200x, Civil, LDD, MDT, ARD, ACA(ADT) Inventor AIP 4-11,200x WinXP, W2K
|
erstellt am: 02. Apr. 2014 23:28 <-- editieren / zitieren --> Unities abgeben:          Nur für Rodario7
|
Rodario7 Mitglied Maschinenbautechniker

 Beiträge: 85 Registriert: 08.02.2013 Windows 7 64bit Inventor 2013 Visual Basic 2010 Express
|
erstellt am: 02. Apr. 2014 23:35 <-- editieren / zitieren --> Unities abgeben:         
|
Rodario7 Mitglied Maschinenbautechniker

 Beiträge: 85 Registriert: 08.02.2013 Windows 7 64bit Inventor 2013 Visual Basic 2010 Express
|
erstellt am: 03. Apr. 2014 11:55 <-- editieren / zitieren --> Unities abgeben:         
|

| |
Rodario7 Mitglied Maschinenbautechniker

 Beiträge: 85 Registriert: 08.02.2013 Windows 7 64bit Inventor 2013 Visual Basic 2010 Express
|
erstellt am: 03. Apr. 2014 14:17 <-- editieren / zitieren --> Unities abgeben:         
So hat sich erledigt... habs so gelöst: Code:
Dim oDoc As AssemblyDocument oDoc = ThisApplication.ActiveDocument Dim oRefedDoc As Document For Each oRefedDoc In oDoc.AllReferencedDocuments If InStr(oRefedDoc.FullDocumentName, "Mein gesuchter Bauteilname") Then Component.Replace ("Mein gesuchter Bauteilname:1", "kompletter Pfad zur neuen Bauteildatei", True) End If Next
------------------ Gruß Klaus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |