【统计】动态量测长度

marting

1. (defun c:xdtb_tjdis
   
2.        (/ p1 p2 p_1 p_2 v1 v2 box cen3 v3 v e1 txt len cen1 pt)
   
3.   (defun _callback (dynpt)
   
4.     (redraw)
   
5.     (xdrx-grdraw 1 1 p1 p2)
   
6.     (setq p_1  (xdrx-getpropertyvalue e1 "getclosestpointto" dynpt)
   
7.           p_2  p_1
   
8.           v1   (xdrx-getpropertyvalue e1 "firstderiv" p_2)
   
9.           v2   (xdrx-vector-perpvector v1)
   
10.           p_3  (mapcar
    
11.                  '+
    
12.                  p_2
    
13.                  (xdrx-vector-product v2 (/ #xd-var-global-txtheight 4.0))
    
14.                )
    
15.           box  (xdrx-text-box txt)
    
16.           cen3 (xd::geom:get9pt box 2)
    
17.           v3   (mapcar '- (nth 1 box) (nth 0 box))
    
18.     )
    
19.     (xdrx-entity-align
    
20.       txt
    
21.       cen3
    
22.       (mapcar '+ cen3 v3)
    
23.       p_3
    
24.       (mapcar '+ p_3 v1)
    
25.     )
    
26.     (setq cen1 p_3)
    
27.   )
    
28.   (xdrx-begin)
    
29.   (xdrx-sysvar-push '("osmode" 545))
    
30.   (if (not #xd-var-global-txtheight)
    
31.     (setq #xd-var-global-txtheight 4.0)
    
32.   )
    
33.   (if (setq
    
34.         v (getreal
    
35.             (xdrx-prompt "\n标注字高<" #xd-var-global-txtheight ">:" t)
    
36.           )
    
37.       )
    
38.     (setq #xd-var-global-txtheight v)
    
39.   )
    
40.   (if (and (setq p1 (getpoint "\n测量第一点<退出>:"))
    
41.            (setq p2 (getpoint p1 "\n测量第二点<退出>:"))
    
42.            (setq e1 (xdge::constructor "klineseg3d" p1 p2))
    
43.       )
    
44.     (progn (xd::text:init 1)
    
45.            (setq len (xdrx-getpropertyvalue e1 "length"))
    
46.            (setq txt  (xdrx-text-make
    
47.                         '(0 0 0)
    
48.                         (xdrx-prompt "距离:" len t)
    
49.                         #xd-var-global-txtheight
    
50.                       )
    
51.                  cen1 (xd::geom:get9pt txt 5)
    
52.            )
    
53.            (xdrx-pointmonitor "_callback")
    
54.            (if (not (setq pt (getpoint "\n标注插入点<退出>:")))
    
55.              (xdrx-entity-delete txt)
    
56.            )
    
57.            (xdrx-pointmonitor)
    
58.     )
    
59.   )
    
60.   (xdrx-sysvar-pop)
    
61.   (xdrx-end)
    
62.   (princ)
    
63. )
    
64. 
    

(defun c:xdtb_tjdis<br />        (/ p1 p2 p_1 p_2 v1 v2 box cen3 v3 v e1 txt len cen1 pt)<br />   (defun _callback (dynpt)<br />     (redraw)<br />     (xdrx-grdraw 1 1 p1 p2)<br />     (setq p_1  (xdrx-getpropertyvalue e1 "getclosestpointto" dynpt)<br />           p_2  p_1<br />           v1   (xdrx-getpropertyvalue e1 "firstderiv" p_2)<br />           v2   (xdrx-vector-perpvector v1)<br />           p_3  (mapcar<br />                  '+<br />                  p_2<br />                  (xdrx-vector-product v2 (/ #xd-var-global-txtheight 4.0))<br />                )<br />           box  (xdrx-text-box txt)<br />           cen3 (xd::geom:get9pt box 2)<br />           v3   (mapcar '- (nth 1 box) (nth 0 box))<br />     )<br />     (xdrx-entity-align<br />       txt<br />       cen3<br />       (mapcar '+ cen3 v3)<br />       p_3<br />       (mapcar '+ p_3 v1)<br />     )<br />     (setq cen1 p_3)<br />   )<br />   (xdrx-begin)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (if (not #xd-var-global-txtheight)<br />     (setq #xd-var-global-txtheight 4.0)<br />   )<br />   (if (setq<br />         v (getreal<br />             (xdrx-prompt "\n标注字高<" #xd-var-global-txtheight ">:" t)<br />           )<br />       )<br />     (setq #xd-var-global-txtheight v)<br />   )<br />   (if (and (setq p1 (getpoint "\n测量第一点<退出>:"))<br />            (setq p2 (getpoint p1 "\n测量第二点<退出>:"))<br />            (setq e1 (xdge::constructor "klineseg3d" p1 p2))<br />       )<br />     (progn (xd::text:init 1)<br />            (setq len (xdrx-getpropertyvalue e1 "length"))<br />            (setq txt  (xdrx-text-make<br />                         '(0 0 0)<br />                         (xdrx-prompt "距离:" len t)<br />                         #xd-var-global-txtheight<br />                       )<br />                  cen1 (xd::geom:get9pt txt 5)<br />            )<br />            (xdrx-pointmonitor "_callback")<br />            (if (not (setq pt (getpoint "\n标注插入点<退出>:")))<br />              (xdrx-entity-delete txt)<br />            )<br />            (xdrx-pointmonitor)<br />     )<br />   )<br />   (xdrx-sysvar-pop)<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

kmliro_2017

谢谢分享！！！！！

fyzld

谢谢分享！！！！！

LXH刚开始

点赞支持，辛苦了，每天更新插件。

liuwenxuan8351

感谢楼主分享  学习了

974778504

不错的，谢谢楼主分享。