CAD中批量标注封闭区域面积单位为“亩”

syq860202 · 发表于 2016-5-12 16:50:29

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

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

×

CAD中批量标注封闭区域面积，并且单位为“亩”

newer · 发表于 2016-5-12 16:55:05

贴图，另外好像插件论坛里有吧。

newer · 发表于 2016-5-12 17:26:19

本帖最后由 newer 于 2016-5-12 17:31 编辑

试下单选版本。

封闭图形点面积.gif

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

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

syq860202 · 发表于 2016-5-14 14:33:46

谢谢大侠了。还有个问题，就是能够批量标注面积呢

newer · 发表于 2016-5-14 15:56:58

syq860202 发表于 2016-5-14 14:33
谢谢大侠了。还有个问题，就是能够批量标注面积呢

试试，批量标封闭曲线面积，循环标注，回车退出，文字字高3.5，平行于UCS X轴，标注在包围盒中心位置，每次操作命令行打印出当次标注的曲线数和总面积

(defun c:tt ()
(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:tt () 
  (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) 
)

syq860202 · 发表于 2016-5-14 17:38:59

谢谢谢谢谢谢谢谢谢谢

wujie1635 · 发表于 2016-9-22 10:58:30

newer 发表于 2016-5-14 15:56

no function definition: XDRX_BEGIN 是什么原因？

newer · 发表于 2016-9-22 11:01:37

wujie1635 发表于 2016-9-22 10:58

看论坛置顶帖子，插件使用方法帮助。

atest201 · 发表于 2016-12-20 19:48:15

谢谢分享！面积单位为“亩”的插件比较少见！

robin8350 · 发表于 2018-6-15 23:49:47

666666666软件看起来不错，谢谢楼主

moto1986 · 发表于 2018-7-25 22:00:17

谢谢分享！

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

[编程申请] CAD中批量标注封闭区域面积单位为“亩”

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

点评