---

Hi Ho Forum....

Ich möchte den Start eines Makros abfangen wenn KEIN Dokument geöffnet ist. (Will dann mit einer Fehlermeldung reagieren)

Wie Frage ich das ab ???

*hmmmm*

Vielen Dank jetzt schon mal und LG aus Kiel... ;-)

Andreas

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

---

Hi Andreas.

Versuche auf  "Application.ActiveDocument" zuzugreifen und fange den Fehler ab. Ist der Fehler <> 0, dann ist kein Dokument geöffnet.

lg Mathias

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

---

Hallo Andreas,

versuch's mal damit:

Private Sub countDocs()
 
  Dim oApp As Application
  Set oApp = ThisApplication
 
  Dim oDocs As Documents
  Set oDocs = oApp.Documents
 
  If oDocs.Count = 0 Then
    MsgBox "Es ist kein Dokument geoeffnet", 16, "Unerwarteter Fehler"
  Else
    MsgBox oDocs.Count
  End If
 
End Sub

Jetzt ist nur noch die Frage, wann bzw. wie Du das ganze anstossen willst: beim Start von Inventor ? Beim Schliessen eines Dokuments ? ...

Gruesse,

Paul

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

---

So....

*juhuuu*... Habs heute auch endlich mal wieder ins Forum geschafft.. ;-)    (Wenn auch erst nach FA!!)

Erst einmal vielen Dank für die Hilfe !!! Hat geklappt!! *ufff*

@Paul:
Ich hab ein paar kleine Makros geschrieben die, wenn kein Dokument geöffnet ist, einen Laufzeitfehler erzeugen.....
Und was macht ein lieber User wenn er was macht was er nicht machen soll und dann so eine komische Meldung kommt!!!
(Das was ich dann wohl auch machen würde *grins*)
Er ruft an und ........  ;-)))

Um das zu umgehen möchte ich dieses Prob schon gleich abfangen !!

Also... Vielen Dank von mir und meinen Nerven....

LG

Andreas

PS: Das mit dem Aufruf ist übrigens das nächste Abenteuer in das ich mich stürzen möchte!
Möchte eine DLL Datei erzeugen die ein Menü im Inventor erzeugt und über die ich dann meine einzelnen Makros ausführe......
Hat jemand damit schon Erfahrungen gesammelt ???

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

---

Hi Andreas.

Ich wüßte da Einen.

Aber der hat auf Read-Only geschaltet.

lg Mathias

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

---

Guten Morgen Mathias..

Wer denn ??? Wie denn??  Was denn ???  ;-)
*noch etwas müde ist*

lG vom Nordlicht

Andreas

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

---

Hi Evil_Bart,

schau dir mal in der Inventor API Doku das Beispiel "SDK Simple Add-In VB Sample" an. Das erzeugt ein Menü im Inventor. Du kannst dann entweder deinen Code direkt hinter die Menüeinträge legen, oder aber es gibt auch ein Objekt, mit dem du fertige Makros ausführen kannst, ist dann flexibler. Ich weiss aber gerade nicht mehr wie das heisst, musst du mal etwas in der Doku suchen.

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

---

Hallo Andreas,
freut mich, dass es Dir und Denen Nerven gut geht...

Im SampleAddIn Beispiel ist schon fast zuviel, wenn Du 'nur' eine Button-Bar mit Buttons erzeugen willst. Anyway, wenn dein Prog nur laufen darf, wenn ein bestimmer Typ Dokument geoeffnet wird, dann waere es einfacher (und wuerde professioneller aussehen), wenn Du anstelle einer Fehlermeldung einfach den (die) entsprechenden Buttons aktivierst und deaktivierst. Du kannst das mit den DocumentEvents
ganz easy abchecken.

Gruesse,

Paul

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