vba怎么实现一次性删除所有报错的方程式？

傲天凌懿 · 发表于 2022-9-23 17:04:55

solidworks vba或者宏，怎样实现一次性清理掉属于报错的方程式？
求大神支招呀

傲天凌懿 · 发表于 2023-8-9 10:15:21

Models = Swapp.ActiveDoc
MyEqu = Models.GetEquationMgr
Dim i, j, x As Integer
Dim nCount As Integer
Dim mystringx As String
x = 1While x > 0
nCount = MyEqu.GetCount
For i = 0 To nCount - 1
      mystringx = MyEqu.Equation(i)
      j = 0
      If MyEqu.Status = "-1" Then
            j += 1
            MyEqu.Delete(i)
      End If
Next i
Models.EditRebuild3()
If j = 0 Then
      x = 0
End If
End While
原理就是如果方程式报错，系统会给方程式的Status赋值为-1，所以只需要找到哪个方程式的Status值为-1，找到之后删除掉即可

hfhllhzhh · 发表于 2022-9-23 17:34:15

这个，有困难

傲天凌懿 · 发表于 2023-8-4 13:02:42

已经搞定了，使用了个循环语句

		自动登录	找回密码
密码			立即注册

vba怎么实现一次性删除所有报错的方程式？

最佳新人

宣传达人