(XD::Excel:ColNo2Int)Excel列编号转数字

st788796

1. (defun XD::Excel:ColNo2Int (str / i l)
   
2.   (if (vl-every        '(lambda (x)
   
3.                    (<= 65 x 90)
   
4.                  )
   
5.                 (setq l (vl-string->list (strcase str)))
   
6.       )
   
7.     (progn
   
8.       (setq l (mapcar '(lambda (x) (- x 64)) l)
   
9.             i (length l)
   
10.       )
    
11.       (apply '+
    
12.              (mapcar '(lambda (x)
    
13.                         (* x (expt 26 (setq i (1- i))))
    
14.                       )
    
15.                      l
    
16.              )
    
17.       )
    
18.     )
    
19.   )
    
20. )
    

(defun XD::Excel:ColNo2Int (str / i l)<br />   (if (vl-every        '(lambda (x)<br />                    (<= 65 x 90)<br />                  )<br />                 (setq l (vl-string->list (strcase str)))<br />       )<br />     (progn<br />       (setq l (mapcar '(lambda (x) (- x 64)) l)<br />             i (length l)<br />       )<br />       (apply '+<br />              (mapcar '(lambda (x)<br />                         (* x (expt 26 (setq i (1- i))))<br />                       )<br />                      l<br />              )<br />       )<br />     )<br />   )<br /> )<br />

newer

能举个例子吗，列字符串有什么写法要求没？

st788796

newer 发表于 2014-12-18 08:52
能举个例子吗，列字符串有什么写法要求没？

判断必须 a-z A-Z
_$ (XD::EXCEL:COLNO2INT "aa")
27
_$ (XD::EXCEL:COLNO2INT "XFD")
16384
_$ (XD::EXCEL:COLNO2INT "aXFD")
33960
_$ (XD::EXCEL:COLNO2INT "1aXFD")
nil
_$

Lispboy

字符串地址转行列号
(xdex_cell_addr2RC  <字符串地址>)
表
<字符串地址> 支持范围格式

命令: (xdex_cell_Addr2RC "b2")
(1 1)

命令: (xdex_cell_Addr2RC "c8")
(7 2)

命令: (xdex_cell_Addr2RC "a1")
(0 0)

命令: (xdex_cell_Addr2RC "a3:d4")
((2 0) (3 3))

st788796

Lispboy 发表于 2014-12-18 10:24
字符串地址转行列号
(xdex_cell_addr2RC  )
表

用ActiveX方式在lisp的表写入xls时主要把length行列转换为列编号，这样用range的value方法直接把列表写入，不用去遍历

st788796

Lispboy 发表于 2014-12-18 10:24
字符串地址转行列号
(xdex_cell_addr2RC  )
表

Excel 的RC引用是由 1 起始计数
AcDbTable 及 ODCL Grid 控件由 0 起始计数

Lispboy

st788796 发表于 2014-12-18 15:00
Excel 的RC引用是由 1 起始计数
AcDbTable 及 ODCL Grid 控件由 0 起始计数

所以，EXCEL地址转换CAD下，1应该变成0

命令: (xdex_cell_Addr2RC "a1")
(0 0)

st788796

Lispboy 发表于 2014-12-18 15:46
所以，EXCEL地址转换CAD下，1应该变成0

命令: (xdex_cell_Addr2RC "a1")

CAD表格转过去还要+1:)

Lispboy

st788796 发表于 2014-12-18 15:49
CAD表格转过去还要+1

是啊，总有一方要适应另一方。 不变成行列数的时候，从0开始， 变成地址的时候从1.
EXCEL转行列数，是为了给CAD用，CAD行列转地址是为了给EXCEL用。都从函数内部解决。不要转2次。

st788796

Lispboy 发表于 2014-12-18 15:55
是啊，总有一方要适应另一方。 不变成行列数的时候，从0开始， 变成地址的时候从1.
EXCEL转行列数，是为 ...

了解了规则才能自由应用