点选标注封闭曲线面积

newer · 发表于 2017-3-14 12:26:25

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

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

x

本帖最后由 newer 于 2017-3-14 12:27 编辑

来源编程申请帖子： http://bbs.xdcad.net/thread-707408-1-1.html

(defun c:xdtb_curvePntArea ( / #area blk d dynpt ge ml p scl ss)
(defun _callback (dynpt)
(xdrx_setpropertyvalue ml "lastvertex" dynpt)
)
(defun _dimmake ()
(xd::text:init 1)
(xd::dim:init)
(if (not (setq blk (xdrx_object_get "block" "_dot")))
(setq blk (xdrx_document_makeablock "_dot"))
)
(setq ml (xdrx_mleader_make
p
p
(strcat "S="
(rtos #area
2
(getvar "dimdec")
)
d
)
(* 3.5
(xd::var:getratio)
)
)
)
(setq scl (xd::var:getratio))
(xdrx_setpropertyvalue
ml
"dogleglength"
(* 2 scl)
"scale"
(xd::var:getscaleratio)
"landinggap"
(* 2 scl)
"arrowsize"
(* 1.5 scl)
"ArrowSymbolId"
blk
)
(xdrx_pointmonitor "_callback")
(getpoint)
(xdrx_pointmonitor)
)
(xd::doc:checkversion '> "17.0" "")
(xdrx_begin)
(xdrx_initget "P G M")
(initget "P G M")
(if (not
(setq ge (getkword "\n单位格式[平方米(P)/公顷(G)/亩(M)]<亩>:"))
)
(setq ge "M")
)
(if
(and (setq p (getpoint "\n拾取封闭区域内一点<退出>:"))
(setq
ss (xdrx_geom_bpoly
p
'((0 . "*POLYLINE,LINE,ARC,ELLIPSE,ARC,CIRCLE"))
)
)
)
(progn
(if (xdrx_getpropertyvalue (entlast) "area")
(progn
(xdrx_entity_delete (entlast))
(cond
((= ge "M")
(setq #area (/ #area 666.666667)
d "亩"
)
)
((= ge "P")
(setq d "平")
)
((= ge "G")
(setq #area (/ #area 10000.0)
d "公顷"
)
)
)
(_dimmake)
)
)
)
)
(xdrx_end)
(princ)
)

(defun c:xdtb_curvePntArea ( / #area blk d dynpt ge ml p scl ss) 
  (defun _callback (dynpt) 
    (xdrx_setpropertyvalue ml "lastvertex" dynpt) 
  ) 
  (defun _dimmake () 
    (xd::text:init 1) 
    (xd::dim:init) 
    (if (not (setq blk (xdrx_object_get "block" "_dot"))) 
      (setq blk (xdrx_document_makeablock "_dot")) 
    ) 
    (setq ml (xdrx_mleader_make 
               p 
               p 
               (strcat "S=" 
                       (rtos #area 
                             2 
                             (getvar "dimdec") 
                       ) 
                       d 
               ) 
               (* 3.5 
                  (xd::var:getratio) 
               ) 
             ) 
    ) 
    (setq scl (xd::var:getratio)) 
    (xdrx_setpropertyvalue 
      ml 
      "dogleglength" 
      (* 2 scl) 
      "scale" 
      (xd::var:getscaleratio) 
      "landinggap" 
      (* 2 scl) 
      "arrowsize" 
      (* 1.5 scl) 
      "ArrowSymbolId" 
      blk 
    ) 
    (xdrx_pointmonitor "_callback") 
    (getpoint) 
    (xdrx_pointmonitor) 
  ) 
  (xd::doc:checkversion '> "17.0" "") 
  (xdrx_begin) 
  (xdrx_initget "P G M") 
  (initget "P G M") 
  (if (not 
        (setq ge (getkword "\n单位格式[平方米(P)/公顷(G)/亩(M)]<亩>:")) 
      ) 
    (setq ge "M") 
  ) 
  (if 
    (and (setq p (getpoint "\n拾取封闭区域内一点<退出>:")) 
         (setq 
           ss (xdrx_geom_bpoly 
                p 
                '((0 . "*POLYLINE,LINE,ARC,ELLIPSE,ARC,CIRCLE")) 
              ) 
         ) 
    ) 
     (progn 
       (if (xdrx_getpropertyvalue (entlast) "area") 
         (progn 
           (xdrx_entity_delete (entlast)) 
           (cond 
             ((= ge "M") 
              (setq #area (/ #area 666.666667) 
                    d     "亩" 
              ) 
             ) 
             ((= ge "P") 
              (setq d "平") 
             ) 
             ((= ge "G") 
              (setq #area (/ #area 10000.0) 
                    d     "公顷" 
              ) 
             ) 
           ) 
           (_dimmake) 
         ) 
       ) 
     ) 
  ) 
  (xdrx_end) 
  (princ) 
)

LV_XR · 发表于 2017-3-14 17:04:58

如果图形不闭合，有什么办法让其闭合呢

newer · 发表于 2017-3-14 17:44:16

LV_XR 发表于 2017-3-14 17:04

不闭合有很多情况，你可以单独发个帖子，把你遇到的情况截图贴出来讨论讨论。

508000096 · 发表于 2017-3-14 20:56:48

不错，用这个来计算、标注不规则闭合图形还是有非常方便的。

qqqincccken · 发表于 2017-3-23 00:37:44

谢谢老大提供试用一下

qqqincccken · 发表于 2017-3-23 00:43:53

谢谢老大提供试用一下

cqxt00 · 发表于 2017-4-17 21:39:31

错误: no function definition: XD::DOC:CHECKVERSION

marting · 发表于 2017-4-17 22:42:02

cqxt00 发表于 2017-4-17 21:39

你仔细看下插件介绍里面的晓东提示里面的内容

aaaaaa657 · 发表于 2017-4-20 16:27:23

正需要，支持楼主大人了！

比目大神 · 发表于 2017-4-21 17:17:33

正需要，支持楼主大人了！

kqqt6236 · 发表于 2017-4-23 00:23:08

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

qls2215 · 发表于 2017-6-2 15:27:23

好东西，用处大。

jin化天堂 · 发表于 2017-6-2 16:48:54

谢谢分享好东西

zhouzhiy · 发表于 2017-11-4 08:38:06

谢谢楼主分享！

yzhyxh · 发表于 2017-11-4 09:47:00

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

[统计] 点选标注封闭曲线面积

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