[讨论]：vlisp-excel函数的修改

xiaping

近日想编一个CAD与EXCEL之间进行数据传递的程序。直接采用了网站上提供的源代码。的确省去了不少的麻烦。但是在使用中也发现了问题，比如(vlxls-range-getid RangeObject)函数，按照作者的示例可以用来返回在EXCEL中所选定单元格范围的ID，但是在实际应用中该函数出现错误无法正常使用。经反复跟踪调试发现实由于作者提供的代码有一定的问题，经改动以后得到了正确的结果。

更改以后的函数代码如下：调试的环境是winxp-sp2+autocad2006+office2007简体中文版。有兴趣的朋友可以试一下。

2. 
   
3.   [FONT=courier new]
   
4. (Defun vlxls-range-getID (range / col row dx dy);;;;返回指定单元格范围的ID
   
5.   (setq        dx  (vlxls-get-property range "Rows.Count")
   
6.         dy  (vlxls-get-property range "Columns.Count")
   
7.         row (vlxls-get-property range "Row")
   
8.         col (vlxls-get-property range "Column")
   
9. ;;;以下注释的代码为原作者所提供，调试中无法通过。MergeArea仅能用于单个单元格       
   
10. ;;;  (setq        dx  (vlxls-get-property range "MergeArea.Rows.Count")
    
11. ;;;        dy  (vlxls-get-property range "MergeArea.Columns.Count")
    
12. ;;;        row (vlxls-get-property range "MergeArea.Row")
    
13. ;;;        col (vlxls-get-property range "MergeArea.Column")       
    
14.   )
    
15.   (strcat (vlxls-rangeid (list col row))
    
16.           ":"
    
17.           (vlxls-rangeid (list (1- (+ col dy)) (1- (+ row dx))))
    
18.   )
    
19. )
    
20.   [/FONT]
    

<br />   [FONT=courier new]<br /> (Defun vlxls-range-getID (range / col row dx dy);;;;返回指定单元格范围的ID<br />   (setq        dx  (vlxls-get-property range "Rows.Count")<br />         dy  (vlxls-get-property range "Columns.Count")<br />         row (vlxls-get-property range "Row")<br />         col (vlxls-get-property range "Column")<br /> ;;;以下注释的代码为原作者所提供，调试中无法通过。MergeArea仅能用于单个单元格        <br /> ;;;  (setq        dx  (vlxls-get-property range "MergeArea.Rows.Count")<br /> ;;;        dy  (vlxls-get-property range "MergeArea.Columns.Count")<br /> ;;;        row (vlxls-get-property range "MergeArea.Row")<br /> ;;;        col (vlxls-get-property range "MergeArea.Column")        <br />   )<br />   (strcat (vlxls-rangeid (list col row))<br />           ":"<br />           (vlxls-rangeid (list (1- (+ col dy)) (1- (+ row dx))))<br />   )<br /> )<br />   [/FONT]<br />

mmmm

谢谢指出，编完后，很久没有用，也没有再测试过。修正后的函数如下， 可以同时处理单个或合并的单元格。

2. 
   
3. (Defun vlxls-range-getID (range / str col row dx dy)
   
4.   (if (equal (vlxls-get-property range "mergecells") :vlax-true)
   
5.     (setq str "MergeArea.")
   
6.     (setq str "")
   
7.   )
   
8.   (setq        dx  (vlxls-get-property range (strcat str "Rows.Count"))
   
9.         dy  (vlxls-get-property range (strcat str "Columns.Count"))
   
10.         row (vlxls-get-property range (strcat str "Row"))
    
11.         col (vlxls-get-property range (strcat str "Column"))
    
12.   )
    
13.   (strcat (vlxls-rangeid (list col row))
    
14.           ":"
    
15.           (vlxls-rangeid (list (1- (+ col dy)) (1- (+ row dx))))
    
16.   )
    
17. )
    

<br /> (Defun vlxls-range-getID (range / str col row dx dy)<br />   (if (equal (vlxls-get-property range "mergecells") :vlax-true)<br />     (setq str "MergeArea.")<br />     (setq str "")<br />   )<br />   (setq        dx  (vlxls-get-property range (strcat str "Rows.Count"))<br />         dy  (vlxls-get-property range (strcat str "Columns.Count"))<br />         row (vlxls-get-property range (strcat str "Row"))<br />         col (vlxls-get-property range (strcat str "Column"))<br />   )<br />   (strcat (vlxls-rangeid (list col row))<br />           ":"<br />           (vlxls-rangeid (list (1- (+ col dy)) (1- (+ row dx))))<br />   )<br /> )<br />

xiaping

感谢你的及时更改。同时希望看到你在这方面更多精彩的发布。

WHGF

交流、学习、探索。
两位是榜样！

jx2008

cad与excel互相传递写数据，读数据都已经不难，但是怎么用lisp来控制excel单元格的格式，倒是好像还没有人弄出花样来，比如合并单元格，设置对其方式，设置单元格背景颜色，字体等等，希望在店研究出来。

xyz518mm

最初由 mmmm 发布
[B]谢谢指出，编完后，很久没有用，也没有再测试过。修正后的函数如下， 可以同时处理单个或合并的单元格。
[code]
(Defun vlxls-range-getID (range / str col row dx dy)
  (if (equal (vlxls-get-property range ... [/B]

请问您的
vlxls-range-getID 函数,为何加上了
(if (equal (vlxls-get-property range range "mergecells") :vlax-true)
(setq str "MergeArea.")
(setq str "")
)
就会返回 ; 错误: 引数太多
但如果没有这段就正常了
另外如果单独设置
(setq top range)
(setq prop range)

则您的函数程序
为何在

(cond  ((= (type prop) 'sym)

        (setq Rtn (vlax-get-property top prop))

       )

       ((= (type prop) 'str)

        (if (null (vl-string-search "." prop))

          (setq Rtn (vlax-get-property top prop))

          (foreach item (vlstring->list prop ".")

            (if (null Rtn)

              (setq Rtn (vlax-get-property top item))

              (setq Rtn (vlax-get-property Rtn item))

            )

          )

        )

       )

  )

  (cond  ((= (type Rtn) 'variant)

        (setq Rtn (vlax-variant-value Rtn))

       )

       ((= (type Rtn) 'safearray)

        (setq Rtn (vlxls-variant->list Rtn))

       )

  )      


都没有反应
是否出错了呢???

mmmm

==> (vlxls-get-property range range "mergecells")
应该只有一个Range (vlxls-get-property range "mergecells")

jx2008

多谢2楼的及时修改！

aeo

为什么不在cad里直接 插入excel 物体?
效果也不错呀!

雨箭风刀

2006版本插入excel有限制，太大了会丢失部分信息。2006版本以上没有试