| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: alle 10 sec schauen ob Datei vorhanden? (2302 mal gelesen)
|
inventomas Mitglied Techniker
Beiträge: 94 Registriert: 25.12.2004 AIS10, ACAD2006, P4 2800 MHz, 1 GB RAM, 80 GB HD, Win XP Pro SP2
|
erstellt am: 06. Aug. 2005 12:53 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, Ich habe in meinem Makro ein Problem: Das Makro soll alle 10 Sekunden nach einer Bestimmten Datei suchen. Wenn ich es mit dem Befehl Sleep (das ich in dem Forum gefunden habe) mache, kann man ACAD nicht mehr standardmäßig schließen während das Makro läuft. Gibt es in ACAD so einen ähnlichen Befehl wie im Word wo es mit Application.OnTime einwandfrei funktioniert? Vielen Dank Thomas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Die Phönizier haben das Geld erfunden - aber warum so wenig? (Johann Nepomuk Nestroy)
|
erstellt am: 07. Aug. 2005 10:22 <-- editieren / zitieren --> Unities abgeben: Nur für inventomas
|
inventomas Mitglied Techniker
Beiträge: 94 Registriert: 25.12.2004 AIS10, ACAD2006, P4 2800 MHz, 1 GB RAM, 80 GB HD, Win XP Pro SP2
|
erstellt am: 07. Aug. 2005 12:55 <-- editieren / zitieren --> Unities abgeben:
|
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Die Phönizier haben das Geld erfunden - aber warum so wenig? (Johann Nepomuk Nestroy)
|
erstellt am: 08. Aug. 2005 10:09 <-- editieren / zitieren --> Unities abgeben: Nur für inventomas
|
Stelli1 Moderator Verm.-Ing.
Beiträge: 1521 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 02. Sep. 2005 08:58 <-- editieren / zitieren --> Unities abgeben: Nur für inventomas
Hallo Thomas, bei VB6 gibt es das Timer Steuerelement. Habs bei VBA nicht gefunden. Unter VB6 kann man relativ einfach ein Benutzersteuerelement (OCX) erstellen. Dieses könntest du in eine VBA Form einbinden. Das OCX könnte man so einstellen, das es in einem bestimmten Interval ein Ereignis "feuert". Dieses könnest du mit deinem Code belegen. Stelli1 ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 02. Sep. 2005 09:38 <-- editieren / zitieren --> Unities abgeben: Nur für inventomas
Zitat: Original erstellt von inventomas: Hallo,danke für die Antwort. Ich hätte das Programm Visual Studio.net, kann man dort solche DLLs machen? Habe leider nicht viel Erfahrung mit dem Programm. Danke Thomas
im Visual Studio .net gibts doch eh den FileSystemWatcher (google mal danach). Mit dem kannst du einen zu überwachenden Ordner einrichten, und jede Änderung in diesem Ordner ruft dir automatisch einen Event in deinem Prog auf ------------------ Ing. Anton Fuchs WWW.FFZELL.AT.TC Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 02. Sep. 2005 10:02 <-- editieren / zitieren --> Unities abgeben: Nur für inventomas
|
inventomas Mitglied Techniker
Beiträge: 94 Registriert: 25.12.2004 AIS10, ACAD2006, P4 2800 MHz, 1 GB RAM, 80 GB HD, Win XP Pro SP2
|
erstellt am: 02. Sep. 2005 11:24 <-- editieren / zitieren --> Unities abgeben:
|
Stelli1 Moderator Verm.-Ing.
Beiträge: 1521 Registriert: 17.08.2005 Map 2000-2014, Rasterdesign, MapGuide, Autodesk Topobase, VS6, VS.net 2013
|
erstellt am: 02. Sep. 2005 20:27 <-- editieren / zitieren --> Unities abgeben: Nur für inventomas
Hallo Thomas, hatte noch so ein OCX, habs ein bisschen reduziert. Wer brauchen mag. - Auf Rechner Kopieren - In der Dos-Box oder Ausführen regsvr32 specialtimer.ocx (im Verzeichnis oder mit Pfad) In VBA oder sonstwo weitere Komponenten hinzufügen. "SpecialTimwe.Xtimer" wählen und Control in die Form schieben. Mit Code:
Private Sub timerOCX_ZeitIstUm(Interval As Long) Dim tmp As Long tmp = Me.timerocx.GetTime ' Timer anhalten Me.timerocx.SetTime = 0 MsgBox Me.timerocx.GetInfo Me.timerocx.SetTime = tmp End SubPrivate Sub UserForm_Initialize() ' In msec 20000 > 20 sec Me.timerocx.SetTime = 10000 End Sub
kann man sich was bauen.Stelli1 ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |