Corso Autocad

Polar
Questa  funzione restituisce il punto partendo da un punto specificato e comunicando angolo e distanza dal punto.

(polar punto angolo distanza)

dove punto è il punto di riferimento
angolo è l'angolo espresso in radianti
distanza è la distanza che deve avere il punto da quello iniziale.

Esempio:

(defun c:miopunto()
(setq puntoin(getpoint "\ninserischi punto iniziale"))
(setq angolo(getangle "\nInserisci angolo"))
(setq distanza(getdist"\nInserisci distanza"))
(setq puntonew(polar puntoin angolo distanza ))
(command "_line" puntoin puntonew "")
(princ)
)

salviamo il file lez13.lsp 
eseguiamo autocad e scriviamo nella linea di comando
(load "lez13")
facciamo Invio
quindi scriveremo
miopunto

Scarica l'esempio    

R. Pucci