剪贴板功能

;; to set some text to the clipboard
_$ (SetClipboardText "This is a way to sent into the ClipBoard some text data")
T
;; here we can get the text inside the clipboard, coming from any application
_$ (setq string (GetClipboardText)) 
"This is a way to sent into the ClipBoard some text data"
;; this will empty the clipboard coming from any application
_$ (EmptyClipBoard) 
T

//-----------------------------------------------------------------------------
//----- acrxEntryPoint.h
//-----------------------------------------------------------------------------
#include "StdAfx.h"
#include "resource.h"
//-----------------------------------------------------------------------------
#define szRDS _RXST("LESQ")
//-----------------------------------------------------------------------------
//----- ObjectARX EntryPoint
class Cclipboard17App : public AcRxArxApp {
public:
        Cclipboard17App () : AcRxArxApp () {}
        virtual AcRx::AppRetCode On_kInitAppMsg (void *pkt) {
                // TODO: Load dependencies here
                // You *must* call On_kInitAppMsg here
                AcRx::AppRetCode retCode =AcRxArxApp::On_kInitAppMsg (pkt) ;
                
                acutPrintf(_T("\n\nClipBoard Functions:"));
                acutPrintf(_T("\nUsage: (SetClipboardText )"));
                acutPrintf(_T("\nUsage: (GetClipboardText)"));
                acutPrintf(_T("\nUsage: (EmptyClipboard)\n\n"));
                return (retCode) ;
        }
        virtual AcRx::AppRetCode On_kUnloadAppMsg (void *pkt) {
                // TODO: Add your code here
                // You *must* call On_kUnloadAppMsg here
                AcRx::AppRetCode retCode =AcRxArxApp::On_kUnloadAppMsg (pkt) ;
                // TODO: Unload dependencies here
                return (retCode) ;
        }
        virtual void RegisterServerComponents () {
        }
public:
        // ----- ads_setclipboardtext symbol (do not rename)
        static int ads_setclipboardtext(void)
        {
                struct resbuf *rb=acedGetArgs();
                LPCTSTR pszText;
                // temp string just for testing
                CString tmp;
                // get the argument
                if (rb && (rb->restype==RTSTR)){
                        pszText=rb->resval.rstring;
                        rb=rb->rbnext;
                        tmp=pszText;
                }
...