Uso del Comando "trim"

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#1
Salve a tutti,

ho scritto questo codice :
Codice:
        (setq Distanza (/ (distance Punto1 Punto2) 2))

        (command "_line" Punto1 Punto2 "")
        (setq Linea1 "_last")
        (command "_line" Punto1 Punto3 "")
        (setq Linea2 "_last")
        (command "_circle" Punto1 Distanza "")
        (setq Cerchio "_last")

        (command "_trim" Cerchio "" Linea1 Linea2 "")
Il risultato è costituito da 2 linee scaturenti da Punto1 verso Punto2 e Punto3 ed un cerchio con origine in Punto1 e raggio = Distanza.
Vorrei cancellare la parte del cerchio posta all'esterno di Linea1 - Linea2 lasciando quella interna.
In alternativa, forse meglio, si potrebbe tracciare un arco tra il medio di Linea1 con raggio = Distanza sino a Linea2.
L'ultima linea di codice non da errore ma non funziona bene.
Grazie
 

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#2
Salve a tutti,
rispondo a me stesso avendo trovato la soluzione alla mia domanda.
Il problema è costituito dal taglio del cerchio per la porzione compresa tra due linee scaturenti da un vertice comune.
In pratica voglio visualizzare l'arco che rappresenta l'ampiezza dell'angolo compreso tra due linee.
Ecco il codice che ho scritto :
Codice:
        (setq Dist1 (/ (distance Punto1 Punto2) 2))
        (setq Dist2 (/ (distance Punto3 Punto2) 2))
        (setq Angle1 (angle Punto2 Punto1))
        (setq Angle2 (angle Punto2 Punto3))

        (if (< Dist1 Dist2)
        (setq Minore Dist1)
            (setq Minore Dist2)
        );;if

        (setq Ptx1 (polar Punto2 Angle1 Minore))
        (setq Ptx2 (polar Punto2 Angle2 Minore))

        (command "_line" Punto1 Punto2 "")
        (command "_change" "_last" "" "_p" "_c" "_red" "")
        (setq Linea1 "_last")
        (command "_line" Punto2 Punto3 "")
        (command "_change" "_last" "" "_p" "_c" "_red" "")
    (setq Linea2 "_last")
        (command "_circle" Punto2 Minore "")
        (command "_change" "_last" "" "_p" "_c" "_red" "")
    (setq Cerchio "_last")
        (command "_break" Cerchio Ptx1 Ptx2 "")
dove Punto2 è il vertice comune, Punto1 e Punto3 la direzione e fine dei vettori.