---

Hallo!

Mich würde mal interessieren nach welcher Gleichung Acad den Kreisradius anhand von 2 tangenten und 1 Kreisbogenpunkt ermittelt. Hintergrund meiner Frage, ich suche eine Möglichkeit Kreisbögen zu zeichnen die mehrere Bogenpunkte verwendet und tagential ineinander übergehen.
Mein code berücksichtigt nur einen Bogenpunkt und 2 Tangenten. Was aber wenn ich 2 oder 3 zusätzliche Bogenpunkte habe und quasi Korbbögen entstehen.

Code:

---

  (defun c:FP  (/ l1 l2 pt ed)
    (if (and (setq l1 (entsel "\nPick first line: "))
              (setq l2 (entsel "\nPick second line: "))
              (setq pt (getpoint "\nPick point passing through circle: ")))
      (progn (command "._circle" "_3P" "_tan" (cadr l1) "_tan" (cadr l2) "_non" pt)
              (setq ed (entget (entlast)))
              (entdel (entlast))
              (command "._fillet" "_radius" (cdr (assoc 40 ed)) "._fillet" l1 l2)))
    (princ))

---

------------------
Gruss Dirk

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

---

In der DACH Extension für Civil 3D ist eine Funktion zum Zeichnen von 2 oder 3 teiligen Körbbögen bereits enthalten (allerdings ist die DACH Extension 2012 nur noch im Subscriptionscenter donwloadbar - ob es die auch für Kunden mit engl. Sprachversion gibt, ist mir aber nicht bekannt).

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

Udo Hübner
www.CAD-Huebner.de

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

---

tanarc.jpg

Seien
S der Schnittpunkt der Beiden Tangenten-Geraden
P ein Kreisbogenpunkt
M der Mittelpunkt des Kreisbogens
(liegt auf der winkelhalbierenden der Tangenten-Geraden)
L der Lotpunkt M auf Tangente

X der Abstand M-S
Y der Abstand P-S
R der Kreisradius = Abstand M-L = Abstand M-P
A der Winkel MSL (halber Winkel der Tangenten-Geraden)
B der Winkel MSP

damit
X= R/sin A
und (Cosinussatz)
R²=X²+Y²-2*X*Y*cos B

ersetzt man und bringt das in die "Normalform"

0 = R² - 2*Y*cos B/(sin A- 1/sin A) * R + Y²/(1-1/sin²A)

d.h. p = 2*Y*cos B/(sin A- 1/sin A)
     q =Y²/(1-1/sin²A)

und Löungsformel für quadratische Gleichungen
R= - p/2 + SQRT( p²/4 - q )

ich hoffe, ich hab jetzt nichts vergessen .. aber der Weg sollte klar sein ....

.. aber fragst du jetzt nicht immer hier ?

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

---

Danke Thomas für deine Erklärung - manchmal ist das Thema zu komplex alles i einen Thread reinzuschreiben (und mit mein Holzhacker Englisch, ist ja nur peinlich)
Ich finde theswamp toll, u.a anderem weil man kleine videos hochladen kann, aber lieber halt ich mich bei cad.de auf. Weil du mir ja immer auf den Spuren bist. Wo kann ich dir eigentlich noch entwischen ...

------------------
Gruss Dirk

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