我怎么知道一个形状是否被合并了

Question

给定一个Shape对象，我如何判断该形状是否是形状的组合?

我可以使用BreakApartEx()并获得我可以计数的ShapeRange，但如果可能的话，我宁愿不打破形状的一部分。

我使用Corel绘制X7

Answer 1

如何创建一个重复的形状，然后使用BreakApartEX，和shaperange.count?然后删除它。所以，你仍然保持原来的形状。

Answer 2

或者您可以尝试CScript.GetCurveSubpathCount。你应该先添加曲线形状检查。

祝你好运

Answer 3

是的，但是我们知道，组合对象必须是曲线形状，所以应该有一个代码来检查所选对象是否为曲形

Answer 4

是的，但是我们知道，组合对象必须是曲线形状，因此，应该有一个代码来检查所选对象是否为曲线。

可能只是像这样的简单代码:

Dim s as shapeDim l as long

对于activeselectionrange中的每个s如果s.type= cdrcurvesshape则l = CorelScript。GetCurveSubpathCount您可以将子路径计数显示为msg或在文本框中显示。MsgBox "The shape has " &l," subpath(s)"， vbOKOnly， "MLindhe:)"如果下一个s