单注封闭多边形面积（单位亩/平/公顷可选）

newer

[sell=3]

1. (defun c:XDTB_POLYArea ( / a d dynpt e e1 ge lastpnt x)
   
2.   (defun _callback(dynpt)
   
3.      (xdrx_entity_move e1 lastpnt dynpt)
   
4.      (setq lastpnt dynpt)
   
5.   )
   
6.   (if (setq e (car (xdrx_entsel "\n拾取封闭的曲线<退出>:" '((0 . "*POLYLINE,CIRCLE,SPLINE,ELLIPSE")))))
   
7.     (progn
   
8.       (xdrx_begin)
   
9.       (xdrx_initget "P G M")
   
10.       (initget "P G M")
    
11.       (if (not (setq ge (getkword "\n单位格式[平方米(P)/公顷(G)/亩(M)]<亩>:")))
    
12.         (setq ge "M")
    
13.       )
    
14.       (setq a (car (xdrx_getarea e)))
    
15.       (cond
    
16.          ((= ge "M")
    
17.             (setq a (/ a 666.666667) d "亩")
    
18.          )
    
19.          ((= ge "P")
    
20.            (setq d "平")
    
21.          )
    
22.          ((= ge "G")
    
23.             (setq a (/ a 10000.0) d "公顷")
    
24.          )
    
25.       )
    
26.       (setq e1 (xdrx_text_make '(0 0) (xdrx_prompt (rtos a 2 1) d t) 3.5 0.0))
    
27.       (setq lastpnt '(0 0 0))
    
28.       (xdrx_pointmonitor "_CALLBACK")
    
29.       (if (not (getpoint "\n标注位置<中心>:"))
    
30.          (progn
    
31.             (setq x (xd::geom:get9pt e 5))
    
32.             (xdrx_entity_move e1 (xd::geom:get9pt e1 5)  x)
    
33.          )
    
34.       )
    
35.       (xdrx_pointmonitor)
    
36.       (xdrx_end)
    
37.     )
    
38.   )
    
39.   (princ)
    
40. )
    
41. 
    

(defun c:XDTB_POLYArea ( / a d dynpt e e1 ge lastpnt x)<br />   (defun _callback(dynpt)<br />      (xdrx_entity_move e1 lastpnt dynpt)<br />      (setq lastpnt dynpt)<br />   )<br />   (if (setq e (car (xdrx_entsel "\n拾取封闭的曲线<退出>:" '((0 . "*POLYLINE,CIRCLE,SPLINE,ELLIPSE")))))<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_initget "P G M")<br />       (initget "P G M")<br />       (if (not (setq ge (getkword "\n单位格式[平方米(P)/公顷(G)/亩(M)]<亩>:")))<br />         (setq ge "M")<br />       )<br />       (setq a (car (xdrx_getarea e)))<br />       (cond<br />          ((= ge "M")<br />             (setq a (/ a 666.666667) d "亩")<br />          )<br />          ((= ge "P")<br />            (setq d "平")<br />          )<br />          ((= ge "G")<br />             (setq a (/ a 10000.0) d "公顷")<br />          )<br />       )<br />       (setq e1 (xdrx_text_make '(0 0) (xdrx_prompt (rtos a 2 1) d t) 3.5 0.0))<br />       (setq lastpnt '(0 0 0))<br />       (xdrx_pointmonitor "_CALLBACK")<br />       (if (not (getpoint "\n标注位置<中心>:"))<br />          (progn<br />             (setq x (xd::geom:get9pt e 5))<br />             (xdrx_entity_move e1 (xd::geom:get9pt e1 5)  x)<br />          )<br />       )<br />       (xdrx_pointmonitor)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

[/sell]

xinyeyu

看看，貌似很好用的样子

xinyeyu

能不能弄个批量选择

wd6688

貌似很好用的样子。