求autolisp下载ftp文件的方法

happyboy75

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

happyboy75

(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***下载失败")
    )
  )
)

happyboy75

利用上边的方法不行

happyboy75

happyboy75

baitang36

用shell来实现吧，调用一个exe文件下载

happyboy75

要做个ftP下载工具才行？？？

1291500406

happyboy75 发表于 2019-4-17 09:35
要做个ftP下载工具才行？？？

lisp语言很少有人程序员用，你可以找其他语言比如bat脚本
这个代码提供参考，
1.找其他语言转换为lisp语法，执行功能

2.或者 cad 输出其他语言文件，运行，执行功能

bat脚本程序

例如ftp地址192.168.1.103，用户名12345，密码12345，其中有1.txt文件

编写批处理登录ftp并下载1.txt

@echo off
echo 192.168.1.103> ftp.txt
echo tang>>ftp.txt
echo 12345>>ftp.txt
echo binary>>ftp.txt
echo get 1.txt .\1.txt>>ftp.txt
echo bye>>ftp.txt
ftp -s:"ftp.txt" 192.168.1.103
del ftp.txt