[密技]：VLISP与EXCEL建立联系的第一步代码！

黄卫文

欢迎大家来讨论这方面的问题！用VBA能控制，但加密是用密码，而用VLISP的好处是一能编译，二能VLISP使用总比VBA顺手：）

2. 
   
3. [FONT=courier new]
   
4. (vl-load-com)
   
5. (defun init-excel (/ excel-app wb-colletion workbook sheets sheet1)
   
6.              (setq excel-app (vlax-create-object "excel.application"))
   
7.              (setq wb-collection (vlax-get excel-app "workbooks"))
   
8.              (setq workbook (vlax-invoke-method wb-collection "add"))
   
9.              (setq sheets (vlax-get workbook "sheets"))
   
10.              (setq sheet1 (vlax-get-property sheets "item" 1))
    
11.              (setq *excel-cells* (vlax-get sheet1 "cells"))
    
12.              (vlax-put excel-app "visible" 1))
    
13. 
    
14. [/FONT]

<br /> [FONT=courier new]<br /> (vl-load-com)<br /> (defun init-excel (/ excel-app wb-colletion workbook sheets sheet1)<br />              (setq excel-app (vlax-create-object "excel.application"))<br />              (setq wb-collection (vlax-get excel-app "workbooks"))<br />              (setq workbook (vlax-invoke-method wb-collection "add"))<br />              (setq sheets (vlax-get workbook "sheets"))<br />              (setq sheet1 (vlax-get-property sheets "item" 1))<br />              (setq *excel-cells* (vlax-get sheet1 "cells"))<br />              (vlax-put excel-app "visible" 1))<br /> <br /> [/FONT]

上述代码能让你与EXCEL的单元格建立联系，因为建立了cell对象了！

XDSoft

谢谢卫文，替你编辑了帖子，以后大家发代码，用格式化代码的方法好吗？一个一个修改我好累：）

希望大家踊跃讨论！

黄卫文

最初由 XDSoft 发布
[B]谢谢卫文，替你编辑了帖子，以后大家发代码，用格式化代码的方法好吗？一个一个修改我好累：）

希望大家踊跃讨论！ [/B]

不会用格式化！谢谢教一下，下次就会了

XDSoft

最初由 黄卫文 发布
[B]

不会用格式化！谢谢教一下，下次就会了 [/B]

建议你把发贴界面上的所有“按钮”的功能都试验下。

黄卫文

谢谢晓东我学会了：）并把上个贴里的代码美化了一下！你用过VLISP来往EXCEL里写属性吗？比如块的属性之类的，很方便！

XDSoft

最初由 黄卫文 发布
[B]谢谢晓东我学会了：）并把上个贴里的代码美化了一下！你用过VLISP来往EXCEL里写属性吗？比如块的属性之类的，很方便！ [/B]

我没有用过EXCEL，卫文，你给大家贴个具体的应用程序吧，讲讲ACTIVEX的应用，在EXCEL和ACAD里面用程序交互数据。先谢谢！

黄卫文

我现在也是一知半解，所以前二天贴了一个想讨论的主贴想得到高手赐教，可惜没有人来教我，今天才贴(init-excel)函数来在CAD中启动EXCEL！希望大家不要只想用VBA。VLISP是我们工程师最上手的编程语言。我也只会这一点，VBA更没有学习好！

zhbxt2705

我想学习一下CAD的编程　，不知道丛何下手，能不能告诉我，如何开始下手。

cy956

最初由 黄卫文 发布
[B]我现在也是一知半解，所以前二天贴了一个想讨论的主贴想得到高手赐教，可惜没有人来教我，今天才贴(init-excel)函数来在CAD中启动EXCEL！希望大家不要只想用VBA。VLISP是我们工程师最上手的编程语言。我也只会这一点... [/B]

我们都等着当你的学生呢，说吧老师别等了（这时候哪个敢号称高手进来搅局一定叫他。。。哼哼。）

不知道你在讨论组中搜没搜过。

mmmm

建立联系后，如何指定当前的CELL?
我在顺延重建代码的过程中，在这一点上无法正确通过。

chandra_cn

在使用过程中顺利，谢谢，但是如何读取指定区域的数据呢？

oyxx_1023

厉害啊啊。等待你的进一步讲解。
希望斑竹把这个贴置顶，专门讨论CAD与EXCEL的通讯。

lsjjm

最初由 chandra_cn 发布
[B]在使用过程中顺利，谢谢，但是如何读取指定区域的数据呢？ [/B]

REFER TO:
[php]
(defun getrangevaluebycol (startrow statcol numrows)
  (setq nextrow startrow)
  (repeat numrows
    (setq rowlst (getrowvalue nextrow startcol numcols)
          outlst (if outlst (append outlst (list rowlst))(list rowlst))
          nextrow (1+ nextrow)
  ))
  outlst
)
;
(defun getrangevaluebyrow (startrow startcol numrows numcols / nextrow rowlst outlst)
  (setq nextrow startrow)
  (repeat numrows
    (setq rowlst (getrowvalue nextrow startcol numcols)
          outlst (if outlst (append outlst (list rowlst))(list rowlst))
          nextrow (1+ nextrow)
  ))
  outlst
)
[/php]

silen618

1楼斑竹，麻烦写个具体一点的，讲一讲具体怎么用？
平常用的听多的。
谢谢！

shongdragon3

对应了以后，还是需要通过定义块分开对应属性！~出现问题也不好解决！~曾经做过尝试，图形越复杂，越容易出错！~