VBscript to cpy elements from one diagram to anoth

[joelsatheesh]

I'm writing a VB script to copy elements from one diagram to another based on some criteria. Unfortunately, there is no "copy" that I could use. Instead, I found this "AddNew" and I'm trying to make it work as seen in some samples - unfortunately, I'm failing. Can someone help?

Code: [Select]

     var element as EA.Element;
      element = fromDiagram.DiagramObjects.GetAt(1);
      
      var newElement as EA.Element;
      newElement = toDiagram.DiagramObjects.AddNew("l=200;r=400;t=200;b=600;","table");
      newElement.ElementID = element.ElementID;
      newElement.Update();


[Geert Bellekens]

That code should give you a cast-exception because you are trying to fit an EA.DiagramObject into an EA.Element.
try this:

Code: [Select]

     var element as EA.DiagramObject;
      element = fromDiagram.DiagramObjects.GetAt(1);
      
      var newElement as EA.DiagramObject;
      newElement = toDiagram.DiagramObjects.AddNew("l=200;r=400;t=200;b=600;","table");
      newElement.ElementID = element.ElementID;
      newElement.Update();
Geert