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#) p>
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