基于ＶＢ的曲轴SW参数化设计源代码

Bigpig · 发表于 2008-1-5 18:56:02

一个网友写的，随便转个过来
Sub quzhouSub(ByVal a As Double, ByVal b As Double, ByVal c As Double, ByVal d As Double, ByVal e As Double, ByVal f As Double, ByVal g As Double, ByVal h As Double, ByVal i As Double, ByVal j As Double, ByVal k As Double, ByVal l As Double, ByVal m As Double, ByVal n As Double, ByVal o As Double, ByVal p As Double)
Dim swApp As Object
Dim Part As Object
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.OpenDoc(App.Path + "曲轴.SLDPRT", swDocPART)
If Part Is Nothing Then
Exit Sub
Else
Set Part = swApp.ActivateDoc("曲轴.SLDPRT")
End If
a3 = b
b3 = c
c3 = k
d3 = j
e3 = i
f3 = g - 2 * j
g4 = d
g3 = c3
h3 = d3
i3 = a
j3 = p
k3 = c3
l3 = d3
m3 = e3
n3 = h - 2 * j
o3 = c3
p3 = d3
q3 = i3
R3 = j3
s3 = c3
t3 = d3
a2 = e3
b2 = n3
c2 = c3
d2 = d3
e2 = i3
f2 = j3
g2 = c3
h2 = d3
i2 = e3
j2 = f3
k2 = c3
l2 = d3
m2 = a3
n2 = b3
o2 = e
p2 = f
q2 = o
R2 = m
Part.Parameter("D1@草图1").SystemValue = a3 / 1000
Part.Parameter("D1@拉伸1").SystemValue = b3 / 1000
Part.Parameter("D1@草图2").SystemValue = c3 / 1000
Part.Parameter("D1@拉伸2").SystemValue = d3 / 1000
Part.Parameter("D1@草图3").SystemValue = e3 / 1000
Part.Parameter("D1@拉伸3").SystemValue = f3 / 1000
Part.Parameter("D2@草图4").SystemValue = g4 / 1000

Part.Parameter("D1@草图4").SystemValue = g3 / 1000
Part.Parameter("D1@拉伸4").SystemValue = h3 / 1000
Part.Parameter("D1@草图5").SystemValue = i3 / 1000
Part.Parameter("D1@拉伸5").SystemValue = j3 / 1000
Part.Parameter("D1@草图6").SystemValue = k3 / 1000
Part.Parameter("D1@拉伸6").SystemValue = l3 / 1000
Part.Parameter("D1@草图7").SystemValue = m3 / 1000
Part.Parameter("D1@拉伸7").SystemValue = n3 / 1000

Part.Parameter("D2@草图8").SystemValue = g4 / 1000
Part.Parameter("D1@草图8").SystemValue = o3 / 1000
Part.Parameter("D1@拉伸8").SystemValue = p3 / 1000
Part.Parameter("D1@草图9").SystemValue = q3 / 1000
Part.Parameter("D1@拉伸9").SystemValue = R3 / 1000
Part.Parameter("D1@草图10").SystemValue = s3 / 1000
Part.Parameter("D1@拉伸10").SystemValue = t3 / 1000
Part.Parameter("D1@草图11").SystemValue = a2 / 1000
Part.Parameter("D1@拉伸11").SystemValue = b2 / 1000
Part.Parameter("D2@草图12").SystemValue = g4 / 1000

Part.Parameter("D1@草图12").SystemValue = c2 / 1000
Part.Parameter("D1@拉伸12").SystemValue = d2 / 1000
Part.Parameter("D1@草图13").SystemValue = e2 / 1000
Part.Parameter("D1@拉伸13").SystemValue = f2 / 1000
Part.Parameter("D1@草图14").SystemValue = g2 / 1000
Part.Parameter("D1@拉伸14").SystemValue = h2 / 1000
Part.Parameter("D1@草图15").SystemValue = i2 / 1000
Part.Parameter("D1@拉伸15").SystemValue = j2 / 1000
Part.Parameter("D1@草图16").SystemValue = k2 / 1000
Part.Parameter("D1@拉伸16").SystemValue = l2 / 1000
Part.Parameter("D1@草图17").SystemValue = m2 / 1000
Part.Parameter("D1@拉伸17").SystemValue = n2 / 1000
Part.Parameter("D1@草图18").SystemValue = o2 / 1000
Part.Parameter("D1@拉伸18").SystemValue = p2 / 1000
Part.Parameter("D1@圆角1").SystemValue = q2 / 1000
Part.Parameter("D1@圆角2").SystemValue = R2 / 1000
Part.EditRebuild
Part.save
swApp.UserControl (True)
End Sub
三维资源在线－－http://www.3dsource.cn免费三维模型随便下，设计师自己的在线零件库