vbnet打开指定进程中的SolidWorks,并新建一个零件,请举例
时间: 2023-04-10 13:01:03 浏览: 51
可以使用以下代码实现:
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
'打开SolidWorks进程
swApp = GetObject(, "SldWorks.Application")
'新建零件
swModel = swApp.NewDocument("Part", "", swDwgTemplate)
'在新建的零件中添加一些特征
swModel.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
swModel.SketchManager.InsertSketch(True)
swModel.SketchManager.CreateCircle(0, 0, 0, 0.01, 0, 0)
swModel.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0, 0, False, False, False, False, False, True, True, True, 0, 0, False)
'保存零件
swModel.SaveAs("C:\Temp\NewPart.SLDPRT")
'关闭SolidWorks进程
swApp.Quit()