DI量出的距离，并手动输入一个数据，然后保存到EXCEL里，可换行，如何实现，可循环量

54525596

DI命令量出的距离，并手动输入一个数据，然后保存到EXCEL里，如何实现，可循环量取输入并保存到EXCEL里面，不知道这样表述明白吗？
例如：我用DI命令量出A到B的距离是19.63存到ECXEL里，并在命令行自己输入数据“19.63”,也存到ECXEL里，并要求是否换行，不换行就继续在同一行内，
输出EXCEL格式样式为：DI量取距离   命令行手工输入数据  DI量取距离   命令行手工输入数据

54525596

有没有高手，，呵呵。。

54525596

输出到TXT文件也行，空格分开或者逗号分开

54525596

没人回复

weiqi

我只会半自动，一个一个，其实也很简单，就是按 运行命令cd,输出ctrl+v

1. ;;;功能：向系统剪贴板写入文字
   
2. (print "测量长度 运行命令cd,输出ctrl+v ")
   
3.                                      *
   
4. (vl-load-com)
   
5. (defun ZML-CLIP-SETSTRING (STR / HTML RESULT)
   
6.   (and (= (type STR) 'STR)
   
7.        (setq HTML (vlax-create-object "htmlfile"))
   
8.        (setq RESULT (vlax-invoke
   
9.                       (vlax-get        (vlax-get HTML 'PARENTWINDOW)
   
10.                                 'CLIPBOARDDATA
    
11.                       )
    
12.                       'SETDATA
    
13.                       "Text"
    
14.                       STR
    
15.                     )
    
16.        )
    
17.        (vlax-release-object HTML)
    
18.   )
    
19. )
    
20. 
    
21. 
    
22. 
    
23. ;****************************************************CD测量长度
    
24. (defun c:cd()
    
25. (setq os (getvar "osmode"))
    
26. (setvar "osmode" 0)
    
27. (setq sum 0 i 0)
    
28. (setq ss (ssget))
    
29. (repeat (sslength ss)
    
30. (setq en (ssname ss i))
    
31. (command "lengthen" en "")
    
32. (setq l (getvar "perimeter"))
    
33. (setq sum (+ sum l)
    
34. i (+ i 1))
    
35. )
    
36. (setvar "osmode" os)
    
37. (print "结果等于")  
    
38. (print sum)
    
39. 
    
40. (setq a (/ sum 1000))
    
41. 
    
42. 
    
43. (setq b (rtos a 2 2))
    
44. (setq c b)
    
45. 
    
46. 
    
47. (print (strcat c "米"))
    
48. 
    
49. (setq txtcon b)
    
50. 
    
51. (ZML-CLIP-SETSTRING txtcon)
    
52. 
    
53. 
    
54. 
    
55. (princ)
    
56. )
    
57. 
    

;;;功能：向系统剪贴板写入文字<br /> (print "测量长度 运行命令cd,输出ctrl+v ") <br />                                      *<br /> (vl-load-com)<br /> (defun ZML-CLIP-SETSTRING (STR / HTML RESULT)<br />   (and (= (type STR) 'STR)<br />        (setq HTML (vlax-create-object "htmlfile"))<br />        (setq RESULT (vlax-invoke<br />                       (vlax-get        (vlax-get HTML 'PARENTWINDOW)<br />                                 'CLIPBOARDDATA<br />                       )<br />                       'SETDATA<br />                       "Text"<br />                       STR<br />                     )<br />        )<br />        (vlax-release-object HTML)<br />   )<br /> )<br /> <br /> <br /> <br /> ;****************************************************CD测量长度<br /> (defun c:cd() <br /> (setq os (getvar "osmode")) <br /> (setvar "osmode" 0) <br /> (setq sum 0 i 0) <br /> (setq ss (ssget)) <br /> (repeat (sslength ss) <br /> (setq en (ssname ss i)) <br /> (command "lengthen" en "") <br /> (setq l (getvar "perimeter")) <br /> (setq sum (+ sum l) <br /> i (+ i 1)) <br /> ) <br /> (setvar "osmode" os)<br /> (print "结果等于")  <br /> (print sum)<br /> <br /> (setq a (/ sum 1000))<br /> <br /> <br /> (setq b (rtos a 2 2))<br /> (setq c b)<br /> <br /> <br /> (print (strcat c "米"))<br /> <br /> (setq txtcon b)<br /> <br /> (ZML-CLIP-SETSTRING txtcon)<br /> <br /> <br /> <br /> (princ)<br /> )<br /> <br />

54525596

weiqi 发表于 2012-12-15 21:22
我只会半自动，一个一个，其实也很简单，就是按 运行命令cd,输出ctrl+v

不是我想要的，，不过还是谢谢。。。

の誓し言の

期待高手，我也需要这样的程序

fl202

我会，很好做。你到编程申请里做明经币悬赏，我来解答。