求autolisp下载ftp文件的方法？

ssliujun · 发表于 2019-4-8 11:42:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

高手帮忙，求autolisp下载ftp文件的方法？谢谢

evayleung · 发表于 2019-4-9 15:01:16

感觉好高端的样子。。。。。。。

ssliujun · 发表于 2019-4-10 08:57:26

解决局域网共享和跨网段问题，参考资料太少了，希望高手可以指点一下方向

ssliujun · 发表于 2019-4-10 08:59:39

想过用web服务器下载dwg到本机插入后再删除，但是下载不稳定

ssliujun · 发表于 2019-4-10 09:03:49

(defun c:zzz(/ objDOC objUTL locfile)
  (if (car (atoms-family 1 '("vl-load-com"))) (vl-load-com))
  (if (= hppath nil) (setq hppath "c:\\temp\\"))
  ;;创建网页连接对象
  (setq objDOC (vla-get-activedocument (vlax-get-acad-object)))
  (setq objUTL (vla-get-utility objDOC))
  (setq dwglst '("001.dwg" "002.dwg" "003.dwg" "004.dwg"))
  (foreach lt dwglst
(setq url (strcat "ftp://10.168.95.88/dwg/" lt))
(setq ftname (strcat hppath lt))
;;连接下载
(vla-getremotefile objUTL url 'locfile :vlax-true)
(if (= (vla-IsRemoteFile objUTL locfile url) :vlax-true)
   (progn
      (vl-file-copy url ftname)
      ;(command "insert" ftname (list 0 0) "1" "1" "0")
   );endprogn
   (princ "\n***下载失败")
)
  )
)

账号		自动登录	找回密码
密码			立即注册

[求助] 求autolisp下载ftp文件的方法？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。