---

hi !

ein bekannter hat mich kürzlich gefragt, ob ich ein tool kenne bei dem zwei sich kreuzende linien gewählt werden und dann die eine "über" die andere durch einen bogen geführt wird.

leider ist mir soetwas nicht bekannt - wird es aber sicherlich geben.

kann mir einer von euch weiterhelfen ? ich wüßte nich nach welchem begriff ich suchen sollte !

gruß Jan :-)

------------------
jan :-)

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

---

ich glaube Holger Brischke hat mal so ein Tool geschrieben ..

------------------
  - 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

---

Zitat:

---

Original erstellt von tappenbeck:

...ein tool kenne bei dem zwei sich kreuzende linien gewählt werden und dann die eine "über" die andere durch einen bogen geführt wird.

---

Witzigerweise ist das genau die Aufgabenstellung die ich mit meinem ERSTEN Lisp Programm lösen wollte ;-).
Leider finde ich die Originalversion nicht mehr, sondern nur die bereits mit 'nem Errorhandler versehene "weiterentwickelte"...

Code:

---

(defun c:bbog (/     ALT_CMD ALT_COL      ALT_ERROR
      ALT_LAYER    ALT_LINEW ALT_LINTYPE  ALT_OS
      BBOG-ERR     COMPUTER-VOICE       EL-COL
      EL-LAYER     EL-LINEW EL-LINTYPE  ELEMENT
      ERSTER     MKORD WAHL       ZWEITER
      )
  (defun bbog-err (MSG)
    (setvar "clayer" alt_layer)
    (setvar "cecolor" alt_col)
    (setvar "celtype" alt_lintype)
    (setvar "CELWEIGHT" alt_linew)
    (setvar "osmode" alt_os)
    (setvar "cmdecho" ALT_CMD)
    (setq *ERROR*  ALT_ERROR
  bbog-err nil
    )
    (princ
      (strcat "\nFehler, Acad meldet: \"" MSG "\" als Ursache!")
    )
    (princ)
  ) ;_ end error
;_ alte Parameter speichern
  (setq alt_error      *error*
*error*       bbog-err
alt_layer      (getvar "clayer")
alt_col       (getvar "cecolor")
alt_lintype    (getvar "celtype")
alt_linew      (getvar "CELWEIGHT")
alt_os       (getvar "osmode")
alt_cmd       (getvar "cmdecho")
computer-voice "\nWähle das zu brechende Element:..."
  )
  (while (= (setq WAHL
  (entsel computer-voice)
    ) ;_ end setq
    NIL
)
    (setq computer-voice "\r...nichts gewählt. Wähle noch einmal...")
    (princ)
  )
  (if (not wahl)
    (princ "\nKeine gültige Auswahl. Programmende.")
    (progn
      (setq Element    (entget (car Wahl))
    el-layer  (cdr (assoc 8 Element))
    el-col    (cdr (assoc 62 element))
    el-lintype (cdr (assoc 6 element))
    el-linew  (cdr (assoc 370 element))
      )
      (setvar "CLAYER" el-layer)
      (if el-col
(setvar "cecolor" (itoa el-col))
      )
      (if el-lintype
(setvar "celtype" el-lintype)
      )
      (if el-linew
(setvar "CELWEIGHT" el-linew)
      )
      (setvar "osmode" 512)
      (setq erster  (getpoint "\nKlicke den ersten Punkt:...")
    zweiter (getpoint erster "\nKlicke den zweiten Punkt:...\n")
      )
      (setvar "osmode" 0)
      (setq mkord (list
    (/ (+ (car erster) (car zweiter)) 2)
    (/ (+ (cadr erster) (cadr zweiter)) 2)
  )
      )
      (command "_break" Wahl "_first" erster zweiter)
      (command "_arc" zweiter "_c" mkord erster)
      (princ "\nOK, erledigt!")
    )
  )
  (setvar "clayer" alt_layer)
  (setvar "cecolor" alt_col)
  (setvar "celtype" alt_lintype)
  (setvar "CELWEIGHT" alt_linew)
  (setvar "osmode" alt_os)
  (setvar "cmdecho" ALT_CMD)
  (setq *ERROR* ALT_ERROR
bbog-err nil
  )
  (princ)
)

(princ
  "\nBruch einer Linie und BOGen zeichnen. \(C\)1996 Marc Scherer\nAufruf mit BBOG."
)
(princ)

---

Sehr witzig mal wieder alten Code von sich zu sehen...
Der Holger hat das bestimmt um einiges eleganter gelöst. Aber wir brauchen sowas auch nur äußerst selten.

------------------
Ciao,
Marc
Mein AG sucht u.a. Architekten und Bauzeichner!
Mein alter AG sucht 'nen CADMIN

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