Desarrollo secundario de VB para Solidworks, ¿cómo editar macros grabadas en Solidworks y luego ponerlas en VB?
Pruebe esto, lo probé, funciona, si aún tiene problemas, comuníquese conmigo
Dim swApp As SldWorks.SldWorks
Dim swPart As SldWorks.PartDoc
Dim boolstatus Como booleano
Advertencia de atenuación Mientras
Error de atenuación Mientras
Subcomando privado1_Click()
Establecer swApp = CreateObject("SldWorks.Extension.SelectByID2("Datum de vista frontal", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
swPart.SketchManager.InsertSketchTrue
swPart.SketchManager.ClearSelection2True