由于一朋友需要Visio实现仿真模拟Demo,因此我在原来Visio项目代码基础上进行改进调整,完成了其需要的功能。现将对原有Visio二次开发项目的创新思路及成果总结一下,以飨读者,也做为一个标志,供日后参考,或者于各位同行,一起研究切磋。先贴图展示整个项目的该款,表明此文章所托并非空穴来风、纸上谈兵!

本人基于项目的Visio的二次开发文章写了很多,其中涉及到各形状方面的操作,但基本上都是做为一个图形的整体来实现各种效果的,由于仿真需要,需要将换向阀实现左右变换功能,而换向阀是一个组合控件,基本上对组合控件操作都是一个整体性的操作,不能局部进行位置变换的,所以要实现这种变化,还真是费了不少功夫。

需求是要求做线路分析的时候,油经过后,组合图形实现效果变换,如下图所示:

上面的图形变化为下图(实现了左右组合图形的互换变化的效果)

一般光靠操作整个图形实现变化是不太可能的,因此考虑化整为零,把其中两个组合图形从整体中分离,然后再进行组合操作即可。首先尝试通过宏记录方式查看代码,得到分解后的形状操作宏代码如下所示:

Sub
Macro1()


Dim
UndoScopeID1
As

Long

UndoScopeID1

=
Application.BeginUndoScope(
"
移动对象
"
)
ActiveWindow.DeselectAll
ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(

60
), visSubSelect
Application.ActiveWindow.Selection.Move

0.405512
,
-
0
#
ActiveWindow.Selection.RemoveFromGroup
Application.EndUndoScope UndoScopeID1,

True


ActiveWindow.DeselectAll
ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(

25
), visSubSelect
Application.ActiveWindow.Selection.Move

0.314961
,
-
0
#


Dim
UndoScopeID2
As

Long

UndoScopeID2

=
Application.BeginUndoScope(
"
移动对象
"
)
ActiveWindow.DeselectAll
ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(

60
), visSelect
Application.ActiveWindow.Selection.Move

-
0.688976
,
0
#
ActiveWindow.DeselectAll
ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(

22
), visSelect
ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(

60
), visSelect
ActiveWindow.Selection.AddToGroup
Application.EndUndoScope UndoScopeID2,

True



End Sub

至此,完成万里长征第一步,也证实分解后的图形,可以通过移动位置的方式实现,虽然定位形状我们不能靠ActiveWindow.Page.Shapes.ItemFromID(60)来定位,但是我们可以通过埋在形状中的设备类型参数来实现形状的定位的(这里我在设计模具的时候,把两个形状的的设备类型属性分别设置为“阀A"和”阀B“)。

进一步分析整体组合形状的ShapeSheet参数发现,里面有一个很重要的参数,如下图所示:

F1查看其帮助说明,如下所示

因此可以看到,可以通过该属性的设置,来实现组合形状的分离操作,在图纸上实际操作一下,把0修改为1或者2,果然可以实现子形状的选择操作了。

建立一个操作函数,来实现选择模式的修改,如下所示:


///

<summary>


///
设置形状的选择属性

///

</summary>


///

<param name="targetShape">
指定的形状
</param>


///

<param name="selectMode">


///
0 仅选择组合形状。

///
1 首先选择组合形状

///
2 首先选择组合的组成部分

///

</param>


[CLSCompliant(
false
)]

public

static

void
SetGroupSelectMode(Visio.Shape targetShape,
int
selectMode)
{
targetShape.get_CellsSRC((

short
)VisSectionIndices.visSectionObject, (
short
)VisRowIndices.visRowGroup,
(

short
)VisCellIndices.visGroupSelectMode).FormulaU
=
selectMode.ToString();
}

本人实现了图形变化效果,截取项目部分代码,作为分析研究之用,如下所示:



代码


else

if
(equipType
==

"
4/2阀
"
)
{
VisioUtility.SetGroupSelectMode(shape,

2
);
//
改变模式,使之可以选择子形状



#region
MyRegion


foreach
(Shape subShape
in
shape.Shapes)
{

string
subEquipType
=
VisioUtility.GetShapeCellValue(subShape,
"
设备类型
"
);

if
(subEquipType
==

"
阀A
"

||
subEquipType
==

"
阀B
"
)
{
subShape.Text

=
subEquipType;

if
(intValue
!=

0
)
{

continue
;
}

try

{
VisWindow.DeselectAll();
VisWindow.Select(subShape, (

short
)VisSelectArgs.visSubSelect);

if
(subEquipType
==

"
阀A
"
)
{
VisWindow.Selection.Move(

0.393701
,
0
,
"
inches
"
);
//
移动到右边


}

else

if
(subEquipType
==

"
阀B
"
)
{
VisWindow.Selection.Move(

-
0.393701
,
-
0
,
"
inches
"
);
//
移动到左边


}

System.Windows.Forms.Application.DoEvents();
Thread.Sleep(

50
);
}

catch
(Exception ex)
{
VisWindow.DeselectAll();
}
}
}
VisioUtility.SetGroupSelectMode(shape,

0
);
//
还原选择模式,成为组合形状



#endregion

}

世界本简单,只因道未知;无师可自通,码界无秘密。

标签: none

添加新评论