调用SolidWorksAPI的问题
Set swApp = Application.SldWorks 运行到这里提示 ActiveX部件不能创建对象
我用VB编写的一个插件上的按钮，这个按钮的功能就是在打开SolidWorks情况下 自动画一条直线 下面是按钮对应的代码，错误在哪里，求教！
Private Sub Command4_Click()
Dim swApp As Object
Dim part As Object
Dim sttemp As Double
xxw = 3 * rb * Cos(sttemp) / 2
sttemp = st10 + stf * pi / 360
yxw = 3 * rb * Sin(sttemp) / 2
xxw2 = rb * Cos(sttemp + pi)
yxw2 = rb * Sin(sttemp + pi)
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 SkLine As Object
Set SkLine = part.SketchManager.CreateLine(xxw, yxw, 0, xxw2, yxw2, 0)
part.SketchManager.InsertSketch True
part.ClearSelection2 True
End Sub
[解决办法]
Set swApp = CreateObject("Application.SldWorks")
