VB se utiliza para el desarrollo secundario de Solidworks. ¿Cómo editar las macros grabadas en Solidworks y luego colocarlas en VB?

Prueba este, lo he probado, funciona, si aún tienes problemas, por favor contáctame

Dim swApp As SldWorks.SldWorks

Dim swPart Como SldWorks.PartDoc

Dim boolstatus Como booleano

Advertencia de atenuación Mientras

Error de atenuación Mientras

Subcomando privado1_Click()< / p>

Establecer swApp = CreateObject("SldWorks.Application")

Establecer swPart = swApp.ActiveDoc

swApp.Visible = True

Establecer swPart = swApp.OpenDoc6("C:\Documentos y configuraciones\Todos los usuarios\Datos de programa\SolidWorks\SolidWorks 2010\templates\Parts.prtdot", swDocPART, swOpenDocOptions_Silent, "", error, advertencia)

boolstatus = swPart.Extension.SelectByID2("Plano frontal", "PLANO", 0, 0, 0, Falso, 0, Nada, 0)

swPart.SketchManager.InsertSketch True

swPart.ClearSelection2 True

Atenuar skSegment como objeto

Establecer skSegment = swPart.SketchManager.CreateCircle(0#, 0#, 0#, 0.034254, 0.010473, 0#)

swPart.ClearSelection2 True

swPart.SketchManager.InsertSketch True

swPart.ShowNamedView2 "*Isométrico superior e inferior", 8

swPart. ClearSelection2 True

boolstatus = swPart.Extension.SelectByID2("Sketch 1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)

Atenuar myFeature como Objeto

Establecer myFeature = swPart.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False , Verdadero, Verdadero, Verdadero, 0, 0, Falso)

swPart.SelectionManager.EnableContourSelection = False

End Sub