Problemi con routine lisp

   (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))
        (command "_line" point point2 "")
    (setq origin T)

[CODE] 

   (defun C:POLAR (/ ag ag1 ds point1 ptxt)

        (if (= point nil)
            (progn
            (alert "Devi prima definire l'Orientamento")
                (exit)
            )
        )

        (setq FC3 (findfile "C:\\AutocadSupporto\\Provvisori\\Polar.dat"))

        (if FC3
            (vl-file-delete "C:\\AutocadSupporto\\Provvisori\\Polar.dat")
        )

        (startapp "C:\\AutocadSupporto\\Liberty\\Polar.exe " "C:\\AutoCadSupporto\\Liberty\\Polar.tkn")

        (setq qa nil)
        (while (= qa nil)
            (setq qa (getpoint "\nClicca un punto qualsiasi")) 
        )

        (setq FC4 nil)
        (while
             (= FC4 nil)
             (setq FC4 (findfile "C:\\AutocadSupporto\\Provvisori\\Polar.dat"))
        )

        (setq fp1 (open "C:\\AutocadSupporto\\Provvisori\\Polar.dat" "r"))
            (setq ptxt (read-line fp1))
            (setq ag (read-line fp1))
            (setq ds (read-line fp1))
            (setq htxt (read-line fp1))
        (close fp1)

        (princ "\n")
        (princ ptxt)
        (princ "\n")
        (princ ds)
        (princ "\n")
        (princ ag)
        (princ "\n")
        (princ htxt)
        (princ "\n")

        (setvar "blipmode" 0 )
        (setvar "cmdecho" 0 )
        (setq ag1 (angle point point2))
        (setq agRad (atof ag))
        (setq dsReal (atof ds))
        (setq htxtReal (atof htxt))
        (setq agRad (/ agRad 200))
        (setq agRad (* agRad pi))

        (princ "\n")
        (princ ag1)
        (princ "\n")
        (princ agRad)
        (princ "\n")

        (setq point1 (polar point (- (* 2 pi) (- agRad ag1)) dsReal))
        (command "_line" point point1 "")
        (command "_change" "_last" "" "_p" "_c" "_red" "")
        (command "_circle" point1 0.20 "")
        (command "_change" "_last" "" "_p" "_c" "_red" "")
 
        (command "_text" point1 htxtReal 0 ptxt "")
        (command "_change" "_last" "" "_p" "_c" "_red" "")

        (alert "Vettore tracciato")

    )