- 积分
- 1
- 注册时间
- 2004-3-11
- 仿真币
-
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2004-5-11 15:31:47
|
显示全部楼层
来自 辽宁沈阳
回复: 【原创】手把手教你在SW下用VB作二次开发
四、工具彩菜单-宏操作-新建
编写如下代码
Dim swApp As Object
Sub main()
Set swApp = Application.SldWorks
Set modelDoc = swApp.ActiveDoc
Call ChangePara(modelDoc, 80, 60, 40, 30, 100)
End Sub
Sub ChangePara(ByVal Part As Object, ByVal Val1 As Double, ByVal Val2 As Double, ByVal Val3 As Double, ByVal Val4 As Double, ByVal Val5 As Double)
Part.Parameter("D1@草图1").SystemValue = Val1
Part.Parameter("D2@草图1").SystemValue = Val2
Part.Parameter("D3@草图1").SystemValue = Val3
Part.Parameter("D4@草图1").SystemValue = Val4
Part.Parameter("D1@拉伸1").SystemValue = Val5
Part.EditRebuild
End Sub |
|