Replace shape with another shape

[wOxxOm]

TobWen, just comment out or delete following line: .VirtualShape.SetBoundingBox x, y, w, h, KeepAspect:=True

Originally Posted by wOxxOm

TobWen, just comment out or delete following line: .VirtualShape.SetBoundingBox x, y, w, h, KeepAspect:=True

That has been my first try, but the object gets evaporate only - not replaced :-(

[wOxxOm]

sorry, my bad :p
replace

      sh.GetBoundingBox x, y, w, h
      With AgentSmith.TreeNode.GetCopy
         .VirtualShape.SetBoundingBox x, y, w, h, KeepAspect:=True

with

      sh.GetPosition x,y
      With AgentSmith.TreeNode.GetCopy
         .VirtualShape.SetPosition x,y

Originally Posted by wOxxOm

sorry, my bad :p
replace

      sh.GetPosition x,y
      With AgentSmith.TreeNode.GetCopy
         .VirtualShape.SetPosition x,y

Wow nice, it works! Thanks a lot.
I'm using your code to exchange map symbols. Corel's symbol engine still can't handle transparency...

MMh ... perhaps a last question [for today ]:
Would it be possible to clone an object instead copying it? Then I could change the master object only and everything else would change immediately.

Best regards,
Tobias

[wOxxOm]

probably this will work, I haven't tested it:

replace

   Set VSR = New ShapeRange
   ActiveDocument.ReferencePoint = cdrCenter
   For Each sh In sr
      sh.GetBoundingBox x, y, w, h
      With AgentSmith.TreeNode.GetCopy
         .VirtualShape.SetBoundingBox x, y, w, h, KeepAspect:=True
         .LinkAsChildOf sh.Layer.TreeNode
         VSR.Add .VirtualShape
      End With
   Next
   
   ActiveDocument.LogCreateShapeRange VSR

with

   ActiveDocument.BeginCommandGroup "Scatter clones": Optimization = True: EventsEnabled = False: ActiveDocument.PreserveSelection = False
   For Each sh In sr
      sh.GetPosition x,y
      with AgentSmith.Clone
         .SetPosition x,y
         .MoveToLayer sh.Layer
      End With
   Next
   ActiveDocument.EndCommandGroup: Optimization = False: EventsEnabled = True: ActiveDocument.PreserveSelection = True
   CorelScript.RedrawScreen

Originally Posted by wOxxOm

probably this will work, I haven't tested it:

Yes, it works! Thanks again. Very, very good work!

Hi wOxxOm,

another idea concerning this code:

I want to replace a dot (a small circle) with a pushpin.

Is it possible to place the tip of a pushpin/needle on the old center of my dot, like Google Maps does for its markers?

The current script would center the pushpin on the dot only :-)

Best regards,
Tobias

I've run into a new problem:
When replacing a grouped object with those small circles, each member of the group get replaced and note the group itself :-(
That's how it looks like: http://imagebin.org/133071

Edit: I've fixed it myself. I've just changed

Set sr = ActiveSelection.Shapes.FindShapes()

into

Set sr = ActiveSelection.Shapes.All()

Best,
Tobias

[TobWen]

It stopped working in CorelDRAW v6

Can anyone help me to fix it?

[TobWen]

Gnahh ... my fault, works again