VB如何调用SolidWorks的宏程序

第一、你的准备好轴承的东西，比如那些数据是变量，那些数据是常量，那些数据有国家便准呀。做到心中有数。

第二、你可以利用宏来完成一些零部件的建模。看看他们的代码是啥，solidworks自己就带这VBA，可以看到代码。

第三、知道代码了，你可以领用VB来编辑一个界面来通过对话框输入变量值，得到你想要的零件。

第四、在利用宏来完成装配的过程。通过宏就可以看见代码。把优化的代码加进原来的宏里面，就可以了。

整个过程都不是很复杂，但是需要对VB和solidworks都比较了解的人才能够解决。

可以参考一本书：solidworks API 二次开发，是solidworks官方教程，生信实维翻译的。

方法一：在整个电脑里搜索名称叫“solidworks”的文件，可以找到solidworks的安装目录，如果电脑里有solidworks的原文件，也可以搜索到。有些原文件名称叫“SW……”。方法二：在桌面或开始菜单找到solidworks的快捷方式，在快捷方式上点右键，点属性，可以看到solidworks的安装目录。

如果我的回答对您有帮助，请及时采纳为最佳答案，谢谢！

试试这一个，我试过，可以的，如果还有问题的话，联系我

Dim swApp As SldWorks.SldWorks

Dim swPart As SldWorks.PartDoc

Dim boolstatus As Boolean

Dim warning As Long

Dim error As Long

Private Sub Command1_Click()

Set swApp = CreateObject("SldWorks.Application")

Set swPart = swApp.ActiveDoc

swApp.Visible = True

Set swPart = swApp.OpenDoc6("C:\Documents and Settings\All Users\Application Data\SolidWorks\SolidWorks 2010\templates\零件.prtdot", swDocPART, swOpenDocOptions_Silent, "", error, warning)

boolstatus = swPart.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)

swPart.SketchManager.InsertSketch True

swPart.ClearSelection2 True

Dim skSegment As Object

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

swPart.ClearSelection2 True

swPart.SketchManager.InsertSketch True

swPart.ShowNamedView2 "*上下二等角轴测", 8

swPart.ClearSelection2 True

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

Dim myFeature As Object

Set 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, True, True, True, 0, 0, False)

swPart.SelectionManager.EnableContourSelection = False

End Sub

---