复制文件到剪切板

sandyvs · 发表于 6 天前

;[功能] 工具-复制文件到剪切板，(czx:copytoclipboard filename)
;[用法](czx:copytoclipboard (findfile "acad.exe"))
;[说明]filename = 文件完整路径
(defun czx:copytoclipboard (filename / dir file folder fullpath name result shell)
(vl-load-com)
(if (setq fullpath (findfile filename))
(progn
(setq dir (vl-filename-directory fullpath))
(setq name (strcat (vl-filename-base fullpath) (vl-filename-extension fullpath)))
(setq shell (vl-catch-all-apply 'vlax-create-object (list "Shell.Application")))
(if (vl-catch-all-error-p shell)
(princ "\n错误: 无法创建 Shell.Application 对象！")
(progn
(setq folder (vlax-invoke shell 'Namespace dir))
(setq file (vlax-invoke folder 'ParseName name))
(setq result (vlax-invoke file 'InvokeVerb "Copy"))
(if file (vlax-release-object file))
)
)
(if folder (vlax-release-object folder))
(if shell (vlax-release-object shell))
)
(princ "\n错误: 文件不存在或路径无效！")
)
(princ)
)

尘缘一生 · 发表于 6 天前

不错啊，剪切板再能开发出任意实体复制进去的话，就完美了。目前文字实体行。

hubeiwdlue · 发表于 6 天前

谢谢分享。

crtrccrt · 发表于 4 天前

一次复制多个文件,怎么办?;

sandyvs · 发表于 4 天前

crtrccrt 发表于 2025-2-17 10:02
一次复制多个文件,怎么办?;

不会。。。不知道复制多个要干什么

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