---

Hallochen mal wieder,

das hier kann nicht viel sein, trotzdem möchte ich die Frage in die Runde stellen:

Ich hätte gerne, daß eine zuvor ausgewählte Polylinie in zwei Farben blinkt. Mein Lösungsansatz geht in folgende Richtung:

ThisDrawing.Utility.GetEntity hhBlinkePoly, varKoordinaten, "Bitte wählen Sie eine Polylinie."
 
  If hhBlinkePoly.EntityName = "AcDbPolyline" Then
 
  ''Speichern der Farbe und Dicke der Polylinie und den Wert der Systemvariable
  ''LWDISPLAY
  ''
      hhSavePLineColor = hhBlinkePoly.Color
      hhSavePLineWidth = hhBlinkePoly.Thickness
      hhSaveLWDisplayModus = ThisDrawing.GetVariable("LWDISPLAY")

.
.
.

Im weiteren Code soll sich abwechselnd bis zum Eingreifen des Users die color-Eigenschaft ändern. Weiß da jemand, wie sich das gut und praktikabel lösen läßt? Es werden sehr große Zeichnungen sein, deshalb ist ein "REGEN" - Kommando sehr unerwünscht.

Danke schon mal,,
hendersson

------------------
----------------------------
  .~.
  /V\  L  I  N  U  X
/( )\ >Phear the Penguin<
^^-^^

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

---

Mahlzeit hendersson,

ohne 'ne kleine modale Userform mit nem Button - abbruch = true - hab' ichs leider nicht hinbekommen.
Keine Ahung, warum trotz DoEvents zB ein ESC nicht klappt ...

Gruss Nancy

Code:

---

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public abbruch As Boolean
Sub test()
  Dim pline As AcadEntity, pick, i As Byte
  With ThisDrawing
      .Utility.GetEntity pline, pick, "Polylinie"
        If TypeOf pline Is AcadLWPolyline Then
        UserForm1.Show 0
        abbruch = False
        Do
            For i = 9 To 10
              pline.Color = i
              .Application.Update
              DoEvents
              Sleep 100
            Next
        Loop Until abbruch
      End If
  End With
End Sub

---

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

---

Hallochen nancy,

erst mal danke. Werde das gleich mal antesten. Melde mich wieder.

h.

------------------
----------------------------
  .~.
  /V\  L  I  N  U  X
/( )\ >Phear the Penguin<
^^-^^

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

---

...hat sich erledigt, der Kunde will es doch nicht blinkend ... puh !

------------------
----------------------------
  .~.
  /V\  L  I  N  U  X
/( )\ >Phear the Penguin<
^^-^^

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