计算多段线可见部分的总长度

newer · 发表于 2017-12-14 22:56:46

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

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

×

本帖最后由 newer 于 2017-12-14 23:19 编辑

搜狗截图20171214231734.gif

如图，每个多段线都是闭合的多边形，计算显示出来的（没被盖住）的部分的总长度

附件是DWG

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:visible_plines.rar
下载次数:178 文件大小:36.6 KB
下载权限: 不限以上 [免费赚D豆]

marting · 发表于 2017-12-16 20:08:00

/db_自贡黄明儒_ 发表于 2017-12-15 11:27

用VL方法如下，获得指定空间（模型，块，图纸空间）的所有实体的DRAWORDER顺序

最上的实体在表前

;; space = nil , 查模型空间
;; retflag = t, 返回实体表，否则返回vla对象表
(defun XD::Draworder:GetFullList (space retflag / extdict sorttbl objs)
(if (not space)
(setq space (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
)
)
(setq extdict (vla-getextensiondictionary space))
(if (and (not (zerop (vla-get-count extdict)))
(setq sorttbl (vla-getobject extdict "acad_sortents"))
)
(progn (vla-getfulldraworder sorttbl 'objs :vlax-false)
(setq objs (reverse (vlax-safearray->list objs)))
(if (eq retflag t)
(mapcar '(lambda (x) (vlax-vla-object->ename x)) objs)
objs
)
)
)
)

jiaoquangb · 发表于 2017-12-15 07:56:10

老师出的都是精品呀，什么时候有空，老师也帮我一下，可以不？

/db_自贡黄明儒_ · 发表于 2017-12-15 11:27:37

1 计算交点
2 判断哪个在上，哪个在下（不容易呀

）
3 两交点之间的长度。如果起点刚好在中间，会不会出问题。

newer · 发表于 2017-12-15 11:34:19

/db_自贡黄明儒_ 发表于 2017-12-15 11:27

哪个上，哪个下，看这个函数 http://bbs.xdcad.net/thread-713820-1-1.html

yangjian001 · 发表于 2017-12-15 11:44:15

两交点之间的长度

wenyish · 发表于 2017-12-16 09:37:39

好好学习呀，知识点不少啊。

newer · 发表于 2017-12-16 19:11:18

本帖最后由 newer 于 2017-12-16 19:12 编辑

使用XDGE的几何库，写一个，抛砖引玉。

需要两个函数，见开源函数库论坛：
（XD::Curve:OverLaps）计算两曲线的重叠的部分

（XD::PICKSET:DrawOrderList）将选择集（实体表）里面的实体按显示顺序排序

可见段总长.gif

(defun c:tt ()
(defun _getoverlap (e lst / #lowerbound
#upperbound g1 g2 gint
g-lst i intval len n
overlap overlap-nums total-len
)
(setq total-len 0.0)
(foreach n lst
(setq info (xd::curve:overlaps e n)
len (apply '+ (mapcar 'car (car info)))
total-len (+ total-len len))
)
(- (xdrx_getpropertyvalue e "length") total-len)
)
(defun _main ()
(if (and
(xdrx_initssget "\n选取计算可见长度的多段线<退出>:")
(setq ss (xdrx_ssget
'((0 . "*POLYLINE")
(-4 . "&=")
(70 . 1)
)
)
)
)
(progn
(setq order (xd::pickset:draworderlist ss))
(setq i 0
len 0.0
)
(foreach n order
(setq overlap-len (_getoverlap n (xd::list:nth-- order i i))
len (+ len overlap-len)
)
)
(xdrx_prompt "\n可见段的总长是:" len)
)
)
)
;;;;;
(_main)
(princ)
)

(defun c:tt () 
  (defun _getoverlap (e                lst          /            #lowerbound 
                      #upperbound          g1            g2              gint 
                      g-lst        i          intval    len              n 
                      overlap        overlap-nums            total-len 
                     ) 
    (setq total-len 0.0) 
    (foreach n lst 
      (setq info (xd::curve:overlaps e n) 
            len (apply '+ (mapcar 'car (car info))) 
            total-len        (+ total-len len)) 
    ) 
    (- (xdrx_getpropertyvalue e "length") total-len) 
  ) 
  (defun _main () 
    (if        (and 
          (xdrx_initssget "\n选取计算可见长度的多段线<退出>:") 
          (setq        ss (xdrx_ssget 
                     '((0 . "*POLYLINE") 
                       (-4 . "&=") 
                       (70 . 1) 
                      ) 
                   ) 
          ) 
        ) 
      (progn 
        (setq order (xd::pickset:draworderlist ss)) 
        (setq i          0 
              len 0.0 
        ) 
        (foreach n order 
          (setq        overlap-len (_getoverlap n (xd::list:nth-- order i i)) 
                len            (+ len overlap-len) 
          ) 
        ) 
        (xdrx_prompt "\n可见段的总长是:" len) 
      ) 
    ) 
  ) 
;;;;; 
  (_main) 
  (princ) 
)

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

[有奖答题] 计算多段线可见部分的总长度

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

评分