dist量取的数值距离能否直接ctrl+C粘到其他文档里吗？

qianyi0710

dist量取的数值距离能否直接ctrl+C里面，粘到其他文档里吗？如粘到Excel 里面

mokson

不会呀，帮顶。

kozmosovia

可以，直接先吧结果复制到剪切板

东升铮

1. ;获取剪贴板
   
2. (DEFUN GET-CLIP        ()                       
   
3.   (VLAX-INVOKE
   
4.     (VLAX-GET-PROPERTY
   
5.       (VLAX-GET        (VLAX-GET-OR-CREATE-OBJECT "HTMLFILE")
   
6.                 'PARENTWINDOW
   
7.       )
   
8.       'CLIPBOARDDATA
   
9.     )
   
10.     'GETDATA
    
11.     "TEXT"
    
12.   )
    
13. )
    
14. ;设置剪贴板
    
15. (DEFUN SET-CLIP        (STR)                       
    
16.   (VLAX-INVOKE
    
17.     (VLAX-GET-PROPERTY
    
18.       (VLAX-GET (VLAX-CREATE-OBJECT "HTMLFILE") 'PARENTWINDOW)
    
19.       'CLIPBOARDDATA
    
20.     )
    
21.     'SETDATA
    
22.     "TEXT"
    
23.     STR
    
24.   )
    
25. )
    
26. ;清空剪贴板
    
27. (DEFUN CLS-CLIP        ()                       
    
28.   (VLAX-INVOKE
    
29.     (VLAX-GET-PROPERTY
    
30.       (VLAX-GET (VLAX-CREATE-OBJECT "HTMLFILE") 'PARENTWINDOW)
    
31.       'CLIPBOARDDATA
    
32.     )
    
33.     'SETDATA
    
34.     "TEXT"
    
35.     "ABOUT:BLANK"
    
36.   )
    
37. )
    
38. ;V-1选择两点返回距离至系统粘贴板、
    
39. (DEFUN C:T1 (/ PT1 PT2)
    
40.   (SETQ PT1 (GETPOINT "****请选择第一个点:"))
    
41.   (SETQ PT2 (GETPOINT "****请选择第二个点:"))
    
42. (SET-CLIP (RTOS(DISTANCE PT1 PT2)))
    
43. )
    
44. ;V-2选择对象返回距离至系统粘贴板、
    
45. (DEFUN C:T2 (/ SS ASPT NTPI)
    
46.                  (setq SS  (SSNAME (SSGET) 0));选择对象返回对象图元
    
47.                  (setq ASPT (CDR (ASSOC 10 (ENTGET SS))));获取对象起点
    
48.            (setq NTPT (CDR (ASSOC 11 (ENTGET SS))));获取对象终点
    
49.         (SET-CLIP (RTOS(DISTANCE ASPT NTPT)));把数据交至系统粘贴板'
    
50.         (PRINT "系统粘贴板已有数据，CTRL+V即可粘贴")
    
51.         (PRINC)
    
52. )

;获取剪贴板<br /> (DEFUN GET-CLIP        ()                        <br />   (VLAX-INVOKE<br />     (VLAX-GET-PROPERTY<br />       (VLAX-GET        (VLAX-GET-OR-CREATE-OBJECT "HTMLFILE")<br />                 'PARENTWINDOW<br />       )<br />       'CLIPBOARDDATA<br />     )<br />     'GETDATA<br />     "TEXT"<br />   )<br /> )<br /> ;设置剪贴板<br /> (DEFUN SET-CLIP        (STR)                        <br />   (VLAX-INVOKE<br />     (VLAX-GET-PROPERTY<br />       (VLAX-GET (VLAX-CREATE-OBJECT "HTMLFILE") 'PARENTWINDOW)<br />       'CLIPBOARDDATA<br />     )<br />     'SETDATA<br />     "TEXT"<br />     STR<br />   )<br /> )<br /> ;清空剪贴板<br /> (DEFUN CLS-CLIP        ()                        <br />   (VLAX-INVOKE<br />     (VLAX-GET-PROPERTY<br />       (VLAX-GET (VLAX-CREATE-OBJECT "HTMLFILE") 'PARENTWINDOW)<br />       'CLIPBOARDDATA<br />     )<br />     'SETDATA<br />     "TEXT"<br />     "ABOUT:BLANK"<br />   )<br /> )<br /> ;V-1选择两点返回距离至系统粘贴板、<br /> (DEFUN C:T1 (/ PT1 PT2)<br />   (SETQ PT1 (GETPOINT "****请选择第一个点:"))<br />   (SETQ PT2 (GETPOINT "****请选择第二个点:"))<br /> (SET-CLIP (RTOS(DISTANCE PT1 PT2)))<br /> )<br /> ;V-2选择对象返回距离至系统粘贴板、<br /> (DEFUN C:T2 (/ SS ASPT NTPI)<br />                  (setq SS  (SSNAME (SSGET) 0));选择对象返回对象图元<br />                  (setq ASPT (CDR (ASSOC 10 (ENTGET SS))));获取对象起点<br />            (setq NTPT (CDR (ASSOC 11 (ENTGET SS))));获取对象终点<br />         (SET-CLIP (RTOS(DISTANCE ASPT NTPT)));把数据交至系统粘贴板'<br />         (PRINT "系统粘贴板已有数据，CTRL+V即可粘贴")<br />         (PRINC)<br /> )

东升铮

;;粘贴板控制函数来源:
;;@JH1005。
如何使用系统粘贴板

qianyi0710

东升铮 发表于 2019-8-11 23:24

谢谢