统计圆的交集次数及填充

csharp · 发表于 2014-8-22 11:28:32

本帖最后由 csharp 于 2014-8-22 11:32 编辑

雪山飞狐(lzh) 发表于 2014-8-22 11:21
简单点都是圆的话。。。打断与点做成面域再判断面域的边数

面域边数是哪个属性？NumChanges？

q3_2006 · 发表于 2014-8-22 11:30:25

速度也不快...就用E大的吧...

XDSoft · 发表于 2014-8-22 12:31:16

csharp 发表于 2014-8-21 17:13
eachy 效果，感觉有点慢，用 Net 试着写一个
圆外侧的也没有过滤掉

代码发到.net论坛吧。

bbswen · 发表于 2014-8-22 13:00:04

雪山飞狐(lzh) 发表于 2014-8-22 11:21
简单点都是圆的话。。。打断与点做成面域再判断面域的边数

可以详细点吗？

面域的边数和覆盖次数是什么关系？

我在手算的时候，遇到过，这个情况不知道考虑到了没有

面域完全在另外一个圆内，

是不是算的时候就会被忽略。

麻烦详细解释下算法。

newer · 发表于 2014-8-22 13:56:54

bbswen 发表于 2014-8-22 13:00
可以详细点吗？

面域的边数和覆盖次数是什么关系？

直线边界面域的顶点都在一个圆内的话，那面域也在圆内了。

bbswen · 发表于 2014-8-22 14:04:51

TO
eachy

我正在看你写的程序
发现BUG，在个数比较少时，容易出现这样的问题。

csharp · 发表于 2014-8-22 14:26:11

XDSoft 发表于 2014-8-22 12:31
代码发到.net论坛吧。

lzh 版主提到的方法再学习学习, 整理好了贴上来

bbswen · 发表于 2014-8-22 14:48:52

把eachy的程序学习了一篇，
结果最主要那几句就是没有搞清楚。

bbswen · 发表于 2014-8-22 14:51:59

没有看懂，自然也没有办法找到那个问题出在哪里了。

(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"));实体属性获取 (p 圆心)
(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);将选择集中的曲线在所有交点处break
s2 (xdrx_geom_searchregions s1 0);求给定选择集内的实体的连通区域所有边界
lst2 (xdrx_pickset->ents s2);选择集中的实体表
lst2 (vl-sort lst2 ;根据给定的比较函数来对表中的元素排序
'(lambda (x1 x2)
(> (car (xdrx_getarea x1));求AutoCAD AcDbCurve(曲线)类的面积和周长(长度)
(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)));获得AcDbCurve曲线实体(polyline,lwpolyline,arc,circle,ellipse,spline) 和AcDbRegion(REGION面域)实体的面积，周长，质心，惯性矩，回转半径，边界盒等信息。
)
(list
(length
(vl-remove nil
(mapcar '(lambda (a)
(if (< (distance p a) d)
t
nil
)
)
lst;->a
)
)
)
x
)
)
)
(cdr lst2)
)
)
(mapcar
'(lambda (x / ent)
(setq ent (xdrx_hatch_make (cadr x)));创建HATCH填充实体
(setq hl (cons ent hl))
(if (zerop (car x));查验是否是0
(xdrx_entity_setcolor ent 15);设置一个实体的颜色
(xdrx_entity_setcolor ent (car x))
)
)
(vl-remove nil nl)
)
(apply 'xdrx_draworder->back hl);将参数实体和选择集的任意组合的实体顺序放到最后面
)
)
(princ)
)
(defun XD::Entity->PickSet (entl / n ss x)
(setq ss (ssadd))
(foreach n entl
(ssadd n ss)
)
ss
)

(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"));实体属性获取 (p 圆心) 
                      (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);将选择集中的曲线在所有交点处break 
 
            s2         (xdrx_geom_searchregions s1 0);求给定选择集内的实体的连通区域所有边界 
 
            lst2 (xdrx_pickset->ents s2);选择集中的实体表 
 
            lst2 (vl-sort lst2 ;根据给定的比较函数来对表中的元素排序 
 
                          '(lambda (x1 x2) 
                             (>        (car (xdrx_getarea x1));求AutoCAD AcDbCurve(曲线)类的面积和周长(长度) 
 
                                (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)));获得AcDbCurve曲线实体(polyline,lwpolyline,arc,circle,ellipse,spline) 和AcDbRegion(REGION面域)实体的面积，周长，质心，惯性矩，回转半径，边界盒等信息。 
 
 
                    ) 
                  (list 
                    (length 
                      (vl-remove nil 
                                 (mapcar '(lambda (a) 
                                            (if        (< (distance p a) d) 
                                              t 
                                              nil 
                                            ) 
                                          ) 
                                         lst;->a 
                                 ) 
                      ) 
                    ) 
                    x 
                  ) 
                ) 
              ) 
             (cdr lst2) 
           ) 
      ) 
      (mapcar 
        '(lambda (x / ent) 
           (setq ent (xdrx_hatch_make (cadr x)));创建HATCH填充实体 
 
           (setq hl (cons ent hl)) 
           (if (zerop (car x));查验是否是0 
             (xdrx_entity_setcolor ent 15);设置一个实体的颜色 
 
             (xdrx_entity_setcolor ent (car x)) 
           ) 
         ) 
        (vl-remove nil nl) 
      ) 
      (apply 'xdrx_draworder->back hl);将参数实体和选择集的任意组合的实体顺序放到最后面 
 
    ) 
  ) 
  (princ) 
) 
 
 
(defun XD::Entity->PickSet (entl / n ss x) 
  (setq ss (ssadd)) 
  (foreach n entl 
    (ssadd n ss) 
  ) 
  ss 
)

newer · 发表于 2014-8-22 14:56:12

bbswen 发表于 2014-8-22 14:48
把eachy的程序学习了一篇，
结果最主要那几句就是没有搞清楚。

哪几句没看懂可以单独贴上来。

雪山飞狐(lzh) · 发表于 2014-8-23 08:25:22

netap的面域有getcurves函数获取面域的ge曲线集合

csharp · 发表于 2014-8-23 09:23:08

雪山飞狐(lzh) 发表于 2014-8-23 08:25
netap的面域有getcurves函数获取面域的ge曲线集合

没有找到这个方法，源码贴Net论坛了

bbswen · 发表于 2014-8-23 12:00:36

.net 的程序在07里无显示，12版无法运行，也不知道是什么情况

lisp的程序在选择集与圆心距离判断后，不知道是什么意思，

也就是如何判断这个域在那个圆中，

颜色上也没有看太明白，是判断在一个圆内就加一个颜色，还是怎么处理的

bbswen · 发表于 2014-8-23 12:01:24

可不可以把算法写一下，

csharp · 发表于 2014-8-23 12:16:18

本帖最后由 csharp 于 2014-8-23 12:30 编辑

bbswen 发表于 2014-8-23 12:00
.net 的程序在07里无显示，12版无法运行，也不知道是什么情况

lisp的程序在选择集与圆心距离判断后，不 ...

记录每个圆心位置，生成的 Region 的质心和圆心的距离与覆盖半径比较，有几个小于半径的就是在几个圆内

最大 Region 面积大于等于第一次拾取圆面积，舍弃

生成的 Region 质心据第一次拾取圆的圆心距离大于该圆半径时在圆外，舍弃

if and 拾取圆
   获取圆模拟点
   构造 WP 选择(内部有圆)
   输入半径
遍历选集
   构造圆心列表
   生成圆列表(将拾取圆加入)
对圆列表进行交点断开
根据断开的线生成 Region 并构造集合
遍历 Region 集合
   if 面积大于拾取圆或质心到拾取圆心大于拾取圆半径
      删除Region
      progn
         由质心和圆心列表逐一比较找出小于半径的圆心数量和 Region 构造表
对 Rgion 和数量表遍历
   由 Region 生成 Hatch
   由数量设置 Hatch 颜色

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

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

点评

点评

点评

点评

点评

点评

浏览过的版块