vb.net怎么在已打开的solidworks程序，新建一个零件，并在这个零件画一个正方体

你可以使用以下代码在已打开的SolidWorks程序中新建一个零件，并在这个零件中画一个正方体：

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

'获取SolidWorks应用程序对象
Set swApp = GetObject(, "SldWorks.Application")

'创建一个新的零件
Set Part = swApp.NewDocument("Part", 0, 0, 0)

'创建一个新的正方体特征
boolstatus = Part.Extension.SelectByID2("", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SketchManager.InsertSketch(True)
boolstatus = Part.SketchManager.CreateCornerRectangle(0, 0, 0, 0.1, 0.1, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.1, 0.1, False, False, False, False, 0, 0, False, False, False, False, False, True, True, True, 0, 0, False)

请注意，这是一个VB.NET代码示例，需要在Visual Studio中创建一个VB.NET项目并将其复制到您的代码中。