---

Heyho.

Ich lese seit einigen Tagen im Forum mit. Bin gerade erst mit AutoCad angefangen und dachte mir, einige Funktionen einfacher für mich zu gestalten. In Excel habe ich auch allerlei mit VBA gemacht. Das hier ist nun etwas anders.

Was mir fehlt, ist das CommandCancel als Mittelstück zwischen BeginCommand und EndCommand. Wie könnte ich das bewerkstelligen?

Im Forum habe ich schon gesucht, aber ...

Danke und noch eine schöne Nacht.

Christian

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

---

Hi Montana
Kannst du mir dein Problem genauer beschreiben, weil ich kenne mich nicht wirklich aus was du meinst
mfg Alex

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

---

Hi Alex.

Es geht um folgendes: Linien, oder generell Objekte, sollen auf bestimmten Layer landen, ohne, dass ich da etwas einstellen muss. Kein Problem soweit, klappt auch mit einem normalen Makro. Nun soll aber der alte Layer restauriert werden, wenn der Befehl beendet wird. Auch das klappt mit einem normalen Makro einfach. Aber wehe, der Nutzer bricht die Aktion mit Escape ab.

Ich habe es schon hinbekommen, dass nach einem Abbruch der Layer bei Eintritt der nächsten Nutzer-Aktion (zB neuer Befehl wird ausgeführt) zurückgesetzt wird. Aber es verwirrt, wenn nach dem Abbruch der falsche Layer in der DropBox sichtbar ist.

Ich werde also versuchen, die Escape-Taste abzufangen, damit ich adäquat reagieren kann.

Viele Grüße,
Christian

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

---

Hi
Hast du es schon so Probiert

On Error Resume Next
MsgBox "Benutzer Abbruch"

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

---

Hallo Christian.

Hier ein paar Codeschnippsel:
____
ESC-Key (API)

Code:

---

Option Explicit
Public Const VK_ESCAPE = &H1B
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long As Integer

Function checkkey(lngKey As Long) As Boolean
If GetAsyncKeyState(lngKey) Then
checkkey = True
Else
checkkey = False
End If
End Function

---

...dann in Deinem Makro:

Code:

---

If checkkey(VK_ESCAPE) = True Then
(mach was)
end if

---

____

Wenn Du in Deinem Errorhandling auf ESC reagieren möchtest, müsste das so gehen:

Code:

---

If Err.Number = -2147352567 Then
(mach was)
else
(mach was anderes)
end if

---

Falls Du dann beim Start Deines Markos den aktuellen Layer ausliest und in einer Var speicherst, kannst Du ja vor Beenden mit ESC den Layer wieder auf aktuell setzen.

..vielleicht hilft Dir das ein wenig

Grüsse
Lappi

------------------
die EDV (weibl.)...ansonsten wäre die Kommunikation mit Computern und deren angeschlossenen Geräte in einer für jederMann verständlichen Sprache...

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

---

Hallo Lappi.

Vielen Dank für die Schnipsel. Dadurch hast Du mir, sollte es funktionieren, ordentlich Arbeit abgenommen. Nach meinen bisherigen Versuchen war ich schon etwas entmutigt und dachte langsam über eine Kombination aus Lisp und VBA nach. Warum sollen Programmiersprachen-Hybriden nicht auch auf dem Vormarsch sein (im Hinblick auf Elektro-/Benzinerkombination) 

Bei Nichterfolg melde ich mich die Tage sonst nocheinmal.

So, noch flugs ein wenig an Bemaßungen rumfummeln und dann ab...

Christian

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

---

Hallo Christian,

Hast du dir schon mal die Werkzeugpaletten angeschaut?! Hier kannst du den Befehlen die benötigten Layer mitgeben und selbst bei Befehlsabbruch werden die Layer zurück auf den alten Layer gesetzt. Und das ganze funktioniert ohne zu programmieren.

Gruß, Carsten

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

---

Auch nicht schlecht, Carsten.

Aber zwei kleinere Probleme - persönlicher Natur - bleiben. Zum einen fummel (programmiere) ich gerne und zum anderen habe ich nur einen 17"-Monitor    Irgendwann habe ich nur noch einen Modellbereich einer Icon-Größe; und dieses ein-/ausblenden mit Klick auf die blaue Menuzeile - daran werde ich mich nie gewöhnen können.

Viele Grüße,
Christian

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

---

Hallo Christian,

Noch herzlich willkommen auf CAD.de.

so könnte man es mit VBA lösen.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Danke für die Wilkommensgrüße.

Den Link respektives dessen Inhalt, muß ich erstmal verdauen und darüber nachdenken. Danke schon mal soweit.

Dein Spruch mit dem lispeln in der Signatur ist eine Wucht, ich hoffe, heute Nacht einschlafen zu können - nicht, dass er dann nochmal in der Einschlafphase aufkommt 

Viele Grüße,
Christian

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

---

Hi, dieser Tipp hat auch mir sehr geholfen!

Danke und hier die Unities!!

------------------
Grüse Benny

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