怎么把变量的值复制到剪贴板中

lkm3131

我想把变量x的值45  复制到剪贴板 中，下次要输入数值的时候，我直接粘贴一下，就行了，哪位大侠给 指导一下

菜卷鱼

1. (defun SET-CLIP-STRING (STR / HTML RESULT)
   
2.     (and (= (type STR) 'STR)
   
3.          (setq HTML (vlax-create-object "htmlfile"))
   
4.          (setq RESULT (vlax-invoke
   
5.                           (vlax-get (vlax-get HTML 'PARENTWINDOW)
   
6.                                     'CLIPBOARDDATA
   
7.                           )
   
8.                           'SETDATA
   
9.                           "Text"
   
10.                           STR
    
11.                       )
    
12.          )
    
13.          (vlax-release-object HTML)
    
14.     )
    
15. )
    
16. 
    
17. 
    
18. (defun GET-CLIP-STRING (/ HTML RESULT)
    
19.     (and (setq HTML (vlax-create-object "htmlfile"))
    
20. (setq RESULT (vlax-invoke
    
21. (vlax-get (vlax-get HTML 'PARENTWINDOW)
    
22.    'CLIPBOARDDATA
    
23. )
    
24. 'GETDATA
    
25. "Text"
    
26.      )
    
27. )
    
28. (vlax-release-object HTML)
    
29.     )
    
30.     RESULT
    
31. )

(defun SET-CLIP-STRING (STR / HTML RESULT)<br />     (and (= (type STR) 'STR)<br />          (setq HTML (vlax-create-object "htmlfile"))<br />          (setq RESULT (vlax-invoke<br />                           (vlax-get (vlax-get HTML 'PARENTWINDOW)<br />                                     'CLIPBOARDDATA<br />                           )<br />                           'SETDATA<br />                           "Text"<br />                           STR<br />                       )<br />          )<br />          (vlax-release-object HTML)<br />     )<br /> )<br /> <br /> <br /> (defun GET-CLIP-STRING (/ HTML RESULT)<br />     (and (setq HTML (vlax-create-object "htmlfile"))<br /> (setq RESULT (vlax-invoke<br /> (vlax-get (vlax-get HTML 'PARENTWINDOW)<br />    'CLIPBOARDDATA<br /> )<br /> 'GETDATA<br /> "Text"<br />      )<br /> )<br /> (vlax-release-object HTML)<br />     )<br />     RESULT<br /> )

lkm3131

执行写入剪贴板 提示参数太少  是 str 没定义吗  比如我就行 把 “888”写入剪贴板，应该怎么改lisp程序，大侠帮忙给改下lisp程序