Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Ist IDW ausgeliehen ???

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Ist IDW ausgeliehen ??? (957 mal gelesen)
Evil_Bart
Mitglied
CAD Admin (Freiberuflich)


Sehen Sie sich das Profil von Evil_Bart an!   Senden Sie eine Private Message an Evil_Bart  Schreiben Sie einen Gästebucheintrag für Evil_Bart

Beiträge: 137
Registriert: 14.08.2003

- Win 7
CAD:
- Inventor 2013 Pro
- AM 2013
- SAP/PLM

erstellt am: 11. Mrz. 2004 14:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi Ho Forum...

Wie frage ich ab ob eine Zeichnung (*.idw) ausgeliehen ist?? (Mehruser)....

Vielen DANK von hier... (und hier ist Kiel  ;-))

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

TSch
Mitglied
CAD/PDM Administrator


Sehen Sie sich das Profil von TSch an!   Senden Sie eine Private Message an TSch  Schreiben Sie einen Gästebucheintrag für TSch

Beiträge: 102
Registriert: 26.07.2002

Sei frohgemut bei allen Dienstobliegenheiten !

erstellt am: 15. Mrz. 2004 16:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Evil_Bart 10 Unities + Antwort hilfreich


Ausleihstatus.txt

 
Hi Evil !
(Ich hoffe, bei Dir passt Nomen est omen net....) 
Zum Beispiel kannst Du das über Apprentice abfragen.
Lege mal ein Codefragment bei.
Über die Diva selber freilich auch, ist ja eine Property des
Dokumentes (Part, Assy, Zeichnung....)

Möge es nutzen !!

------------------
Thomas Sch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Evil_Bart
Mitglied
CAD Admin (Freiberuflich)


Sehen Sie sich das Profil von Evil_Bart an!   Senden Sie eine Private Message an Evil_Bart  Schreiben Sie einen Gästebucheintrag für Evil_Bart

Beiträge: 137
Registriert: 14.08.2003

- Win 7
CAD:
- Inventor 2013 Pro
- AM 2013
- SAP/PLM

erstellt am: 17. Mrz. 2004 09:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi Ho Thomas....

Erst einmal vielen Dank für deine Antwort...  (Evil_Bart da nur Bart einfach zu ARTIG !!! *ggg*)

Versuche mich gerade langsam an das Prob ranzuschleichen....  ;-)) (Alles so neu hier...!)

Klappt aber leider irgendwie nicht.... Lösung ???

Kurz noch mal zu meinem Prob.. Erzeuge über ein Programm eine TIFF und gleichzeitig eine DWG Datei...
Möchte die DWG in das Projektverzeichnis schreiben in der die aktuelle *.IDW aufgerufen wurde ... Pech ist wenn der USER die *.idw ausgeliehen hat... (Die DWG wird dann Lokal gespeichert.. *grumpf*)

Vielen Dank jetzt schon mal....

LG

Andreas

*****************************************
Public Sub IsCheckedOutToMe()

Dim DocFullName As String

Dim CheckedOut As Boolean
Dim CheckedOutBy As String

Dim oApp As Application
Set oApp = ThisApplication

Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

'Hier erhalte ich den [DOCNAME.idw]
DocFullName = Right(oDoc.FullFileName, 17)

Dim oADoc As ApprenticeServerDocument
Dim oA  As New ApprenticeServerComponent

Rem Statusüberprüfung (Ausgecheckt ?)

Set oADoc = oA.Open(DocFullName)

' *******************************************************

' Beim Sprung in die Zeile CheckedOut bekomme ich dann den
' Laufzeitfehler 445 – Objekt unterstützt diese Aktion nicht!

CheckedOut = oADoc.ReservedForWrite

' *******************************************************

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

PaulSchuepbach
Moderator
Programmierer




Sehen Sie sich das Profil von PaulSchuepbach an!   Senden Sie eine Private Message an PaulSchuepbach  Schreiben Sie einen Gästebucheintrag für PaulSchuepbach

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 17. Mrz. 2004 13:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Evil_Bart 10 Unities + Antwort hilfreich

Hallo Andreas,

wozu brauchst Du im VBA das ApprenticeServerComponent-Obekt ????

Den Filenamen krigst Du auch ueber 'oDoc.DisplayName anstelle von 'DocFullName = Right(oDoc.FullFileName, 17)' - wobei Du auch den Pfad extrahieren kannst:

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As Inventor.Document
  Set oDoc = oApp.ActiveDocument
 
  Dim idwPath As String
  idwPath = Replace(oDoc.FullFileName, oDoc.DisplayName, "")
 
  MsgBox idwPath


Die Fehlermeldung kommt wahrscheinlich, weil Dein Apprentice-Objekt = Nothing ist. Versuch mal VOR dieser Zeile:

If oADoc = Nothing then
  MsgBox "war wohl nix...", 16, "Falscher Fehler
  Exit Sub
End If


Probier's mal aus.


Gruesse,

Paul


www.morecam.ch/cad.htm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

PaulSchuepbach
Moderator
Programmierer




Sehen Sie sich das Profil von PaulSchuepbach an!   Senden Sie eine Private Message an PaulSchuepbach  Schreiben Sie einen Gästebucheintrag für PaulSchuepbach

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 17. Mrz. 2004 13:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Evil_Bart 10 Unities + Antwort hilfreich

Hallo Andreas,

wozu brauchst Du ...


Sorry, 2x gedrueckt.


Gruesse,

Paul

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Evil_Bart
Mitglied
CAD Admin (Freiberuflich)


Sehen Sie sich das Profil von Evil_Bart an!   Senden Sie eine Private Message an Evil_Bart  Schreiben Sie einen Gästebucheintrag für Evil_Bart

Beiträge: 137
Registriert: 14.08.2003

- Win 7
CAD:
- Inventor 2013 Pro
- AM 2013
- SAP/PLM

erstellt am: 17. Mrz. 2004 14:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi Paul..

Erst einmal vielen Dank....  ;o)

Das mit dem Filename ist gar nicht das große Prob... Hast du eine Idee wie ich abfrage ob die aktuelle IDW ausgecheckt ist oder nicht ???

Vile Grüße aus dem warmen warmen Büro....

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

PaulSchuepbach
Moderator
Programmierer




Sehen Sie sich das Profil von PaulSchuepbach an!   Senden Sie eine Private Message an PaulSchuepbach  Schreiben Sie einen Gästebucheintrag für PaulSchuepbach

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 17. Mrz. 2004 14:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Evil_Bart 10 Unities + Antwort hilfreich

Hallo Andreas,

hab' ich ehrlich gesagt noch gar nie gebraucht... Aber versuch's mal damit (aus Thomas' Beispiel zusammengeschnipselt) - sollte so geh'n (Thomas ???):


Private Sub getCheckOutState()
 
  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As DrawingDocument
  Set oDoc = oApp.ActiveDocument

 
  If (oDoc.ReservedForWrite = False And oDoc.ReservedForWriteByMe = False) Then
    MsgBox "Datei ist nicht ausgecheckt!", vbInformation
  End If


End Sub

Gruesse,

Paul


www.morecam.ch/cad.htm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Evil_Bart
Mitglied
CAD Admin (Freiberuflich)


Sehen Sie sich das Profil von Evil_Bart an!   Senden Sie eine Private Message an Evil_Bart  Schreiben Sie einen Gästebucheintrag für Evil_Bart

Beiträge: 137
Registriert: 14.08.2003

- Win 7
CAD:
- Inventor 2013 Pro
- AM 2013
- SAP/PLM

erstellt am: 17. Mrz. 2004 17:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

*ups*
So einfach geht das ??  *grins*

Hi Ho noch einmal....

Vielen DANK !!  FUNKTIONIERT... War auch genau das was ich wollte..

*mit grinsen FA macht*

Grüsse aus KIEL

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

TSch
Mitglied
CAD/PDM Administrator


Sehen Sie sich das Profil von TSch an!   Senden Sie eine Private Message an TSch  Schreiben Sie einen Gästebucheintrag für TSch

Beiträge: 102
Registriert: 26.07.2002

Sei frohgemut bei allen Dienstobliegenheiten !

erstellt am: 08. Apr. 2004 12:54    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Evil_Bart 10 Unities + Antwort hilfreich

Hallo Evil, hallo Paul !
Sorry, war ne Weile abgetaucht. Wollte mit meinem Beispiel eigentlich keine Verwirrung stiften....Ich benutze Apprentice, da ich aus anderen Applikationen heraus auf IV Docs zugreife und daher wissen muß, ob ich das darf....
In Inventor benutze ich (außerhalb von Makros) einfach die "Status" Properties. Nur schade, daß man mit VB(A) nicht den Workspacestandort des ausgecheckten Docs abgreifen kann

Ansonsten : Viel Spaß beim Eiersuchen !!!
Thomas

------------------
Thomas Sch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz