社区 › VB › 删除模型空间实体的问题 求教高人

sanxin2006 发表于 2007-4-7 09:24:00

删除模型空间实体的问题 求教高人

各位高手：
       看看下面这段代码究竟是怎么了
    在CAD的VBA中不能正常的运行 模型空间的实体不能删除
   我很着急 麻烦你们帮帮忙
这段是在论坛看到的，很好很实用代码如下
For Each obj In ACADapp.ActiveDocument.ModelSpace    '遍历工作区中的实体
      Select Case obj.EntityName
            Case "AcDbMText", "AcDbText", "AcDbRadialDimension", "AcDb3PointAngularDimension", "AcDbRotatedDimension", "AcDbAlignedDimension", "AcDbOrdinateDimension", "AcDbFcf", "AcDbLeader"
                'Set ssobjs(i) = ACADapp.ActiveDocument.ModelSpace.Item(i)
          obj.delete
            Case Else
      End Select
    Next obj
小弟谢谢你们了！！！！！！

mccad 发表于 2007-4-7 10:26:00

如果在VBA中操作，把 ACADapp.ActiveDocument 换成 ThisDrawing

sanxin2006 发表于 2007-4-9 09:04:00

能帮我看看什么地方还有错吗
怎么还是不行~
Private Sub AcadDocument_Activate()
Dim obj As AcadObject
For Each obj In ThisDrawing.ModelSpace    '遍历工作区中的实体
      Select Case obj.EntityName
            Case "AcDbMText", "AcDbText", "AcDbRadialDimension", "AcDb3PointAngularDimension", "AcDbRotatedDimension", "AcDbAlignedDimension", "AcDbOrdinateDimension", "AcDbFcf", "AcDbLeader"
                'Set ssobjs(i) = ACADapp.ActiveDocument.ModelSpace.Item(i)
          obj.Delete
            Case Else
      End Select
    Next obj
End Sub

查看完整版本: 删除模型空间实体的问题 求教高人