2015-11-27 85 views
0

有没有办法在这个方法?:选择“销”连接到另一个连接器的引脚

Application.ActiveWindow.Page.Shapes.ItemFromID(1).AutoConnect 

我想连接两个形状,然后我想连接第三个到创建的连接,但不是在开始时,我需要将它连接到第四个引脚。这是我有: enter image description here
这是我想拥有的一切: enter image description here

任何想法?

回答

0

要获得形状的中心,我们必须使用这条线。

Set object = AppVisio.ActiveWindow.Page.Shapes.ItemFromID(objectId) 
connectingXfrom = object .CellsU("PinX").Result("in") 
connectingYfrom = object .CellsU("PinY").Result("in") 

形状的中心对象是在点C [connectingXfrom,connectingYfrom]

接下来两行移动连接器到P点的第一个点[connectingXfrom,connectingYfrom]

Application.ActiveWindow.Page.Shapes.ItemFromID(connectorShapeId).CellsSRC(1, 4, 0).FormulaU = connectingXfrom 
Application.ActiveWindow.Page.Shapes.ItemFromID(connectorShapeId).CellsSRC(1, 4, 1).FormulaU = connectingYfrom 

如果我们要开始连接连接1但接近对象2,我们需要做的:

connectingXfrom = connectingXfrom - someDistanceValue 
  • someDistanceValue可以是例如1.5
  • 的ObjectID是对象2的形状的标识
  • connectorShapeId是连接2形状中的ID。