CorelDRAW VBA 虚拟物件替换 ReplaceWith VirtualShape

蘭雅

在编写脚本时，使用形状替换对象，并看到了名为 ReplaceWith (VirtualShape As Shape) 的东西，但不知道如何使用它。
下面代码演示了怎么使用这个 API 函数，用来处理成千上万物件批量替换，极大加速插件的运行时间。

Sub 测试替换()
  Set sr = ActiveSelectionRange
  vsh_SizeReplace sr(1), sr(2)
' vsh_Replace sr(1), sr(2)
End Sub

'// 使用虚拟形状替换: 目标 dst 替换成 源物件src
Private Function vsh_Replace(src, dst)
  Dim x As Double, y As Double
  Dim vsh As Shape
  
  ' 获取 目标dst 形状的中心位置
  dst.GetPositionEx cdrCenter, x, y
  
  ' 创建 源物件src 虚拟副本，并将其定位到目标dst的中心位置
  Set vsh = src.TreeNode.GetCopy().VirtualShape
  vsh.SetPositionEx cdrCenter, x, y
  
  ' 用虚拟形状替换第二个形状
  dst.ReplaceWith vsh
End Function

'// 使用虚拟形状替换: 目标 dst 替换成 源物件src ，并且尺寸相同
Private Function vsh_SizeReplace(src, dst)
  Dim x As Double, y As Double
  Dim vsh As Shape
  
  ' 创建 源物件src 虚拟副本，并将其定位到目标dst的中心位置
  Set vsh = src.TreeNode.GetCopy().VirtualShape
  
  ' 尺寸相同，中心点相同
  dst.GetSize x, y: vsh.SetSize x, y
  dst.GetPositionEx cdrCenter, x, y
  vsh.SetPositionEx cdrCenter, x, y
  
  ' 用虚拟形状替换第二个形状
  dst.ReplaceWith vsh
End Function