---

Ob man da noch Linien zeichnen kann ??

Code:

---

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    If CommandName = "LINE" Then
      ThisDrawing.Utility.Prompt Chr$(10) & "*** Wir wollen keine Murks-Linien sondern Polylinien! ***"
      ThisDrawing.SendCommand "_u" & Chr$(13)
    End If
End Sub

---

Stelli

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

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

---

krasser vorschlag....aber mit manchen usern muss man so umspringen.
auf jeden fall werde ich mir diesen code mal abspeichern. in abgewandelter form findet sich da mit sicherheit ne anwendungsmöglichkeit
bernd

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

Bernd

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