如何：将剪切板文字写入文字串变量？

fengyu6913

如何：将剪切板文字写入文字串变量？

...............................
(setq txt_str strFromClipboard )

qazxswk

利用前辈写的函数，具体是谁写的不知道了。

2. (defun c:11 (/ str get-clip-string)
   
3. (defun get-clip-string (/ html result)
   
4.     (and (setq html (vlax-create-object "htmlfile"))
   
5.    (setq result (vlax-invoke
   
6.         (vlax-get (vlax-get HTML 'PARENTWINDOW)
   
7.             'CLIPBOARDDATA
   
8.         )
   
9.         'GETDATA
   
10.         "Text"
    
11.           )
    
12.    )
    
13.    (vlax-release-object html)
    
14.     )
    
15.     result
    
16. )
    
17. (setq str (get-clip-string))
    
18. (princ (strcat "\n剪贴板内容<"str ">"))
    
19. (princ)
    
20. )

(defun c:11 (/ str get-clip-string)<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 /> )<br /> (setq str (get-clip-string))<br /> (princ (strcat "\n剪贴板内容<"str ">"))<br /> (princ)<br /> )

fengyu6913

qazxswk 发表于 2024-7-11 18:25
利用前辈写的函数，具体是谁写的不知道了。

感谢qazxswk出手相助