lisp方式怎么在excel插入CAD图？

soly2006

lisp方式怎么在excel插入CAD图？
资料有很多图要分别插入excel里列出，手工插入很慢不说，眼睛都看花了，不知道有什么办法实现从CAD图到EXCEL里的复制粘贴功能？
翻遍论坛只看到提取CAD文字到EXCEL的代码，没有涉及较形，有高人指点一下吗？
KozMos的代码都看了，没找到复制图形的。
附复制文字的代码 ：
;;;功能：向系统剪贴板写入文字                                       *
(defun SET-CLIP-STRING (STR / HTML RESULT)
    (and (= (type STR) 'STR)
(setq HTML (vlax-create-object "htmlfile"))
(setq RESULT (vlax-invoke
  (vlax-get (vlax-get HTML 'PARENTWINDOW)
    'CLIPBOARDDATA
  )
  'SETDATA
  "Text"
  STR
      )
)
(vlax-release-object HTML)
    )
)

soly2006

希望有人关注一下。。

gtj116600

希望有人解决这个问题