有人知道如何从 python 运行 vba 宏吗？

编程问答 2022-05-04

问题描述

我在vba中有以下宏可以在solidworks中制作零件。我有一个问题，如果从 python 中我可以执行宏而不必去 Solidworks 并从那里执行它

我试图查找信息，但没有显示我要查找的内容

如果有人可以帮助我，我将不胜感激

Dim swApp As SldWorks.SldWorks
Dim swDoc As SldWorks.ModelDoc2
Dim BoolStatus As Boolean
Dim swSketchManager As SldWorks.SketchManager
Dim longstatus As Long,longwarnings As Long
Dim Part As Object


Sub Main()

    Set swApp = Application.SldWorks
    
    
    Dim defaultTemplate As String
    
    defaultTemplate = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swDefaultTemplatePart)
    
    Set swDoc = swApp.NewDocument(defaultTemplate,0)
    
    BoolStatus = swDoc.Extension.SelectByID2("Front","PLANE",False,nothing,swSelectOption_e.swSelectOptionDefault)
    
        
        
    Set swSketchManager = swDoc.SketchManager
    
    Dim mySketchSegment As SldWorks.SketchSegment
    
    swSketchManager.InsertSketch True
    
    Set mySketchSegment = swSketchManager.CreateLine(0,1,0)
    
    Set mySketchSegment = swSketchManager.CreateLine(0,2,0)
    
    Set mySketchSegment = swSketchManager.CreateLine(2,4,0)
    
    Set mySketchSegment = swSketchManager.CreateLine(4,6,0)
    
    Set mySketchSegment = swSketchManager.CreateLine(6,0)
    
    swDoc.ClearSelection2 True
    
    Set Part = swApp.ActiveDoc

    ' Named View
    Part.ShowNamedView2 "*Trimétrica",8
    Part.ViewZoomtofit2
    BoolStatus = Part.Extension.SelectByID2("Line8","SKETCHSEGMENT",2.27939213179474,0.424565217882254,0.640103542052883,True,0)
    Part.ClearSelection2 True
    BoolStatus = Part.Extension.SelectByID2("Line8",16,0)
    Dim myFeature As Object
    Set myFeature = Part.FeatureManager.FeatureRevolve2(True,6.2831853071796,0.01,True)
    Part.SelectionManager.EnableContourSelection = False
    Part.SetPickMode
    Part.ClearSelection2 True
    
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

cadcadpythonvba