用lisp访问判断网上的一个文件是否存在

admin1

[code];;用lisp访问判断网上的一个文件是否存在 ;;用法： (remotefilep "http://www.baidu.com/img/slogo.gif")
;;--------------------------------------------------
(defun remotefilep(fileURL / DestFile utility found)
(setq utility (vla-get-utility (vla-get-activedocument (vlax-get-acad-object))))
(setq found nil)
(if (= (vl-catch-all-apply 'vla-getremotefile
(list utility fileURL 'DestFile :vlax-true)) nil)
(progn
(if (> (vl-file-size DestFile) 0) (setq found T))
(vl-file-delete Destfile)
)
)
(if found T nil)
)[/code]