动态显示矩形的面积等信息

newer

1. (defun c:xdtb_dynrecarea (/ #mcolor cen data dynpt height lastpnt mArea nums
   
2.                             p-1 p2 p-2 pn1 pt1 pt2 pts str txt wid
   
3.                          )
   
4.   (defun _callback (dynpt)
   
5.     (if (not (and
   
6.                (equal pn1 dynpt 1e-3)
   
7.                (equal lastpnt dynpt 1e-3)
   
8.              )
   
9.         )
   
10.       (progn
    
11.         (setq lastpnt dynpt
    
12.               pt2 (xdrx-getpropertyvalue (list pn1 p-2) "getclosestpointto"
    
13.                                          dynpt t
    
14.                   )
    
15.         )
    
16.         (setq pt1 (xdrx-getpropertyvalue (list pn1 p-1) "getclosestpointto"
    
17.                                          dynpt t
    
18.                   )
    
19.               wid (distance pt2 dynpt)
    
20.               height (distance pt1 dynpt)
    
21.               pts (list pt2 dynpt pt1 pn1)
    
22.               cen (xdrx-line-midp dynpt pn1)
    
23.               mArea (* wid height)
    
24. 
    
25.               nums (length data)
    
26.               str (xdrx-string-formatex (xdrx-string-multilanguage "宽度= %.1f\r\n高度= %.1f\r\n面积=%.1f" "Width= %.1f\r\nHeight= %.1f\r\nArea=%.1f")
    
27.                                         wid height mArea
    
28.                   )
    
29.         )
    
30.         (xd::grdraw:drawtext txt str cen 5 (* (getvar "viewsize") 0.025) 2
    
31.                              (getvar "ucsxdir") nil 8
    
32.         )
    
33.       )
    
34.     )
    
35.     str
    
36.   )
    
37.   (xdrx-begin)
    
38.   (xdrx-sysvar-push '("osmode" 8))
    
39.   (if (setq pn1 (getpoint (xdrx-string-multilanguage "\n矩形起始点<退出>:" "\nRect Start Point<Exit>:")))
    
40.     (progn
    
41.       (setq #mcolor 1)
    
42.       (setq p-1 (mapcar
    
43.                   '+
    
44.                   pn1
    
45.                   '(1 0 0)
    
46.                 )
    
47.             p-2 (mapcar
    
48.                   '-
    
49.                   pn1
    
50.                   '(0 1 0)
    
51.                 )
    
52.             txt (xdrx-mtext-make)
    
53.       )
    
54.       (XD::Drag:CallBackSetMouseMove "_callback")
    
55.       (if (setq p2 (xd::doc:getcorner pn1
    
56.                                       (xdrx-string-multilanguage "\n对角点<退出>:" "\ndiagonal point<Exit>:")
    
57.                                       #mcolor '(1 0 0)
    
58.                    )
    
59.           )
    
60.         (progn
    
61.           (xdrx-polyline-make pts t)
    
62.           (xdrx-setpropertyvalue (entlast) "color" #mcolor)
    
63.           (xdrx-prompt (strcat "\n" str))
    
64.         )
    
65.       )
    
66.       (xdrx-pointmonitor)
    
67.     )
    
68.   )
    
69.   (xdrx-end)
    
70.   (princ)
    
71. )
    
72. 
    

(defun c:xdtb_dynrecarea (/ #mcolor cen data dynpt height lastpnt mArea nums<br />                             p-1 p2 p-2 pn1 pt1 pt2 pts str txt wid<br />                          )<br />   (defun _callback (dynpt)<br />     (if (not (and<br />                (equal pn1 dynpt 1e-3)<br />                (equal lastpnt dynpt 1e-3)<br />              )<br />         )<br />       (progn<br />         (setq lastpnt dynpt<br />               pt2 (xdrx-getpropertyvalue (list pn1 p-2) "getclosestpointto"<br />                                          dynpt t<br />                   )<br />         )<br />         (setq pt1 (xdrx-getpropertyvalue (list pn1 p-1) "getclosestpointto"<br />                                          dynpt t<br />                   )<br />               wid (distance pt2 dynpt)<br />               height (distance pt1 dynpt)<br />               pts (list pt2 dynpt pt1 pn1)<br />               cen (xdrx-line-midp dynpt pn1)<br />               mArea (* wid height)<br /> <br />               nums (length data)<br />               str (xdrx-string-formatex (xdrx-string-multilanguage "宽度= %.1f\r\n高度= %.1f\r\n面积=%.1f" "Width= %.1f\r\nHeight= %.1f\r\nArea=%.1f")<br />                                         wid height mArea<br />                   )<br />         )<br />         (xd::grdraw:drawtext txt str cen 5 (* (getvar "viewsize") 0.025) 2<br />                              (getvar "ucsxdir") nil 8<br />         )<br />       )<br />     )<br />     str<br />   )<br />   (xdrx-begin)<br />   (xdrx-sysvar-push '("osmode" 8))<br />   (if (setq pn1 (getpoint (xdrx-string-multilanguage "\n矩形起始点<退出>:" "\nRect Start Point<Exit>:")))<br />     (progn<br />       (setq #mcolor 1)<br />       (setq p-1 (mapcar<br />                   '+<br />                   pn1<br />                   '(1 0 0)<br />                 )<br />             p-2 (mapcar<br />                   '-<br />                   pn1<br />                   '(0 1 0)<br />                 )<br />             txt (xdrx-mtext-make)<br />       )<br />       (XD::Drag:CallBackSetMouseMove "_callback")<br />       (if (setq p2 (xd::doc:getcorner pn1<br />                                       (xdrx-string-multilanguage "\n对角点<退出>:" "\ndiagonal point<Exit>:")<br />                                       #mcolor '(1 0 0)<br />                    )<br />           )<br />         (progn<br />           (xdrx-polyline-make pts t)<br />           (xdrx-setpropertyvalue (entlast) "color" #mcolor)<br />           (xdrx-prompt (strcat "\n" str))<br />         )<br />       )<br />       (xdrx-pointmonitor)<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />