求批量删除所有文件里的报错方程式

wetiuer

用VB.NET写的方法：删除方程式，希望你帮到你。

1. 
   
2. ''' <summary>
   
3.     ''' 删除方程式。
   
4.     ''' </summary>
   
5.     ''' <param name="swModel">模型对象</param>
   
6.     ''' <param name="OnlyDelError">True仅删除错误的方程式，False删除全部方程式。</param>
   
7.     ''' <remarks></remarks>
   
8.     Private Sub DeleteEquation(ByRef swModel As ModelDoc2, Optional ByVal OnlyDelError As Boolean = True)
   
9.         Dim value As Double
   
10.         Dim index As Integer
    
11.         Dim swEquationMgr = swModel.GetEquationMgr
    
12.         Dim nCount = swEquationMgr.GetCount
    
13.         For i = nCount - 1 To 0 Step -1
    
14.             If OnlyDelError Then
    
15.                 value = swEquationMgr.Value(i)
    
16.                 index = swEquationMgr.Status
    
17.                 If index = -1 Then swEquationMgr.Delete(i)
    
18.             Else
    
19.                 swEquationMgr.Delete(i)
    
20.             End If
    
21.         Next
    
22.     End Sub

复制代码