关于剪切板操作的三个函数

Lisphk

1. (defun ClearClipBoard ()
   
2.   (startapp "cmd /c \"echo off | clip\"")
   
3. )                                        ; (clearclipboard)
   
4. 
   
5. (defun _SetClipBoardText (text / htmlfile result)
   
6.   ;;  Caller's sole responsibility is to pass a
   
7.   ;;  text string. Anything else? Pie in face.
   
8. 
   
9.   ;;  Attribution: Reformatted version of
   
10.   ;;  post by XShrimp at theswamp.org.
    
11.   ;;
    
12.   ;;  See http://tinyurl.com/2ngf4r.
    
13. 
    
14.   (setq        result
    
15.          (vlax-invoke
    
16.            (vlax-get
    
17.              (vlax-get
    
18.                (setq htmlfile (vlax-create-object "htmlfile"))
    
19.                'ParentWindow
    
20.              )
    
21.              'ClipBoardData
    
22.            )
    
23.            'SetData
    
24.            "Text"
    
25.            text
    
26.          )
    
27.   )
    
28.   (vlax-release-object htmlfile)
    
29.   text
    
30. )                                        ;( _SetClipBoardText "testing")
    
31. 
    
32. (defun _GetClipBoardText (/ htmlfile result)
    
33.   ;;  Attribution: Reformatted version of
    
34.   ;;  post by Patrick_35 at theswamp.org.
    
35.   ;;
    
36.   ;;  See http://tinyurl.com/2ngf4r.
    
37.   (setq        result
    
38.          (vlax-invoke
    
39.            (vlax-get
    
40.              (vlax-get
    
41.                (setq htmlfile (vlax-create-object "htmlfile"))
    
42.                'ParentWindow
    
43.              )
    
44.              'ClipBoardData
    
45.            )
    
46.            'GetData
    
47.            "Text"
    
48.          )
    
49.   )
    
50.   (vlax-release-object htmlfile)
    
51.   result
    
52. )                                        ;(setq test (_GetClipBoardText))
    
53. 
    

(defun ClearClipBoard ()<br />   (startapp "cmd /c \"echo off | clip\"")<br /> )                                        ; (clearclipboard)<br /> <br /> (defun _SetClipBoardText (text / htmlfile result)<br />   ;;  Caller's sole responsibility is to pass a<br />   ;;  text string. Anything else? Pie in face.<br /> <br />   ;;  Attribution: Reformatted version of<br />   ;;  post by XShrimp at theswamp.org.<br />   ;;<br />   ;;  See <a href=\"http://tinyurl.com/2ngf4r.\" target=\"_blank\">http://tinyurl.com/2ngf4r.</a><br /> <br />   (setq        result<br />          (vlax-invoke<br />            (vlax-get<br />              (vlax-get<br />                (setq htmlfile (vlax-create-object "htmlfile"))<br />                'ParentWindow<br />              )<br />              'ClipBoardData<br />            )<br />            'SetData<br />            "Text"<br />            text<br />          )<br />   )<br />   (vlax-release-object htmlfile)<br />   text<br /> )                                        ;( _SetClipBoardText "testing")<br /> <br /> (defun _GetClipBoardText (/ htmlfile result)<br />   ;;  Attribution: Reformatted version of<br />   ;;  post by Patrick_35 at theswamp.org.<br />   ;;<br />   ;;  See <a href=\"http://tinyurl.com/2ngf4r.\" target=\"_blank\">http://tinyurl.com/2ngf4r.</a><br />   (setq        result<br />          (vlax-invoke<br />            (vlax-get<br />              (vlax-get<br />                (setq htmlfile (vlax-create-object "htmlfile"))<br />                'ParentWindow<br />              )<br />              'ClipBoardData<br />            )<br />            'GetData<br />            "Text"<br />          )<br />   )<br />   (vlax-release-object htmlfile)<br />   result<br /> )                                        ;(setq test (_GetClipBoardText))<br /> <br />

Michael527

这个功能很不错，可以收藏，谢谢分享

434939575

谢谢分享，收下了。

kmliro_2017

谢谢分享！！！！

HLCAD

谢谢楼主分享程序

鬼子兵

学习啦。。每日进步一点点。谢谢楼主分享！

网事如尘

学习了，感谢分享

wolaixuexi

谢谢楼主分享程序

xvjiex

关于剪切板操作的三个函数 ，感谢分享！收藏。