量取距离到excel

54525596

量取距离到excel，并手工在命令行输入一个数据，到excel里，如何实现，可换行。
量出的每个距离都要入工输入到EXCEL里，很麻烦，也怕出错

chpmould

这类问题之前论坛讨论了很多，你找找

weiqi

http://bbs.mjtd.com/thread-99262-1-1.html运行命令CD，切换到EXCEL按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. 
    
58. 
    
59. 
    

;;;功能：向系统剪贴板写入文字<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 /> <br /> <br />

用户3766035971

谢谢分享         

debugchen

谢谢分享，很好的程序

feng83

不错的源码，辛苦了,新手向楼主学习一下~