有关图层内元素复制的问题

Terry1021

我想把图层中的元素复制到新建的 "Temp" 层上

但我的代码实现的效果却是把图层中的元素剪切到"Temp"层.

大家能帮我看看问题在哪儿吗?

Dim layerObj As AcadLayer
   Set layerObj = ThisDrawing.Layers.Add("Temp")
  
   Dim pStr As String

   Dim sset As AcadSelectionSet
   Set sset = ThisDrawing.SelectionSets.Add("SS1")

   sset.SelectOnScreen

   Dim entry As AcadEntity

   For Each entry In sset
      entry.layer = "Temp"
      entry.Update
   Next

   sset.Delete

wyj7485

dim CopyObj as object

For Each entry In sset

set CopyObj =entry .copy
      CopyObj .layer = "Temp"
      CopyObj .Update
   Next

Terry1021

谢谢这位大哥

本人初学 VBA ,不胜感激