求大佬指点异形图群组思路

菜鸟9527

小弟我知道有shape.DisplayCurve.IntersectsWith方式相交异形图形。
用SelectShapesFromRectangle获取周围在内的图形，再一个个比，组合。
假设shape相交B，B相交C，但shape不在C的范围内

https://bbs.lyvba.com/assets/files/2024-10-22/1729602179-940001-1024.bin

然后我就懵逼了，不知道该怎么写了。

蘭雅

你这个方法是毛子异性群组的思路，效率不太行。你上传gms文件，最好先zip压缩打包

我目前 CPG 的算法是，
1.是先使用创建边界，建立范围，分开这个范围物件为多个，然后分组物件和多个范围物件比较

给你 C++ 源码参考， VBA 的也差不多

  // 建立辅助的异性边界物件，需要填充颜色，搞了半天才搞定
  IVGShapePtr bounds;
  if (cdr->VersionMajor < 17) {
    sr->CreateSelection();
    cdr->FrameWork->Automation->InvokeItem( _bstr_t("b0491566-5ffe-450a-b17e-f2f496b4eb22"));
    bounds = cdr->ActiveSelectionRange->Shapes->Item[1];
    bounds->OrderToFront();
  } else {
    bounds = sr->CreateBoundary(0, 0, true, false); // 建立异性边界物件  
  }

  bounds->Fill->UniformColor->RGBAssign(255, 0, 0);
  auto sbox = bounds->BreakApartEx(); // 把边界 拆分为多个边界 用来分组

  if (sbox->Count > 2) {
    //  VGCore::IVGShapeRange::Sort ( _bstr_t CompareExpression, long
    //  StartIndex, long EndIndex, const _variant_t & Data );
    sbox->Sort(bstr_t( "@shape1.width * @shape1.height > @shape2.width * @shape2.height"),  1, sbox->Count, _variant_t());
  }

菜鸟9527

谢谢大佬指点，膜拜大佬。小弟我写完BreakApartEx，排完序，最终还是写不下去了。虽然得到了拆分后的曲线，有了重叠后的边界，我按这边界试着去SelectShapesAtPoint或SelectShapesFromRectangle。还是选了不应该选的图形。

 void GroupExUnRegularShapes1()
 {
     '//是先使用 创建边界，建立范围，分开这个范围物件为多个， 然后分组物件 和多个范围物件 比较
     var shapeG=corelApp.ActiveSelectionRange.Group();
     
     var page = corelApp.ActiveSelectionRange.Shapes.First.Page;
     '//创建边界
     var boundary = shapeG.CreateBoundary(0, 0, true, false);
     shapeG.Ungroup();
     '//填充颜色，测试用
     '//boundary.Fill.UniformColor.RGBAssign(255, 0, 0);
     '//将曲线分开，并将对象作为形状范围返回
     var sbox = boundary.BreakApartEx();
     if (sbox.Count > 2)
     {
         sbox.Sort("@shape1.width * @shape1.height > @shape2.width * @shape2.height", 1, sbox.Count);
     }
     
    do 
    {
         if (sbox.Count > 0)
         {
             var shape = sbox[1];
             var x = shape.LeftX;
             var y = shape.BottomY;
             sbox.DeleteItem(1);
             
             corel.Shape selectShape2 = page.SelectShapesAtPoint(x, y, true);
             if (selectShape2.Shapes.Count > 1)
             {
                 selectShape2.Group();
             }
         }
         else
         {
             break;
         }
    } while (true);
 }

蘭雅

菜鸟9527

🐟️ 慢慢来不急，使用VBA写算法比较麻烦，你可以自己想下考虑不同的物件，不同的方法，先做几个小模块，最后组合起来优先使用哪个，最后使用哪个

这个图源码，`IVGCurve::IntersectsWith` 是优先度最低的，给你参考一下

实际还有另一个 API 去考虑判断是否相交，那个会快很多。使用哪个判断失败，再分支使用这个 `IVGCurve::IntersectsWith` 来判断，那样速度会快一点

菜鸟9527

蘭雅大佬，小弟我异形群组初版做出来了，但很可惜，还是用的AABB矩形检测重叠和包含。碰到凹状图形，像您上面的图一样，凹一个小图形，就跟边界里面的图形一样，被识别成包含了。我有想过向量法也许可以解决这个问题。请问大佬是否还有其它思路？

蘭雅

菜鸟9527

🐟️ 对，思路是对的，我也是这样做的。先用 aabb 把物件分组。然后按分组多次做异形群组。这样就能处理几千个物件也效率高了。既然你VBA的方框群组搞好了，可以分享出来给大家学习。

虽然按BOX是一组，但是异形群组会是几个群组，所以每个BOX组，先得到异形边界框，然后 1.判断物件中心是否边界物件中，真就是一组， 2.否定对象去判断轮廓相交。 3.前面1-2否的就是另一个异形组了。

💯 上图是使用蘭雅 CPG异形群组，处理上千物件分组的示例图，由图可以看到，先使用 BOX分组，得到一部分，红色是这部分的边界框。然后按上面提到 1-2-3 步骤逻辑给这部分再次分组成7个子分组。然后再返回区，按这个方法再把其他的根分组，同样分7个子分组。

菜鸟9527

大佬，我现在就是卡第一步了。受图形顺序影响，xy点肉眼可见在边界范围内，但IsOnShape接口会判断成0，在范围外。我自己写个xy与矩形框的内外判断，又会出现点在凹槽内，识别成包含关系。请看附

https://bbs.lyvba.com/assets/files/2024-10-29/1730168233-188493-a523cbda-f6d5-4986-be93-a9b3614782ba.zip

蘭雅

菜鸟9527
多摸索一下，看文档，真正了解这个 API
我这个API 去年VBA下用过的，今年写，折腾了好久才正式搞懂，还是要靠自己摸索
自己解决了才有克服千难险阻攀登高峰的快感