DI量出的距离，并手动输入一个数据，然后保存到EXCEL里，可换行，如何实现，可循环量
DI命令量出的距离，并手动输入一个数据，然后保存到EXCEL里，如何实现，可循环量取输入并保存到EXCEL里面，不知道这样表述明白吗？
例如：我用DI命令量出A到B的距离是19.63存到ECXEL里，并在命令行自己输入数据“19.63”,也存到ECXEL里，并要求是否换行，不换行就继续在同一行内，
输出EXCEL格式样式为：DI量取距离 命令行手工输入数据DI量取距离 命令行手工输入数据
有没有高手，，呵呵。。 输出到TXT文件也行，空格分开或者逗号分开 没人回复 我只会半自动，一个一个，其实也很简单，就是按 运行命令cd,输出ctrl+v
;;;功能：向系统剪贴板写入文字
(print "测量长度 运行命令cd,输出ctrl+v ")
*
(vl-load-com)
(defun ZML-CLIP-SETSTRING (STR / HTML RESULT)
(and (= (type STR) 'STR)
(setq HTML (vlax-create-object "htmlfile"))
(setq RESULT (vlax-invoke
(vlax-get (vlax-get HTML 'PARENTWINDOW)
'CLIPBOARDDATA
)
'SETDATA
"Text"
STR
)
)
(vlax-release-object HTML)
)
)
;****************************************************CD测量长度
(defun c:cd()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq sum 0 i 0)
(setq ss (ssget))
(repeat (sslength ss)
(setq en (ssname ss i))
(command "lengthen" en "")
(setq l (getvar "perimeter"))
(setq sum (+ sum l)
i (+ i 1))
)
(setvar "osmode" os)
(print "结果等于")
(print sum)
(setq a (/ sum 1000))
(setq b (rtos a 2 2))
(setq c b)
(print (strcat c "米"))
(setq txtcon b)
(ZML-CLIP-SETSTRING txtcon)
(princ)
)
weiqi 发表于 2012-12-15 21:22 static/image/common/back.gif
我只会半自动，一个一个，其实也很简单，就是按 运行命令cd,输出ctrl+v
不是我想要的，，不过还是谢谢。。。 期待高手，我也需要这样的程序 我会，很好做。你到编程申请里做明经币悬赏，我来解答。
页:
[1]