Retrieve data from the clipboard.

[Costinbos77]

Howdy.

 

It can access data (copied from a text file or Excel and stored) from the clipboard, using AutoLISP?

 

Thanks in advance.

 

Costin

[Lee Mac]

I use these functions by MP.

[Costinbos77]

Lee's great, thanks a lot for your help.

 

Something like that I looking for.

[Lee Mac]

You're welcome - Michael is a talented programmer

[Costinbos77]

I compressed the two functions into one, because they had many common parts :

 

(defun FClipBoardText (text / ClipBoardx htmlFilex result)
(setq ClipBoard (vlax-Get (vlax-Get (setq htmlFile (vlax-Create-Object "htmlFile")) 'ParentWindow) 'ClipBoardData)
      result (if text (vlax-Invoke ClipBoard 'SetData "Text" text) (vlax-Invoke ClipBoard 'GetData "Text")) ) ;_ end of setq
(mapcar 'vlax-Release-Object (list ClipBoard htmlFile))
(if text text result) ;_ end of if
) ;_ end of defun FClipBoardText

 

 

Thanks to MP for the idea.