(defun path-googleearth()
  
(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"))
  )
