微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

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

如何解决有人知道如何从 python 运行 vba 宏吗?

我在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 举报,一经查实,本站将立刻删除。