1957 Tipps, Tricks und Artikel für Inventoranwender |
Der Neue Datei erstellen Dialog kann durchaus eine ganze Menge Vorlagen enthalten. Um etwas mehr Platz zu haben, kann zum einen der Dialog in seiner Größe geändert werden.
Um noch mehr Platz zu schaffen, kann der rechte Vorschaubereich entfernt werden. Dazu oben rechts auf das Detail anzeigen Icon klicken.
Autodesk verschickt im Moment Emails, in denen Sie den Umstieg von einem Wartungsvertrag auf eine Mietlizenz anpreisen.
Autodesk möchte, das Kunden von dem alten Wartungsvertrag, bei dem man das Produkt "besitzt" und jedes Jahr eine neue Version bekommt (Wartungsvertrag) auf ein Abo umstellt, bei der man die Software auf Zeit mietet.
Autodesk möchte einen zur Umstellung motivieren, indem Sie die Preise für den Wartungsvertrag jährlich anheben. Auszug aus der Email:
Je weiter die Umstellung auf Abonnements fortschreitet, desto deutlicher treten die Kosten zutage, die uns die Aufrechterhaltung zweier unterschiedlicher Geschäftsmodelle (Abonnements und Wartungsverträge) abfordert. Aus diesem Grund sehen wir uns gezwungen, die Kosten für die Weiterführung von Wartungsverträgen ab dem 7. Mai 2017 sukzessive anzuheben: Die Verlängerung eines Wartungsvertrags wird 2017 5 % mehr kosten als bisher, 2018 10 % mehr und 2019 20 % mehr. Zudem können Wartungsverträge nur noch um jeweils ein Jahr und nicht mehr um mehrere Jahre verlängert werden.
Es gibt aber noch einige Unklarheiten (wir kümmern uns MUM-intern um Klärung bei Autodesk!), weswegen ich als Kunde erstmal nichts machen würde.
Eure MUM Niederlassung wird euch kontaktieren, über die Aktion informieren, die Konsequenzen einer Umstellung klären und das bestmögliche Vorgehen besprechen.
Links zum Thema:
Bei Autodesk findet man eine kleine Übersicht der Neuerungen auf Deutsch. Sobald ich den neuen Inventor 2018 selbst installiert habt, schaue ich mir einzelne Funktionen etwas genauer an.
Sie wollen schneller arbeiten bei großen Baugruppen? Der Wunsch nach einer verbesserten Performance durch schnellere Renderings und eine Auswahl von Komponenten wurde erfüllt. Außerdem haben wir wichtige Verbesserungen bei Zeichnungen vorgenommen: das Erstellen von Ansichten geht jetzt noch schneller und die Grafikleistung bei großen Modellen ist jetzt noch überzeugender.
Natürlich können in Inventor 2018 Dateien aus Inventor 2017 geöffnet werden. Doch die neue Version bietet auch eine Abwärtskompatibilität, denn Anwender von Inventor 2017 können mit Hilfe von AnyCAD auch Inventor 2018-Dateien in ihre Konstruktionen integrieren. Folglich können Ihre Kollegen und externen Mitarbeiter, die weiterhin mit Inventor 2017 arbeiten, Ihre Daten auch dann referenzieren, wenn Sie zu Inventor 2018 gewechselt haben. Es gibt also keinen Grund, nicht auf die neue Version umzusteigen.
Schneller arbeiten dank einer noch intuitiveren BenutzeroberflächeWir haben basierend auf dem Feedback von Anwendern Feinabstimmungen an der Benutzeroberfläche von Inventor vorgenommen, auch beim Suchen und Filtern von Dateien. Neue Registerkarten und interaktive Befehlsgruppen mit Zusatzinformationen ersparen das zeitaufwändige Suchen nach Funktionen und beschleunigen die Auswahl der Befehle. Mehr auf dem Bildschirm angezeigte Zeichnungsdaten bedeuten weniger benötigte Klicks. Auch Befehle wie das Messen von Geometrie wurden verbessert, um Arbeitsabläufe zu optimieren und Ihnen zusätzliche Daten schneller verfügbar zu machen.
Für viele unserer Kunden stellt die Bereitstellung von BIM-Daten für Unternehmen aus Architektur, Ingenieur- und Bauwesen (AEC) ein wichtiges Geschäftsfeld dar. Mit der neuen Version können Sie aus Ihren Inventor-Modellen vertrauliche oder übermäßig detaillierte Informationen ausblenden und Ihre 3D-Modelle direkt im Revit-Format publizieren. So vereinfachen Sie Ihr Modell, schützen Ihr geistiges Eigentum und reduzieren sowohl die Dateigröße als auch die Komplexität.
Wenn Sie Inventor im Rahmen der Autodesk Product Design Collection nutzen, dann haben Sie auch Zugriff auf Fusion 360 – die optimale Voraussetzung, um die Zukunft der Konstruktion und Fertigung für sich zu entdecken. Mit Fusion 360 können Sie die traditionellen Kategorien von CAD, CAM, Simulation und Datenmanagement überwinden und Ihre Arbeit auf einer einheitlichen Plattform für die Zusammenarbeit ausführen. Und das Beste daran ist, dass Fusion 360 für Abonnenten bereits im Leistungsumfang enthalten ist.
Ich habe beim Aufräumen ein 30MB PDF Dokument, gefunden mit über 3100 Seite die alle Beiträge (2007-2009) der alten Inventor FAQ enthält. Falls einer Interesse hat, kann er das Dokument hier herunterladen.
Die durch die Seitenbetreiber erstellten Inhalte und Werke auf diesen Seiten unterliegen dem deutschen Urheberrecht. Die Vervielfältigung, Bearbeitung, Verbreitung und jede Art der Verwertung außerhalb der Grenzen des Urheberrechtes bedürfen der schriftlichen Zustimmung des jeweiligen Autors bzw. Erstellers. Downloads und Kopien dieser Seite sind nur für den privaten, nicht kommerziellen Gebrauch gestattet.
Siehe auch Inhalte aus der Inventor FAQ kopieren? Hinweise zum Urheberrecht dieses Blogs
Quelle: http://blogs.autodesk.com/inventor/2017/03/21/inventor-2018-its-here/
Inventor 2018 is built for the continually evolving needs of the modern design and engineering professional.
Building on its breadth of modeling capabilities and powerful design automation tools, Inventor 2018 marks the next step forward in professional-grade 3D mechanical engineering design. Interoperability enhancements enable distributed, multi disciplinary teams to work together more efficiently with data from a variety of sources. The overall user experience is enhanced for more productivity and flexibility in response to direct feedback from customers around the world.
These efforts let you design, engineer and collaborate faster and more effectively than ever before.
Teil 11 verpasst? Dann hier weiter!
Im letzten Teil habe wir uns mit den iProperties beschäftigt. Dazu habe ich letzte Woche auch ein weiteres Codebeispiel gepostet.
Diese Woche schauen wir uns einige grundlegende Dinge bzgl. VBA an. Das beste Programm nutzt nichts, wenn wir es nichts in die Oberfläche bekommen, damit der Anwender es auch aufrufen kann.
Bisher haben wir unsere Programme in eine gesonderte IVB-Datei gespeichert, die wir jedes mal landen mussten, wenn wir auf unsere Programme zugreifen wollten. Inventor lädt beim starten auch eine Vorgabe-IVB-Datei, die im Standard default.ivb heißt. Welche Datei konkret geladen wird, ist in den Anwendungsoptionen im Register Dateien zu finden.
Wenn in einer Firma alle auf die gleiche Programmierung zugreifen sollen, macht es natürlich Sinn (wie bei den Vorlagen und den Design Data auch) eine gemeinsame Datei zu verwenden, damit alle Anwender auf den gleichen (aktuellsten) Stand zugreifen. Wenn du also eine IVB-Datei mit Programmen für deinen Firma erstellt haben, dann sollte bei allen Anwendern dort der Pfad zu dieser Datei sein.
WICHTIG: Es gibt eine wichtige "Einschränkung" bzgl. dieser Einstellung. Üblich ist bei einer gemeinsamen Nutzung innerhalb der Kostruktionsabteilung sicherlich, die Datei auf einen gemeinsamen Netzwerkpfad zu legen. Da gibt es aber eine Einschränkung. Nur der Anwender, der die IVB-Datei durch den Start des Inventor als erster lädt, kann die Datei bearbeiten! Ein anderer Anwender kann im VBA-Editor zwar Veränderungen in der IVB-Datei machen, beim Versuch zu speichern kommt aber die Meldung, das das nicht geht.
Das kann zu einem Problem werden, wenn man "mal schnell" etwas ändern will und dann seine Änderung nicht speichern kann. Mögliche Abhilfen:
Das Problem kannst du natürlich umgehen, wenn jeder Anwender seine "eigene" IVB-Datei einsetzt. Damit die bei jedem gleich ist, musst du dafür sorgen, dass irgendein Automatismus die lokale IVB-Datei durch den aktuellen Stand ersetzt. MUM FN Kunden haben dafür das CAD Starttool das optional die Möglichkeit bietet, beim Starten eine zentrale IVB-Datei lokale auf den PC kopiert und im Inventor wird auf diese lokale Kopie verwiesen. Eine Batchdatei im Windows-Autostart die mittels Copy die zentrale IVB-Datei beim Windowsstart lokal kopiert tut's in dem Fall auch.
Der normale Anwender will natürlich nicht immer in den VBA-Editor wechseln um ein Programm auszuführen, weswegen es natürlich wichtig ist, das jedes Programm einen Knopf in der Oberfläche bekommt. Der einfache, schnelle Weg: Einfach die Benutzeroberfläche anzupassen und die Makros in der gewünschten Umgebung (Bauteil, Baugruppe, Zeichnung) integrieren.
Damit wir mit unseren bisherigen Programm etwas spielen können, stellen wir unsere IVB-Datei in den Anwendungsoptionen als Standard-IVB-Datei.
Nach dem Speichern der Änderung und dem Schließen des Dialogs wird die neue IVB-Datei als Standard-IVB geladen und stellt uns die bisherigen Programme zur Verfügung. In die Oberfläche bekommen wir ein Programm wie folgt:
Wie bereits beschrieben, haben alle Buttons das gleiche Icon (diese liegende 8 oder auch das Symbol für unendlich, das ganz typisch für alle Microsoft Entwicklungswerkzeuge ist). Ich habe meistens keine Lust Icons zu machen aber wer mag, kann sich ja probieren. Und so gehts:
Ihr braucht BMP-Datei in der Auflösung 16x16 und 32x32 (einmal kleine und einmal große Icons). Die müsst ihr entweder selbst designen oder auch dem Internet "stehlen". Damit der Inventor den Programme (unsere einzelnen Public Subs) das richtige Icon zuordnen kann, gibt es eine Namenskonvention für den Dateiname der BMP-Datei. Sie sieht so aus:
<Modulname>.<Sub-Name>.<Größe des Icons:small oder large>.bmp
In meinem Beispiel heißt das Modul in der IVB-Datei Module1, der Programmname ist Hallo und ich habe 2 Icons in klein und groß.
Die Icon-BMP-Dateien müssen im gleichen Verzeichnis liegen, wie die IVB-Datei.
Ergibt nach einem Inventorneustart folgendes Bild:
Bei vielen Makros artet das Icon erstellen schnell mal in Arbeit aus. Wer es aber ganz besonders schön machen will, der kann sich hier etwas kreativ austoben.
Wir können VBA-Programme an 3 verschiedenen Orten speichern.
WICHTIG: Es ist in aller Regel keine gute Idee, in einer Inventordatei einen Makro zu speichern, der auch für andere Dateien genutzt werden kann. Früher gab es mal eine Möglichkeit, automatisch beim speichern einer Datei, einen Makro auszuführen. Diese Möglichkeit gibt es seit einigen Inventorversionen nicht mehr. Ein Makro innerhalb einer Datei macht eigentlich nur noch Sinn, wenn er nur für diese Datei nützlich ist.
Innerhalb eines Programmes lässt sich ein anderes Programm aufrufen.
Fall 1: Im gleichen Modul
Im ersten Fall sind die Programme im gleichen Modul. Um das durchzuspielen, erstellen wir in unserem Benutzerprojekt (das momentan auch Anwendungsprojekt ist), ein neues Modul.
RMT auf den Ordner Modules > Insert > Module
Das eingefügte Modul kann durch anklicken und der Änderung des Namens unten im Bereich Properties geändert werden.
Wir machen nun in diesem Modul 2 Programme. Public Sub PRG1 und Public Sub PRG2 die jeweils eine Msgbox mit "1" oder "2" öffnen
Jetzt wollen wir in PRG1 das Programm PRG2 ausführen. Das erreichen wir über ein Call <Sub-Name>.
Wird PRG1 ausgeführt, wird die Messagebox mit 1 angezeigt und im Anschluss eine zweite Box mit einer 2.
Fall 2: In einem anderen Modul
Es gibt auch die Möglichkeit, aus einem Modul Programme aus einem anderen Modul aufzurufen. Zum Testen legen wir ein weiteres Modul an namens TEST2. Darin legen wir eine Private Sub (keine Public sub!) an.
Um nun aus dem Modul TEST1 das Programm PRG1 aufzurufen, geben wir an: Call <Modulname>.<Public Sub Name>
Wir bekommen sogar die Sub-Name in der Autovervollständigung angezeigt nachdem wir call TEST1. geschrieben haben.
Wird PRG3 ausgeführt, kommt Meldung 3, danach wird PRG1 ausgeführt, das Meldung 1 anzeigt und PRG2 startet, die Meldung 2 anzeigt.
Versuchen wir aus Modul TEST1 und PRG2 TEST2.PRG3 aufzurufen, geht das nicht, weil Private Subs nun innerhalb des Modules aufgerufen werden können.
Das geht:
Das geht nicht:
Module lassen sich über einen Rechtsklick > Export File in eine Textdatei mit der Endung BAS exportieren und über Import File auch wieder laden. Remove löscht ein Modul.
VBA-Projekte lassen sich gegen Änderung und Codediebstahl schützen, indem man aus dem Kontextmenü oben <IVB-Projektname> Properties... wählt. Im folgenden Dialog lässt sich ein Passwortschutz einrichten der das VBA-Projekt vor der Anzeige schützt. Am besten lasst ihr das weg, den wen das Passwort weg ist, wird es mit dem Zugriff schwer. Es gibt VBA-Passwortknacker für MS Office-VBA-Projekte. Für den Inventor habe ich noch keines gefunden, d.h. Passwort weg = Codezugriff weg!
Wir können aus Inventor-VBA heraus auch auf andere Programme zugreifen und diese steuern. Um in unser VBA-Projekt die Unterstützung für ein Programm zu integrieren, muss wir einen Verweis laden, eine Art "Unterstützungsprogramm" das uns die Objekte, Methode und Eigenschaften zur Verfügung stellt. Verweise geladen werden im VBA-Editor über Tools > References
In folgenden Dialog muss z.B. der Eintrag für Microsoft Excel ergänzt werden, wenn wir aus unserem VBA-Projekt ein Excel starten wollen um z.B. Daten zwischen dem Inventor und Excel auszutauschen (Die andere 4 Verweise sind bereits standardmäßig aktiviert).
Hier ein Beispielprogramm, das Excel startet und eine Exceldatei lädt.
Fehlt der Verweis zu Microsoft Excel 15.0 Object Library, kommt eine Fehlermeldung beim Ausführen des Programms.
Compile error: User-defined type not defined
Solltet ihr also diese Meldung bekommen in einer Zeile, wo ein Objekt definiert wird, dann kommt es oft daher, das der Verweis zu der Referenz des Objektes fehlt.
Das soll's für heute gewesen sein. Viel Theorie aber dass muss auch sein. Bis zum Nächsten mal!
Public Sub Autor() Dim Dok As Document Set Dok = ThisApplication.ActiveDocument Dim Opp As GeneralOptions Set Opp = ThisApplication.GeneralOptions Dim Name As String Name = Opp.UserName MsgBox (Name) 'Kurze Weg zum iProp Autor Dok.PropertySets.Item(1).Item(3).Value = Name End Sub
siehe auch Kursserie VBA Programmieren für Konstrukteure
Über den Autodesk Application Desktop App ist ein Hotfix für Inventor 2017.3.1.1 verfügbar.
Readme: http://up.autodesk.com/2017/INVNTOR/INV21311_deu.htm
27.03.2017 - 31.03.2017
5-tägig
Autodesk Inventor Grundlagen
D-88046 Friedrichshafen
Details und Anmeldung
28.03.2017 - 31.03.2017
4-tägig
AutoCAD/AutoCAD LT Grundlagen
D-88046 Friedrichshafen
Details und Anmeldung
31.03.2017
Schnupperkurs Autodesk Inventor
D-88046 Friedrichshafen
Details und Anmeldung
31.03.2017
Schnupperkurs Autodesk Vault
D-88046 Friedrichshafen
Details und Anmeldung
31.03.2017
Schnupperkurs ecscad
D-88046 Friedrichshafen
Details und Anmeldung
Alle Termine findet ihr hier.
Ihr könnt in den (globalen) Formularen neben Formularen auch sehr einfach Einträge zur Ausführung von Regeln ablegen. Dazu in das Register globale Formulare im iLogic-Browser gehen und dort auf einen freien Bereich Rechtsklicken und aus dem Kontextmenü Bearbeiten wählen.
Im folgenden Dialog gibt findet ihr rechts in der Liste eure Regeln. Die könnt mittels Drag & Drop nach rechts ziehen…
Hier gibt es eine erste Übersicht zu den Neuerungen in Vault 2018.
http://underthehood-autodesk.typepad.com/blog/2017/03/whats-new-with-vault-2018.html
Public Sub schreibgeschuetzt() Dim Dok As Document Set Dok = ThisApplication.ActiveDocument 'Fullfielname leer dann noch nicht gespeichert If Dok.FullFileName <> "" Then 'Datei schreibgeschützt? If GetAttr(Dok.FullFileName) And vbReadOnly Then MsgBox ("Schreibgeschützt: Ja") Else MsgBox ("Schreibgeschützt: Nein") End If End If 'IsModifiable = Property that returns whether this document can be currently modified. 'One of the reasons a document may be non-modifiable is if any other document belonging 'to the file containing this document is currently being edited. If Dok.IsModifiable = True Then MsgBox ("Modfizierbar: Ja") Else MsgBox ("Modfizierbar: Nein") End If End Sub
siehe auch Kursserie VBA Programmieren für Konstrukteure
MuM veranstaltet wieder die MuM Vision, ein Forum zu den Themen Industrie 4.0 und BIM.
Termine:
Weitere Infos findet ihr hier: http://www.mum.de/MuM-Vision-2017.CAD?ActiveID=17910
Agenda:
08:30 Uhr Registrierung
09:00 Uhr Begrüßung
09:05 Uhr Mit dem Turbo durch den Konstruktionsalltag
Schlaue Tools für die Arbeit mit Autodesk Inventor
09:45 Uhr Effizient durch Standardisierung und Klassifizierung
Wirkungsvolles Produktdatenmanagement spart Zeit & Geld und schont die Nerven!
10:30 Uhr Kaffeepause
11:00 Uhr „E-Technik an Konstruktion: Bitte melden!“
Vom Schaltplan zum 3D Aufbau - elektronische Komponenten und Verbindungen
11:15 Uhr Live-Demo: Rapid Prototyping
Von der Konstruktion zum 3D Druck
12:00 Uhr Mittagspause
13:00 Uhr Industrie trifft BIM
Revit Daten auf Knopfdruck - Von der Baugruppe zur Familie
13:45 Uhr Virtual Reality - 3D-Modelle „erleben“
Wie echt fühlt es sich wirklich an?
14:30 Uhr Ende der Veranstaltung
Inventor bietet neben der Möglichkeit mittels VBA (umfangreicher Kurs) und Addins auch das Programmieren mittels iLogic. Über (globale) Formulare können einfache Dialoge gebaut werden. Im Standard hat jeder Dialog einen einfachen Listeneintrag.
Wie ihr diese Liste etwas aufhübschen können, zeige ich euch in diesem Beitrag.
Teil 10 verpasst? Dann hier weiter!
Letzte Woche haben wir unseren Programmierwerkzeugkasten um ein kleines Programm erweitert, das Informationen zum aktuellen Dokument bzw. dem in Inventor gewählten Element anzeigt. Dazu kamen noch zwei kleinere Programme, mit denen wir Bemaßungen manipuliert haben.
Wie immer zuerst: VBA-Editor öffnen und unser Benutzer-VBA-Projekt laden.
Zuerst schauen wir uns mal die iProperties in einer Datei an. Dazu öffnen wir eine Inventordatei, wählen nichts aus und rufen unser Objektuntersuchungsprogramm auf.
Wir sehen, das jede Inventordatei einen Eintrag PropertySets hat, der wiederum 4 Item enthält, die für die verschiedenen Register im iPropertydialog stehen. Item 4 sind z.B. die benutzerdefinierten iProperties.
Darin enthalten sind wiederum Items, wobei jeden Item für eine (Benutzer-) iProperty steht. Im meinem Screenshot oben finden wir z.B. das Benutzer-iProperty Druckbenutzer.
Die Struktur sieht also so aus:
PropertySets (Summe aller iProperties)
- Propertyset (Gruppe von Properties, z.B. alle Benutzer-iProperties)
- Property (das einzelne Property, wie z.B. Bauteilnummer oder eben das Benutzer-iProp. Durckname)
Hier unser erstes Programm:
Public Sub iPropLesen1() 'Wie immer Dokumentobjekt definieren Dim doc As Document Set doc = ThisApplication.ActiveDocument 'Jetzt kommt der Verweis auf den Satz iProperties mit dem Name: Inventor User Defined Properties 'Siehe dazu Screenshot oben im Text. Den Name haben wir bei unsere Untersuchung rausgefunden! Dim PropSet As PropertySet Set PropSet = doc.PropertySets.Item("Inventor User Defined Properties") 'Objektdefinition für ein einzelnes iProperty. Verwendet wird das Objekt unten in der 'For Each Schleife Dim prop As Property 'Durch alle Properies im PropertySet "Inventor User Defined Properties" gehen 'und mittels Debug.Print Propertyname und Wert in einem Direktfenster ausgeben For Each prop In PropSet Debug.Print prop.Name & ":" & prop.Value Next End Sub
Was im Code passiert, habe ich in den Kommentaren beschrieben. Wird das Programm gestartet, werden alle Benutzer-iProperties im Direktfenster ausgegeben.
Jetzt ergänzen wir das Programm um einen weitere Schleife, in der wir durch alle Propertysets gehen.
Public Sub iPropLesen1() 'Wie immer Dokumentobjekt definieren Dim doc As Document Set doc = ThisApplication.ActiveDocument 'Jetzt kommt der Verweis auf den Satz iProperties mit dem Name: Inventor User Defined Properties 'Siehe dazu Screenshot oben im Text. Den Name haben wir bei unsere Untersuchung rausgefunden! Dim PropSet As PropertySet 'Die Zeile kann weg, wir wollen ja durch alle Propertysets gehen 'Set PropSet = doc.PropertySets.Item("Inventor User Defined Properties") 'Objektdefinition für ein einzelnes iProperty. Verwendet wird das Objekt unten in der 'For Each Schleife Dim prop As Property 'Durch alle ProperySets im Doc-oBjekt gehen For Each PropSet In doc.PropertySets 'Durch alle Properies im PropertySet "Inventor User Defined Properties" gehen 'und mittels Debug.Print Propertyname und Wert in einem Direktfenster ausgeben For Each prop In PropSet Debug.Print prop.Name & ":" & prop.Value Next Next End Sub
Der Code ist um eine weitere For Each Schleife ergänzt worden, bei dem durch alle ProperySets gegangen wird. Im Ausgabenfenster finden sich nun alle iProperties in der Datei. Übrigens auch welche, die im iPropertydialog gar nicht angezeigt werden! (Ihr feste diesen Beitrag jetzt sicher besser, bzw. wisst nun, wo die Namen herkommen)
Was wir noch sehen, ist das Name des iProperties auf englisch dargestellt wird. Das entspricht eben prop.Name. Wir ändern das nun auf prop.DisplayName, was dazu führt, dass der Anzeigename der iProperties benutzt wird, was in dem meisten Fällen zu deutschen anstelle englischer Namen führt.
Das ist mal das erste Rüstzeug, um was mit iProperties zu machen.
Bis zum nächsten mal!
Autodesk schickt Productstream Professional 2011 am 1. November 2017 in Rente. Das bedeutet u.a.:
Infos zu Vault: http://www.mum.de/DE_Maschinenbau_CAD_Software_Autodesk_Vault.CAD?ActiveID=7732
Manchmal ist es hilfreich, Prozessinformationen aus dem Taskmanager als Text in die Zwischenablage zu kopieren. Zuvor kann es natürlich wichtig sein, die notwendigen Spalten anzuzeigen, z.B. den Pfad zum Prozess u.a. Dazu auf die Spaltenüberschrift rechtsklicken > Spalten auswählen und dort die Spalten einblenden, die wichtig erscheinen, z.B. Befehlszeile.
Dann die Zeile mit den Programm markieren und mittels STRG+C in die Zwischenablage kopieren.
Nun kann die Information z.B. in eine Email eingefügt werden (STRG+V).
Teil 9 verpasst? Dann erstmal hier weiter!
In Teil 9 haben wir uns mit dem Drucken beschäftigt. Ich denke, "die Hausaufgaben" waren kein Problem. Die Abfrage ob ReferencedDocuments oder AllReferencedDocuments machen wir wie in der Public Sub SkizzeUnsichtbar.
Antwort = MsgBox("Auch Unterkomponenten (Ja) oder nur erste Ebene (Nein)", vbYesNo)
If Antwort = vbYes Then …
If Antwort = vbCancel Then …
Alles Schwarz: oDrgPrintMgr.AllColorsAsBlack = True
Heute schauen wir uns ein paar kleinere Tools für die Zeichnung an. Wir werden ein kleines Programm schreiben, das Bemaßungen löscht, die keiner Geometrie zugeordnet sind (die werden rosa dargestellt). Das zweite Programm zentriert alle Bemaßungstexte.
Zuvor aber ein kleines Hilfsprogramm, dass uns als Programmierer das Untersuchen von Objekten vereinfacht und in jeden "Programmierwerkzeugkasten" gehört. Mein "Objektuntersuchenprogramm" (siehe auch hier). So schaut es aus:
Sub Infos_auslesen() Dim obj As Object On Error GoTo Keine_Auswahl 'Überwachung auf obj erstellen oder Lokal Fenster öffnen um obj zu untersuchen Set obj = ThisApplication.ActiveDocument.SelectSet(1) GoTo halt Keine_Auswahl: Set obj = ThisApplication.ActiveDocument halt: 'Sorgt dafür das hier die Ausführung angehalten wird Stop End Sub
Das Programm zeigt im Lokalfenster (VBA-Editor: Ansicht > Lokal-Fenster) Infos zum gewählten Inventorobjekt an oder wenn nichts gewählt wurde, Infos zum aktuellen Dokument. Das macht es euch sehr einfach, Objekte zu untersuchen und deren Eigenschaften anzuschauen.
Teil 8 verpasst? Dann erst mal hier weiter!
Im achten Teil haben wir uns angeschaut, wie wir mehrere Programmschritte auf einmal rückgängig machen können. Heute wollen wir was machen, was die allermeisten von euch brauchen können, dass Ausdrucken von Zeichnungen. Ein Beispiel für die Druckfunktion finden wir in der API-Hilfe in den Samples:
Den Bespielcode bitte markieren und in unser Benutzer-VBA-Projekt einfügen. Ich habe die Public Sub noch umbenannt in ZeichnungDrucken. Das Beispiel wird bei euch wahrscheinlich nicht funktionieren, weil ca. in der Mitte des Quelltextes ein Drucker Namens "HP LaserJet 4000...." als Ausgabedrucker angegeben ist.
oDrgPrintMgr.Printer = "HP LaserJet 4000 Series PCL 6"
Wenn ihr den nicht habt, dann wird es mit dem Drucken nichts werden. Hier muss also ein Druckername exakt so eingegeben werden, wie der Drucker heißt. Ich nehme zu Testzwecken den PDFCreator, damit ich beim testen nicht unnötig viele Blätter verdrucke.
Im unteren Bereich werden die Ausgabeeigenschaften angegeben ähnlich wie im Druckendialog im Inventor.
oDrgPrintMgr.ScaleMode = kPrintBestFitScale
oDrgPrintMgr.PaperSize = kPaperSizeA4
oDrgPrintMgr.PrintRange = kPrintAllSheets
oDrgPrintMgr.Orientation = kLandscapeOrientation
Wenn wir den Druckernamen angepasst haben, dann können wir einen ersten Testlauf machen, sobald eine Zeichnung geöffnet wurde.
Bei unserer Druckroutine ist fix hinterlegt, das A4 als Blattgröße und Querformat genutzt wird und alle Blätter gedruckt werden. Wir ändern nun den Quelltext das:
Setzen wir zur Untersuchung des oDrgDoc-Objekts eine Haltepunkt unterhalb und schauen in das Objekt hinein.
Wir sehen im oDrgDoc-Objekt ein ActiveSheet und darin die Eigenschaft Orientation und auch Size. Damit können wir If-Abfragen machen. Zudem die PrintRange-Eigenschaft ändern (Alles bis zum = löschen das = neu tippen dann kommen die Optionen zur Auswahl):
Das ergibt in Summe folgendes Programm, das soweit alle Anforderungen erfüllt:
Public Sub ZeichnungDrucken() 'Nur weiter wenn das aktuelle Dokument eine Zeichnung ist If ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then 'Verweis auf die aktuelle Zeichnung as DrawingDocument (nicht nur Document!) Dim oDrgDoc As DrawingDocument Set oDrgDoc = ThisApplication.ActiveDocument 'Ein DruckerManager-Objekt erstellen. Dieses Objekt hat Eigenschaften und Methoden 'um die Druckeigenschaften zu definieren und den Druck abzuschicken. Dim oDrgPrintMgr As DrawingPrintManager Set oDrgPrintMgr = oDrgDoc.PrintManager 'Den Drucker festlegen auf den gedruckt werden soll 'Auskommentieren für Windows Standarddrucker oDrgPrintMgr.Printer = "PDFCreator" 'Druckeigenschaften definieren oDrgPrintMgr.ScaleMode = kPrintBestFitScale 'Abhängig von der Blattgröße die Druckblattgröße A4 oder A3 wählen. If oDrgDoc.ActiveSheet.Size = kA4DrawingSheetSize Then oDrgPrintMgr.PaperSize = kPaperSizeA4 Else oDrgPrintMgr.PaperSize = kPaperSizeA3 End If oDrgPrintMgr.PrintRange = kPrintCurrentSheet 'Blattausrichtung beim Druckenr der Ausrichtung der Inventorzeichnungsseite anpassen If oDrgDoc.ActiveSheet.Orientation = kLandscapePageOrientation Then oDrgPrintMgr.Orientation = kLandscapeOrientation Else oDrgPrintMgr.Orientation = kPortraitOrientation End If 'Druck abschicken oDrgPrintMgr.SubmitPrint End If End Sub
Als kleinen Bonus nutzen wir nun eine Kopie des Public Sub Baugruppe, das ein paar Teile vorher gemacht haben, um alle Zeichnungen der Komponenten einer IAM zu finden, zu öffnen und dann die Druckfunktion zu öffnen. Also eine Kopie der Public Sub Baugruppe erstellen und die Zeile
Call oZeichDoc.SaveAs(oZeichDoc.FullFileName & ".pdf", True)
ersetzen durch den Aufruf der Druck Sub
Call ZeichnungDrucken
Dann im oberen Bereich auf alle enthaltenen Dateien zugegriffen wird (inkl. aller Unterbaugruppen!), kann es vorkommen, dass sehr viele Zeichnung gedruckt werden. Wir ändern das ganze von Set oRefDocs = oDoc.AllReferencedDocuments auf Set oRefDocs = oDoc.ReferencedDocuments.
So sieht das fertige Programm aus (Kommentare habe ich z.T. gelöscht!):
Public Sub IAMKompDrucken() 'Ruhe im Pu** :) ThisApplication.SilentOperation = True Dim oDoc As AssemblyDocument Set oDoc = ThisApplication.ActiveDocument Dim oRefDocs As DocumentsEnumerator Set oRefDocs = oDoc.ReferencedDocuments 'oDoc.AllReferencedDocuments Dim oRefDoc As Document 'Var. die den Pfad zur Zeichnung enthält Dim Zeichnungpfad As String 'Var die die die zu öffnende Zeichnung enthält Dim oZeichDoc As Document For Each oRefDoc In oRefDocs Zeichnungpfad = Left(oRefDoc.FullFileName, (Len(oRefDoc.FullFileName) - 4)) Dim objFso As Object Set objFso = CreateObject("Scripting.FileSystemObject") 'Mit dem FileSystemobject und dessen Funktion FileExists prüfen wir, ob die Datei deren Pfad sich aus 'der Var Zeichnungpfad und der Dateiendung .dwg (ODER IDW, WENN IHR IDW NUTZT. ENTSPRECHEND ANPASSEN!) If objFso.FileExists(Zeichnungpfad & ".dwg") Then Zeichnungpfad = Zeichnungpfad & ".dwg" Set oZeichDoc = ThisApplication.Documents.Open(Zeichnungpfad, True) Call ZeichnungDrucken 'Jetzt die Zeichnung speichern und schließen Call oZeichDoc.Close(False) End If Next 'Inventor darf wieder Dialoge anzeigen ThisApplication.SilentOperation = False End Sub
Jetzt haben wir zum Einen eine Druckfunktion für eine einzelne Zeichnung und zum anderen können wir alle Zeichnungen zu Komponenten in einer IAM suchen und drucken. Das kann einem das Leben schon sehr erleichtern!
Hausaufgaben bis zum nächsten mal:
Bis zum nächsten mal!
Innerhalb von Dokumenten kann ein iLogic-Ereignisauslöser definiert werden, der beim Auftreten des Ereignisses die entsprechende iLogicregel ausführt.
Wer diese Ereignisauslöser wieder loswerden will, kann dazu dieses VBA-Programm nutzen. Nach dem Ausführen sind die Ereignisauslöser entfernt.
MUM Kunden mit einem Software-Service-Vertrag bekommen regelmäßig Newsletter mit hilfreichen Tipps zum Inventor. Hier ausnahmsweise mal die Links zu den aktuellen Beiträgen, das alle ohne Servicevertrag oder gar Nicht-MUM-Kunden sehen, was sie verpassen.
Autodesk Inventor: Stapelweiser Austausch von Schriftfeldern
Durch Namens- oder Adressänderungen von Unternehmen kommt es vor, dass Schriftfelder überarbeitet werden müssen. Dies betrifft in der Regel eine Vielzahl von Zeichnungen.
Stefan Verbeek zeigt Ihnen, wie Sie den Austausch vereinfachen.
Autodesk Inventor: Dateinamen und Infos aus Inhaltscenter extrahieren
Übertragen Sie Dateinamen und weitere Informationen des Inhaltscenters aus Autodesk Inventor in eine Excel-Datei. Diese Infos können zum Beispiel wichtig für das Einpflegen in ein Warenwirtschaftssystem sein.
Die Vorgehensweise erläutert Ihnen Josef Schmitt.
Autodesk Inventor: Anordnungen und Dateigröße
Eine hohe Anzahl von Elementen (z.B. bei der Konstruktion von Lochblechen) hat oft ein schlechteres Handling der Dateien zur Folge.
Außerdem ist die Verwendung der Dateien in Zeichnungen, in übergeordneten Baugruppen und in der weiteren Verwendung für CAD/CAM mit unterschiedlichen Anforderungen verbunden.
Frank Arch gibt Ihnen Tipps zu besserer Performance und detailgenauen DXFs.
|
|
