|
Inventor VBA : Makro zum abspeichern aller Bauteile + dazugehörigen Zeichnungen
DanielLTS am 22.07.2012 um 10:31 Uhr (0)
"Wer lesen kann ist klar im Vorteil"Was hast du bei "es soll ein VBA Code sein" nicht verstanden?Außerdem ist es nicht dieselbe Frage. Mit der ersten Frage wollte ich herausfinden ob man bei aktive Baugruppe oder Bauteil über ein Makro auf die Zeichnung zugreifen und diese drucken kann.Bei der zweiten Frage (die obige) möchte ich von erfahrenen Inventor VBA Programmierer erfahren ob ein Code in Inventor VBA, welche gleiche Funktion wie "Packn Go" hat, möglich ist. Dies ist sinnvoll, damit man nicht extra e ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Wann ist Inventor fertig mit der Arbeit?
Armbrust am 14.06.2004 um 13:33 Uhr (0)
Hallo Paul, bin bei meinem Problem über diese Antwort gestolpert. Dieser Code hat mir weitergeholfen. Jedoch ist dieser Weg etwas umständlich, weil dieser Code im Dokumentprojekt stehen muß. Kann ich diese Funktion auch allgemein in das Anwendungsprojekt schreiben, so daß wenn ein Dokument geöffnet wird dieser ausgeführt wird ? (Ich habe vor, daß immer wenn eine .idw geöffnet wird deren DisplayName abgefragt wird.) Vielen Dank! Zitat: Original erstellt von PaulSchuepbach: Hallo Christian, ich bin mir ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Ordnerstruktur in Skizzierte Symbole übernehmen
muelb am 10.05.2011 um 07:28 Uhr (0)
Ich habe ein Makro erstellt das aus einer Vorlage die Skizzierten Symbole in die aktuell geöffnete Zeichnung kopiert. Ich möchte nun die Symbole noch in Ordner ablegen, aber ich kriegs nicht hin dass diese auch kopiert werden.Hier mein aktuelles Skript:Public Sub Skizzierte_Symbole() MsgBox Environ$("Inventor") If ThisApplication.ActiveDocument Is Nothing Then MsgBox "No Document open", 16, "Error" Exit Sub End If If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DXF Export auf Desktop
EKW am 21.08.2013 um 08:46 Uhr (1)
Zitat:Original erstellt von Bluejay:Public 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 oDoc.SaveAs Replace(oDoc.FullFileName, Right(oDoc.FullFileName, 3), "dxf"), True If Err.Number = 0 Then ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Inventor (2021) IDW Anzahl Prüfmaße
rkauskh am 10.02.2023 um 13:22 Uhr (1)
MoinOK, die QS hat dann die Anzahl der Bemaßungen die sie suchen sollen. Das dürfte nur sehr wenig weiterhelfen. Das erinnert mich irgendwie an diese "Finde die 5 Fehler"-Suchbildspiele von früher.Prüfbemaßungen werden normalerweise mit einem umalufenden ovalen Rahmen gekennzeichnet und sind so leicht erkennbar. Macht ihr das? Man könnte sich ggf. auch überlegen automatisiert alle Prüfbemaßungen auf einen separaten Layer schieben zu lassen. Dann den normalen Bemaßungslayer ausblenden und so eine reine Prüf ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnungskopf
pd65 am 25.02.2008 um 09:41 Uhr (0)
Hallo Jörg,ich habe in meiner Norm.idw meine Änderungen gemacht und kopiere die geänderten Schriftfelder und skizzierten Symbole einfach in die alte Zeichnung. Wichtig, die Namen sind nicht verändert.Vorher gibts noch eine Abfrage, ob das aktive Dokument auch eine IDW ist.Public Sub IDW_updaten() Dim oApp As Application Set oApp = ThisApplication Dim oDoc As Document Set oDoc = oApp.ActiveDocument Dim newDoc As Document Set newDoc = oApp.Documents.Open("C:InventorTemplates
orm.idw", False) Dim oTitl ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Farbe des Zeichnungshintergrunds ändern
nightmare40 am 19.01.2010 um 07:55 Uhr (0)
Hallo zusammen.Bin noch eher ungeübt in der Inventor VBA Programmierung und habe jetzt das Problem, dass ich von einer Zeichnung ein "tif" erstellen soll.Das ist im Grunde auch kein Problem, ich kann die Datei erzeugen, jedoch ist der Hintergrund des tifs dann auch in dieser Eierschalenfarbe wie im Inventor. Das macht die Datei nur unnötig groß und sieht nicht so ansprechend aus.Aus dem Inventor 2008 war das alles kein Problem und da hatten die tifs alle einen weißen Hintergrung. Mit dem Inventor 2010 klap ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Blattnamen aus iProperties umbenennen
ofencad am 30.10.2015 um 17:49 Uhr (1)
Danke für die prompte Antwort.Mir ist es sehrwohl bekannt, dass diese Vorgehensweise nicht ganz "ohne" ist, jedoch erst eimal Vorgabe.Nehmen wir einmal an, dass in einer Montagezeichnung u.a. gelaserte Blechteile (ggf. gekantet) montiert werden. So ist es bei uns durchaus üblich, dass dafür keine separate Zeichnung erstellt wird. Hier wird ein leeres Blatt angelegt, worauf die die Abwicklung des Bleches (ohne Maße) positioniert wird.Da später beim DWG-Export erst einmal alle Blätter ausgegeben werden, möch ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Properties ohne öffnen einer Datei
PaulSchuepbach am 24.05.2004 um 14:05 Uhr (0)
Hallo Joern, oeffne ein Zeichnungs-Dokument mit mindestens einer View (auf ein ipt). Mit folgendem code kannst Du z.B. auf das in der View abgebildtete Part-file zugreifen: Private Sub PopertiesFromRefFileOfDrawing() Dim oApp As Inventor.Application Set oApp = ThisApplication Dim oDrawDoc As DrawingDocument Set oDrawDoc = oApp.ActiveDocument MsgBox oDrawDoc.FullFileName, , Zeichnung Dim oPtDoc As PartDocument Set oPtDoc = oDrawDoc.ActiveSheet.DrawingViews(1).ReferencedFile.Referen ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : PDF per VBA
thomas100 am 17.12.2004 um 14:05 Uhr (0)
Hallo! Folgendes Problem:Mit untenstehenden Makro soll über Free-PDF die Zeichnung gedruckt werden.Jetzt wirds eigenartig:Beim Inventor 8 funktionieren alle Formate (A4 bis A0) ohne Probleme, beim 9er funzt nur bis A2. Sollte es nicht eher umgekehrt sein?? Also ich find das zum und bin *hehe*Anbei der Code: (Hab in mir aus einem Forum kopiert)*******************************************************Public Sub FileSavePDF()Dim oPrintMgr As DrawingPrintManagerFor Each s In ThisApplication.ActiveDocument.She ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Layer in automatisch erstellter DXF-Datei
Roman1000 am 05.05.2008 um 13:48 Uhr (0)
Hallo, und erstmal vielen Dank für die schnelle Hilfe.Methode 1 hab ich als erstes ausprobiert, ich habe den Layer "&ARCCENTERSLayer=.;," genannt, ihm also einen für Autocad ungültigen Namen gegeben. Als der Layer dann nach öffnen der Zeichnung nicht existierte, war die Freude groß. Aber Autocad ist ja auch nicht doof, hat den Inhalt des Layers "&ARCCENTERSLayer" einfach in den Layer 0 gepackt. Den Layer "&ARCCENTERSLayer", der die Bogenmittelpunkte beschreibt, kann ich auch nicht einfach über das Layerfen ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DWG in Unterordner abspeichern
Xaigon am 17.08.2012 um 15:17 Uhr (0)
Hallo,versuche gerade Im Inventor 2012, DWGs automatisch mit einem Button im aktuellen Projektordner abzuspeichern (eigentlich im Projektunterordner), dies funktioniert auch schon im aktuellen Projektordner. Mit der Funktion (oDoc.FullFileName) übergiebt er immer den ganzen Pfad z.B.: C:ArbeitsbereichProjekteBiltenNG-Nr.idw kann also nicht mehr in den DWG ordner im Verzeichnis wechseln.Kann mir jemand helfen, das DWG-File in den Unterordner abzuspeichern?Hier der Code den ich bis jetzt fabriziert habe:Cod ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : PropSet auf Deutsch
legenb am 02.02.2006 um 14:10 Uhr (0)
Lieber Charlie,ich möchte Dir gerne erklären, warum ich mich für o.g. interessiert habe.Wir haben bis vor kurzem mit der Version 9.0 SP 3-4 gearbeitet, bei der es nur die Bauteilnummer gibt.Mit Hilfe des Iproperty Wizard von C Bliss habe ich einen einfachen Zugriff auf die Iproperties eingerichtet.Nun haben wir bei unserer täglichen Arbeit Teile, die Aufgrund eines Auftrages angepasst werden müssen. Ein Rohr z.B.: D=150 mit einem Abzweig von d=80 und einer Länge von 810 mm und der Bauteilnummer 30303.Diese ...
|
| In das Form INVENTOR VBA wechseln |
