Question

VB如何调用SolidWorks的宏程序

我在SolidWorks中录制了一段画圆柱的宏程序' ******************************************************************************
' C:\Documents and Settings\Administrator\Local Settings\Temp\swx15232\Macro1.swb - macro recorded on 04/15/13 by Administrator
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.019126, 0.005847, 0#)
Part.ShowNamedView2 "*上下二等角轴测", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.015, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, True, True, True, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
End Sub
就生成了上面这些代码，将其命名为Macro1.swp，单击执行宏可以在SW中绘制出圆柱，现在我想在通过VB来运行Macro1.swp，我需要怎样编写VB程序以及设计VB窗体呢
我需要建立一个VB窗体，在上面建立一个按钮控件,在按钮控件下编程序吧

Answer 1

第一、你的准备好轴承的东西，比如那些数据是变量，那些数据是常量，那些数据有国家便准呀。做到心中有数。
第二、你可以利用宏来完成一些零部件的建模。看看他们的代码是啥，solidworks自己就带这VBA，可以看到代码。
第三、知道代码了，你可以领用VB来编辑一个界面来通过对话框输入变量值，得到你想要的零件。
第四、在利用宏来完成装配的过程。通过宏就可以看见代码。把优化的代码加进原来的宏里面，就可以了。
整个过程都不是很复杂，但是需要对VB和solidworks都比较了解的人才能够解决。
可以参考一本书：solidworks API 二次开发，是solidworks官方教程，生信实维翻译的。

Answer 2

看看这个教程就知道了http://wenku.baidu.com/view/24368addce2f0066f533223c.html。先多积累一点了再做二次开发吧