|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
Frankx am 16.04.2021 um 08:49 Uhr (1)
DerivedAssemblyComponentsNa da hätte ich auch selbst drauf kommen können/müssen. Ich hatte irgendwie schlimmeres befürchtet.Ich glaube, ich habe jetzt alles beisammen. Den Rest habe ich schon für mich passend zurecht gestrickt und es funktioniert gut.Danke, auch für den Hinweis zum Locals Window. Ich hatte das zwar schon mal irgendwo gesehen, aber den Sinn noch nicht richtig verstanden. Man lernt eben immer wieder dazu.Schönes WE..
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum und-color: #FFFF99'>suchen und aufmachen einer Datei mit bekanntem Anfang
Enduro am 23.10.2012 um 11:22 Uhr (0)
Hi, ich bin immer noch am idw, ipt kopieren Makro schreiben. Hinzu kommt jetzt auch die iam-Datei. Dabei will ich jetzt im vorgegebenen Verzeichnis schauen, ob die Zeichnung auch eine BG referenziert und die auch mitkopieren und Referenz dementsprechend aktualisieren. Es sind aber nicht mehrere Baugruppen sondern in der Regel nur eine Baugruppe die mitkopiert werden muss, weil sie nur noch ein Paar Schrauben enthält. ----------------------------------Viele GrüßeEndu[Diese Nachricht wurde von Enduro am 2 ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bei abgeleiteter Komponente Ursprungsbauteil ersetzen
sparc am 05.06.2009 um 19:27 Uhr (0)
Hallo,bei per Code erstellten Bauteilen habe ich immer das Problem, dass die davon abgeleiteten Bauteile die Bezugskomponente nicht mehr akzeptieren, sobald ich sie per Code neu erzeuge, auch wenn ich nichts daran verändert habe.Es scheint, dass die DIVA eine innere, eindeutige Kennung besitzt und nur über diese ein File akzeptiert. Das ist ja an sich sehr sinnvoll, doch in diesem Fall stört es unheimlich!Kann man dieses Problem irgendwie lösen?Vielen Dank für Eure Hilfe,Sparc.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Text in DrawingView Sketch ersetzen
Brandy32 am 04.03.2016 um 08:51 Uhr (7)
Hallo DanSolo,herzlichen Dank schon mal.Ich habe aber tatsächlich noch ein Problem damit:Das Text ersetzten funktioniert mit deinem Code super. Allerdings verändert es bei mir die komplette TExtformatierung (Schrift, Zeilenumbruch,)Außderdem habe ich im Text Bauteileigentschaften (Bauteilummer, Bezeichnung, Parameter mit Abmaßen, et.) eingefügt,das war auch der SInn um die Skizze auf die Ansicht zu legen.Diese Verküpfung verliert er leider nach dem ausführen des Codes und schreibt dann z.B. nur noch Baute ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Text in DrawingView Sketch ersetzen
DanSolo am 04.03.2016 um 08:16 Uhr (1)
Guten Morgen, Ich denke das sollte seinen Dienst tun.Wenns noch Fragen dazu gibt, gerne Sub ReplaceText() Dim oDrawing As DrawingDocument Set oDrawing = ThisApplication.ActiveDocument Dim oSheet As Sheet Dim oView As DrawingView Dim oSketch As DrawingSketch Dim oText As TextBoxFor Each oSheet In oDrawing.Sheets For Each oView In oSheet.DrawingViews For Each oSketch In oView.Sketches oSketch.Edit For Each oText In oSketch.TextBoxes oText.Text = Replace(oText.Text, "Hallo", "neuerTe ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Text in DrawingView Sketch ersetzen
DanSolo am 04.03.2016 um 09:53 Uhr (1)
Ja, da müssen wir auf den "FormattedText" gehen, da sollten alle Formatierungen erhalten bleiben. Sub ReplaceText() Dim oDrawing As DrawingDocument Set oDrawing = ThisApplication.ActiveDocument Dim oSheet As Sheet Dim oView As DrawingView Dim oSketch As DrawingSketch Dim oText As TextBoxFor Each oSheet In oDrawing.Sheets For Each oView In oSheet.DrawingViews For Each oSketch In oView.Sketches oSketch.Edit For Each oText In oSketch.TextBoxes oText.FormattedText = Replace(oText.For ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum und-color: #FFFF99'>suchen und aufmachen einer Datei mit bekanntem Anfang
rkauskh am 23.10.2012 um 13:13 Uhr (0)
HiKleiner Irrtum von mir, AllReferencedDocuments in der IDW liefert schon eine Liste aller Dateien. Das was du vermutlich suchst, findest du unter ReferencedFiles. Dort dürfte, wenn außer der Erstansicht der BG keine weiteren Erstansichten von anderen BGs oder Bauteilen vorhanden sind, nur deine Baugruppe drin stehen. Sollte die Zeichnung z.B. eine Erstansicht einer BG und eine Erstansicht eines Bauteiles enthalten und beide Komponenten sollen kopiert und umreferenziert werden, kannst du nur durch alle Zei ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum und-color: #FFFF99'>suchen und aufmachen einer Datei mit bekanntem Anfang
Enduro am 23.10.2012 um 08:59 Uhr (0)
Hallo,leider finde ich im Internet außer Basics selten etwas brauchbares. Mein Problem: ich möchte eine Baugruppe öffnen. Name dieser Baugruppe besteht aus Bauteilnummer und einem String, der immer anders ist. z. B. Nummer_BG.iam oder Nummer_neu.iam usw. Ich brauche eine Variable Platzhalter um diesen Datei zu öffnen. So öffne ich eine iam, wenn der Name bekannt ist: (die IDW-Datei dazu ist aktiv)Code: Set oDoc = ThisApplication.ActiveDocument odocname = oDoc.FullFileName Pfad = Left(oDoc.FullFileName ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
EIBe 3D am 15.04.2021 um 16:50 Uhr (1)
Hallo Frank,Zitat:...Was mache ich falsch?...Bitte nicht falsch vertehen: Du nutzt die Möglichkeiten des Editors nicht. Lasse dir das Lokal Fenster im VBA Editor anzeigen. Dort kannst du dann alle Objekte unterund-color: #FFFF99'>suchen z.B. wenn die Ausführung bei der Fehlerzeile stehen bleibt.Dann würdest du sehen, dass das Objekt die Eigenschaft auf welche du zugreifen möchtest schlicht nicht besitzt.Richtig lautet der Zugriff auf den FullFileName eines Ursprungsteils einer AK:Code:oRefDoc.ComponentDefinition.ReferenceComp ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile mit Ilogic ersetzen
Big-Daddy am 05.02.2016 um 10:12 Uhr (1)
ja das weiß ich, aber was ist wenn Bauteil1 nicht vorhanden ist in der Zusammenstellung? Dann bringt er mir eine Fehlermeldung.Dann müsste ich jedes mal die Regel anpassen was dann genau soviel aufwand wäre wie die teile von Hand zu tauschen....Ich versuch es mal genauer zu beschreiben.In meiner Baugruppe sind Schränke, Seite links, Seite rechts, und zwei verschiedene Mittelwände.Die Seiten/Mittelwände gibt es mit elektronischer Schließung, normalem Schloß, zusätzlichen Löcher und in verschiedenen Höhen.Di ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Referenzen beim öffnen automatisch ersetzen
lumb am 08.05.2017 um 21:22 Uhr (1)
Hallo,beim Öffnen von Baugruppen mit fehlenden Referenzen kommt die Meldung:xx.iam hat eine Referenz zu xxx.ipt. Dies wurde aufgelöst in xxx.ipt. Dies ist nicht die ursprünglich referenzierte Datei. Wahrscheinlich wird eine Verbindung aller Dokumentrelationen fehlschlagen. Möchten sie die aufgelöste Referenz wirklich verwenden?Diese Meldung habe ich bei alten, eher unwichtigen Daten oft. Nun hätte ich gerne ein Programm in VB geschrieben, welches mir die Dateien öffnet, diese Meldung mit "Ja" annimmt und d ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Dimension Text durch String ersetzen
Suppengruen am 02.10.2012 um 15:50 Uhr (0)
bzw. Dimension Text ausblenden und einen String (Fake Dimension) einblenden.Im Prinzip geht es darum per Makro alle Maße ( ca. 100 Stück ) in einem .idw auszuschalten und für jedes eine fortlaufende Nummer einzublenden.Wie es mit CATIA gehen würde weiss ich.Wie es in Inventor von Hand geht weiss ich auch.Leider habe ich überhaupt keine Ahnung welche Umgebungsvariablen man dafür dimensionieren muss und mit welchen Methoden ich auf die einzelnen Objekte zugreifen kann.Könnte sich jemand vorstellen wie der Ru ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
EIBe 3D am 13.04.2021 um 13:37 Uhr (1)
Hallo Frank,tauschen geht nur wenn die neue Basiskomponente eien Kopie der ursprünglichen Basiskomponente ist.Beispiel von hier schnell umgestrickt.Code:Public Sub DeriveComponentReplace() Dim oApp As Inventor.Application: Set oApp = ThisApplication If oApp.ActiveEditObject.DocumentType DocumentTypeEnum.kPartDocumentObject Then Exit Sub Dim oDoc As PartDocument: Set oDoc = ThisApplication.ActiveEditDocument Dim oDef As PartComponentDefinition: Set oDef = oDoc.ComponentDefinition Dim oSubs1 As Derived ...
|
| In das Form Inventor VBA wechseln |
