利用cmd发送数据到剪切板

qxlonmsn · 发表于 2022-5-6 08:27:27

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

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

×

本帖最后由 qxlonmsn 于 2022-5-19 10:02 编辑

(defun SET-CLIP-STRING (strlst / wj vlr-dwg-reactor_new vlr-dxf-reactor_new deletefile)
  (vl-load-com)
  (if (and
      (vl-consp strlst);strlst是表且不为nil
      (setq strlst (mapcar 'vl-princ-to-string strlst));全部转字符串
      (setq wj (open "d:/剪切板数据.txt" "w"));打开临时文件
   );end and
   (progn
      (princ "\n")
      (foreach n strlst
         (write-line n wj)
         (princ "\n")
         (princ n)
      );end foreach
      (startapp "cmd /c clip <d:/剪切板数据.txt");文本内容复制到剪切板
      (close wj)
      ;(vl-file-delete "d:/剪切板数据.txt");删掉文件就粘贴不了
      (princ "\n数据已发送到剪切板!\n数据存储位置==>d:/剪切板数据.txt")
      (princ)
   );end progn
  );end if
);发送字符串str到剪切板

hh_lj007 · 发表于 2022-5-9 08:40:47

感谢分享源码！

ngc · 发表于 2022-5-11 00:05:34

感谢分享源码

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

[文本] 利用cmd发送数据到剪切板

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