怎样利用系统剪贴板

liu_kunlun

请问怎样在autolist程序内部利用系统剪贴板，即读取系统剪贴板中的文字，或向系统剪贴板写文字，这样可使CAD和WORD、记事本之间实现文字传输。

虽然标准的VB有该功能，但在VBA中运行时会提示缺乏对象，请高手指教。

jh1005

2. ;★剪贴板函数★
   
3. (defun get-clip ()   ;获取剪贴板
   
4. (vlax-invoke (vlax-get-property (vlax-get (vlax-get-or-create-object "htmlfile") 'parentwindow) 'clipboarddata) 'getdata "text")
   
5. )
   
6. 
   
7. (defun set-clip (str)  ;设置剪贴板
   
8. (vlax-invoke (vlax-get-property (vlax-get (vlax-create-object "htmlfile") 'parentwindow) 'clipboarddata) 'setdata "text" str)
   
9. )
   
10. 
    
11. (defun cls-clip ()    ;清空剪贴板
    
12. (vlax-invoke (vlax-get-property (vlax-get (vlax-create-object "htmlfile") 'parentwindow) 'clipboarddata) 'setdata "text" "about:blank")
    
13. )

;★剪贴板函数★<br /> (defun get-clip ()   ;获取剪贴板<br /> (vlax-invoke (vlax-get-property (vlax-get (vlax-get-or-create-object "htmlfile") 'parentwindow) 'clipboarddata) 'getdata "text")<br /> )<br /> <br /> (defun set-clip (str)  ;设置剪贴板<br /> (vlax-invoke (vlax-get-property (vlax-get (vlax-create-object "htmlfile") 'parentwindow) 'clipboarddata) 'setdata "text" str)<br /> )<br /> <br /> (defun cls-clip ()    ;清空剪贴板<br /> (vlax-invoke (vlax-get-property (vlax-get (vlax-create-object "htmlfile") 'parentwindow) 'clipboarddata) 'setdata "text" "about:blank")<br /> )

思行合一

c#代码怎么将cad图形加到剪贴板呀？