XD::Excel:getactiveSheet获取当前活动表格

牢固

1. ;;获取当前活动表格成功返回(索引号 表单名称),否则返回nil，注：索引号从0开始
   
2. (defun XD::Excel:getactiveSheet (/ sh)
   
3.   (or
   
4.     **XD::Excel**
   
5.     (setq **XD::Excel** (vlax-get-or-create-object "Excel.Application"))
   
6.   )
   
7.   (setq sh (vlax-get-property **XD::Excel** 'activesheet))
   
8.   (list (1- (vlax-get-property sh 'index)) (vlax-get-property sh 'name))
   
9. )

;;获取当前活动表格成功返回(索引号 表单名称),否则返回nil，注：索引号从0开始<br /> (defun XD::Excel:getactiveSheet (/ sh)<br />   (or<br />     **XD::Excel**<br />     (setq **XD::Excel** (vlax-get-or-create-object "Excel.Application"))<br />   )<br />   (setq sh (vlax-get-property **XD::Excel** 'activesheet))<br />   (list (1- (vlax-get-property sh 'index)) (vlax-get-property sh 'name))<br /> )

liuyj

和xdex_book_getActiveSheet不是一样的吗？

iLisp

liuyj 发表于 2014-11-11 23:34
和xdex_book_getActiveSheet不是一样的吗？

G版的是 COM 方式，需要安装 Excel 情况下使用， XdEx 是用一个库文件直接读写 xls(x) 文件，和 Excel 程序没关系

XDSoft

iLisp 发表于 2014-11-11 23:52
G版的是 COM 方式，需要安装 Excel 情况下使用， XdEx 是用一个库文件直接读写 xls(x) 文件，和 Excel 程 ...

让G版写这几个函数，主要是对打开的EXCEL文件，用户选择了哪个SHEET操作，鼠标拉了多大的范围返回给LISP。 这些打开而没存盘的文件，XDEXCEL库是得不到文件信息的。

这几个函数主要是对打开的EXCEL文件的操作。返回的数据给XDEXCEL，其他就交给XDEXCEL去做了。

XDSoft

liuyj 发表于 2014-11-11 23:34
和xdex_book_getActiveSheet不是一样的吗？

G版今天提供的几个函数是对打开的EXCEL操作的，XDEXCEL库是对没打开的或者存盘的EXCEL操作的。打开的EXCEL而没存盘中间的操作，只能通过COM来获取。

比如，你打开一个EXCEL，然后用鼠标拉了一个范围，这个范围只能通过COM得到。得到范围后，交给XDEXCEL库去操作了。

XDSoft

iLisp 发表于 2014-11-11 23:52
G版的是 COM 方式，需要安装 Excel 情况下使用， XdEx 是用一个库文件直接读写 xls(x) 文件，和 Excel 程 ...

提供这几个COM函数，是让XDEXECL库应用更广，没打开的，和打开操作中的EXCEL都可以读取到CAD里面画表格。

csharp

待验证，感觉Excel在Com表现上是两个进程，仅打开Excel是get不到的，还得create一个后台进程

st788796

XDSoft 发表于 2014-11-12 00:05
提供这几个COM函数，是让XDEXECL库应用更广，没打开的，和打开操作中的EXCEL都可以读取到CAD里面画表格。 ...

使用环境 Windows 7 32bit + Office 2013

用户直接点击打开 XLS，Excel 已经运行，在Autocad 用使用 (vlax-get-object "Excel.Application") 是得不到这个 Excel 进程的，如果使用 (vlax-get-or-create-object "Excel.Application") 就会创建一个后台进程，这个进程才是Autocad 能够控制的，将其 Visible 显示，这里面打开的 XLS 才能使用 ActiveSheet 等，单独运行的 Excel 是不能获取的

Lispboy

st788796 发表于 2014-12-30 14:48
使用环境 Windows 7 32bit + Office 2013

用户直接点击打开 XLS，Excel 已经运行，在Autocad 用使用 ( ...

问题是需要得到用户当前正在用鼠标选过的范围，你用后台是做不到的。
G版的函数测试过，在打开的EXCEL文件里面，鼠标选中的区域，函数是能即时得到结果的。

Lispboy

打开EXCEL文件后，随着创建新的SHEET，函数运行如下：

命令: (XD::EXCEL:GETACTIVESHEET)
(0 "abc")

命令: (XD::EXCEL:GETACTIVESHEET)
(1 "Sheet1")

命令: (XD::EXCEL:GETACTIVESHEET)
(2 "Sheet2")

st788796

Lispboy 发表于 2014-12-30 15:17
打开EXCEL文件后，随着创建新的SHEET，函数运行如下：

命令: (XD::EXCEL:GETACTIVESHEET)

双击一个xls文件，选择一个区域，到cad中试试

Lispboy

st788796 发表于 2014-12-30 18:38
双击一个xls文件，选择一个区域，到cad中试试

我上面贴的获取当前激活的SHEET，就是双击XLS打开后做的{:soso_e145:}

st788796

Lispboy 发表于 2014-12-30 19:21
我上面贴的获取当前激活的SHEET，就是双击XLS打开后做的

Window7(32bit) + Excel 2013 Autocad 2008 / 2012 测试通不过

Lispboy

st788796 发表于 2014-12-30 19:23
Window7(32bit) + Excel 2013 Autocad 2008 / 2012 测试通不过

我是  WIN7 64位 + Excel 2013 +Autocad 2008 32位{:soso_e103:}

从COM机理来讲，get object应该就是获得当前正在激活的那个Excel 窗口对象的。否则应用程序间还怎么传递数据。

st788796

Lispboy 发表于 2014-12-30 19:34
我是  WIN7 64位 + Excel 2013 +Autocad 2008 32位

从COM机理来讲，get object应该就是 ...

点击运行的不是 COM 对象，用 create 创建的才是