|
Inventor VBA : DXF Export auf Desktop
Bluejay am 02.07.2012 um 10:01 Uhr (1)
Guten Morgen zusammen,habe mal eine kurze Frage - wie kann ich dem unten aufgeführten Programm beibringen das es die Datei immer auf dem Desktop ablegt?Vielen Dank im vorausMFGPublic Sub CreateDXF() On Error Resume Next If ThisApplication.ActiveDocument.DocumentType kDrawingDocumentObject Then Exit Sub End If Dim oDoc As Inventor.DrawingDocument Set oDoc = ThisApplication.ActiveDocument If oDoc.FullFileName = "" Then MsgBox "Bitte zuerst die Zeichnung speichern... " Exit Sub End If oDo ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bemaßung und dazugehörige Ansicht
lumb am 09.09.2016 um 14:57 Uhr (1)
Hallo,ich versuche per Makro alle Bemaßungen auszulesen, das klappt, allerdings sind diese direkt unter oSheet. Ich hätte aber gerne die Zugehörigkeit zur Ansicht mit ausgelesen...Diese Makro ermittelt den Wert aller Bemaßungen in einer Zeichnung, ich würde diese aber gerne Filtern, zB nur die Bemaßungen von Ansicht1...Kann mir da jemand helfen?DANKESub Pruefmasstabelle() Dim oApp As Application Set oApp = ThisApplication Dim oDoc As DrawingDocument Set oDoc = oApp.ActiveDocument Dim oSheet As Sheet ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : VBA: Stückliste mithilfe der Baugruppe erstellen
Starbuzz am 08.06.2016 um 09:17 Uhr (1)
Hallo,ich habe mir Codes zusammen gesucht und umgeschrieben, um bestimmte iProperties zu erstellen.Das klappt super. Ich drücke ein Button und mein Bauteil hat neue und ausgefüllte iProperties.Nun möchte ich aber, das er anhand der Informationen aus der Baugruppe mir eine Stückliste macht, also:Bezeichnung, Bauteilnummer, Fläche, Gewicht, Material, Menge...alle nach dem erwähnten VBA oben vorhanden!Ist das nur mithilfe einer Baugruppe, also ohne Zeichnung, möglich? Kann mir einer einen Ansatz geben? Excel ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : verfügbare Textstile und Schriftarten auflisten
KAME-WJ am 05.09.2019 um 09:28 Uhr (1)
Hallo,ich suche eine Möglichkeit die verfügbaren Textstile für eine Textbox in einer Zeichnung aufzulisten. Unter "ThisApplication.ActiveDocument.StylesManager.TextStyles" findet man zwar alle Textstile aber die Dropdown Liste im "Text formatieren"-Fenster ist um einiges kürzer. (siehe Anhang)Gibt es eine Möglichkeit nur die im "Text formatieren"-Fenster verfügbaren Textstile aufzulisten?2te Frage: Gibt es eine Möglichkeit alle verfügbaren/installierten Schriftarten aufzulisten. Habe diesbezüglich noch nic ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : iProperty auslesen -> Tabelle einfügen
Wattwurm am 09.04.2020 um 09:06 Uhr (1)
Hallo KraBBy,ein erstelltes skizziertes Symbol von einer Zeichnung in die andere zu kopieren ist kein Problem. Eine Tabelle als skizziertes Symbol abzulegen ist mir nicht gelungen.Eine Tabelle, die ganz normal in einem Zeichnungsdokument gespeichert ist, zu kopieren und einzufügen geht. Ich war aber auf dem Trip, in ein Dokument alle Tabellen für TG1 bis TG9 abzulegen. Das Ablegen klappt, aber ich weiss nicht, wie ich sie einzeln auswählen kann, da sie im Modellbaum alle gleich heißen, wenn sie auf demselb ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile in IDW selektieren
PaulSchuepbach am 28.02.2009 um 13:29 Uhr (0)
Hallo,Alle Linien mit einer Iteration zu durchlaufen und dann aufs Bauteil gucken, obs da ein Attribut gibt, dauert viel zu langeIn der Zeichnung weisst Du ja, welches Bauteil abgebildet ist. Also:- Bauteil öffnen (OpenVisible = False) mit AttributeManager.FindObjects findest Du in Sekundenbruchteilen die Flächen/Kanten, die ein bestimmtes AttributeSet und/oder Attribute mit/ohne einem bestimmten Wert beinhalten- der AttributeManager gibt Dir eine ObjectCollection zurück- falls .Count = 0: keine Attribute ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Wann ist Inventor fertig mit der Arbeit?
Hombach am 12.01.2004 um 14:33 Uhr (0)
Zitat: Original erstellt von PaulSchuepbach: ich bin mir nicht sicher, ob es das ist, was Du suchst, aber kopier mal diesen hier in Dein ThisDocument Deier Zeichnung, dann sichern, schliessen und wieder oeffnen: Hallo Paul! Herzlichen Dank! Ich denke mal das sollte funktionieren! Prima! Allerdings hab ich grad noch ne andere Lösung gefunden: Set ActDrgDoc = ThisApplication.ActiveDocument Do Wait 0.5 Loop Until ActDrgDoc.ActiveSheet.Status = kUpToDateDrawingSheet Funktioniert - zumindest ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Stil-Editor
Christian-67 am 23.11.2020 um 19:54 Uhr (1)
Guten Tag, allerseits,Der Stileditor macht mich noch verrückt...Ich versuche lokale Stile zu löschen, es ist auch kein Problem wenn sie nicht verwendet sind, aber....In meinem Fall sind mehrere Stile verwendet, auch wenn alles in der Zeichnung gelöscht ist!!!!Das einzige, was ich nicht lösche kann, ist der Standard Rahmen.Einige Layer und Textstyle bleiben in Verwendung.Gibt es eine Lösung dieser Standard Rahmen zu löschen?Oder zu wissen wo die Layer und textstyle verwendet werden?Ich habe schon alles durc ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Daten von Schriftfeld auslesen
Andreas01 am 15.03.2024 um 14:29 Uhr (1)
Hallo zusammen,gibt es eine Möglichkeit an die Daten im Schriftfeld zu kommen?Ich habe in meinem Schriftfeld eine Textbox "Rohmass", diese wird aus den iProperties des Bauteils gefüllt. Die Textbox hat eine gewisse Größe und wenn der Text zu lang ist, sieht das auf der Zeichnung nicht so schön aus. Also passe ich die Schriftgröße immer manuell an.Das würde ich jetzt gern automatisieren. D.h. ich würde gern die Länge des Textes abfragen und wenn der Text zu lang ist möchte ich gern die Schriftgröße ändern.I ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : PDF erstellung - Fehler
Xaigon am 24.10.2012 um 09:05 Uhr (0)
Guten Morgen,hab ein Makro geschrieben welches automatisch einen Ordner im Projektordner erstellt und dann die Inventor-Zeichnung (.idw) in diesen Ordner als PDF abspeichert. Bei mir funktioniert es mit einfachen Zeichnungen sobald diese komplexer werden steigt das Programm aus, ausserdem habe ich das Makro an unsere Tochterfirma weitergegeben und bei denen funktioniert es gar nicht, was kann da das Problem sein?Hier noch der Code:Code:Public Sub PDF() On Error Resume Next If ThisApplication.ActiveDocu ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Eigenschaften (Formular) automatisch ausfüllen
daywa1k3r am 29.07.2005 um 11:19 Uhr (0)
Das ist eine kleine Funktion die in ein offenes Dokument die zwei Properties einfügt. Mach eine neue Werkzeugleiste und binde die Funktion an ein Button (wie es geht findest du hier in Forum). Jedes mal wenn du dann die Zeichnung kontrolliert hast, klicke ein mal drauf. Die Batch Sache gefällt mir irgendwie nicht, wobei sowas könnte vielleicht mit dem Scheduler gebatcht werden. Keine Ahnung. Musst du schauen. Code: Public Sub Kontrolliert() ThisApplication.ActiveDocument.PropertySets(3).Item("Checke ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Lange exte in der IDW
Ralf G am 30.05.2005 um 21:42 Uhr (0)
Hallo alle zusammen, ich möchte aus einer Datenbank in großem Umfang Text übernehmen (klappt schon ganz gut) und Sie in IDWs darstellen. Dabei scheint sich ein Problem aufzutun. Eigentlich wollte ich dazu Ibenutzerdefinierte Properties nehmen um die verschiedenen Texte in der Zeichnung zu speichern und sie dann auch anzuzeigen. Nun sind aber leider offensichtlich die Textspeichermöglichkeiten viel zu klein (wie lang dürfen Text in benutzerdefinierten Propertys genau sein?). D.h. ich habe viele Texte die vi ...
|
| In das Form INVENTOR VBA wechseln |
|
INVENTOR VBA : Sichtbarkeitssteuerung in idw mit vba
daywa1k3r am 25.07.2003 um 10:12 Uhr (0)
@Seher Zitat: -ich möchte die Bauteile nicht löschen, sondern nur ausblenden Schon klar, nur gestern war mir die Möglichkeit mit den DesignView nicht bekannt. Zitat: Z.Z. lasse ich in der iam ein VBA-Programm laufen, das alle NichtErsatzteile markiert. Diese werden dann manuell ausgeblendet und ich erstelle einen DesignView Dokumentation . Naja, den ersten Teil hast du ja schon, mir ist nur nicht klar, warum du die Teile dann manuel ausblendest ? Ich gehe mal davon aus, dass das in der Sc ...
|
| In das Form INVENTOR VBA wechseln |
