fatkids 发表于 2014-10-29 11:39:57

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

各位好！

      我需要镜像图纸中所有的图形，并删除原有图形！就像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 发表于 2014-10-30 10:09:28

谢谢啊！已经解决了，正使用delete搞定的
页: [1]
查看完整版本: 菜鸟求教：镜像图纸中所有的图形，并删除原有图形！