---

LINE_BRUCH.txt

Hallo,
das Lisp-Programm bricht eine überkreuzende Linie um 2.5 mm auf. Das funktioniert auch. Was aber nicht geht, ist das Programm mit der rechten Maustaste zu beenden (nur mit ESC-Taste).

Für Eure Unterstützung bedanke ich mich schon im Voraus.

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

---

(schon wieder Klugsch ...)Auch wenn dein Posting lediglich eine Feststellung und keine Frage oder konkretes Hilfegesuch enthält .. Du musst deine Abbruchbedingung in der (while - Schleife bei Leer Eingabe so einstellen, dass aus der Schleife herausgegangen wird.

Mal über deinen Code geschaut:
Wenn (if (setq schn (getpoint "\n Schnittpunkt wählen: ")) Falsch(also Nil) ist, dann musst du (setq t_0 nil) setzen.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

da müßtest du dein Prog umschreiben und einen Maus-Reaktor --> (vlr-mouse-reactor data callbacks)  einbauen

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Ich denke ein Mouse Reaktor ist hier Overkill.
Als Kompromiss kann man eine Option zur Beendigung des Befehls einbauen (hier Beenden).

Code:

---

(defun Init ()
  (setq
    Err     *error*
    *error* Fehler
    Osx     (getvar "OSMODE")
  )
)

(defun ReInit ()
  (setvar "OSMODE" Osx)
  (setq *error* Err)
  (redraw t_2 4)
  (princ)
)

(defun Fehler (s)
  (print (strcat "Fehler: " s))
  (ReInit)
)

(defun c:LINE_BRUCH (/ t_0 t_1 t_2 Err Osx)
  (Init)
  (vl-load-com)
  (setq t_0 T)
  (While t_0
    (setq t_0 nil)
    (While (not t_0) ; Diese Zeile auskommentieren, wenn Leereingabe
; oder danebenklicken = Nil auch zur Beendigung führen soll
      (initget "Beenden")
      (setq t_0 (entsel "\n Bruchlinie wählen [Beenden]: "))
    ) ;end while 2    ; Diese Zeile auskommentieren, wenn Leereingabe
; oder danebenklicken = Nil auch zur Beendigung führen soll
    (cond
      ((= t_0 "Beenden")
      (setq t_0 nil)
      )
      (t_0
      (setq t_1 (entget (car t_0)))
      (setq t_2 (car t_0))
      (redraw t_2 3) ;Linie ausleuchten!
      (setvar "OSMODE" 32)

      (if (setq schn (getpoint "\n Schnittpunkt wählen: "))
(progn
  (if (or (= (cdr (assoc 0 t_1)) "LINE")
  (= (cdr (assoc 0 t_1)) "LWPOLYLINE")
      )
    (progn ; dann ...
      (setvar "OSMODE" 0)
      (command "_break"
t_2
(vlax-curve-getPointAtDist
  (vlax-ename->vla-object t_2)
  (-
    (vlax-curve-getDistAtPoint
      (vlax-ename->vla-object t_2)
      schn
    ) ;vlax-curve-getDistAtPoint
    1.25 ; Bruchbreite -
  )
) ;vlax-curve-getPointAtDist
(vlax-curve-getPointAtDist
  (vlax-ename->vla-object t_2)
  (+ 1.25 ; Bruchbreite +
    (vlax-curve-getDistAtPoint
      (vlax-ename->vla-object t_2)
      schn
    )
  )
) ;vlax-curve-getPointAtDist
      ) ;end command
    ) ;end progn
  ) ; end if
) ;end progn
      ) ; end if schn
      ) ;end cond t_0
    ) ; end cond
  ) ;end while 1
) ;end defun

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Zitat:

---

Original erstellt von CAD-Huebner:
Ich denke ein Mouse Reaktor ist hier Overkill.

---

... sehe ich auch so .. wollte aber auf die Möglichkeit, bezogen auf den konkreten Wunsch in der Fragestellung, hinweisen .. 

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

BK.LSP

Also ich benutze das kleine Helferlein, macht einen 2.5mm Bruch und beendet sich dann selber.....

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