不规则容器刻度标示_巨集

a308yuiop

   经典图书

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean

Sub run()

Dim swApp As SldWorks.SldWorks
Dim swModelDoc As SldWorks.ModelDoc2
Dim comp As Component2
Dim compbody As Variant
Dim bodyInfo As Variant
Dim val As Double
Dim params As Variant
Dim swMass As SldWorks.MassProperty
Dim errors As Long
Dim warnings As Long
Dim s(1 To 11) As Double '刻度高
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swModelDoc = swApp.OpenDoc6("C:\Irregular vessels\asm1.SLDASM", swDocASSEMBLY, swOpenDocOptions_Silent, "", errors, warnings) '启动 asm1.SLDASM 档
'...........................
Dim myDimension_19 As Object
Dim myDimension_5_1 As Object
Dim myDimension_5_2 As Object
Dim myDimension_5_3 As Object
Dim myDimension_5_4 As Object
Dim myDimension_5_5 As Object
Dim myDimension_5_6 As Object
Dim myDimension_5_7 As Object
Dim myDimension_5_8 As Object
Dim myDimension_5_9 As Object
Dim myDimension_5_10 As Object

wzh3rw22

Set myDimension_19 = Part.Parameter("D19@填料-伸长1@Part2^asm1.Part") '体积高
Set myDimension_5_1 = Part.Parameter("D1@草图5@Part1.Part") '刻度高
Set myDimension_5_2 = Part.Parameter("D2@草图5@Part1.Part")
Set myDimension_5_3 = Part.Parameter("D3@草图5@Part1.Part")
Set myDimension_5_4 = Part.Parameter("D4@草图5@Part1.Part")
Set myDimension_5_5 = Part.Parameter("D5@草图5@Part1.Part")
Set myDimension_5_6 = Part.Parameter("D6@草图5@Part1.Part")
Set myDimension_5_7 = Part.Parameter("D7@草图5@Part1.Part")
Set myDimension_5_8 = Part.Parameter("D8@草图5@Part1.Part")
Set myDimension_5_9 = Part.Parameter("D9@草图5@Part1.Part")
Set myDimension_5_10 = Part.Parameter("D10@草图5@Part1.Part")
'............................

anxiaolong

   经典图书

With UserForm1
vt = .TextBox11.Value
sp = IIf(.OptionButton1.Value = True, 0.1, IIf(.OptionButton2.Value = True, 0.2, IIf(.OptionButton3.Value = True, 0.25, 0.5))) '刻度精度
volume_p = IIf(sp = 0.1, 1000, IIf(sp = 0.2, 2000, IIf(sp = 0.25, 2500, 5000)))
scale_1 = vt / 10 * 1000 '一刻度的容量
m = 0.8 '精度修正系数
k = 1
Debug.Print "刻度精度: " & sp
For i = 5 To 140 Step sp '以刻度精度之间隔循环取出体积
myDimension_19.SystemValue = i / 1000
boolstatus = Part.EditRebuild3()
Part.ClearSelection2 True
boolstatus = swModelDoc.Extension.SelectByID2("Part2^asm1-1@asm1", "COMPONENT", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)
Set comp = swModelDoc.SelectionManager.GetSelectedObject6(1, 0)
compbody = comp.GetBodies3(swAllBodies, bodyInfo)
Set swMass = swModelDoc.Extension.CreateMassProperty
boolstatus = swMass.AddBodies((compbody))
swMass.UseSystemUnits = False