---

Hallo mal,

ich habe diese kleine Lisproutine noch irgendwo bei mir auf dem Rechner gefunden um sich kreuzende Linie in einem Schema zu trennen. Die obere Line ist durchgehend und die untere Linie soll mit einem vorgegeben Abstand getrennt werden. Soweit funktioniert das ganz nett, nur lästig ist das ich jedesmal den Befehl neu aufrufen muss, auch wenn ich 250 mal das gleiche Nacheinander mache und das ich jedesmal den Abstand eingeben muss. Das wäre angenehmer, wenn ich den Abstand nur am Anfang eingebe und dann das Trennen beliebig oft wiederholen könnte. Kennt jemand eine Lösung ? Meine Lisp-Kenntnisse sind leider etwas unzureichend.

(Defun C:Trenne()
  (prompt "\n\n*** Trennen von gekreuzter Linien mit Abstandangabe ***")
  (setvar "CMDECHO" 0)
  (setq ger_1 (car (entsel "\nWahl der ersten Linie (oben): ")))
  (setq ger_2 (car (entsel "\nWahl der zweiten Linie (unten): ")))
  (setq abst nil)
  (setq abst (getdist "\nAbstand der Auftrennung <150>: "))
  (if (null abst)
    (setq abst 150)
  )
  (setq p1 (cdr (assoc 10 (entget ger_1))))
  (setq p2 (cdr (assoc 11 (entget ger_1))))
  (setq p3 (cdr (assoc 10 (entget ger_2))))
  (setq p4 (cdr (assoc 11 (entget ger_2))))
  (setq kreuz (inters p1 p2 p3 p4))
  (setq winkel_p (angle p3 p4))
  (setq winkel_n (angle p4 p3))
  (setq pk_3 (polar kreuz winkel_p abst))
  (setq pk_4 (polar kreuz winkel_n abst))
  (command "bruch" pk_3 "e" pk_3 pk_4)
  (setvar "CMDECHO" 1)
)                                           ;end of Trenne

*Gracie*

Karl

[Diese Nachricht wurde von Amadeo52 am 14. Jun. 2005 editiert.]

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

---

hallo,

so müsste es gehen:

(Defun C:Trenne()
  (setq abst nil)
  (setq abst (getdist "\nAbstand der Auftrennung <0.15>: "))
  (if (null abst)
    (setq abst 0.15)
  )
  (prompt "\n\n*** Trennen von gekreuzter Linien mit Abstandangabe ***")
  (setvar "CMDECHO" 0)
  (while (and
  (setq ger_1 (car (entsel "\nWahl der ersten Linie (oben): ")))
  (setq ger_2 (car (entsel "\nWahl der zweiten Linie (unten): ")))
  )
  (setq p1 (cdr (assoc 10 (entget ger_1))))
  (setq p2 (cdr (assoc 11 (entget ger_1))))
  (setq p3 (cdr (assoc 10 (entget ger_2))))
  (setq p4 (cdr (assoc 11 (entget ger_2))))
  (setq kreuz (inters p1 p2 p3 p4))
  (setq winkel_p (angle p3 p4))
  (setq winkel_n (angle p4 p3))
  (setq pk_3 (polar kreuz winkel_p abst))
  (setq pk_4 (polar kreuz winkel_n abst))
  (command "bruch" pk_3 "e" pk_3 pk_4)
  );while
  (setvar "CMDECHO" 1)
);end of Trenne

------------------
MfG
Frank

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

---

*Wunderbar* das hat ja wirklich geklappt :-) Die einzige Macke die jetzt noch drin steckt, es darf kein Fang eingeschaltet sein, sonst funktioniert die ganze Routine nicht, aber damit kann ich leben.

Danke

Karl

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

---

(setvar "osmode" 0)

schaltet den objektfang aus

------------------
MfG
Frank

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

---

Die Macke lässt sich umgehen:
Objektfang abfragen (OSMODE) auf Null schalten und später wieder zurücksetzen.

(Defun C:Trenne()
  (setq abst nil)
  (setq abst (getdist "\nAbstand der Auftrennung <0.15>: "))
  (if (null abst)
  (setq abst 0.15))
  (setq xy (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (prompt "\n\n*** Trennen von gekreuzter Linien mit Abstandangabe ***")
  (setvar "CMDECHO" 0)
  (while (and
  (setq ger_1 (car (entsel "\nWahl der ersten Linie (oben): ")))
  (setq ger_2 (car (entsel "\nWahl der zweiten Linie (unten): "))))
  (setq p1 (cdr (assoc 10 (entget ger_1))))
  (setq p2 (cdr (assoc 11 (entget ger_1))))
  (setq p3 (cdr (assoc 10 (entget ger_2))))
  (setq p4 (cdr (assoc 11 (entget ger_2))))
  (setq kreuz (inters p1 p2 p3 p4))
  (setq winkel_p (angle p3 p4))
  (setq winkel_n (angle p4 p3))
  (setq pk_3 (polar kreuz winkel_p abst))
  (setq pk_4 (polar kreuz winkel_n abst))
  (command "bruch" pk_3 "e" pk_3 pk_4));while
  (setvar "CMDECHO" 1)
  (setvar "OSMODE" xy)
);end of Trenne

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

---

diese Methode des Fang zurückzustellen hat nur einen kleinen Nachteil.

die meisten Personen brechen so "laufende" Befehle mit ESC ab, da hast es sich dann mit dem zurückstellen !

Ich tendiere da eher zu OSNAPCOORD=1, da diese Einstellung für das manuellle Zeichnen keine Auswirkung hat, wenn es nicht zurückgestellt wird.
2. Möglichkeit das Abbrechen mittels ESC mit einer ERROR-Routine abfangen , und in dieser den Objektfang zurückstellen

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

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Hallo Zusammen,

ich nutze gern das trenne.lsp
leider funzt es niicht bei polylinien, leider kann ich auch nicht lispln. Kann mir jemand sagen wie ich das auch auf PLŽs umschreiben kann?

danke Motoko

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

---

BreakOb.zip

Hallo Motoko

Teste das mal.

------------------
Heinz 

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

---

Hallo Heinz,

dankeschön. braekall ist auch gut, aber leider nicht das was ich brauche.
Das andere Tool unterbricht nur eine Linie und nicht alle. oder mach ich was falsch?
ich nutze es für R&I-Schemen bei kreuzenden Leitungen, die nicht verbunden sind. da soll eine linie durchführen und eine wird unterbrochen.

Gruß Motoko

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

---

sorry mein fehler,

BreakWithTouching is enthalen und genau das richtige.

Dankeschön.

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

---

@motoko
Genau
Im Lisp ist alles super beschrieben.

------------------
Heinz 

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