cad里的变量x的值导入到excel
有没有高手帮忙写个小程序要求提示我输入“n",然后把我已经设置好的变量x的值导出到名字为“test”的excel文件的A(n)格子里，例如，提示输入行号”n".输入“5”后，将我设置的变量x的值62导入到excel的A5格子里
(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文件
renhaitao_nice 发表于 2018-4-19 21:56
(defun c:tt()
(vl-load-com)
(setq n (getint "请输入一个数"))
高手出马，一个赛俩！:handshake 谢了！直接最佳。我再请教个问题：有x1="支架1“，x2=”支架2”，x3=“顶部支架”，x4="底部支架“，我想判断只要名称里有”支架“的零件，材料我都会在excel里加上”不锈钢“，怎么判断名称里是否含有”支架“字符，不知道能不能实现，用什么函数?方便的话，请高手给指点一下
页:
[1]