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

newer · 发表于 2016-5-16 21:18:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[sell=3]

(defun c:XDTB_PolyAreas ( / a d e e1 ge nums ss sums x)
(xdrx_begin)
(xdrx_initget "P G M")
(initget "P G M")
(if (not (setq ge (getkword "\n单位格式[平方米(P)/公顷(G)/亩(M)]<亩>:")))
(setq ge "M")
)
(while (and
(xdrx_prompt "\n拾取封闭的曲线<退出>:")
(setq ss (ssget '((0 . "*POLYLINE,CIRCLE,SPLINE,ELLIPSE"))))
)
(xdrx_begin)
(xdrx_setsstodb ss 0)
(setq nums 0
sums 0
)
(while (setq e (xdrx_getentdata 0))
(if (xdrx_getpropertyvalue e "isclosed")
(progn
(setq a (car (xdrx_getarea e)))
(setq nums (1+ nums))
(cond
((= ge "M")
(setq a (/ a 666.666667)
d "亩"
)
)
((= ge "P")
(setq d "平")
)
((= ge "G")
(setq a (/ a 10000.0)
d "公顷"
)
)
)
(setq sums (+ sums a))
(setq e1 (xdrx_text_make '(0 0) (xdrx_prompt "S=" (rtos a 2 1) d t)
3.5 (xdrx_vector_angle (getvar "ucsxdir"))
)
)
(setq x (xd::geom:get9pt e 5))
(xdrx_entity_move e1 (xd::geom:get9pt e1 5) x)
)
)
)
(xdrx_prompt "\n本次标注封闭曲线" (sslength ss) "条，总面积："
(rtos sums 2 1) d
)
(xdrx_end)
)
(princ)
)

(defun c:XDTB_PolyAreas ( / a d e e1 ge nums ss sums x) 
  (xdrx_begin) 
  (xdrx_initget "P G M") 
  (initget "P G M") 
  (if (not (setq ge (getkword "\n单位格式[平方米(P)/公顷(G)/亩(M)]<亩>:"))) 
    (setq ge "M") 
  ) 
  (while (and 
           (xdrx_prompt "\n拾取封闭的曲线<退出>:") 
           (setq ss (ssget '((0 . "*POLYLINE,CIRCLE,SPLINE,ELLIPSE")))) 
         ) 
    (xdrx_begin) 
    (xdrx_setsstodb ss 0) 
    (setq nums 0 
          sums 0 
    ) 
    (while (setq e (xdrx_getentdata 0)) 
      (if (xdrx_getpropertyvalue e "isclosed") 
        (progn 
          (setq a (car (xdrx_getarea e))) 
          (setq nums (1+ nums)) 
          (cond 
            ((= ge "M") 
              (setq a (/ a 666.666667) 
                    d "亩" 
              ) 
            ) 
            ((= ge "P") 
              (setq d "平") 
            ) 
            ((= ge "G") 
              (setq a (/ a 10000.0) 
                    d "公顷" 
              ) 
            ) 
          ) 
          (setq sums (+ sums a)) 
          (setq e1 (xdrx_text_make '(0 0) (xdrx_prompt "S=" (rtos a 2 1) d t) 
                                   3.5 (xdrx_vector_angle (getvar "ucsxdir")) 
                   ) 
          ) 
          (setq x (xd::geom:get9pt e 5)) 
          (xdrx_entity_move e1 (xd::geom:get9pt e1 5) x) 
        ) 
      ) 
    ) 
    (xdrx_prompt "\n本次标注封闭曲线" (sslength ss) "条，总面积：" 
                 (rtos sums 2 1) d 
    ) 
    (xdrx_end) 
  ) 
  (princ) 
)

[/sell]

dujunhe2542 · 发表于 2016-11-12 18:58:15

批量的还是比较赞，但精度要能控制，比如精确到0.1或0.01或0.001，应有选择

display18 · 发表于 2016-5-17 10:07:50

批量的还是比较赞，要是能直接点取封闭区域就更好了，有时候很多封闭区域是用线划分的，不是独立多边形，每个区域改成多边形还是要费时间的。

米yang · 发表于 2016-5-18 15:43:55

感觉不错，就是文字显示太小了。看不清。

Poormanyshq · 发表于 2016-5-22 19:36:22

这个用什么命令呀

春天里的小可爱 · 发表于 2016-6-15 02:26:13

输出字体高度可以自定义就好了

CAD小学徒 · 发表于 2016-6-30 14:13:39

顶顶没有豆了

cx-004@163.com · 发表于 2016-7-1 11:09:32

看看这个，谢谢！

cad啊华 · 发表于 2016-11-2 10:27:15

我顶顶顶顶顶顶

cad啊华 · 发表于 2016-11-2 10:28:40

我顶顶顶顶顶顶顶顶顶

gg5120 · 发表于 2016-11-8 09:08:37

不知道重叠部分会不会被扣除

dujunhe2542 · 发表于 2016-11-12 18:59:48

批量的还是比较赞，但精度要能控制，比如精确到0.1或0.01或0.001，应有选择

wd6688 · 发表于 2016-11-17 09:08:08

感觉不错！

183904171 · 发表于 2016-12-6 14:51:35

啥也不说了，感谢楼主分享哇！

d00j · 发表于 2016-12-16 09:19:44

啥也不说了，感谢楼主分享哇！

账号		自动登录	找回密码
密码			立即注册

[曲线] 批量标注封闭多边形的面积（单位亩/平/公顷可选）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分