|
Inventor VBA : Schweißsymbole automatisch mit vba code löschen
rkauskh am 14.09.2023 um 12:05 Uhr (1)
MoinJa, hab ich probiert. Ich habe eine Schweißbaugruppe erzeugt und dort eine Kehlschweißnaht zwischen zwei Bauteilen eingefügt. Im Dialog für die Schweißnaht habe ich das Häkchen bei "Schweißsymbol erzeugen" gesetzt. In der Zeichnung habe ich dann eine Erstansicht der Schweißbaugruppe erzeugt und die Modellschweißsymbole abgerufen. Mit dem Makro kann ich jetzt die Schweißsymbole in der Zeichnung unsichtbar/sichtbar schalten.------------------MfGRalfRKW Solutions GmbHwww.RKW-Solutions.com
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Save Dialog (mit abhängigen Dateien)
mechajo am 04.08.2009 um 08:39 Uhr (0)
Hallo Reinhard,ich glaube in meinem Fall ist gesichert dass keine weiteren zu speichernden Dateien in der IDW referenziert werden.Mein Makro öffnet ein/e Bauteil/Baugruppe und verändert dort einige Parameter. Das Ergebnis wird abgespeichert. Dann wird die dazugehörige Zeichnung gesucht und geöffnet. Dann wird die Zeichnung aktualisiert und in einer auf dem Blatt befindlichen Stückliste werden die Maße des Rohblechs eingetragen. Das ist definitiv die einzige Änderung in der Zeichnung bevor diese wiederum ab ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Zeichnungsverwaltung mit Access
Akrist am 03.09.2003 um 13:49 Uhr (0)
Hallo, ich würde gerne eine Zeichnungsverwaltung mit Access erstellen. Ist es möglich per VBA den Inhalt des Zeichenkopfes an Access und umgekehrt zu übergeben. D.H. ich erstelle meine Zeichnung, klicke auf einen Button ( Zeichnungsdaten übergeben oder so) und habe die Werte in dem Access-Datensatz. Dann ergänze ich die fehlenden Angaben und schreibe das per Klick (Button) in die Zeichnung zurück. Wir verwalten die Zeichnugsdaten zur Zeit noch mit Lotus-Approach. Ich denke aber nicht das man das auch dami ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : prüfen ob Zusammenbauzeichnungen akt. werden müssen
Thomas Thomas am 17.09.2020 um 19:55 Uhr (1)
Hallo,ok schade, die Zeichnung und Baugruppe will Inventor nicht nochmal speichern. Was meinst du mit Reihenfolge? Das zuerst die Baugruppe und dann die Zeichnung gespeichert wird? Die Baugruppe ist eigentlich ok, zumindest ist das rote Kreuz nicht vorhanden.Wird der Wert auch ungleich 11778 wenn zB Normteile in anderen Baugruppen verbaut sind und dies beim Baugruppe speichern erneut gespeichert werden?Grüße Thomas
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : VBA zum Multithreading zwingen
DerBrain87 am 02.12.2015 um 08:59 Uhr (1)
Hallo Forum,ich habe ein Formular, dass benutzerdefinierte iProperty-Eigenschaften in ein Inventor-Dokument einträgt. Dies funktioniert bereits auch tadellos, egal ob es die Eigenschaften schon gibt oder noch nicht.Ist das aktive Dokument ein Bauteil oder eine Baugruppe ist es dem Formular möglich - falls vorhanden - auch gewisse Eigenschaften in die zugehörige Zeichnung einzutragen.Hierfür öffne ich beim Formularstart die zugehörige Zeichnung. Dies funktioniert soweit ebenfalls. Das Problem ist: Ist die Z ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Inventor (2021) IDW Anzahl Prüfmaße
servus inventori am 10.02.2023 um 09:46 Uhr (15)
Hallo zusammen,man sagte mir hier sitzen die *****s beim thema inventor/vba.Im Rahmen der QS sollen Prüfmaße auf der Zeichnung deutlicher gekennzeichnet sein. Unsere Zeichensätze sind recht komplex, damit die QS-Mitarbeiter die Prüfmaße korrekt erkennen, will ich die Anzahl der Prüfmaße in der Zeichnung automatisch zählen und die Anzahl anzeigen lassen.Die Aufagbe schien trivial, ist es aber nach der Recherche nicht.Habt Ihr eine Idee für einen VBA Anfänger?beste Grüße servus inventori
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Blätter aus IDW in neue IDW kopieren mit sheets.copyto
M. Hanke am 27.10.2012 um 07:52 Uhr (0)
Hallo Ralf,das mit einer einfachen IDW mit nur einer Erstansicht usw. werde ich mal probieren. Bin ich jetzt gar nicht drauf gekommen. Das liegt daran, dass ich das Ziel habe eine defekte Zeichnung zu reparieren. Die Zeichnung hat 5 A0 Blätter, mehrere Schnitte und Ausbrüche und viele viele Schweißangaben (IDW). Leider sind seit dem letzten einchecken mehrere Tage vergangen, so dass viel Arbeit verloren gehen würde (die oldVersions sind komischerweise auch defekt). Die einzigen zwei Wege wie sich die Zeich ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Runtime Error bei SelectSet
Meierjo am 15.12.2011 um 10:37 Uhr (0)
Hallo ForumIch versuche, per Makro Bemassungen in einer IDW zu zentrieren. Dazu verwende ich ein Makro, welches den vorher markierten Bereich auf der Zeichnung nach Bemasssungen durchblättert, und bei diesen dann den Bemassungstext zentriert.Dies funktioniert soweit auch ganz gut.Problem ist nun, wenn auf der Zeichnung eine geschnittene Ansicht ist, gibt es bei der Schraffur einen Lauftzeitfehler.Klar kann ich die Schraffur vor dem Starten des Makros aus der Auswahl entfernen, ist aber bei mehreren Schraff ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Features in IDW unsichtbar machen
mimamb am 27.11.2003 um 17:04 Uhr (0)
Hallo Paul ! Vielen Dank für die prompte Antwort. Eigentlich denke ich doch mehr an dauerhaft . Oder was meinst Du mit temporär? Wäre dass dann so, dass man eben die Linien zum Drucken unterdrücken könnte, die Zeichnung nachher aber wieder ihren Strickdickicht -Zustand annehmen würde ? Wäre vielleicht dann ein erster Kompromiss (bevor man in USA auch auf den Trichter kommt), wenn man den Zustand mit Zeichnung aktualisieren unterdrücken einfrieren könnte. Änderungen bleiben aber ein Problem... Gruß Mich ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Einfüge- und Verbindungspunkt
Zäänge2 am 01.12.2006 um 06:52 Uhr (0)
Hallo zusammen...Hab mal wieder ein für mich zur Zeit unlösbares Problem.Ich möchte in einer Zeichnung einen Schweißstempel mittels VB einfügen. Das funktioniert auch alles wunderbar. Wenn ich nun nachträglich die Position des Schweißstempels auf der Zeichnung verändern möchte, wäre es gut, wenn ich dafür einen definierten Punkt verwenden könnte. Erstelle ich den Stempel direkt mit Inventor funktioniert das, indem ich nen Punkt einfüge und diesen als Verbindungs- und Einfügepunkt definiere.Nun meine Frage: ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Batchdatei für dfx - Ausgabe
PaulSchuepbach am 03.05.2004 um 11:07 Uhr (0)
Hallo JWH, Wenn ich Dich richtig verstehe, dann ist die Tabelle noch nicht mit deinem Part verknüpft ? Brauchst Du ein dxf von der entsprechenden Zeichnung ? Es gaebe die Möeglichkeit, die IPT zu oeffnen, den ersten Wert aus Excel lesen, Parameter anpassen, Zeichnung aktualisieren, IDW oeffnen, aktualisieren, dxf schreiben. 2. Wert aus Excel lesen,PArameter in IPT aendern, IDW aktualisieren, dxf schreiben usw. Kommt ganz darauf an, wie Deine Daten aussehen... Ist ziemlicher Aufwand. Kannst Du mir mal die ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Text eines skizzierten Symbols ändern
Sebastian D. am 11.04.2011 um 15:56 Uhr (0)
Leider knapp daneben.Wir haben ein benutzerdefiniertes iProperty "Kosten" für unsere Bauteile. Ob mal dafür auch "Kostenstelle" nehmen könnte, sei mal dahingestellt.Jedenfalls gibts in der Stückliste auf der Zeichnung neben einer Spalte für die (Einzel-)Kosten eine zweite Spalte für die Gesamtkosten (= Anzahl x Einzelpreis). Mein vorhandenes Makro rechnet nun diese Gesamtkosten zeilenweise zusammen und speichert sie erstmal in einer Variable.Und genau diesen Wert möchte ich natürlich auch auf der Zeichnung ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Script geht geht nicht ?
rkauskh am 21.05.2014 um 22:18 Uhr (1)
HalloVielleicht weil du einen String mit einer Doublezahl vergleichst? Probier mal:Code:Option ExplicitSub Blattformat() Dim oApp As Inventor.Application Dim oDoc As Inventor.Document Dim zeichnung As DrawingDocument Dim blatt As Sheet Dim PropValue As String Dim Papier As String Set oDoc = ThisApplication.ActiveDocument Set blatt = oDoc.ActiveSheet If CStr(blatt.Height) = "84,1" And CStr(blatt.Width) = "118,9" Then Papier = "A0" If CStr(blatt.Height) = "59,4" And CStr(blatt.Width) = "84,1" The ...
|
| In das Form Inventor VBA wechseln |
