统计圆的交集次数及填充

bbswen · 发表于 2014-8-14 12:41:27

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

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

×

如题使用什么方法可以统计出这些圆的交集，交集的次数，并填充。

q3_2006 · 发表于 2014-8-21 17:05:49

秀下我的.....{:soso_e100:}

eachy · 发表于 2014-8-20 22:57:56

bbswen 发表于 2014-8-19 13:25
已上图，图中是我用手画的，要死的感觉

(defun c:tt (/ e pts ss d lst s1 s2 lst1 cl nl lst2 hl)
(if (and (setq e (car (xdrx_entsel
"\nPick Curve: "
'((0 . "*Polyline,CIRCLE,ELLIPSE,SPLINE"))
)
)
)
(vlax-curve-isclosed e)
(setq pts (xdrx_getsamplept e))
(setq ss (ssget "WP" pts '((0 . "CIRCLE"))))
(setq d (getdist "\nRadius: "))
)
(progn
(setq lst (mapcar
'(lambda (x / p)
(setq p (xdrx_getpropertyvalue x "Center"))
(setq cl (cons (xdrx_circle_make p d) cl))
p
)
(xdrx_pickset->ents ss)
)
lst1 (cons (ssname (xdrx_entity_copy e) 0) cl)
s1 (xdrx_curve_intersectbreak (XD::Entity->Pickset lst1) 0)
s2 (xdrx_geom_searchregions s1 0)
lst2 (xdrx_pickset->ents s2)
lst2 (vl-sort lst2
'(lambda (x1 x2)
(> (car (xdrx_getarea x1))
(car (xdrx_getarea x2))
)
)
)
)
(xdrx_entity_delete (car lst2))
(setq
nl (mapcar
'(lambda (x / p)
(if (setq
p
(cadr (assoc "Centroid" (xdrx_curve_info x)))
)
(list
(length
(vl-remove nil
(mapcar '(lambda (a)
(if (< (distance p a) d)
t
nil
)
)
lst
)
)
)
x
)
)
)
(cdr lst2)
)
)
(mapcar
'(lambda (x / ent)
(setq ent (xdrx_hatch_make (cadr x)))
(setq hl (cons ent hl))
(if (zerop (car x))
(xdrx_entity_setcolor ent 15)
(xdrx_entity_setcolor ent (car x))
)
)
(vl-remove nil nl)
)
(apply 'xdrx_draworder->back hl)
)
)
(princ)
)

(defun c:tt (/ e pts ss d lst s1 s2 lst1 cl nl lst2 hl) 
  (if (and (setq e (car        (xdrx_entsel 
                          "\nPick Curve: " 
                          '((0 . "*Polyline,CIRCLE,ELLIPSE,SPLINE")) 
                        ) 
                   ) 
           ) 
           (vlax-curve-isclosed e) 
           (setq pts (xdrx_getsamplept e)) 
           (setq ss (ssget "WP" pts '((0 . "CIRCLE")))) 
           (setq d (getdist "\nRadius: ")) 
      ) 
    (progn 
      (setq lst         (mapcar 
                   '(lambda (x / p) 
                      (setq p (xdrx_getpropertyvalue x "Center")) 
                      (setq cl (cons (xdrx_circle_make p d) cl)) 
                      p 
                    ) 
                   (xdrx_pickset->ents ss) 
                 ) 
            lst1 (cons (ssname (xdrx_entity_copy e) 0) cl) 
            s1         (xdrx_curve_intersectbreak (XD::Entity->Pickset lst1) 0) 
            s2         (xdrx_geom_searchregions s1 0) 
            lst2 (xdrx_pickset->ents s2) 
            lst2 (vl-sort lst2 
                          '(lambda (x1 x2) 
                             (>        (car (xdrx_getarea x1)) 
                                (car (xdrx_getarea x2)) 
                             ) 
                           ) 
                 ) 
      ) 
      (xdrx_entity_delete (car lst2)) 
      (setq 
        nl (mapcar 
             '(lambda (x / p) 
                (if (setq 
                      p 
                       (cadr (assoc "Centroid" (xdrx_curve_info x))) 
                    ) 
                  (list 
                    (length 
                      (vl-remove nil 
                                 (mapcar '(lambda (a) 
                                            (if        (< (distance p a) d) 
                                              t 
                                              nil 
                                            ) 
                                          ) 
                                         lst 
                                 ) 
                      ) 
                    ) 
                    x 
                  ) 
                ) 
              ) 
             (cdr lst2) 
           ) 
      ) 
      (mapcar 
        '(lambda (x / ent) 
           (setq ent (xdrx_hatch_make (cadr x))) 
           (setq hl (cons ent hl)) 
           (if (zerop (car x)) 
             (xdrx_entity_setcolor ent 15) 
             (xdrx_entity_setcolor ent (car x)) 
           ) 
         ) 
        (vl-remove nil nl) 
      ) 
      (apply 'xdrx_draworder->back hl) 
    ) 
  ) 
  (princ) 
)

CSharpBoy · 发表于 2014-8-14 12:56:47

每日插件里面有个mapgis的拓扑造区的插件，应该是你要的。

http://bbs.xdcad.net/forum.php?m ... &extra=page%3D1

登录/注册后可看大图

csharp · 发表于 2014-8-14 12:57:17

每日插件
MAPGIS拓扑造区工具实现插件

bbswen · 发表于 2014-8-14 13:40:30

这个只是分开了不同的面域，并没对重重的部分进行区分

XDSoft · 发表于 2014-8-14 16:29:20

bbswen 发表于 2014-8-14 13:40
这个只是分开了不同的面域，并没对重重的部分进行区分

什么工作用你说的这个标记重复数的功能？

多加几行代码就应该能做你的，生成的面域判断都在原来哪个园的内部即可。

bbswen · 发表于 2014-8-17 12:49:14

计算覆盖率用，有的要求是覆盖率在100%以内，有的要求200%，300%，甚至400%，500%600%，想用不同的颜色表示出来，
重复的面域是属于哪个圆的，怎么确定？

bbswen · 发表于 2014-8-17 12:57:59

具体题目，塔内喷淋覆盖率
已知，
，塔内直径，及喷淋点位置（cad选择），和喷淋直径（输入），
结果，
不同覆盖率显示不同颜色，同一覆盖率同一颜色，
显示覆盖率
求方法，求思路，

csharp · 发表于 2014-8-17 13:20:40

求出交集后用交集再逐一求交并计数就可以

bbswen · 发表于 2014-8-17 16:34:21

csharp 发表于 2014-8-17 13:20
求出交集后用交集再逐一求交并计数就可以

不知道该怎么操作

bbswen · 发表于 2014-8-18 20:29:08

高手指点啊，

csharp · 发表于 2014-8-18 20:52:01

bbswen 发表于 2014-8-18 20:29
高手指点啊，

传测试图示意

bbswen · 发表于 2014-8-19 13:25:12

已上图，图中是我用手画的，要死的感觉

bbswen · 发表于 2014-8-21 07:56:55

先感谢“eachy”的帮助，

bbswen · 发表于 2014-8-21 08:14:54

用的是ACAD 2007 build 20140810
系统win7 64位

cad2012 64位，同样过不去。

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

[求助] 统计圆的交集次数及填充

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

相关帖子

点评

点评

点评

点评