有偿(已付款答谢)求改进LSP脚本

paulpipi

挺好用的，感谢分享

xj6019

不用客气  能用就好

小鸟

2. ;;;以下是线段统计长度的脚本
   
3. ;;;===============================
   
4. (princ "\n程序：duoduanxianqiuhe 命令：duoduanxian")
   
5. (defun C:duoduanxian (/ CURVE TLEN SS N
   
6.           ;SUMLEN
   
7.           )
   
8. (vl-load-com)
   
9. (setq SUMLEN 0)
   
10. (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))
    
11. (setq N 0)
    
12. (repeat (sslength SS)
    
13. (setq CURVE (vlax-ename->vla-object (ssname SS N)))
    
14. (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))
    
15. (setq SUMLEN (+ SUMLEN TLEN))
    
16. (setq N (1+ N)))
    
17. (setq sumlen(/ sumlen 1000))
    
18.   (SET-CLIP-STRING (rtos SUMLEN 2 2))
    
19. (princ (strcat "\n共选择 " (itoa (sslength SS)) " 条线段. 线段总长: " (rtos SUMLEN 2 2)" m"))
    
20. (princ) )
    
21. ;;;==================================
    
22. ;;;我想让这个脚本里统计的线段长度自动复制到剪贴板里用于复制到EXCEL
    
23. ;;;需要怎么修改这个脚本？
    
24. ;;;如果有用的话，我可以微信转账30块答谢
    
25. ;;;
    
26. ;;;=======================
    
27. ;;;说一下我得软件环境，天正T20V9平台，AutoCAD2013_64
    
28. 
    
29. ;;;=================================================================*
    
30. ;;;功能：向系统剪贴板写入文字                                       *
    
31. (defun SET-CLIP-STRING (STR / HTML RESULT)
    
32.     (and (= (type STR) 'STR)
    
33.    (setq HTML (vlax-create-object "htmlfile"))
    
34.    (setq RESULT (vlax-invoke
    
35.         (vlax-get (vlax-get HTML 'PARENTWINDOW)
    
36.             'CLIPBOARDDATA
    
37.         )
    
38.         'SETDATA
    
39.         "Text"
    
40.         STR
    
41.           )
    
42.    )
    
43.    (vlax-release-object HTML)
    
44.    (princ "复制到剪贴板")
    
45.     )
    
46. )
    
47. ;;;=================================================================*

;;;以下是线段统计长度的脚本<br /> ;;;===============================<br /> (princ "\n程序：duoduanxianqiuhe 命令：duoduanxian")<br /> (defun C:duoduanxian (/ CURVE TLEN SS N<br />           ;SUMLEN<br />           )<br /> (vl-load-com)<br /> (setq SUMLEN 0)<br /> (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))<br /> (setq N 0)<br /> (repeat (sslength SS)<br /> (setq CURVE (vlax-ename->vla-object (ssname SS N)))<br /> (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))<br /> (setq SUMLEN (+ SUMLEN TLEN))<br /> (setq N (1+ N)))<br /> (setq sumlen(/ sumlen 1000))<br />   (SET-CLIP-STRING (rtos SUMLEN 2 2))<br /> (princ (strcat "\n共选择 " (itoa (sslength SS)) " 条线段. 线段总长: " (rtos SUMLEN 2 2)" m"))<br /> (princ) )<br /> ;;;==================================<br /> ;;;我想让这个脚本里统计的线段长度自动复制到剪贴板里用于复制到EXCEL<br /> ;;;需要怎么修改这个脚本？<br /> ;;;如果有用的话，我可以微信转账30块答谢<br /> ;;;<br /> ;;;=======================<br /> ;;;说一下我得软件环境，天正T20V9平台，AutoCAD2013_64<br /> <br /> ;;;=================================================================*<br /> ;;;功能：向系统剪贴板写入文字                                       *<br /> (defun SET-CLIP-STRING (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 />    (princ "复制到剪贴板")<br />     )<br /> )<br /> ;;;=================================================================*