[TB-LISP函数]：TBC:Clipboard 读写剪贴板（文本）

tengteb · 发表于 2022-6-11 22:22:21

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

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

×

本帖最后由 tengteb 于 2022-6-13 18:26 编辑

  ;读写剪贴板（文本）。　txt为nil时读取，否则将txt转化为string再写入。
(defun TBC:Clipboard (txt / Obj Clip)
  (and
(setq Obj (vlax-create-object "htmlfile"))
(setq Clip (vlax-get (vlax-get Obj 'ParentWindow) 'ClipboardData))
(if       txt
   (setq txt       (vl-princ-to-string txt)
         txt       (vlax-invoke Clip 'SetData "Text" txt)
   )
   (setq txt (vlax-invoke Clip 'GetData "Text"))
) ;if
  ) ;and
  (and Obj (vlax-release-object Obj))
  txt
)

hh_lj007 · 发表于 2022-6-12 21:55:00

感谢分享源码

qxlonmsn · 发表于 2022-6-12 23:58:39

本帖最后由 qxlonmsn 于 2022-6-13 08:29 编辑

老大你这个跟我以前找的都不一样跟你点个赞 66666

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

[源码] [TB-LISP函数]：TBC:Clipboard 读写剪贴板（文本）

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