---

Hallo,

kennt jemand folgendes Problem:
Ich nutze GetEntity um ein Objekt (alter Genius14 Rahmen) auszuwählen.
siehe Code:

Code:

---

Function GetBorderTypeByPick() As String
    Dim target As AcadObject
    Dim pt As Variant
    Dim Hinweis As String
    Hinweis = "Rahmen Auswählen:"
   
On Error Resume Next

ACADApp.ACADApp.ActiveDocument.Utility.Prompt "Für Abbruch in Freiraum klicken" & vbNewLine
RETRY:
   
    Basismodul.BringWindowToTop (ACADApp.ACADApp.hwnd)
   
    ACADApp.ACADApp.ActiveDocument.Utility.GetEntity target, pt, Hinweis
    Basismodul.BringWindowToTop (ACADApp.ACADApp.hwnd)
   
    If Err <> 0 Then
        Err.Clear
        If target = Null Then
            GetBorderTypeByPick = ""
            Basismodul.BringWindowToTop (Form1.hwnd)
            shortMessage ("Keinen Rahmen gewählt!")
            Exit Function
        End If
    Else
.
.
.

---

BringWindowToTop ist eine Systemfunktion:

Code:

---

Public Declare Sub BringWindowToTop Lib "user32" (ByVal hwnd As Long)

---

Nun ist das Problem(tritt leider nicht immer auf - habe leider noch kein System/Zusammenhang darin entdeckt...)
dass ich im AutoCAD Fenster kein Auswahlquadrat bekomme.
Soll heißen ich kann nichts "picken"(der Mauszeger bleibt der standard Windows-Pfeil)
Erst wenn ich eine der Folgenden Aktionen durchführe erhalte ich danach die Möglichkeit mein Objekt mit dem Auswahlquadrat auszuwählen:
- Die Scrollbalken des Modellspace benutzen
- oder AutoCAD minimieren danach wieder maximieren

liegt der Fehler vielleicht bei COM???
oder doch bei mir???

hoffentlich ist das Problem und eine Lösung bekannt...
(Wie soll man solche Fehler einem Außenstehenden erklären???
(ich zu einen Benutzer: "Ja das macht die Software eben manchmal  ")
Das bringt mich echt zum Wahnsinn...)

ich bitte um Erleuchtung 

Gruß,
cyplex

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

---

Hallo

Zitat:

---

Original erstellt von bassenc:
....
On Error Resume Next

ACADApp.ACADApp.ActiveDocument.Utility.Prompt "Für Abbruch in Freiraum klicken" & vbNewLine
RETRY:
   
    Basismodul.BringWindowToTop (ACADApp.ACADApp.hwnd)
   
    ACADApp.ACADApp.ActiveDocument.Utility.GetEntity target, pt, Hinweis
...
liegt der Fehler vielleicht bei COM???
oder doch bei mir???
....
Das bringt mich echt zum Wahnsinn...)

---

Wahrscheinlich ist es ein Schreibfehler ACADApp.ACADApp.ActiveDocument.. gibst nicht. Durch deine Anweisung "on error resume next" rauscht der Compiler ohne Fehlermeldung drüber weg. Setz do mal "On Error Goto 0" oder frage nach GetEntity mal den Fehler ab.

Code:

---

if err.number <> 0 then
   msgbox err.discription
end if

---

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

[Diese Nachricht wurde von Stelli1 am 13. Nov. 2005 editiert.]

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

---

Hallo Stelli

Zitat:

---

Original erstellt von Stelli1:
Hallo

Wahrscheinlich ist es ein Schreibfehler
ACADApp.ACADApp.ActiveDocument.. gibst nicht. Durch deine Anweisung "on error resume next" rauscht der Compiler ohne Fehlermeldung drüber weg.

---

Bei mir gibts ACADApp.ACADApp schon. Das erste ist ne Hüllklasse(wegen den Events).
Ist etwas durcheinander, ich weiß, kein guter Programmierstil usw... aber ich brauchs schnell und kurz und dann nie wieder (.Net wartet nicht auf mich...)

Ich habe "On error" trotzdem mal ausgesetzt,
ist aber leider kein Fehler.
Das sieht irgendwie so aus als ob AutCAD es nicht hinbekommt seine Oberfläche richtig zur Verfügung zu stellen.

Und das eben absolut 'Verrückt'.
Manchmal gehts wunderbar, manchmal nicht.

Hängt es vielleicht mit der Windows Funktion zusammen???
Weiß jemand ne andere Möglichkeit wie AutoCAD hervorzuspringt und sich zur Verfügung zu stellt?

Oder hat jemand schonmal soetwas erlebt?

Gruß,
bassenc

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

---

Hallo,

wie wär es denn mit:

AppActivate Thisdrawing.Application.caption

oder bei dir

AppActivate AcadApp.caption

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.

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