新手 发个测量长度 并 CTRL+V 源码

weiqi

测量长度 并 CTRL+V输出~~~~适和 CAD 加EXCEL 手算 工程量用法命令CD

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

(print "测量长度 运行命令cd,输出ctrl+v ")    ;;;功能：向系统剪贴板写入文字<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 />

新手学习 LISP 望高手指教。。。
以yjr111为榜样~~向Y神学习。

weiqi

自己改过的拜托。你哪看到的呢。改到直接 CTRL+V输出

清风明月名字

谢谢楼主的分享！很有用啊。

kx820506

很好的程序，谢谢了

debugchen

谢谢楼主的分享！

daily6

很好，谢谢分享

程咬金

又省了一道工序

664571221

好东西呵呵呵呵呵呵

ketxu

It not suite with Unocode Character

CAD小神

为什么没什么用啊？有大佬知道吗