happyboy75 发表于 2019-4-8 11:41:35

求autolisp下载ftp文件的方法

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

happyboy75 发表于 2019-4-8 11:47:11

(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 发表于 2019-4-8 11:47:32

利用上边的方法不行

happyboy75 发表于 2019-4-10 08:55:26

happyboy75 发表于 2019-4-15 16:57:59

baitang36 发表于 2019-4-16 08:17:27

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

happyboy75 发表于 2019-4-17 09:35:24

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

1291500406 发表于 2019-4-17 10:34:27

本帖最后由 1291500406 于 2019-4-17 18:18 编辑

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



页: [1]
查看完整版本: 求autolisp下载ftp文件的方法