菜鸟求教：镜像图纸中所有的图形，并删除原有图形！

fatkids

各位好！

      我需要镜像图纸中所有的图形，并删除原有图形！就像AutoCAD菜单中提供的功能一样。

      我用的是mirror命令，可以不能够删除原来的图形。
      我的程序：
        Dim acadApp As AcadApplication
        On Error Resume Next
        acadApp = GetObject(, "AutoCAD.Application")
        Dim acadDoc As AcadDocument = acadApp.ActiveDocument

        Mir_pt1(0) = 0
        Mir_pt1(1) = 0

        Mir_pt2(0) = 0
        Mir_pt2(1) = 10

        Dim ddd As AcadObject
        For Each ddd In acadDoc.ModelSpace
            ddd.mirror(Mir_pt1, Mir_pt2)
        Next
还请各位指教！谢谢啊！

fatkids

谢谢啊！已经解决了，正使用delete搞定的