---

Guten morgen zusammen,

ich möchte zwei Linien tangential abrunden. Allerdings möchte ich keinen Radius angeben, sondern möchte einen Punkt definieren. Also letztlich der klassische Abrundenbefehl nur nicht mit Radiusangabe, sondern einen Punkt picken. Super wäre dann wenn die Linien und der Bogen auch noch gestutzt würden.

Danke und Gruß Ingo

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

---

Guten Morgen,

ich kann mir das nicht so richtig vorstellen. Kannst du das mit einem Bogen (3P) manuell konstruieren?

Lothar

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

---

Leider nein, das ist ja letztlich mein Problem. Einen Bogen kann man nicht tangential an 2 Linien erzeugen. Das geht nur mit einem Kreis. Diesen muß ich dann aber dann an die Linien stutzen. Wie gesagt letztlich soll es wie der abrunden-Befehl (_fillet) sein, allerdings mit der Definition eines Punktes und nicht mit Eingabe eines Radius.
Danke.

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

---

Zitat:

---

Original erstellt von sabjon:
Einen Bogen kann man nicht tangential an 2 Linien erzeugen. Das geht nur mit einem Kreis.

---

Befehl: BOGEN
Startpunkt -> definierter Punkt1 an Linie1 (Winkelrichtung in Acad beachten)
Endpunkt -> Punkt2 auf Linie2 mit dem gleichen Abstand zum Schnittpunkt wie der Punkt1
Dann Startrichtung = Schnittpunkt

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Hallo,

probier es mal mit KREIS -> 3P -> Linien mit OFang als Tangenten wählen -> dritten Punkt frei wählen -> Kreis und Linien stutzen -> feddisch!

------------------
AJ

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

---

UH-CIVIL3D-BogendurchPunkt.png

Zitat:

---

Original erstellt von sabjon:
... ich möchte zwei Linien tangential abrunden. Allerdings möchte ich keinen Radius angeben, sondern möchte einen Punkt definieren. Also letztlich der klassische Abrundenbefehl nur nicht mit Radiusangabe, sondern einen Punkt picken. Super wäre dann wenn die Linien und der Bogen auch noch gestutzt würden...

---

Du hast doch Civil 3D, Da gibt es den
Befehl: CurveTroughPoint
der exakt genau das macht, was du beschrieben hast.

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

Udo Hübner
www.CAD-Huebner.de

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

---

So mache ich das bis jetzt ja immer. Ich wollte mir das stutzen sparen.

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

---

Zitat:

---

Original erstellt von cadffm:

Befehl: BOGEN
Startpunkt -> definierter Punkt1 an Linie1 (Winkelrichtung in Acad beachten)
Endpunkt -> Punkt2 auf Linie2 mit dem gleichen Abstand zum Schnittpunkt wie der Punkt1
Dann Startrichtung = Schnittpunkt

---

Ich habe keinen fest definierten Punkt auf den Linien. Der Bogen soll tangential auf die Linien gehen.
Danke

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

---

Zitat:

---

Original erstellt von CAD-Huebner:

Du hast doch [b]Civil 3D, Da gibt es den
Befehl: CurveTroughPoint
der exakt genau das macht, was du beschrieben hast.

[/B]

---

Sorry muß ich ändern, nein habe kein Civil mehr. Aber den Befehl meinte ich.

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

---

Zitat:

---

Original erstellt von sabjon:

Ich habe keinen fest definierten Punkt auf den Linien. Der Bogen soll tangential auf die Linien gehen.
Danke

---

Das schließt sich ja nicht aus -> Wie du nun bemerken müßtest, so hast du keine Vollständige Beschreibung geliefert !
Dein "ein Punkt" wie in meiner Vorstellung der Start- oder Endpunkt des Bogens, wenn dem nicht so ist: beschreibe es entsprechend eindeutig !

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

screenshot.pdf

Anbei ein Screenshot. Hoffentlich kommt da richtig raus was ich meine. Danke. Wie oben erwähnt wäre es der Befehl "CurveTroughPoint" aus Civil genau das was ich meine.
Danke.

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

---

sabjon,

du könntest als 1. Hilfe ein Makro klöppeln. Kreis mit 3P und dann stutzen. Ist zwar nicht das Gelbe, aber btn...

Lothar

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

---

Nun gut, hier also auch noch das BTN....

Code:

---

(defun c:BogenDurchPunkt ( / l1 l2 p r)
  (setq l1 (entsel "\n1. Linie: "))
  (setq l2 (entsel "\n2. Linie: "))
  (setq p (getpoint "\nPunkt: "))
  (command "_circle" "_3p" "_tan" (cadr l1) "_tan" (cadr l2) p)
  (setq r (cdr (assoc 40 (entget (entlast)))))
  (entdel (entlast))
  (command "_filletrad" r)
  (command "_fillet" l1 l2)
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Ich würde mir eher Splines näher ansehen. Für tangentiale und Kurvatur-Kontinuität (sog. G1 bzw. G2 Kontinuität) wäre das das Werkzeug der Wahl. Praktisch ist halt was anderes.

[Diese Nachricht wurde von Purri am 16. Jun. 2014 editiert.]

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

---

Hab noch mal nachgesehen - es gibt dafür den Befehl MISCHEN (_BLEND) - da kann man auch G1 oder G2 Kontinuität angeben.

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

---

Zitat:

---

Original erstellt von Purri:
Ich würde mir eher Splines näher ansehen. Für tangentiale und Kurvatur-Kontinuität (sog. G1 bzw. G2 Kontinuität) wäre das das Werkzeug der Wahl....

---

Der Befehl MISCHEN ist wenig bekannt/benutzt und ist in manchen Einsatzgebieten höchst interessant.

In dieses Falle ist sein Einsatz hier aber ungeeignet, da er
a) die Linien (Tangenten) in ihrer ursprünglichen Lage verbindet, also nicht wie gewünscht dehnt oder stutzt
b) die Kurve nicht - wie hier angefragt - durch einen vorgegebenen Zwangspunkt führt
b) keinen Bogen erzeugt

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

Udo Hübner
www.CAD-Huebner.de

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

---

Super, Henning. Das habe ich gesucht! Vielen Dank 

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

---

screenshot2.jpg

Eine Anmerkung habe ich aber doch noch Henning. Die LISP funktioniert nur wenn die Linien parallel sind oder im spitzen Winkel zueinander liegen. Also praktisch aufeinander zu laufen. Laufen sie auseinander funktioniert es nicht. Es kommt die Meldung Rundungsradius ist zu groß (siehe Screenshot). Woran kann das liegen? Danke für eure Hilfe.

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

---

Hallo Sabjon,

Henning macht mit seinem Lisp nix anderes als zuerst einen Kreis konstruieren anhand Tangente, Tangente und Punkt.
Dann speichert er den Radius in einer Variable um den Befehl Abrunden mit dem Radius zu starten -> und hier liegt das Problem:
Der Befehl Abrunden funktioniert nur mit zulaufenden oder parallelen Linien.

Also müsstest du da Lisp erweitern um Linien verlängern bis zum kreis und anschließend stutzen.

------------------
mfg Roman

[Diese Nachricht wurde von RL13 am 20. Jun. 2014 editiert.]

[Diese Nachricht wurde von RL13 am 20. Jun. 2014 editiert.]

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

---

Hallo Ingo,
um den von Dir beschriebenen Bogen zu konstruieren reicht, wie Roman ja schon ausgeführt hat, der reine Abrundenbefehl nicht aus. Ich hab das kleine Skript deshalb nochmal ein bischen "aufgebohrt":

Code:

---

(defun c:BogenDurchPunkt2 ( / l1 l2 p p1 p2 r o-os)
  (vl-load-com)
  (setq l1 (entsel "\n1. Linie: "))
  (setq l2 (entsel "\n2. Linie: "))
  (setq p (getpoint "\nPunkt: "))
  (command "_circle" "_3p" "_tan" (cadr l1) "_tan" (cadr l2) p)
  (setq r (cdr (assoc 40 (entget (entlast)))))
  (setq p1 (vlax-safearray->list (vlax-variant-value (vla-intersectwith (vlax-ename->vla-object (car l1)) (vlax-ename->vla-object (entlast)) acextendboth))))
  (setq p2 (vlax-safearray->list (vlax-variant-value (vla-intersectwith (vlax-ename->vla-object (car l2)) (vlax-ename->vla-object (entlast)) acextendboth))))
  (entdel (entlast))
  (setq o-os (getvar "osmode"))
  (setvar "osmode" 0)
  (command "_arc" p1 p p2)
  (setvar "osmode" o-os)
  (command "_filletrad" 0)
  (command "_fillet" l1 (list (entlast) p1))
  (command "_fillet" l2 (list (entlast) p2))
)

---

Ohne weitere Kontrollen und Fehlerabfangung.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

PERFEKT!
Vielen vielen Dank für Deine Mühe!
Gruß Ingo

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