---

Hallo,

noch ein kleiner Zusatz:
Beim Experimentieren mit Auswahlsätzen
bekomme ich immer die Fehlermedung "Autocad Hauptfenster nicht sichtbar"
Wie schalte ich auf das Hauptfenster um ?

Gruß gerd3

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

---

Hi,
solange Du Dein Programm von Autocad startest musst Du das eigentlich nicht da die Anwendung bereits im Vordergrund ist. Über z.B. Excel würd ichs mit dem Autocad Application Object probieren, irgendwas mit visible=true oder so.

Gruss,
Harry

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

---

Hallo Harryxx,

besten Dank für Deine Antwort, aber es funktioniert nicht.
Ich habe mal folgende 3 Zeilen aus der Dokomentation getestet:

Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
ssetObj.SelectOnScreen

genau der gleiche Fehler !

AcadApplication.Visible = True

nützt da auch nicht.
Starten tue ich das Programm direkt in der Entwicklungsumgebung von Autocad.

Gruß Gerd3

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

---

Daß Du das Programm aus der Entwicklungsumgebung startest, ist genau das Problem. Warum tust Du das eigentlich? Nur weil Du gerade experimentierst? Normales Verfahren für spätere Anwender wird das sicher nicht sein. Wenn es also nur für Dich ist, klick doch einfach nach dem Abarbeiten der Zeile
Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET") '(denn genau da bleibt Dein Programm hängen und wartet bis Du was auf dem Bildschirm wählst)
auf das AutoCad-Symbol in der Taskleiste.....und schwupps...bist Du im AutoCad-Fenster. Nach abgeschlossenener Auswahl landest Du wieder in der Entwicklerumgebung.

------------------

Bernd

[Diese Nachricht wurde von BerndE am 13. Oktober 2003 editiert.]

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

---

Hallo Bernd,

das klappt eben nicht. Das Programm meldet einen Laufzeitfehler.
In der Hilfe steht: "Das AutoCAD-Hauptfenster ist nicht sichtbar. Um das Fenster sichtbar zu machen, geben Sie für die Sichtbarkeitseigenschaft des Anwendungsobjekts acTrue ein."

Alles versucht, aber ich bekomme es nicht hin.

Gruß gerd3

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

---

Hi,
ist bestimmt nicht das was Du hören willst aber bei mir läufts sofort, 'AcadApplication.Visible = True' wird nicht benötigt.

Sorry, muss ich passen.

Harry
(harryxx oder auch harryk oder...)

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

---

und was passiert, wenn du das makro aus der autocad-umgebung startest?

------------------

Bernd

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

---

Hallo Bernd,

dann funktioniert es.
Was mich noch wundert ist, das sie in der Fehlerbeschreibug
"acTrue" schreiben. Was bedeutet "ac", ein Schreibfehler ?

Gruß Gerd3

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

---

@BerndE: dasselbe, es funzt einwandfrei. Ist das nur ein Code Auszug oder hast Du Dir den Code aus den Hilfe Beispielen komplett kopiert? Mach doch mal ein neues DVB Projekt und füge nichts anderes ein als diesen Beispielcode. Deaktiviere alle anderen VBA Projekte und starte nochmal.

Harry

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

---

Hallo Harry,

jetzt kommen wir der Sache schon näher.
Also als eigenständiges Makro läuft es ohne Probleme (auch aus der Entwicklungsoberfläche heraus)
Ich muß dann nur auf das Autocadfenster klicken, wie Bernd schon geschrieben hat.
Der Fehler tritt nur auf, wenn ich eine Userform erstelle und mit einer Schaltfläche die Befehlsfolge auslöse.
Unter Visual Basic würde ich annnehmen der Fokus müßte vor dem Befehl auf des Autocadfenster gesetzt werden. Unter VBA finde ich nichts dazu.
Auf jeden Fall fehlt irgendein Befehl, der das Haupffenster aktiviert.

Gruß gerd3

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

---

getz wirds schon klarer, Du musst erst das Userform ausblenden
als z.B.
...
Me.Hide
ssetObj.SelectOnScreen
Me.Show
...

Nicht gebundene Dialogfenster gehen erst ab Acad2002, heissen generell Non Modal oder besser : Form.ShowModal=False oder ähnlich.

Harry

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

---

Geil !

Jetzt ist alles klar, da hätte ich ewig gesucht.

Herzlichen Dank und beste Grüße von Gerd3

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