社区 › AutoLISP/Visual LISP 编程技术 › 用WSH写和清空剪切板

kozmosovia 发表于 7 天前

用WSH写和清空剪切板

大部分写入剪切板的代码都是利用htmlfile来实现，下面的代码借助于WSH来实现剪切板写入和清空。


(Defun HTML:CLIPBOARD-WRITE (txt)
(vlax-invoke
    (vlax-get-property
      (vlax-get-property
(vlax-create-object "htmlfile")
"ParentWindow"
      )
      "ClipBoardData"
    )
    "SetData"
    "Text"
    txt
)
txt
)

(Defun WSH:CLIPBOARD-WRITE (txt / WSH)
(vlax-invoke
    (setq wsh (vlax-create-object "Wscript.Shell"))
    "run"
    (strcat "cmd /c \042echo " txt " | clip\042")
    0
    :vlax-false
)
(vlax-release-object wsh)
txt
)
(Defun WSH:CLIPBOARD-CLEAR () (WSH:CLIPBOARD-WRITE ""))

tranque 发表于 7 天前

原来是在回应之前的求助贴

liweihua-1984 发表于 前天 19:40

这个复制稳定些，就是后面跟了一个空格和回车符。

查看完整版本: 用WSH写和清空剪切板