多段线（房间）标注面积和每段长度

Lispboy · 发表于 2018-8-23 17:57:53

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

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

x

来源于编程申请论坛的求助：http://bbs.xdcad.net/thread-717291-1-1.html

(defun c:xdtb_plsegbz (/ val e firstderiv ar ge perpvec cen segs mid vec)
(defun _write (val pt vec)
(xdrx_text_make
pt
(rtos val 2 #xd_var_global_bits)
#xd_var_global_txtheight
(xd::geom:angleformat (xdrx_vector_angle vec))
)
(xd::text:setalignment (entlast) pt "mc")
(xd::text:adjust (entlast))
)
(xdrx_begin)
(if (not #xd_var_global_txtheight)
(setq #xd_var_global_txtheight 3.0)
)
(if (setq val (getreal
(xdrx_prompt "\n文字高度<" #xd_var_global_txtheight ">:" t)
)
)
(setq #xd_var_global_txtheight val)
)
(if (not #xd_var_global_bits)
(setq #xd_var_global_bits 1)
)
(if (setq val (getint
(xdrx_prompt "\n保留位数<" #xd_var_global_bits ">:" t)
)
)
(setq #xd_var_global_bits val)
)
(if (and (xdrx_initget "A")
(setq e (xdrx_entsel
"\n选择多段线[点选(A)]<退出>:"
'((0 . "*POLYLINE"))
)
)
)
(progn (cond ((= e "A")
(if (and (setq pt (getpoint "\n点封闭区域内部点<退出>:"))
(xdrx_geom_bpoly pt)
)
(progn (setq e (entlast)
e-erase e
)
)
)
)
(t (setq e (car e)))
)
(if e
(progn (setq ar (xdrx_getpropertyvalue e "area"))
(setq ge (xdge::constructor e)
verts (xdrx_getpropertyvalue e "vertices")
cen (xdrx_points_centroid verts)
segs (xdge::getpropertyvalue ge "getcurvelist")
pts nil
)
(_write ar cen (getvar "ucsxdir"))
(mapcar '(lambda (x)
(xdge::getpropertyvalue x "length" "midpoint")
(setq mid (xdge::getpropertyvalue x "paramof" #midpoint)
vec (xdrx_vector_normalize (mapcar '- cen #midpoint))
firstderiv (xdrx_vector_normalize
(caadr (xdge::getpropertyvalue x "evalpoint" mid 1))
)
perpvec (xdrx_vector_perpvector firstderiv)
perpvec (if (xdrx_vector_iscodirectional vec perpvec t)
perpvec
(xdrx_vector_negate perpvec)
)
pt (mapcar '+
#midpoint
(xdrx_vector_product perpvec #xd_var_global_txtheight)
)
)
(_write #length pt firstderiv)
)
segs
)
(xdrx_entity_delete e-erase)
(xdrx_object_release ge segs)
)
)
)
)
(xdrx_end)
(princ)
)

(defun c:xdtb_plsegbz (/ val e firstderiv ar ge perpvec cen segs mid vec) 
  (defun _write (val pt vec) 
    (xdrx_text_make 
      pt 
      (rtos val 2 #xd_var_global_bits) 
      #xd_var_global_txtheight 
      (xd::geom:angleformat (xdrx_vector_angle vec)) 
    ) 
    (xd::text:setalignment (entlast) pt "mc") 
    (xd::text:adjust (entlast)) 
  ) 
  (xdrx_begin) 
  (if (not #xd_var_global_txtheight) 
    (setq #xd_var_global_txtheight 3.0) 
  ) 
  (if (setq val (getreal 
                  (xdrx_prompt "\n文字高度<" #xd_var_global_txtheight ">:" t) 
                ) 
      ) 
    (setq #xd_var_global_txtheight val) 
  ) 
  (if (not #xd_var_global_bits) 
    (setq #xd_var_global_bits 1) 
  ) 
  (if (setq val (getint 
                  (xdrx_prompt "\n保留位数<" #xd_var_global_bits ">:" t) 
                ) 
      ) 
    (setq #xd_var_global_bits val) 
  ) 
  (if (and (xdrx_initget "A") 
           (setq e (xdrx_entsel 
                     "\n选择多段线[点选(A)]<退出>:" 
                     '((0 . "*POLYLINE")) 
                   ) 
           ) 
      ) 
    (progn (cond ((= e "A") 
                  (if (and (setq pt (getpoint "\n点封闭区域内部点<退出>:")) 
                           (xdrx_geom_bpoly pt) 
                      ) 
                    (progn (setq e (entlast) 
                                 e-erase e 
                           ) 
                    ) 
                  ) 
                 ) 
                 (t (setq e (car e))) 
           ) 
           (if e 
             (progn (setq ar (xdrx_getpropertyvalue e "area")) 
                    (setq ge    (xdge::constructor e) 
                          verts (xdrx_getpropertyvalue e "vertices") 
                          cen   (xdrx_points_centroid verts) 
                          segs  (xdge::getpropertyvalue ge "getcurvelist") 
                          pts   nil 
                    ) 
                    (_write ar cen (getvar "ucsxdir")) 
                    (mapcar '(lambda (x) 
                               (xdge::getpropertyvalue x "length" "midpoint") 
                               (setq mid        (xdge::getpropertyvalue x "paramof" #midpoint) 
                                     vec        (xdrx_vector_normalize (mapcar '- cen #midpoint)) 
                                     firstderiv (xdrx_vector_normalize 
                                                  (caadr (xdge::getpropertyvalue x "evalpoint" mid 1)) 
                                                ) 
                                     perpvec    (xdrx_vector_perpvector firstderiv) 
                                     perpvec    (if (xdrx_vector_iscodirectional vec perpvec t) 
                                                  perpvec 
                                                  (xdrx_vector_negate perpvec) 
                                                ) 
                                     pt         (mapcar '+ 
                                                        #midpoint 
                                                        (xdrx_vector_product perpvec #xd_var_global_txtheight) 
                                                ) 
                               ) 
                               (_write #length pt firstderiv) 
                             ) 
                            segs 
                    ) 
                    (xdrx_entity_delete e-erase) 
                    (xdrx_object_release ge segs) 
             ) 
           ) 
    ) 
  ) 
  (xdrx_end) 
  (princ) 
)

liuyj · 发表于 2018-8-23 21:18:53

建筑图上有轴线和柱子，墙上还有窗，窗也可能是一个图块，门也不是这样简单的用一条线表示，能标注吗？

newer · 发表于 2018-8-23 22:14:05

liuyj 发表于 2018-8-23 21:18
建筑图上有轴线和柱子，墙上还有窗，窗也可能是一个图块，门也不是这样简单的用一条线表示，能标注吗？

两种方式
一个是自己画出来封闭区域了
另外一个是只要你能BPOLY，至于怎么能BPOLY，自己按照要求做。

雨莫 · 发表于 2018-8-24 09:12:42

咱们中间的面积要是直接汇算平米就好了

coverne · 发表于 2018-8-24 09:14:43

已经比较完善

lw5297590 · 发表于 2018-8-24 13:34:22

中间的面积能不能注释掉，我平时用很少标注面积

XDSoft · 发表于 2018-8-24 14:21:00

lw5297590 发表于 2018-8-24 13:34
中间的面积能不能注释掉，我平时用很少标注面积

把第58行的
(_write ar cen (getvar "ucsxdir"))
删除掉

XDSoft · 发表于 2018-8-24 14:26:15

雨莫发表于 2018-8-24 09:12
咱们中间的面积要是直接汇算平米就好了

第58行
(_write ar cen (getvar "ucsxdir"))
是标注面积的
变量 ar 是面积值
在这行前面，你把ar 换算下
加上
(setq ar (/ ar 1e6)) 就是变成平方米了，你想换亩就再除

lw5297590 · 发表于 2018-8-24 19:12:09

XDSoft 发表于 2018-8-24 14:21
把第58行的
(_write ar cen (getvar "ucsxdir"))
删除掉

非常感谢，又学到一点新东西

雨莫 · 发表于 2018-8-27 10:02:57

XDSoft 发表于 2018-8-24 14:26
第58行
(_write ar cen (getvar "ucsxdir"))
是标注面积的

好的谢谢指教

caomu · 发表于 2018-8-27 21:36:59

多谢！我试试！

hejiho · 发表于 2018-8-27 22:11:13

这个有点复杂，能发一个只标注封闭图形面积的插件吗，急求

newer · 发表于 2018-8-27 22:48:42

hejiho 发表于 2018-8-27 22:11
这个有点复杂，能发一个只标注封闭图形面积的插件吗，急求

用面积搜索每日插件论坛

lixiaolin · 发表于 2018-8-28 08:18:37

学习一下

雨莫 · 发表于 2018-11-7 10:12:18

突然发现咱们论坛真是无所不能啊。

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

[多段线] 多段线（房间）标注面积和每段长度

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

评分

点评

点评

点评

点评

点评