Angelo2449
Utente Junior
professione: Pensionato
software: Autocad
regione: Lombardia
Salve a tutti,
ho scritto un messaggio simile a questo, ma non riesco più a trovarlo, quindi lo ripeto.
Ho scritto questo semplice codice ;
Come si può vedere, serve per impostare un vettore di riferimento, ricevo un errore in corrispondenza della linea :
Continuo a ripercorrere il codice ma non riesco a trovare il motivo dell'errore.
Grazie.
ho scritto un messaggio simile a questo, ma non riesco più a trovarlo, quindi lo ripeto.
Ho scritto questo semplice codice ;
Codice:
(defun C:ORG (/ pt1 pt2)
(setq pt1 nil)
(while
(= pt1 nil)
(princ "\nPunto base <")
(princ point)
(princ "> : ")
(setq pt1 (getpoint))
)
(if pt1 (setq point pt1))
(setq pt2 nil)
(while
(= pt2 nil)
(princ "\nSecondo punto <")
(princ point2)
(princ "> : ")
(setq pt2 (getpoint))
)
(if pt2 (setq point2 pt2))
(princ "\n")
(princ point)
(princ "\n")
(princ point2)
(princ "\n")
(setq organg (angle point point2))
(setq origin T)
(princ "\n")
(princ organg)
(princ "\n")
(alert "Orientamento per il Tracciamento Polare impostato")
)
Codice:
(setq organg (angle point point2))Grazie.
