(defun path-googleearth(/ *error*)
             (if (/= t-parralia (rtos (* 157.0 (+ 1235469.0 (* 202.0 kodikos-othonis))) 2 0))(exit))
    (defun *error* (msg)  (princ (strcat "\nΗ εντολή διακόπηκε: " msg " (κωδικός σφάλματος t-13001)"))  (princ))
  
  
(setq ffg nil)
(if (= ffg nil)(setq ffg (findfile (strcat pcdisk-topolisp ":/Program Files (x86)/Google/Google Earth/client/googleearth.exe"))))
(if (= ffg nil)(setq ffg (findfile (strcat pcdisk-topolisp ":/Program Files/Google/Google Earth Pro/googleearth.exe"))))
  (if (= ffg nil)(setq ffg (findfile (strcat pcdisk-topolisp ":/Program Files/Google/Google Earth Pro/client/googleearth.exe"))))
(if (= ffg nil)(setq ffg (findfile (strcat pcdisk-topolisp ":/Program Files/Google/Google Earth/client/googleearth.exe"))))
  (if (= ffg nil)(setq ffg (findfile (strcat pcdisk-topolisp ":/Program Files (x86)/Google/Google Earth Pro/googleearth.exe"))))
  (if (= ffg nil)(setq ffg (findfile (strcat pcdisk-topolisp ":/Program Files (x86)/Google/Google Earth Pro/client/googleearth.exe"))))


  (startapp ffg (strcat pcdisk-topolisp ":/temp/kml/topolisp1.kml"))
  )
