| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Makro starten (5823 mal gelesen)
|
KICK Mitglied Technischer Zeichner
Beiträge: 32 Registriert: 25.04.2005
|
erstellt am: 01. Jun. 2005 08:46 <-- editieren / zitieren --> Unities abgeben:
|
SEHER Mitglied Systemanalytiker
Beiträge: 1203 Registriert: 13.03.2001 Inventor 2 bis 2022 häufig wechselnder Rechnerverkehr
|
erstellt am: 01. Jun. 2005 12:26 <-- editieren / zitieren --> Unities abgeben: Nur für KICK
|
KICK Mitglied Technischer Zeichner
Beiträge: 32 Registriert: 25.04.2005
|
erstellt am: 01. Jun. 2005 12:47 <-- editieren / zitieren --> Unities abgeben:
Hallo Seher, Also wie ich eine VBA-Routine beim starten des Dokuments automatisch aufführen lassen, weiß ich mittlerweise "Sub AutoOpen()" Nun zum eigentlichen Problem: Wenn ich mit VB über die ApprenticeServerComponent die Werte der iProperties ändere und anschließend mit: -------------------------------------------- ' dokument speichern und schließen Dim oFileSaveAs As FileSaveAs Set oFileSaveAs = objApp.FileSaveAs Call oFileSaveAs.AddFileToSave(objDoc, objDoc.FullFileName) Call oFileSaveAs.ExecuteSave ------------------------------------------- speichere werden diese Werte zwar später im Inventor angezeigt (also im Schriftfeld) aber wenn die Datei anschließend drucken möchte (über VB) --------------------------------------------- objDoc.PrintManager.PrintToFile objDoc.FullFileName objDoc.PrintManager.SubmitPrint --------------------------------------------- wird nur das leere Blatt ausgedruckt (also ohne die Werte). Wenn das alles allerdings vorher im Inventor einmal speichere geht das alles ohne Probleme! Hoffe du verstehst was ich meine ;-) So würde z.B. dann das VBA Inventor Makro aussehen: --------------------------- Sub SaveMe() Me.Save End Sub ---------------------------
Gruß, Tim
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KICK Mitglied Technischer Zeichner
Beiträge: 32 Registriert: 25.04.2005
|
erstellt am: 02. Jun. 2005 14:34 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 02. Jun. 2005 15:14 <-- editieren / zitieren --> Unities abgeben: Nur für KICK
|
KICK Mitglied Technischer Zeichner
Beiträge: 32 Registriert: 25.04.2005
|
erstellt am: 02. Jun. 2005 15:31 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 02. Jun. 2005 15:49 <-- editieren / zitieren --> Unities abgeben: Nur für KICK
|
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 03. Jun. 2005 06:25 <-- editieren / zitieren --> Unities abgeben: Nur für KICK
|
KICK Mitglied Technischer Zeichner
Beiträge: 32 Registriert: 25.04.2005
|
erstellt am: 03. Jun. 2005 14:42 <-- editieren / zitieren --> Unities abgeben:
Hi, das funktioniert leider nicht alles so wie ich es gern hätte! Habe leider Zuhause auch nur die Inventor-Demo (die seit 20 Jahren abgelaufen ist ) deswegen kann ich hier auch nichts wirklich testen. Außerdem kann man ein AddIn auch nur ausführen wenn Inventor gestartet ist, oder? Und das wollte ich eigentlich verhindern. Mein Ziel ist es ja iProperties zuverändern und anschließend die IDW (aktualisiert) zudrucken. Über ApprenticeServer. Gruß, Tim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KICK Mitglied Technischer Zeichner
Beiträge: 32 Registriert: 25.04.2005
|
erstellt am: 06. Jun. 2005 10:51 <-- editieren / zitieren --> Unities abgeben:
Hi, also ich bin mittlerweise soweit das ich kleines AddIn für Inventor (um)geschrieben habe. Wenn ich es aber mit: Dim x As New ApprenticeServerComponent x.ApplicationAddIns(3).Activate aufrufen möchte erschneit die Fehlermeldung: "Objekt unterschützt diese Aktion nicht!" Kann mir vielleicht jemand sagen wie ich das AddIn sonst starten kann/soll? Gruß, Tim ADDIN:
Option Explicit Option Compare Text Implements ApplicationAddInServer Private oInventorApp As Inventor.Application Public Sub ApplicationAddInServer_Activate(ByVal AddInSiteObject As Inventor.ApplicationAddInSite, ByVal FirstTime As Boolean) Set oInventorApp = AddInSiteObject.Application oInventorApp.Documents(1).Save End Sub Public Sub ApplicationAddInServer_Deactivate()
Set oInventorApp = Nothing End Sub Private Property Get ApplicationAddInServer_Automation() As Object Set ApplicationAddInServer_Automation = Nothing End Property Private Sub ApplicationAddInServer_ExecuteCommand(ByVal CommandID As Long) ' not used. End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 06. Jun. 2005 11:11 <-- editieren / zitieren --> Unities abgeben: Nur für KICK
|
KICK Mitglied Technischer Zeichner
Beiträge: 32 Registriert: 25.04.2005
|
erstellt am: 06. Jun. 2005 11:36 <-- editieren / zitieren --> Unities abgeben:
Hi, danke für die schnelle Antwort Aber das AddIn habe ich bereits bei jeder änderung (neu) registriert! REGEDIT4 [HKEY_CLASSES_ROOT\CLSID\{4632D0D3-BC95-421F-AA18-A3BF3A715298}] @="VBA AutoMacros" [HKEY_CLASSES_ROOT\CLSID\{4632D0D3-BC95-421F-AA18-A3BF3A715298}\Description] @="This is the VBA AutoMacros from the documentation." [HKEY_CLASSES_ROOT\CLSID\{4632D0D3-BC95-421F-AA18-A3BF3A715298}\Implemented Categories\{39AD2B5C-7A29-11D6-8E0A-0010B541CAA8}] [HKEY_CLASSES_ROOT\CLSID\{4632D0D3-BC95-421F-AA18-A3BF3A715298}\Required Categories] [HKEY_CLASSES_ROOT\CLSID\{4632D0D3-BC95-421F-AA18-A3BF3A715298}\Required Categories\{39AD2B5C-7A29-11D6-8E0A-0010B541CAA8}] [HKEY_CLASSES_ROOT\CLSID\{4632D0D3-BC95-421F-AA18-A3BF3A715298}\Settings] "LoadOnStartUp"="0" "Type"="Standard" "SupportedSoftwareVersionEqualTo"="9.." Funktioniert leider immer noch nicht Gruß, Tim Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |