如何用lisp访问网上的一个文件

千年浪子

我想用lisp找网上的一个文件，但不成功： (findfile"http://www.baidu.com/img/slogo.gif" ) 是语法错吗？怎样做才行呢？

龙龙仔

(command "_.browser" "http://www.baidu.com/img/slogo.gif")

千年浪子

谢谢回复，斑竹的方法确可访问网上文件，但我只需判断该文件存在否（"_.browser"的返回值皆为nil，无法判断），以便接下来进行拷贝操作。

alin

;;如果文件不大，可以试试这个 ;;用法： (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)
)

千年浪子

高！！！

千年浪子

alin发表于2004-5-8 9:35:00;;如果文件不大，可以试试这个 ;;用法： (remotefilep \"http://www.baidu.com/img/slogo.gi...

此程序有时结果不太对，只要域名是有效的，不论文件存在与否，均返回T！另外 该程序用了几个函数： vla-get-utility vla-getremotefile 可否告知用法和功能。

我爱lisp

确实非常好的功能，不知道能否做成访问带密码的网络硬盘和

MXS

我爱lisp 发表于 2015-6-9 09:47
确实非常好的功能，不知道能否做成访问带密码的网络硬盘和

您好您解决了吗