I need to be able to clear previously pasted drawing objects from the windows clipboard to avoid inadvertantly pasting bad info into a drawing. I have created the following code, but it doesn't seem to work.
Suggestions appreciated.
Mike Weaver
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Routine: ClearClipBoard ;;;
;;; Purpose: Clears all data from the windows clipboard ;;;
;;; Arguments: none ;;;
;;; Returns: nothing of value ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ClearClipBoard ( / objIEA doc body)
(vl-load-com)
(setq objIEA (vlax-create-object "InternetExplorer.Application"))
(vlax-put-property objIEA "Visible" :vlax-false)
(vlax-invoke objIEA "Navigate2" "about:blank")
(while (/= 4 (vlax-get-property objIEA "ReadyState"))
(princ ".")
)
(setq doc (vlax-get-property objIEA "Document")
body (vlax-get-property doc "Body")
Window (vlax-get-property doc "ParentWindow")
ClipBoard (vlax-get-property window "ClipBoardData")
)
(vlax-invoke-method ClipBoard "ClearData" )
(vlax-release-object ClipBoard)
(vlax-release-object Window)
(vlax-release-object body)
(vlax-release-object doc)
(vlax-release-object objIEA)
(gc)
(princ)
)