|
Inventor VBA : Button zum starten eines Makros
lumb am 02.04.2013 um 14:22 Uhr (0)
Hallo,ich habe ein Makro geschrieben welches ich gerne durch einen Klick auf einem Button im Bauteil starten wollen würde. Gebe ich die Datei weiter, so soll auch der Button mit dabei sein. Ist das im Inventor möglich?Das Makro befindet sich in eier IPT.Danke[Diese Nachricht wurde von lumb am 02. Apr. 2013 editiert.]
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Button zum starten eines Makros
rkauskh am 02.04.2013 um 21:24 Uhr (0)
HalloDas Makro steckt im Dokumentprojekt der Datei und wird von einem Button aufgerufen den es vorher selbst erstellen soll. Hmm, klingt nach die Henne legt das Ei aus der sie schlüpft oder?Es ginge vielleicht über ein AutoOpen-Makro das einen Event-Handler erstellt und der löst dein Makro zum Erstellen des Buttons aus. Aber ehrlich, mach eine AddIn-dll draus oder gib dem Empfänger einen Zettel auf dem steht wie er das Makro importiert und den Button selbst erstellt.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste von einzelnen Membern einer iAssembly auslesen
WilliamSpiderWeb am 19.02.2013 um 15:00 Uhr (0)
Hallo zusammen,Ich versuche gerade folgendes in VBA zu realisieren:Ist eine Baugruppe geöffnet, möchte ich per Knopfdruck die Stückliste der Baugruppe auslesen und in eine csv-Datei schreiben. Handelt es sich bei der Baugruppe um eine iAssembly, soll die Stückliste für jedes iAssembly Member mit den entsprechenden Unterschieden geschrieben werden.Das Lesen der Stückliste an sich und das irgendwo hinschreiben ist kein Problem. Problematisch wird es beim Unterscheiden der einzelnen iAssembly Member.Ich weiß, ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : PDF Export
rkauskh am 12.04.2013 um 12:43 Uhr (0)
HalloCode:Sub PDFExport()Set a reference to the active document (the document to be published). Dim oDocument As Document Set oDocument = ThisApplication.ActiveDocument Dim bErr As Boolean Dim fso As Object Set fso = CreateObject("Scripting.FilesystemObject") Dim ret As Variant Set dDoc = ThisApplication.ActiveDocument If dDoc.FullFileName = "" Then MsgBox "Bitte zuerst die Datei speichern... " Exit Sub End If Get the PDF translator Add-In. Dim PDFAddIn As TranslatorAddIn Set PD ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : PDF Export
Bluejay am 12.04.2013 um 09:54 Uhr (0)
Guten Morgen zusammen,villeicht kann mir ja einer helfen - ich habe folgendes Problem, ich habe das folgenden Makro das mir ein PDF in ein vorgegebenes Verzeichnis aus einer idw exportiert. Leider tut es das nur wenn informationen wie Zeichnungsnumemr + Blatt + Index von unserem Datamanagementsystem in den iprops stehen. Bei nur lokal gespeicherten Dateien gibt es diese iprops nicht. Frage wie kann nich das Programm anpassen, das es mir auch ein pdf exportiert wenn diese info nich vorhanden ist?Anbei der C ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : PDF Export
daywa1k3r am 12.04.2013 um 12:41 Uhr (0)
Hi, probier mal so:Code:Sub PDFExport()Set a reference to the active document (the document to be published). Dim oDocument As Document Set oDocument = ThisApplication.ActiveDocument Dim fso As Object Set fso = CreateObject("Scripting.FilesystemObject") Dim ret As Variant Dim dDoc As Document Set dDoc = ThisApplication.ActiveDocument If dDoc.FullFileName = "" Then MsgBox "Bitte zuerst die Datei speichern... " Exit Sub End If Get the PDF translator ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : NACA-Profile generieren mit Hilfe von Inventor-VBA
rkauskh am 16.04.2013 um 19:31 Uhr (0)
HalloBevor du wild losprogrammierst, warum bettest du die Exceltabelle nicht im fx-Parameterdialog in deine Datei ein? Zu beachten wäre nur, daß in Spalte 1 der Parametername, in zwei der Wert, in drei die Einheit und in Spalte 4 der Kommentar stehen sollte. Spalte 3 und 4 sind optional. Die Wertezellen dürfen auch Formeln enthalten, müssen aber einen numerischen Ausdruck als Ergebnis liefern.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Export Teileliste
rkauskh am 22.04.2013 um 08:48 Uhr (0)
MoinJa geht. Ich habe die Reihenfolge im Code auch ein bißchen gedreht, um ein bißchen mögliche Fehler zu umgehen. Code:Sub Stückliste()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationIf oapp.ActiveDocument.DocumentType kDrawingDocumentObject ThenMsgBox "Funktion ist nur in Zeichnungen zulässig"Exit SubEnd IfDim oDrawDoc As Inventor.DrawingDocumentSet oDrawDoc = oapp.ActiveDocumentDim sAuthor, sPath, sFileName, sTXTFileName As StringDim oPropSet As PropertySetDim iProp As PropertyPfad anpassensP ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Auslesen von AP-Koordinaten
daywa1k3r am 04.08.2003 um 23:28 Uhr (0)
1. Dein Rohr als Einzelteil öffnen2. Die Datei "C:sweep_daten.xls" muss vorhanden sein.Das Programm WP_to_Excel.exe starten.Noch nicht sehr intelligent, aber es könnte noch werden.------------------Grüße daywa1k3r [Diese Nachricht wurde von daywa1k3r am 18. Nov. 2003 editiert.]
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : VB Addin als PDF speichern
Ennuira93 am 18.04.2013 um 09:00 Uhr (0)
Guten Morgen,ich stell mich mal kurz eben vor, bevor ich zu dem Problem komme, da ich hier neu bin.Mein Name ist Sebastian, bin 20 Jahre jung und mache gerade meine Lehre als Informatiker Fachrichtung Systemintegration. Nun mein Problem : Ich möchte ein VB Addin erstellen, dass die Zeichnungen ( alle Blätter ) als PDF speichert, sobald ich auf das Speichersymbol klicke. Also es soll einmal in seinem Orginalformat speichern und einmal als PDF.Ich habe ein Vba Script, dass funktioniert. Nun hab ich es in VB ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : VB Addin als PDF speichern
Ennuira93 am 24.04.2013 um 11:24 Uhr (0)
Edit : So es funktioniert und ich möchte euch den Code zur Verfügung stellen. Vielleicht kann mal jmd einen Teil vom Code nutzen.Zitat:Imports InventorImports System.Runtime.InteropServicesImports Microsoft.Win32Namespace TestSpeichernNeuinstallation ProgIdAttribute("TestSpeichernNeuinstallation.StandardAddInServer"), _ GuidAttribute("f01145cb-dd0d-411b-9975-e49a219b849d") _ Public Class StandardAddInServer Implements Inventor.ApplicationAddInServer Inventor application object. Private m_inven ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Sonderzeichen im Dateinamen
Bluejay am 15.05.2013 um 08:09 Uhr (0)
Guten Morgen zusammen,ich habe folgendes Problemchen, ich habe eine VBA Routine mit der ich immer dateien in eine Stepdatei exportiere. Nun kommt es vor das wir in der "Bezeichung1" in den Iprops die für die Dateinamensgebung abgefragt wird ein Sonderzeichen wie z.B. ein / vorhanden ist. Dies führt dazu das diese Routine die Datei aus irgendwelchen Gründen nicht mehr ablegen kann ? Folgend die Routine - ich hoffe jemand hat eine Idee - Für alle hilfe ein dank schon mal!Sub Export_Step()Reference zum Aktive ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Feldtext eingabe bei neuer idw unterdrücken
Bud87 am 07.06.2013 um 10:27 Uhr (0)
Hallo,Ich habe eine neue Regel in meiner Zeichnungsvorlage erstellt und dort den Syntax eingefügt. Die Regel wird jetzt durch den Ereignisauslöser ausgeführt, wenn eine neue Zeichnung erstellt wird.Wenn ich jetzt eine neue Vorlagenzeichnung öffne wird durch den Ereignisauslöser eine Vorlage nach der anderen geöffnet. Gibt es eine Möglichkeit den Feldtext zu unterdrücken ohne eine neue Datei zu öffnen?Danke
|
| In das Form Inventor VBA wechseln |
