各位好！
我需要镜像图纸中所有的图形，并删除原有图形！就像菜单中提供的功能一样。
我用的是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
还请各位指教！谢谢啊！
置顶卡
