用WSH写和清空剪切板

kozmosovia

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

2. 
   
3. (Defun HTML:CLIPBOARD-WRITE (txt)
   
4.   (vlax-invoke
   
5.     (vlax-get-property
   
6.       (vlax-get-property
   
7.   (vlax-create-object "htmlfile")
   
8.   "ParentWindow"
   
9.       )
   
10.       "ClipBoardData"
    
11.     )
    
12.     "SetData"
    
13.     "Text"
    
14.     txt
    
15.   )
    
16.   txt
    
17. )
    
18. 
    
19. (Defun WSH:CLIPBOARD-WRITE (txt / WSH)
    
20.   (vlax-invoke
    
21.     (setq wsh (vlax-create-object "Wscript.Shell"))
    
22.     "run"
    
23.     (strcat "cmd /c \042echo " txt " | clip\042")
    
24.     0
    
25.     :vlax-false
    
26.   )
    
27.   (vlax-release-object wsh)
    
28.   txt
    
29. )
    
30. (Defun WSH:CLIPBOARD-CLEAR () (WSH:CLIPBOARD-WRITE ""))

<br /> (Defun HTML:CLIPBOARD-WRITE (txt)<br />   (vlax-invoke<br />     (vlax-get-property<br />       (vlax-get-property<br />   (vlax-create-object "htmlfile")<br />   "ParentWindow"<br />       )<br />       "ClipBoardData"<br />     )<br />     "SetData"<br />     "Text"<br />     txt<br />   )<br />   txt<br /> )<br /> <br /> (Defun WSH:CLIPBOARD-WRITE (txt / WSH)<br />   (vlax-invoke<br />     (setq wsh (vlax-create-object "Wscript.Shell"))<br />     "run"<br />     (strcat "cmd /c \042echo " txt " | clip\042")<br />     0<br />     :vlax-false<br />   )<br />   (vlax-release-object wsh)<br />   txt<br /> )<br /> (Defun WSH:CLIPBOARD-CLEAR () (WSH:CLIPBOARD-WRITE ""))

tranque

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

liweihua-1984

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