cad里的变量x的值导入到excel

lkm3131

有没有高手帮忙写个小程序
  要求提示我输入“n",然后把我已经设置好的变量x的值导出到名字为“test”的excel文件的A(n)格子里，例如，提示输入行号”n".输入“5”后，将我设置的变量x的值62导入到excel的A5格子里

renhaitao_nice

(defun c:tt()
  (vl-load-com)
  (setq n (getint "请输入一个数"))
  (setq x 62);楼主需要传递的值
  (setq excelapp (vlax-get-or-create-object "excel.application"))
  (setq acsheet (vlax-get-property excelapp 'activesheet))
  (setq m 65);列A
  (setq crange (strcat (chr m) (itoa n)))
  (setq range_obj (vlax-get-property acsheet 'range crange))
  (vlax-put-property range_obj 'value2 x)
   );end程序较简单，需要楼主先打开想要导入的excel文件备用。程序会自动寻找最近活动的一个excel文件

lkm3131

renhaitao_nice 发表于 2018-4-19 21:56
(defun c:tt()
  (vl-load-com)
  (setq n (getint "请输入一个数"))

高手出马，一个赛俩！ 谢了！直接最佳。我再请教个问题：有x1="支架1“，x2=”支架2”，x3=“顶部支架”，x4="底部支架“，我想判断只要名称里有”支架“的零件，材料我都会在excel里加上”不锈钢“，怎么判断名称里是否含有”支架“字符，不知道能不能实现，用什么函数?方便的话，请高手给指点一下