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

走路 · 发表于 2002-5-30 19:33:00

(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))

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

发表回复

精选推荐

浏览过的版块