通过utility对象下载文件

vectra

网上找来的代码，发在这里备份一下。
利用CAD中的utility对象来下载文件，也是个比较方便的方法。

1. (defun getrfile  (/ objutl actdoc)
   
2.   (setq actdoc (vla-get-activedocument (vlax-get-acad-object)))
   
3.   (setq objutl (vla-get-utility actdoc))
   
4.   (vla-getremotefile
   
5.     objutl
   
6.     "http://mywebsite.com/index.html"
   
7.     'locfile
   
8.     :vlax-true
   
9.   )
   
10.   (vla-isremotefile objutl locfile 'purl)
    
11.   locfile
    
12. )

(defun getrfile  (/ objutl actdoc)<br />   (setq actdoc (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq objutl (vla-get-utility actdoc))<br />   (vla-getremotefile<br />     objutl<br />     "http://mywebsite.com/index.html"<br />     'locfile<br />     :vlax-true<br />   )<br />   (vla-isremotefile objutl locfile 'purl)<br />   locfile<br /> )

yoyoho

感谢分享程序!!!!!

USER2128

感谢大师分享程序!

springwillow

好程序啊！值得学习

elitefish

留个记号，以后好找，不错。

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

情迷法兰西0

感谢大师分享程序!

zjf00

留个记号,回帖是一种美德！