---

Hallo!
Ich arbeite sehr viel mit Bögen. Das Problem ist meistens Bogen-Stich berechnen.
Die mathematische Formel habe ich erstellt, aber die Berechnung dauert ziemlich lange.
Hat vielleicht jemand ein kleines Lisp Programm?

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

---

Ich hab ne Menge Lispprogramme  , aber außer Googlekenntnissen keine von Bogenstich ect. ... wie wärs mit Weitergabe deiner Infos ( Formel, was du schon hast, Skizze )

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

---

Bogen-Stich.pdf

Hallo,
im Anhang ein PDF Bild.

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

---

na ok .. quick&dirty

(defun C:BOGENSTICH(/ OBJ SP EP MP P1 P2)
  (vl-load-com)
  (if(and(setq OBJ(car(entsel "\nBogen wählen:")))
        (setq OBJ(vlax-ename->vla-object OBJ))
        (or(=(strcase(vla-get-objectname OBJ))"ACDBARC")
            (prompt "\nKein Bogen gewählt..")
        )
    )
    (progn
      (setq SP(vlax-curve-getstartparam OBJ))
      (setq EP(vlax-curve-getendparam  OBJ))
      (setq MP(+ SP(*(- EP SP)0.5)))
      (setq P1(vlax-curve-getpointatparam OBJ MP))
      (setq P2(mapcar '*
                      (mapcar '+(vlax-curve-getpointatparam OBJ SP)
                                (vlax-curve-getpointatparam OBJ EP)
                      )
                      '(0.5 0.5 0.5)
              )
      )
      (grdraw (trans(vlax-curve-getpointatparam OBJ SP) 0 1)
              (trans (vlax-curve-getpointatparam OBJ EP) 0 1)
              1 1
      )
      (grdraw (trans P1 0 1)(trans P2 0 1) 1 1)
      (princ (strcat "Bogenstich : "(rtos(distance P1 P2)2 5)))
      (princ)
    )
  )
)

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

---

Super, vielen Dank!

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

---

Hm, wofür braucht man das?
Der Stich ist doch mit drei Klicks gezeichnet?

LG
Holger

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