;;读剪贴板文字
(defun xdl-getcliptext (/ ieobj str)
  (setq
    ieobj (vlax-get-or-create-object "Internetexplorer.application")
  )
  (vlax-invoke ieobj 'navigate "about:blank")
  (setq	str
	 (vlax-invoke
	   (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
		     'clipboarddata
	   )
	   'getdata
	   "text"
	 )
  )
  (vlax-release-object ieobj)
  str
)
;;往剪贴板写文字
(defun xdl-setcliptext (str / ieobj)
  (setq
    ieobj (vlax-get-or-create-object "Internetexplorer.application")
  )
  (vlax-invoke ieobj 'navigate "about:blank")
  (vlax-invoke
    (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
	      'clipboarddata
    )
    'setdata
    "text"
    str
  )
  (vlax-release-object ieobj)
)