[编程交流] 如何将图像复制到剪贴板

(vl-load-com)
(defun c:vv (/ en tx html)                
  (and (setq en (ssget '((0 . "*TEXT"))))
       (setq en (ssname en 0))
       (setq en (vlax-ename->vla-object en))
       (vlax-property-available-p en 'textstring)
       (setq tx (vla-get-textstring en))
       (vlax-invoke
         (vlax-get (vlax-get (setq html (vlax-create-object "htmlfile"))
                             'ParentWindow
                   )
                   'ClipBoardData
         )
         'setData
         "text"
         tx
       )
       (vlax-release-object html)
  )
  (princ)
)