如何解决有人知道如何从 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 举报,一经查实,本站将立刻删除。