円のtangent

[titor]

..a costo di fare la figura del principio di principiante....

.....ho questo problema: ho scritto una routine in lisp che, date due linee che si intersecano, calcola il raggio del cerchio tale per cui il cerchio va ad essere tangente a tot metri dall'intersezione delle due linee (valore inserito dall'utente).
noto questo raggio devo disegnare questo cerchio: da autocad, con il comando cerchio-tang-tang- raggio ed è fatto.

come traduco questo con qualche comando lisp? e' meglio andare con command o sfruttare entmake con tutti i parametri?

spero di essere stato chiaro, grazie a chi vorrà dedicarmi un po' del suo tempo ciao.

 

[rpor66]

non so quanto pratico tu sia di lisp, posto il dwg con uno dei modi per costruire quello che chiedi (diciamo quello che ho capito)

parto dal presupposto di conoscere il punto pt1 (intersezione delle 2 linee) e pt3 (punto finale della linea)

 

[titor]

grandissimo!!!! ...sono poco pratico di lisp, ma è proprio ciò che avevo bisogno (il problema nasce dall'inserire in automatico una curva circolare tra due rettifli in un tracciato stradale).
alla fine avevo risolto usando (command "circle" ttr p1 p2 r), anche questa soluzione mi è stata suggerita

....grazie

 

[titor]

...mi permetto di avanzare ancora una richiesta se possibile.
una volta che ho disegnato il cerchio dovrei trimmare cliccando sul cerchio e poi togliere la punta dove si incrociano le linee e il pezzo di cerchio dal lato dove le due linee divergono in modo da lasciare una sequenza retta-arco-retta.
e' possibile ? grazie ciao

 

[rpor66]

ma perché non fai il fillet (raccorda) delle 2 linee?
hai il raggio, ottieni lo stesso risultato con poco lavoro.

(setvar "filletrad" raggio)
(command "_fillet" ent1 ent2)

avendo la coordinata pt2, puoi selezionare la linea tramite:
(setq ent1 (ssget pt2))

fai la stessa operazione per l'altra e il gioco è fatto.

ciao

p.s.: scusa se non ho risposto prima ma cad3d.it è diventato irragiungibile per un pò.