CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2021 开发者帮助 › 查看内容

AutoCAD 2021 开发者帮助

PutRemoteFile 方法（ActiveX）

2024-5-18 18:32| 发布者: admin| 查看: 128| 评论: 0|原作者: admin|来自: AutoCAD

将文件上载到 AutoCAD 已知的 URL 指定的远程 FTP 位置。

支持的平台：仅限 Windows

签名

VBA：

object.PutRemoteFile URL, LocalFile

对象

类型： 实用程序

此方法应用到的对象。

网址

访问：仅输入

类型：字符串

要将文件上传到的 URL 位置。

本地文件

访问：仅输入

类型：字符串

要上传的文件。

返回值（RetVal）

无返回值。

言论

该方法旨在补充该方法。GetRemoteFile

访问安全 URL 时，会出现一个对话框，提示用户输入必要的密码信息。如果用户尚未在其浏览器中禁止此活动，则会显示消息框。

例子

VBA：

Sub Example_PutRemoteFile()
    ' This example transfers a local file to a remote URL.  Since this example
    ' relies on both a remote server name and a local file, you will have to
    ' modify both the DestURL and LocalFile variables below to run this example.
    
    Dim DestURL As String, LocalFile As String
    
    ' Define source and destination
    DestURL = "ftp://www.myserver.com/autocadfiles/"
    LocalFile = "c:\program files\autocad\sample\city map.dwg"
    
    ' Transfer local file to remote location
    ThisDrawing.Utility.PutRemoteFile DestURL, LocalFile
    
    MsgBox LocalFile & " was just transfered to: " & DestURL
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_PutRemoteFile()
    ;; This example transfers a local file to a remote URL.  Since this example
    ;; relies on both a remote server name and a local file, you will have to
    ;; modify both the DestURL and LocalFile variables below to run this example.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Define source and destination
    (setq DestURL "ftp://www.myserver.com/autocadfiles/")
    (setq LocalFile "C:\\autocad\\samples\\city map.dwg")
    
    ;; Transfer local file to remote location
    (vla-PutRemoteFile (vla-get-Utility doc) DestURL LocalFile)
    
    (alert (strcat LocalFile " was just transfered to: " DestURL))
)