如何查询cad线段长度，将值返回到已经打开的excel光标所在的单元格中？

coben_hb

        我想实现一个小功能：
        1、有两个按钮，分别为米、毫米按钮；

        2、点击米单位按钮后转入cad界面，同时启动查询距离功能，查询两点之间的距离，返回结果自动粘贴到已经打开的excel，光标所在的单元格内，单位为米；
        3、点击毫米单位按钮后转入cad界面，同时启动查询距离功能，查询两点之间的距离，返回结果自动粘贴到已经打开的excel，光标所在的单元格内，单位为毫米；

        4、示例：比如点选毫米单位按钮后，点2次选择一段距离，返回1000；点选米单位按钮后，相同的距离，返回1；
        5、这两个按钮在excel、cad、或者第三方界面都行；

        CadAssis这个小工具可以实现，但只能返回毫米单位，我希望加入返回米为单位。
        有人会做么？或者把CadAssis这个小工具修改一下，加入米单位也行。

yxp

完整代码示例如下：

1. ;;Cad 中查询距离输出到 excel
   
2. (defun c:test( / I L O V E U)
   
3. (if (setq L (getdist "\n查询距离，请输入两点:"))
   
4. (setq I vlax-get-property O vlax-put-property
   
5.         V (I (vlax-get-or-create-object "Excel.Application") 'Workbooks)
   
6.         E (if(=(I V 'count) 0)(vlax-invoke V 'add)(I V 'item 1))
   
7.         U (I (I E 'Worksheets) 'item 1)
   
8.         L (O (I U 'Range "A1") 'value2 L))
   
9. )(princ)
   
10. )

;;Cad 中查询距离输出到 excel<br /> (defun c:test( / I L O V E U)<br /> (if (setq L (getdist "\n查询距离，请输入两点:"))<br /> (setq I vlax-get-property O vlax-put-property<br />         V (I (vlax-get-or-create-object "Excel.Application") 'Workbooks)<br />         E (if(=(I V 'count) 0)(vlax-invoke V 'add)(I V 'item 1))<br />         U (I (I E 'Worksheets) 'item 1)<br />         L (O (I U 'Range "A1") 'value2 L))<br /> )(princ)<br /> )

coben_hb

yxp 发表于 2018-5-23 21:50
完整代码示例如下：

请问，若想返回excel当前单元格，而不是a1单元格，该怎么写？