利用宏把这个勾取消有没有办法？

DFFDSGG114485 · 发表于 2023-11-15 13:19:37

利用宏把这个勾取消有没有办法？自动求解组序

tomahuang · 发表于 2023-11-17 09:17:53

楼主，你拍的图看不清啊，用抓图软件抓一个吧，如snagit

DFFDSGG114485 · 发表于 2023-11-21 09:51:26

或者利用宏打开这个界面也可以

wutong490 · 发表于 2024-2-19 20:42:04

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swEquationMgr As SldWorks.EquationMgr
Dim fileName As String
Dim errors As Long, warnings As Long
Sub main()
Set swApp = Application.SldWorks
fileName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2018\samples\tutorial\api\partEquations.sldprt"
Set swModel = swApp.OpenDoc6(fileName, swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", errors, warnings)
Set swEquationMgr = swModel.GetEquationMgr
'Make sure that this model includes equations
'by getting the number of equations
Debug.Print "Number of equations: " & swEquationMgr.GetCount
      If swEquationMgr.GetCount >= 1 Then
         'Get whether equations are automatically
         'solved in sequence
         Debug.Print "  Are equations automatically solved in sequence? " & swEquationMgr.AutomaticSolveOrder
         If swEquationMgr.AutomaticSolveOrder Then
            Exit Sub
         Else
            'Automatically solve equations in sequence
            swEquationMgr.AutomaticSolveOrder = True
            Debug.Print "  Are equations automatically solved in sequence? " & swEquationMgr.AutomaticSolveOrder
         End If
      Else
         Debug.Print "No equations included with this model."
      End If
End Sub

董东咚 · 发表于 2024-4-25 10:46:51

经典案例图书

SolidWorks机械工程师网，顶一下。

董东咚 · 发表于 2024-4-25 11:44:38

活到老学到老！

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

利用宏把这个勾取消有没有办法？

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献