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

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

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

发表回复

精选推荐

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

发表回复

精选推荐

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