Le portail francophone de la géomatique

(defun c:xy_RGF932LIIE (/ as_cor ll lat lon pkpt desc)
    (setq as_cor (ade_projgetwscode))
    (if (/= "" as_cor)
        (progn
            (ade_projsetsrc as_cor)
            (ade_projsetdest "NTF.Lambert-E")
            (while (not (setq pkpt (getpoint "\nDonnez le point désiré: "))))
            (setq
                ll (ade_projptforward pKpt)
                lat (car ll)
                lon (car (cdr ll))
                desc (ade_projgetinfo "NTF.Lambert-E" "description")
            )
            (princ 
                (strcat
                    "X: " (rtos lat 2 6)
                    "\nY:" (rtos lon 2 6)
                    "\n Converti depuis: " as_cor
                    "\n Converti vers  : " desc
                )
            )
            (princ)
        )
        (asg_coor)
    )
)
(defun asg_coor (/ req )
    (initget "Oui Non _Yes No" )
    (setq req (getkword "Pas de coordonnées assignées à cette carte, Voulez l'assigner maintenant? [Oui/Non]? <Non>: "))
    (if (= nil req) (setq req "Yes"))
    (if (= req "Yes")
        (progn
            (command "ADESETCRDSYS")
            (if (/= "" (ade_projgetwscode))
                (C:xy_RGF932LIIE)
                (Alert "\nEchec d'attribution de système de coordonnées")
            )
        )
        (princ "\nAu revoir")
    )
    (princ)
)