| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Datei öffnen speichern schliessen (4744 mal gelesen)
|
is Mitglied
Beiträge: 37 Registriert: 12.07.2001
|
erstellt am: 12. Feb. 2007 17:12 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute Irgendwie sehe ich nicht durch. Es sollte die datei öffnen, speichern und schliessen. Nur das speichern geht nicht, wieso das?
Code:
Public Sub test() 'öffnen, aktualisieren, speichern, schliessen Dim oDoc As Inventor.Document Dim oDraw As DrawingDocument Set oDoc = ThisApplication.Documents.Open("C:\Test\test.iam") Set oDraw = ThisApplication.Documents.Open("C:\Test\test.idw") Call oDoc.Close(False) Call oDraw.Close(False)End Sub
Besten Dank für eure Hilfe mfg Sascha Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PaulSchuepbach Moderator Programmierer
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 12. Feb. 2007 23:38 <-- editieren / zitieren --> Unities abgeben: Nur für is
|
is Mitglied
Beiträge: 37 Registriert: 12.07.2001
|
erstellt am: 13. Feb. 2007 10:44 <-- editieren / zitieren --> Unities abgeben:
Hallo Paul, ich habe noch mein Programm erweitert. Nur bekomme ich zuviele Meldungen wie Aktualisieren von idw und den speichervorgang. wie kann ich diese Meldungen verhindern? Code:
Sub Speichern() Dim oDoc As Inventor.Document Dim oDraw As DrawingDocument Dim file As String Dim Dateiname As String Dim Verzeichnis As String Dim Datei() As String Dim Werte() As String Dim anzahl As Integer.... For i = 0 To anzahl - 1 Set oDoc = ThisApplication.Documents.Open(Verzeichnis & Datei(i)) Set oDraw = ThisApplication.Documents.Open(Verzeichnis & Left(Datei(i), Len(Datei(i)) - 4) & ".idw") file = oDoc.FullFileName file = oDraw.FullFileName oDoc.Rebuild Call oDoc.Save Call oDraw.Save Call oDoc.Close(False) Call oDraw.Close(False) Next i End Sub
Gruss Sascha 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: 13. Feb. 2007 11:04 <-- editieren / zitieren --> Unities abgeben: Nur für is
|
Thunja Mitglied Projektleiterin / techn. Redakteurin
Beiträge: 41 Registriert: 22.08.2017 Inventor 2020 / VBA
|
erstellt am: 18. Jan. 2021 08:02 <-- editieren / zitieren --> Unities abgeben: Nur für is
ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist! Hallo zusammen, ich habe arbeite an der Zusammenfassung von mehreren Schritten in einen. Ich würde gerne zuvor überprüfen, ob das ActiveDocument ausgechekct ist. Ich habe versucht, die Eigenschaft durch Variablenüberwachund zu suchen, war aber erfolglos. Kann mir jemadn sagen, wo sich die Eigenschaft versteckt, ob das Dokument ausgecheckt ist? Das wäre mir eine große Hilfe. Vielen Dank!
Edit 8:30 Ich habe eine Eigenschaft gefunden, die heißt "IsModifiable". Wenn diese auf true steht, ist Datei nicht geschützt, somit müsste diese ausgecheckt sein, oder? ------------------ Grüße, Thunja
[Diese Nachricht wurde von Thunja am 18. Jan. 2021 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meierjo Mitglied
Beiträge: 358 Registriert: 20.08.2003
|
erstellt am: 18. Jan. 2021 08:32 <-- editieren / zitieren --> Unities abgeben: Nur für is
|