千年浪子 发表于 2004-5-7 15:59:00

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

本帖最后由 作者 于 2004-5-7 16:31:34 编辑 <br /><br /> 我想用lisp找网上的一个文件，但不成功：



(findfile"<A href="http://www.baidu.com/img/slogo.gif" target="_blank" >http://www.baidu.com/img/slogo.gif</A>"        )





是语法错吗？怎样做才行呢？

龙龙仔 发表于 2004-5-7 16:55:00

(command "_.browser" "<A href="http://www.baidu.com/img/slogo.gif" target="_blank" >http://www.baidu.com/img/slogo.gif</A>")

千年浪子 发表于 2004-5-7 17:04:00

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

alin 发表于 2004-5-8 09:35:00

;;如果文件不大，可以试试这个


;;用法： (remotefilep "<A href="http://www.baidu.com/img/slogo.gif" target="_blank" >http://www.baidu.com/img/slogo.gif</A>")<BR>;;--------------------------------------------------<BR>(defun remotefilep(fileURL / DestFile utility found)<BR>       (setq utility (vla-get-utility (vla-get-activedocument (vlax-get-acad-object))))<BR>       (setq found nil)<BR>       (if (= (vl-catch-all-apply 'vla-getremotefile<BR>                       (list utility fileURL 'DestFile :vlax-true)) nil)<BR>                       (progn<BR>                                       (if (&gt; (vl-file-size DestFile) 0) (setq found T))<BR>                                       (vl-file-delete Destfile)<BR>                       )<BR>       )<BR>       (if found T nil)<BR>)

千年浪子 发表于 2004-5-8 14:09:00

高！！！

千年浪子 发表于 2004-5-17 22:02:00

alin发表于2004-5-8 9:35:00static/image/common/back.gif;;如果文件不大，可以试试这个



;;用法： (remotefilep \"http://www.baidu.com/img/slogo.gi...

</A>
此程序有时结果不太对，只要域名是有效的，不论文件存在与否，均返回T！另外


该程序用了几个函数：


vla-get-utility       vla-getremotefile 可否告知用法和功能。

我爱lisp 发表于 2015-6-9 09:47:04

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

MXS 发表于 2022-8-12 01:11:05

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

您好您解决了吗
页: [1]
查看完整版本: 如何用lisp访问网上的一个文件