：：：关于vl与excel的连接！

走路

(vl-load-com)

            (setq *excel-cells* nil)
            (setq *row* nil)
      
            (defun init-excel (/ excel-app wb-colletion workbook sheets sheet1)
             (setq excel-app (vlax-create-object "excel.application"))
             (setq wb-collection (vlax-get excel-app "workbooks"))
             (setq workbook (vlax-invoke-method wb-collection "add"))
             (setq sheets (vlax-get workbook "sheets"))
             (setq sheet1 (vlax-get-property sheets "item" 1))
             (setq *excel-cells* (vlax-get sheet1 "cells"))
             (vlax-put excel-app "visible" 1))

            (defun write-row-column (row col x)
             (vlax-put-property *excel-cells* "item" row col (vl-princ-to-string x)))

            (setq *model-space* nil)

            (defun init-app ()
             (setq *model-space*
             (vla-get-modelspace
             (vla-get-activedocument
             (vlax-get-acad-object))))
             (write-row-column 1 1 "Centro x")
             (write-row-column 1 2 "Centro y")
             (write-row-column 1 3 "Centro z")
             (write-row-column 1 4 "Raio")
             (setq *row* 2))

            (defun add-circle (px py pz radius)
             (write-row-column *row* 1 px)
             (write-row-column *row* 2 py)
             (write-row-column *row* 3 pz)
             (write-row-column *row* 4 radius)
             (setq *row* (+ *row* 1))
             (vla-addcircle *model-space*
             (vlax-3d-point px py pz )
             radius))

            (defun c:demo ()
             (init-excel)
             (init-app)
             (add-circle 5 5 0 5)
             (add-circle 5 5 0 10))