Tangente Kreis

[titor]

.. zu den kosten, die figur des prinzips des anfängers....:

.....ich habe dieses problem: ich schrieb eine lisp-routine, die bei zwei sich schneidenden linien den radius des kreises berechnet, so dass der kreis an totmetern vom schnittpunkt der beiden linien (wert eingefügt durch den benutzer) tangent wird.
bekannt ist dieser radius ich muss diesen kreis zeichnen: von autocad, mit dem hoop-tang-tang-ray befehl und es ist gemacht.

wie übersetze ich das mit einem lisp-befehl? ist es besser, mit befehl zu gehen oder entmake mit allen parametern auszubeuten?

ich hoffe, ich war klar, dank derer, die etwas von seiner zeit verbringen wollen.

 

[rpor66]

ich weiß nicht, wie praktisch sie sind von lisp, stellen sie die dwg mit einer der möglichkeiten zu bauen, was sie fragen (wir sagen, was ich verstehe)

ausgehend von der annahme, den punkt pt1 (unterabschnitt der 2 linien) und pt3 (endpunkt der linie) zu kennen

 

[titor]

super!!! ...ich bin nicht praktikabel, aber es ist genau das, was ich brauchte (das problem entsteht durch automatisches einfügen einer kreiskurve zwischen zwei rechtecken in einer straßenbahn).
am ende hatte ich mit dem befehl "zirkel" ttr p1 p2 r gelöst, auch diese lösung wurde mir vorgeschlagen:

... danke

 

[titor]

... ich darf einen antrag stellen, wenn möglich.:
sobald ich den kreis gezogen habe, sollte ich durch klicken auf den kreis schneiden und dann die spitze entfernen, wo die linien und das stück kreis von der seite, wo die beiden linien werden, um eine gerade bogen-rect-sequenz zu verlassen.
ist das möglich? vielen dank

 

[rpor66]

aber warum füllst du nicht die 2 zeilen?
sie haben den radius, sie erhalten das gleiche ergebnis mit wenig arbeit.

(setvar "filletrad" radius)
(befehl "_fillet" ent1 ent2)

mit der pt2-koordinate können sie die zeile nach:
(sectq ent1 (ssget pt2))

tun das gleiche für den anderen und das spiel ist getan.

hi.

p.s.: tut mir leid, wenn ich vorher nicht reagierte, aber cad3d.it wurde für eine weile nicht erreichbar.