4481 lines
256 KiB
Plaintext
4481 lines
256 KiB
Plaintext
dim swApp
|
|
dim storePath
|
|
dim docVisible
|
|
Private Const MAX_PATH = 260
|
|
'Directories only
|
|
Private Const BIF_RETURNONLYFSDIRS = &H1&
|
|
'Windows 2000 (Shell32.dll 5.0) extended dialog
|
|
Private Const BIF_NEWDIALOGSTYLE = &H40
|
|
' show edit box
|
|
Private Const BIF_EDITBOX = &H10&
|
|
' add all dir options
|
|
Private Const BIF_BrowseFolder = BIF_EDITBOX Or BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE
|
|
' set the virtual desktop as ini folder
|
|
Private Const IniFolder = &H0 'Virtual Desktop
|
|
Function getLastFeatureByType(model,typ)
|
|
Set feat = model.FirstFeature ' Get the 1st feature in part
|
|
Set res = Nothing
|
|
Count = 0
|
|
Do While Not feat Is Nothing ' While we have a valid feature
|
|
If feat.GetTypeName() = typ Then
|
|
Set res = feat
|
|
End If
|
|
Set feat = feat.GetNextFeature() ' Get the next feature
|
|
Loop ' Continue until no more
|
|
Set getLastFeatureByType = res
|
|
End Function
|
|
' this code with copy a matrix to a other
|
|
Function copyMat4x4(source)
|
|
Dim res(0 To 15) As Double
|
|
For i = 0 To 15
|
|
res(i) = source(i)
|
|
Next
|
|
copyMat4x4 = res
|
|
End Function
|
|
|
|
' This code creates a mat from a sw mat
|
|
Function createMatFromSWMat(source)
|
|
Dim res(0 To 15) As Double
|
|
res(0) = source(0)
|
|
res(1) = source(1)
|
|
res(2) = source(2)
|
|
res(3) = 0
|
|
res(4) = source(3)
|
|
res(5) = source(4)
|
|
res(6) = source(5)
|
|
res(7) = 0
|
|
res(8) = source(6)
|
|
res(9) = source(7)
|
|
res(10) = source(8)
|
|
res(11) = 0
|
|
res(12) = source(9)
|
|
res(13) = source(10)
|
|
res(14) = source(11)
|
|
res(15) = source(12)
|
|
createMatFromSWMat = res
|
|
End Function
|
|
Function createSWMatFromMat(source)
|
|
Dim res(0 To 15) As Double
|
|
res(0) = source(0)
|
|
res(1) = source(1)
|
|
res(2) = source(2)
|
|
res(3) = source(4)
|
|
res(4) = source(5)
|
|
res(5) = source(6)
|
|
res(6) = source(8)
|
|
res(7) = source(9)
|
|
res(8) = source(10)
|
|
res(9) = source(12)
|
|
res(10) = source(13)
|
|
res(11) = source(14)
|
|
res(12) = source(15)
|
|
res(13) = 0
|
|
res(14) = 0
|
|
res(15) = 0
|
|
createSWMatFromMat = res
|
|
End Function
|
|
Function createMat4x4FromValues(x1,x2,x3,y1,y2,y3,z1,z2,z3,t1,t2,t3)
|
|
Dim res(0 To 15) As Double
|
|
res(0) = x1
|
|
res(1) = x2
|
|
res(2) = x3
|
|
res(3) = 0
|
|
res(4) = y1
|
|
res(5) = y2
|
|
res(6) = y3
|
|
res(7) = 0
|
|
res(8) = z1
|
|
res(9) = z2
|
|
res(10) =z3
|
|
res(11) = 0
|
|
res(12) = t1
|
|
res(13) = t2
|
|
res(14) = t3
|
|
res(15) = 1
|
|
createMat4x4FromValues = res
|
|
End Function
|
|
' this code will mult a common mat with any other stuff
|
|
Function multMatMat(ld, xld, yld, rd, xrd, yrd)
|
|
mulRes = yld * xrd
|
|
'Dim od(0 To 0) As Variant
|
|
ReDim od(mulRes - 1) As Double
|
|
For i = 0 To mulRes - 1
|
|
od(i) = 0#
|
|
Next
|
|
y = 0
|
|
While y < yld
|
|
x = 0
|
|
While x < xrd
|
|
i = 0
|
|
While i < xld
|
|
od(x * yld + y) = od(x * yld + y) + ld(i * yld + y) * rd(x * yrd + i)
|
|
i = i + 1
|
|
Wend
|
|
x = x + 1
|
|
Wend
|
|
y = y + 1
|
|
Wend
|
|
multMatMat = od
|
|
|
|
End Function
|
|
' this code will mult a vector with a matrix
|
|
Function mulMat4x4Values3d(mat, x,y,z)
|
|
tmp = createVec4d(x, y, z, 1)
|
|
res = multMatMat(mat, 4, 4, tmp, 1, 3)
|
|
mulMat4x4Values3d = createVec3d(res(0), res(1), res(2))
|
|
End Function
|
|
Function mulMat4x4Vec3d(mat, vec)
|
|
tmp = createVec4d(vec(0), vec(1), vec(2), 1)
|
|
res = multMatMat(mat, 4, 4, tmp, 1, 3)
|
|
mulMat4x4Vec3d = createVec3d(res(0), res(1), res(2))
|
|
End Function
|
|
Function mulMat4x4Mat4x4(mat1, mat2)
|
|
mulMat4x4Mat4x4 = multMatMat(mat1, 4, 4, mat2, 4, 4)
|
|
End Function
|
|
' create a 4x4 matrix
|
|
Function createMat4x4()
|
|
Dim res(0 To 15) As Double
|
|
for i = 0 to 15
|
|
res(i) = 0
|
|
next
|
|
createMat4x4 = res
|
|
End Function
|
|
Function createMat4x4Ident()
|
|
Dim res(0 To 15) As Double
|
|
res(0) = 1
|
|
res(5) = 1
|
|
res(10) = 1
|
|
res(15) = 1
|
|
res(1) = 0
|
|
res(2) = 0
|
|
res(3) = 0
|
|
res(4) = 0
|
|
res(6) = 0
|
|
res(7) = 0
|
|
res(8) = 0
|
|
res(9) = 0
|
|
res(11) = 0
|
|
res(12) = 0
|
|
res(13) = 0
|
|
res(14) = 0
|
|
createMat4x4Ident = res
|
|
End Function
|
|
' this function create a new vector
|
|
Function createVec3d(x, y, z)
|
|
Dim res(0 To 2) As Double
|
|
res(0) = x
|
|
res(1) = y
|
|
res(2) = z
|
|
createVec3d = res
|
|
End Function
|
|
' this function create a new vector
|
|
Function createVec4d(x, y, z, w)
|
|
Dim res(0 To 3) As Double
|
|
res(0) = x
|
|
res(1) = y
|
|
res(2) = z
|
|
res(3) = w
|
|
createVec4d = res
|
|
End Function
|
|
|
|
Function getMatTVec(mat)
|
|
getMatTVec = createVec3d(mat(12), mat(13), mat(14))
|
|
End Function
|
|
|
|
Sub setMatTVec(mat, v)
|
|
mat(12) = v(0)
|
|
mat(13) = v(1)
|
|
mat(14) = v(2)
|
|
End Sub
|
|
Sub setMatXVec(mat, v)
|
|
mat(0) = v(0)
|
|
mat(1) = v(1)
|
|
mat(2) = v(2)
|
|
End Sub
|
|
Sub setMatYVec(mat, v)
|
|
mat(4) = v(0)
|
|
mat(5) = v(1)
|
|
mat(6) = v(2)
|
|
End Sub
|
|
Sub setMatZVec(mat, v)
|
|
mat(8) = v(0)
|
|
mat(9) = v(1)
|
|
mat(10) = v(2)
|
|
End Sub
|
|
Sub setMatScale(mat, s)
|
|
mat(15) = s
|
|
End Sub
|
|
Function getMatXVec(mat)
|
|
getMatXVec = createVec3d(mat(0), mat(1), mat(2))
|
|
End Function
|
|
Function getMatYVec(mat)
|
|
getMatYVec = createVec3d(mat(4), mat(5), mat(6))
|
|
End Function
|
|
Function getMatZVec(mat)
|
|
getMatZVec = createVec3d(mat(8), mat(9), mat(10))
|
|
End Function
|
|
|
|
Function negVec3d(v)
|
|
negVec3d = createVec3d(-v(0), -v(1), -v(2))
|
|
End Function
|
|
Function scaleVec3d(v,s)
|
|
scaleVec3d = createVec3d(v(0)*s,v(1)*s,v(2)*s)
|
|
End Function
|
|
' invert a 4x4 matrix
|
|
Function invMat4x4(source)
|
|
target = copyMat4x4(source)
|
|
setMatTVec target, createVec3d(0, 0, 0)
|
|
target(1) = source(4)
|
|
target(4) = source(1)
|
|
target(2) = source(8)
|
|
target(8) = source(2)
|
|
target(6) = source(9)
|
|
target(9) = source(6)
|
|
setMatScale target,1
|
|
t = getMatTVec(source)
|
|
v = mulMat4x4Vec3d(target, t)
|
|
setMatTVec target, negVec3d(v)
|
|
invMat4x4 = target
|
|
End Function
|
|
Function IsEqual(argVec3DA, argVec3DB)
|
|
For i = 0 To 2
|
|
If( argVec3DA(i) <> argVec3DB(i) ) Then
|
|
Exit For
|
|
End If
|
|
Next
|
|
If(i = 3) Then
|
|
IsEqual = 1
|
|
Else
|
|
IsEqual = 0
|
|
End If
|
|
End Function
|
|
Function getFaceFromModel(part, pos, normal)
|
|
Dim partBodies As Variant
|
|
partBodies = part.GetBodies(swSolidBody)
|
|
For k = LBound(partBodies) To UBound(partBodies)
|
|
found = 0
|
|
Dim body As Object
|
|
Set body = partBodies(k)
|
|
Set face = body.GetFirstFace()
|
|
Set getFaceFromModel = nothing
|
|
minDist = -1
|
|
Do While Not face Is Nothing ' While we have a valid feature
|
|
Set sur = face.GetSurface()
|
|
If sur.IsPlane() Then
|
|
planePara = sur.PlaneParams
|
|
faceNormal = face.normal
|
|
nTest = faceNormal(0) * normal(0) + faceNormal(1) * normal(1) + faceNormal(2) * normal(2)
|
|
If nTest > 1 - 0.000001 Then
|
|
' check projection
|
|
closeRes = face.GetClosestPointOn(pos(0), pos(1), pos(2))
|
|
dTest = (pos(0) - closeRes(0)) * (pos(0) - closeRes(0)) + (pos(1) - closeRes(1)) * (pos(1) - closeRes(1)) + (pos(2) - closeRes(2)) * (pos(2) - closeRes(2))
|
|
If ( dTest < minDist Or minDist = -1 ) Then
|
|
Set getFaceFromModel = face
|
|
minDist = dTest
|
|
found=1
|
|
End If
|
|
End If
|
|
else
|
|
If sur.IsCylinder() then
|
|
closeRes = face.GetClosestPointOn(pos(0), pos(1), pos(2))
|
|
dTest = (pos(0) - closeRes(0)) * (pos(0) - closeRes(0)) + (pos(1) - closeRes(1)) * (pos(1) - closeRes(1)) + (pos(2) - closeRes(2)) * (pos(2) - closeRes(2))
|
|
If ( dTest < minDist Or minDist = -1 ) Then
|
|
res=sur.EvaluateAtPoint(closeRes(0),closeRes(1),closeRes(2))
|
|
nTest=res(0)*normal(0)+res(1)*normal(1)+res(2)*normal(2)
|
|
if nTest>1-0.00000001 then
|
|
Set getFaceFromModel = face
|
|
found=1
|
|
End if
|
|
End if
|
|
End if
|
|
End if
|
|
Set face = face.GetNextFace ' Get the next Face
|
|
Loop
|
|
If (found = 1) Then
|
|
Exit For
|
|
End If
|
|
Next k
|
|
End Function
|
|
Function getEdgeFromModel(part, pos,byref edgeRet)
|
|
Dim partBodies As Variant
|
|
partBodies = part.GetBodies(swSolidBody)
|
|
For k = LBound(partBodies) To UBound(partBodies)
|
|
Dim body As Object
|
|
Set body = partBodies(k)
|
|
edges= body.GetEdges()
|
|
start= LBound(edges)
|
|
ende = UBound(edges)
|
|
For i = start To ende
|
|
Set edge = edges(i)
|
|
closeRes=edge.GetClosestPointOn(pos(0),pos(1),pos(2))
|
|
dTest = (pos(0) - closeRes(0)) * (pos(0) - closeRes(0)) + (pos(1) - closeRes(1)) * (pos(1) - closeRes(1)) + (pos(2) - closeRes(2)) * (pos(2) - closeRes(2))
|
|
If dTest < 0.00000001 Then
|
|
set edgeRet=edge
|
|
getEdgeFromModel=true
|
|
exit function
|
|
End If
|
|
Next i
|
|
Next k
|
|
getEdgeFromModel=false
|
|
End Function
|
|
sub cLn(part,wMat,x1,y1,x2,y2)
|
|
pk1=mulMat4x4Values3d(wMat,x1,y1,0)
|
|
pk2=mulMat4x4Values3d(wMat,x2,y2,0)
|
|
Part.SketchManager.CreateLine pk1(0),pk1(1),0,pk2(0),pk2(1),0
|
|
end sub
|
|
sub cCLn(part,wMat,x1,y1,x2,y2)
|
|
pk1=mulMat4x4Values3d(wMat,x1,y1,0)
|
|
pk2=mulMat4x4Values3d(wMat,x2,y2,0)
|
|
Part.CreateCenterLineVB pk1(0),pk1(1),0,pk2(0),pk2(1),0
|
|
end sub
|
|
sub cArc(part,wMat,x1,y1,x2,y2,x3,y3)
|
|
pk1=mulMat4x4Values3d(wMat,x1,y1,0)
|
|
pk2=mulMat4x4Values3d(wMat,x2,y2,0)
|
|
pk3=mulMat4x4Values3d(wMat,x3,y3,0)
|
|
Part.SketchManager.Create3PointArc pk1(0),pk1(1),0,pk3(0),pk3(1),0,pk2(0),pk2(1),0
|
|
end sub
|
|
sub cCir(part,wMat,x1,y1,rad)
|
|
pk1=mulMat4x4Values3d(wMat,x1,y1,0)
|
|
Part.SketchManager.CreateCircleByRadius pk1(0),pk1(1),0,rad
|
|
end sub
|
|
Public Function BrowseForFolder
|
|
Dim objFolder, objShell
|
|
Set objShell = CreateObject("Shell.Application")
|
|
Set objFolder = objShell.BrowseForFolder(0, "Please select the folder..", BIF_BrowseFolder, IniFolder)
|
|
If Not (objFolder Is Nothing) Then
|
|
BrowseForFolder = objFolder.Self.path
|
|
End If
|
|
End Function
|
|
Sub SelectCommonEdge(argFaceA, argFaceB)
|
|
edgesA = argFaceA.GetEdges
|
|
edgesB = argFaceB.GetEdges
|
|
For Each edgeA In edgesA
|
|
Set vertexA1 = edgeA.GetStartVertex
|
|
Set vertexA2 = edgeA.GetEndVertex
|
|
pointA1 = vertexA1.GetPoint
|
|
pointA2 = vertexA2.GetPoint
|
|
For Each edgeB In edgesB
|
|
Set vertexB1 = edgeB.GetStartVertex
|
|
Set vertexB2 = edgeB.GetEndVertex
|
|
pointB1 = vertexB1.GetPoint
|
|
pointB2 = vertexB2.GetPoint
|
|
If ( (IsEqual(pointA1, pointB1) And IsEqual(pointA2, pointB2)) Or (IsEqual(pointA1, pointB2) And IsEqual(pointA2, pointB1)) ) Then
|
|
edgeA.Select(True)
|
|
Exit Sub
|
|
End If
|
|
Next
|
|
Next
|
|
End Sub
|
|
Sub CreatePart0
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "S100B5250.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "S100B5250.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "S100B5250"
|
|
customPropMgr.Add2 "NN", 30, "Motore4"
|
|
customPropMgr.Add2 "NT", 30, "Motore4"
|
|
customPropMgr.Add2 "NBSYN", 30, "$MT.$SIZE.$EXE.$FLA."
|
|
customPropMgr.Add2 "LINA", 30, "S100B5250"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "MT", 30, "S"
|
|
customPropMgr.Add2 "SIZE", 30, "100"
|
|
customPropMgr.Add2 "EXE", 30, "B5"
|
|
customPropMgr.Add2 "FLA", 30, "250"
|
|
customPropMgr.Add2 "FLAY", 30, "\'-\',\'B\',\'C\',\'D\',\'E\',\'F\',\'160\',\'140\',\'250\',\'200\'"
|
|
customPropMgr.Add2 "MB5", 30, "215"
|
|
customPropMgr.Add2 "MB14", 30, "130"
|
|
customPropMgr.Add2 "M1", 30, "7.450"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "S100B5250"
|
|
customPropMgr.Add2 "BOMINFO", 30, "S100B5250"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="S100B5250"
|
|
part.SummaryInfo(4)="Motore4"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.5
|
|
valRGB(1)=0.5
|
|
valRGB(2)=0.5
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag0 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "S100B5250.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart1
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "100B5.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "100B5.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "100B5"
|
|
customPropMgr.Add2 "NN", 30, "Motore1"
|
|
customPropMgr.Add2 "NT", 30, "Motore1"
|
|
customPropMgr.Add2 "NBSYN", 30, "$SIZE.$EXE."
|
|
customPropMgr.Add2 "LINA", 30, "100B5"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "SIZE", 30, "100"
|
|
customPropMgr.Add2 "EXE", 30, "B5"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "100B5"
|
|
customPropMgr.Add2 "BOMINFO", 30, "100B5"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="100B5"
|
|
part.SummaryInfo(4)="Motore1"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.5
|
|
valRGB(1)=0.5
|
|
valRGB(2)=0.5
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag12 part,featMgr
|
|
codeBag28 part,featMgr
|
|
codeBag43 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "100B5.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart2
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "S100IC411B5STD-.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "S100IC411B5STD-.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "S100IC411B5STD-"
|
|
customPropMgr.Add2 "NN", 30, "Motore3"
|
|
customPropMgr.Add2 "NT", 30, "Motore3"
|
|
customPropMgr.Add2 "NBSYN", 30, "$TIP.$GRA.$RAF.$FC.$CVE.$ACC."
|
|
customPropMgr.Add2 "LINA", 30, "S100IC411B5STD-"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "TIP", 30, "S"
|
|
customPropMgr.Add2 "GRA", 30, "100"
|
|
customPropMgr.Add2 "RAF", 30, "IC411"
|
|
customPropMgr.Add2 "FC", 30, "B5"
|
|
customPropMgr.Add2 "CVE", 30, "STD"
|
|
customPropMgr.Add2 "ACC", 30, "-"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "S100IC411B5STD-"
|
|
customPropMgr.Add2 "BOMINFO", 30, "S100IC411B5STD-"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="S100IC411B5STD-"
|
|
part.SummaryInfo(4)="Motore3"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.5
|
|
valRGB(1)=0.5
|
|
valRGB(2)=0.5
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag46 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "S100IC411B5STD-.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart3
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "S100IC411B5STD-plug.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "S100IC411B5STD-plug.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "S100IC411B5STD-plug"
|
|
customPropMgr.Add2 "NN", 30, "Motore8"
|
|
customPropMgr.Add2 "NT", 30, "Motore8"
|
|
customPropMgr.Add2 "NBSYN", 30, "$TIP.$GRA.$RAF.$FC.$CVE.-plug"
|
|
customPropMgr.Add2 "LINA", 30, "S100IC411B5STD-plug"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "TIP", 30, "S"
|
|
customPropMgr.Add2 "GRA", 30, "100"
|
|
customPropMgr.Add2 "TIPX", 30, "\'D\',\'DB\',\'HS\',\'S\',\'SB\',\'T\',\'TB\'"
|
|
customPropMgr.Add2 "RAF", 30, "IC411"
|
|
customPropMgr.Add2 "CVE", 30, "STD"
|
|
customPropMgr.Add2 "FC", 30, "B5"
|
|
customPropMgr.Add2 "FCX", 30, "\'B3\',\'B3\',\'B5\',\'B5\',\'B10\',\'B10\',\'B11\',\'B11\',\'B14\',\'B14\',\'B34\',\'B34\',\'B35\',\'B35\'"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "S100IC411B5STD-plug"
|
|
customPropMgr.Add2 "BOMINFO", 30, "S100IC411B5STD-plug"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="S100IC411B5STD-plug"
|
|
part.SummaryInfo(4)="Motore8"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.5
|
|
valRGB(1)=0.5
|
|
valRGB(2)=0.5
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag48 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "S100IC411B5STD-plug.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart4
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "10031(-).sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "10031(-).sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "10031(-)"
|
|
customPropMgr.Add2 "NN", 30, "Motore6"
|
|
customPropMgr.Add2 "NT", 30, "Motore6"
|
|
customPropMgr.Add2 "NBSYN", 30, "$GRA.$VERS.$ALGB.($MOR.)"
|
|
customPropMgr.Add2 "LINA", 30, "10031(-)"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "GRA", 30, "100"
|
|
customPropMgr.Add2 "VERS", 30, "3"
|
|
customPropMgr.Add2 "ALGB", 30, "1"
|
|
customPropMgr.Add2 "RAV", 30, "215.750"
|
|
customPropMgr.Add2 "L", 30, "215.750"
|
|
customPropMgr.Add2 "L2", 30, "215.750"
|
|
customPropMgr.Add2 "E", 30, "60.000"
|
|
customPropMgr.Add2 "D", 30, "28.000"
|
|
customPropMgr.Add2 "FF", 30, "10.000"
|
|
customPropMgr.Add2 "F", 30, "8.000"
|
|
customPropMgr.Add2 "GA", 30, "17.000"
|
|
customPropMgr.Add2 "MOR", 30, "-"
|
|
customPropMgr.Add2 "FD", 30, "0.000"
|
|
customPropMgr.Add2 "FL", 30, "0.000"
|
|
customPropMgr.Add2 "FD2", 30, "163.250"
|
|
customPropMgr.Add2 "FL2", 30, "45.000"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "10031(-)"
|
|
customPropMgr.Add2 "BOMINFO", 30, "10031(-)"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="10031(-)"
|
|
part.SummaryInfo(4)="Motore6"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.75294119119644
|
|
valRGB(1)=0.75294119119644
|
|
valRGB(2)=0.75294119119644
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag49 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "10031(-).sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart5
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "100A004S19.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "100A004S19.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "100A004S19"
|
|
customPropMgr.Add2 "NN", 30, "Motore2"
|
|
customPropMgr.Add2 "NT", 30, "Motore2"
|
|
customPropMgr.Add2 "NBSYN", 30, "$GRA.$TBC.$MT.$VERS2."
|
|
customPropMgr.Add2 "LINA", 30, "100A004S19"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "MT", 30, "S"
|
|
customPropMgr.Add2 "GRA", 30, "100"
|
|
customPropMgr.Add2 "TBC", 30, "A004"
|
|
customPropMgr.Add2 "VERS", 30, "5"
|
|
customPropMgr.Add2 "AD1", 30, "138.500"
|
|
customPropMgr.Add2 "AD2", 30, "138.500"
|
|
customPropMgr.Add2 "AD3", 30, "0.000"
|
|
customPropMgr.Add2 "AD4", 30, "39.000"
|
|
customPropMgr.Add2 "AD5", 30, "65.000"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "100A004S19"
|
|
customPropMgr.Add2 "BOMINFO", 30, "100A004S19"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="100A004S19"
|
|
part.SummaryInfo(4)="Motore2"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.63999998569489
|
|
valRGB(1)=0.63999998569489
|
|
valRGB(2)=0.63999998569489
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag53 part,featMgr
|
|
codeBag67 part,featMgr
|
|
codeBag93 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "100A004S19.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart6
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "D3.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "D3.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "D3"
|
|
customPropMgr.Add2 "NN", 30, "Motore5"
|
|
customPropMgr.Add2 "NT", 30, "Motore5"
|
|
customPropMgr.Add2 "NBSYN", 30, "$AF.$VERS."
|
|
customPropMgr.Add2 "LINA", 30, "D3"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "AF", 30, "D"
|
|
customPropMgr.Add2 "VERS", 30, "3"
|
|
customPropMgr.Add2 "RAV", 30, "11.000"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "D3"
|
|
customPropMgr.Add2 "BOMINFO", 30, "D3"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="D3"
|
|
part.SummaryInfo(4)="Motore5"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.18999999761581
|
|
valRGB(1)=0.18999999761581
|
|
valRGB(2)=0.18999999761581
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag97 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "D3.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart7
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "ANELLO RID_M25M16M.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "ANELLO RID_M25M16M.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "ANELLO RID.M25M16M"
|
|
customPropMgr.Add2 "NN", 30, "PRESSACAVO M16 2"
|
|
customPropMgr.Add2 "NT", 30, "PRESSACAVO M16 2"
|
|
customPropMgr.Add2 "NBSYN", 30, "$DES."
|
|
customPropMgr.Add2 "LINA", 30, "ANELLO RID.M25M16M"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "DES", 30, "ANELLO RID.M25M16M"
|
|
customPropMgr.Add2 "D", 30, "25"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "ANELLO RID.M25M16M"
|
|
customPropMgr.Add2 "BOMINFO", 30, "ANELLO RID.M25M16M"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="ANELLO RID.M25M16M"
|
|
part.SummaryInfo(4)="PRESSACAVO M16 2"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.68999999761581
|
|
valRGB(1)=0.68999999761581
|
|
valRGB(2)=0.68999999761581
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag102 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "ANELLO RID_M25M16M.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart8
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "Presacavo_M16M.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "Presacavo_M16M.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "Presacavo_M16M"
|
|
customPropMgr.Add2 "NN", 30, "PRESSACAVO M16"
|
|
customPropMgr.Add2 "NBSYN", 30, "Presacavo_$DES."
|
|
customPropMgr.Add2 "LINA", 30, "Presacavo_M16M"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "DES", 30, "M16M"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "Presacavo_M16M"
|
|
customPropMgr.Add2 "BOMINFO", 30, "Presacavo_M16M"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="Presacavo_M16M"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0
|
|
valRGB(1)=0
|
|
valRGB(2)=0
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag104 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "Presacavo_M16M.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart9
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "Cavo_4.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "Cavo_4.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "Cavo_4"
|
|
customPropMgr.Add2 "NN", 30, "Cavo"
|
|
customPropMgr.Add2 "NBSYN", 30, "Cavo_$NAME."
|
|
customPropMgr.Add2 "LINA", 30, "Cavo_4"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "NAME", 30, "4"
|
|
customPropMgr.Add2 "CON", 30, "19.00"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "Cavo_4"
|
|
customPropMgr.Add2 "BOMINFO", 30, "Cavo_4"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="Cavo_4"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.68999999761581
|
|
valRGB(1)=0.68999999761581
|
|
valRGB(2)=0.68999999761581
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag108 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "Cavo_4.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
Sub CreatePart10
|
|
dim errors as long
|
|
dim warnings as long
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
set res=swApp.OpenDoc6 ( storePath & "60uF_45x120.sldprt",1,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
exit sub
|
|
end if
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
Dim longstatus As Long
|
|
Dim sPartTemplateName As String
|
|
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
|
|
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
|
|
swApp.ActivateDoc2 "60uF_45x120.sldprt", False, longstatus
|
|
Set part = swApp.ActiveDoc
|
|
part.SketchManager.AddToDB = true
|
|
part.SketchManager.DisplayWhenAdded = false
|
|
part.ActiveView.EnableGraphicsUpdate = false
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "60uF_45x120"
|
|
customPropMgr.Add2 "NN", 30, "Condensatori S"
|
|
customPropMgr.Add2 "NBSYN", 30, "$SIZE."
|
|
customPropMgr.Add2 "LINA", 30, "60uF_45x120"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "SIZE", 30, "60uF_45x120"
|
|
customPropMgr.Add2 "D", 30, "45"
|
|
customPropMgr.Add2 "L", 30, "120.0"
|
|
customPropMgr.Add2 "N1", 30, "54.0"
|
|
customPropMgr.Add2 "D1", 30, "47.0"
|
|
customPropMgr.Add2 "CH", 30, "2.900"
|
|
customPropMgr.Add2 "H", 30, "45.000"
|
|
customPropMgr.Add2 "T", 30, "18.000"
|
|
customPropMgr.Add2 "F", 30, "32.000"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "60uF_45x120"
|
|
customPropMgr.Add2 "BOMINFO", 30, "60uF_45x120"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
customPropMgr.Add2 "IsFastener", 30, "0"
|
|
part.SummaryInfo(0)="60uF_45x120"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
valRGB=part.MaterialPropertyValues
|
|
valRGB(0)=0.68999999761581
|
|
valRGB(1)=0.68999999761581
|
|
valRGB(2)=0.68999999761581
|
|
part.MaterialPropertyValues=valRGB
|
|
Dim featMgr as object
|
|
set featMgr = part.FeatureManager
|
|
codeBag114 part,featMgr
|
|
part.ActiveView.EnableGraphicsUpdate = true
|
|
part.SketchManager.DisplayWhenAdded = true
|
|
part.SketchManager.AddToDB = false
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "60uF_45x120.sldprt",0,0,nothing,errors,warnings
|
|
End Sub
|
|
sub CreatePart11
|
|
dim errors as long
|
|
dim warnings as long
|
|
set res=swApp.OpenDoc6 ( storePath & "S100100LA4IC411B525028X60NO----A004-STD1.sldasm",2,3,"", errors, warnings)
|
|
if not res is nothing then
|
|
exit sub
|
|
end if
|
|
codeBag118
|
|
set part=swApp.NewAssembly
|
|
Set modelExt = part.Extension
|
|
Set customPropMgr = modelExt.CustomPropertyManager("")
|
|
customPropMgr.Add2 "NB", 30, "S100100LA4IC411B525028X60NO----A004-STD1"
|
|
customPropMgr.Add2 "NN", 30, "S"
|
|
customPropMgr.Add2 "NT", 30, "Electric Motor Single phase series"
|
|
customPropMgr.Add2 "NBSYN", 30, "$TIP.$GRA.$SIGLA.$RAF.$FC.$FLA.$ALB.$BIS.$TF.$AF.$RF.$ACC.$COP.$SER.$CVE.$MORALG2."
|
|
customPropMgr.Add2 "LINA", 30, "S100100LA4IC411B525028X60NO----A004-STD1"
|
|
customPropMgr.Add2 "CATALOG", 30, "Motovario"
|
|
customPropMgr.Add2 "GRA", 30, "100"
|
|
customPropMgr.Add2 "SIGLA", 30, "100LA4"
|
|
customPropMgr.Add2 "RAF", 30, "IC411-Self-Ventilated"
|
|
customPropMgr.Add2 "FC", 30, "B5"
|
|
customPropMgr.Add2 "FLA", 30, "250"
|
|
customPropMgr.Add2 "ALB", 30, "28X60"
|
|
customPropMgr.Add2 "BIS", 30, "NO"
|
|
customPropMgr.Add2 "COP", 30, "Aluminium-External capacitors"
|
|
customPropMgr.Add2 "CVE", 30, "Standard"
|
|
customPropMgr.Add2 "MOR", 30, "-"
|
|
customPropMgr.Add2 "A", 30, "-"
|
|
customPropMgr.Add2 "AA", 30, "-"
|
|
customPropMgr.Add2 "AB", 30, "-"
|
|
customPropMgr.Add2 "AC", 30, "191"
|
|
customPropMgr.Add2 "AD", 30, "144"
|
|
customPropMgr.Add2 "B", 30, "-"
|
|
customPropMgr.Add2 "BB", 30, "-"
|
|
customPropMgr.Add2 "C", 30, "-"
|
|
customPropMgr.Add2 "D", 30, "28"
|
|
customPropMgr.Add2 "E", 30, "60"
|
|
customPropMgr.Add2 "F", 30, "8"
|
|
customPropMgr.Add2 "FF", 30, "M10x22"
|
|
customPropMgr.Add2 "GA", 30, "31"
|
|
customPropMgr.Add2 "H", 30, "-"
|
|
customPropMgr.Add2 "HF", 30, "87.5"
|
|
customPropMgr.Add2 "K", 30, "-"
|
|
customPropMgr.Add2 "KK", 30, "-"
|
|
customPropMgr.Add2 "LA", 30, "15"
|
|
customPropMgr.Add2 "LB", 30, "308"
|
|
customPropMgr.Add2 "M", 30, "215"
|
|
customPropMgr.Add2 "N", 30, "180"
|
|
customPropMgr.Add2 "P", 30, "250"
|
|
customPropMgr.Add2 "S", 30, "14"
|
|
customPropMgr.Add2 "V", 30, "97.5"
|
|
customPropMgr.Add2 "XA", 30, "129"
|
|
customPropMgr.Add2 "XB", 30, "54"
|
|
customPropMgr.Add2 "YA", 30, "110.5"
|
|
customPropMgr.Add2 "YB", 30, "49"
|
|
customPropMgr.Add2 "SUPPLIER", 30, "MOTOVARIO"
|
|
customPropMgr.Add2 "ARTICLENO", 30, "S100100LA4IC411B525028X60NO----A004-STD1"
|
|
customPropMgr.Add2 "BOMINFO", 30, "S100100LA4IC411B525028X60NO----A004-STD1"
|
|
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
|
|
part.SummaryInfo(0)="S100100LA4IC411B525028X60NO----A004-STD1"
|
|
part.SummaryInfo(4)="Electric Motor Single phase series"
|
|
part.SummaryInfo(2)="Cadenas PARTsolutions"
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 0, 1
|
|
end if
|
|
codeBag119 part
|
|
codeBag120
|
|
if (docVisible=0) then
|
|
swApp.DocumentVisible 1, 1
|
|
end if
|
|
part.EditRebuild3
|
|
part.Rebuild swRebuildAll
|
|
Set modelExt = part.Extension
|
|
modelExt.SaveAs storePath & "S100100LA4IC411B525028X60NO----A004-STD1.sldasm",0,0,nothing,errors,warnings
|
|
end sub
|
|
sub codeBag1(part,wMat)
|
|
cLn part,wMat,0,0,0,0.0805
|
|
cLn part,wMat,0,0.0805,0.028,0.0805
|
|
cLn part,wMat,0.028,0.0805,0.028,0.125
|
|
cLn part,wMat,0.028,0.125,0.043,0.125
|
|
cLn part,wMat,0.043,0.125,0.043,0.09
|
|
cLn part,wMat,0.043,0.09,0.047,0.09
|
|
cLn part,wMat,0.047,0.09,0.047,0.083972
|
|
cLn part,wMat,0.047,0.083972,0.042,0.083797396152541
|
|
cLn part,wMat,0.042,0.083797396152541,0.042,0.0785
|
|
cLn part,wMat,0.042,0.0785,0.041,0.0785
|
|
cLn part,wMat,0.041,0.0785,0.0375,0.034028283423388
|
|
cLn part,wMat,0.0375,0.034028283423388,0.0375,0.0285
|
|
cLn part,wMat,0.0375,0.0285,0.0415,0.0285
|
|
cLn part,wMat,0.0415,0.0285,0.0415,0
|
|
cLn part,wMat,0.0415,0,0,0
|
|
cCLn part,wMat,0.047,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag2(part,wMat)
|
|
cArc part,wMat,-0.094893361200876,0.0045,-0.095,3.1485702926244e-16,-0.094893361200876,-0.0045
|
|
cLn part,wMat,-0.094893361200876,-0.0045,-0.023602364889298,-0.023602364889298
|
|
cLn part,wMat,-0.023602364889298,-0.023602364889298,-0.0045,-0.094893361200876
|
|
cArc part,wMat,-0.0045,-0.094893361200876,-3.3310859943419e-16,-0.095,0.0045,-0.094893361200876
|
|
cLn part,wMat,0.0045,-0.094893361200876,0.023602364889298,-0.023602364889298
|
|
cLn part,wMat,0.023602364889298,-0.023602364889298,0.094893361200876,-0.0045
|
|
cArc part,wMat,0.094893361200876,-0.0045,0.095,1.0169780056047e-16,0.094893361200876,0.0045
|
|
cLn part,wMat,0.094893361200876,0.0045,0.023602364889298,0.023602364889298
|
|
cLn part,wMat,0.023602364889298,0.023602364889298,0.0045,0.094893361200876
|
|
cArc part,wMat,0.0045,0.094893361200876,-1.5112344055752e-16,0.095,-0.0045,0.094893361200876
|
|
cLn part,wMat,-0.0045,0.094893361200876,-0.023602364889298,0.023602364889298
|
|
cLn part,wMat,-0.023602364889298,0.023602364889298,-0.094893361200876,0.0045
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag3(part,wMat)
|
|
cCir part,wMat,0,0.088,0.003
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag4(part,wMat)
|
|
cCir part,wMat,0,0.088,0.003
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag5(part,wMat)
|
|
cCir part,wMat,0,0.088,0.003
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag6(part,wMat)
|
|
cCir part,wMat,0,0.088,0.003
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag7(part,wMat)
|
|
cCir part,wMat,-0.076013978977554,0.076013978977554,0.00675
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag8(part,wMat)
|
|
cCir part,wMat,-0.076013978977554,0.076013978977554,0.00675
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag9(part,wMat)
|
|
cCir part,wMat,-0.076013978977554,0.076013978977554,0.00675
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag10(part,wMat)
|
|
cCir part,wMat,-0.076013978977554,0.076013978977554,0.00675
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag11(part,wMat)
|
|
cLn part,wMat,-0.075,-0.003,-0.0072426406871193,-0.003
|
|
cLn part,wMat,-0.0072426406871193,-0.003,-0.055154328932551,-0.050911688245431
|
|
cLn part,wMat,-0.055154328932551,-0.050911688245431,-0.050911688245431,-0.055154328932551
|
|
cLn part,wMat,-0.050911688245431,-0.055154328932551,-0.003,-0.0072426406871193
|
|
cLn part,wMat,-0.003,-0.0072426406871193,-0.003,-0.075
|
|
cLn part,wMat,-0.003,-0.075,0.003,-0.075
|
|
cLn part,wMat,0.003,-0.075,0.003,-0.0072426406871193
|
|
cLn part,wMat,0.003,-0.0072426406871193,0.050911688245431,-0.055154328932551
|
|
cLn part,wMat,0.050911688245431,-0.055154328932551,0.055154328932551,-0.050911688245431
|
|
cLn part,wMat,0.055154328932551,-0.050911688245431,0.0072426406871193,-0.003
|
|
cLn part,wMat,0.0072426406871193,-0.003,0.075,-0.003
|
|
cLn part,wMat,0.075,-0.003,0.075,0.003
|
|
cLn part,wMat,0.075,0.003,0.0072426406871193,0.003
|
|
cLn part,wMat,0.0072426406871193,0.003,0.055154328932551,0.050911688245431
|
|
cLn part,wMat,0.055154328932551,0.050911688245431,0.050911688245431,0.055154328932551
|
|
cLn part,wMat,0.050911688245431,0.055154328932551,0.003,0.0072426406871193
|
|
cLn part,wMat,0.003,0.0072426406871193,0.003,0.075
|
|
cLn part,wMat,0.003,0.075,-0.003,0.075
|
|
cLn part,wMat,-0.003,0.075,-0.003,0.0072426406871193
|
|
cLn part,wMat,-0.003,0.0072426406871193,-0.050911688245431,0.055154328932551
|
|
cLn part,wMat,-0.050911688245431,0.055154328932551,-0.055154328932551,0.050911688245431
|
|
cLn part,wMat,-0.055154328932551,0.050911688245431,-0.0072426406871193,0.003
|
|
cLn part,wMat,-0.0072426406871193,0.003,-0.075,0.003
|
|
cLn part,wMat,-0.075,0.003,-0.075,-0.003
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag0(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat29=part.Extension.GetLastFeatureAdded()
|
|
feat29.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag1 part,wMat
|
|
set feat29=part.Extension.GetLastFeatureAdded()
|
|
feat29.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.028,0,0),createVec3d(0.028,0,-1),createVec3d(0.028,1,0),1
|
|
set feat32=part.Extension.GetLastFeatureAdded()
|
|
feat32.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.028,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag2 part,wMat
|
|
set feat32=part.Extension.GetLastFeatureAdded()
|
|
feat32.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0275,0.0275,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.028,0,0),createVec3d(0.028,0,-1),createVec3d(0.028,1,0),1
|
|
set feat34=part.Extension.GetLastFeatureAdded()
|
|
feat34.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.028,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag3 part,wMat
|
|
set feat34=part.Extension.GetLastFeatureAdded()
|
|
feat34.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.2195,0.2195,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.028,-0.088,0.088),createVec3d(0.028,-0.088,-0.912),createVec3d(0.028,0.912,0.088),1
|
|
set feat38=part.Extension.GetLastFeatureAdded()
|
|
feat38.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.028,-0.088,0.088)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag4 part,wMat
|
|
set feat38=part.Extension.GetLastFeatureAdded()
|
|
feat38.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.2195,0.2195,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.028,-0.176,1.0776891832497e-17),createVec3d(0.028,-0.176,-1),createVec3d(0.028,0.824,1.0776891832497e-17),1
|
|
set feat39=part.Extension.GetLastFeatureAdded()
|
|
feat39.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.028,-0.176,1.0776891832497e-17)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag5 part,wMat
|
|
set feat39=part.Extension.GetLastFeatureAdded()
|
|
feat39.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.2195,0.2195,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.028,-0.088,-0.088),createVec3d(0.028,-0.088,-1.088),createVec3d(0.028,0.912,-0.088),1
|
|
set feat40=part.Extension.GetLastFeatureAdded()
|
|
feat40.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.028,-0.088,-0.088)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag6 part,wMat
|
|
set feat40=part.Extension.GetLastFeatureAdded()
|
|
feat40.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.2195,0.2195,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.028,0,0),createVec3d(0.028,0,-1),createVec3d(0.028,1,0),1
|
|
set feat42=part.Extension.GetLastFeatureAdded()
|
|
feat42.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.028,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag7 part,wMat
|
|
set feat42=part.Extension.GetLastFeatureAdded()
|
|
feat42.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.015,0.015,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.028,-0.15202795795511,0),createVec3d(0.028,-0.15202795795511,-1),createVec3d(0.028,0.84797204204489,0),1
|
|
set feat46=part.Extension.GetLastFeatureAdded()
|
|
feat46.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.028,-0.15202795795511,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag8 part,wMat
|
|
set feat46=part.Extension.GetLastFeatureAdded()
|
|
feat46.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.015,0.015,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.028,-0.15202795795511,-0.15202795795511),createVec3d(0.028,-0.15202795795511,-1.1520279579551),createVec3d(0.028,0.84797204204489,-0.15202795795511),1
|
|
set feat47=part.Extension.GetLastFeatureAdded()
|
|
feat47.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.028,-0.15202795795511,-0.15202795795511)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag9 part,wMat
|
|
set feat47=part.Extension.GetLastFeatureAdded()
|
|
feat47.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.015,0.015,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.028,0,-0.15202795795511),createVec3d(0.028,0,-1.1520279579551),createVec3d(0.028,1,-0.15202795795511),1
|
|
set feat48=part.Extension.GetLastFeatureAdded()
|
|
feat48.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.028,0,-0.15202795795511)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag10 part,wMat
|
|
set feat48=part.Extension.GetLastFeatureAdded()
|
|
feat48.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.015,0.015,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.04,0,0),createVec3d(0.04,0,-1),createVec3d(0.04,1,0),1
|
|
set feat51=part.Extension.GetLastFeatureAdded()
|
|
feat51.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.04,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag11 part,wMat
|
|
set feat51=part.Extension.GetLastFeatureAdded()
|
|
feat51.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.005,0.005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
end sub
|
|
|
|
sub codeBag13(part,wMat)
|
|
cArc part,wMat,-0.092510171624852,-0.0055504874462279,-0.093282251996306,-0.0063500001223556,-0.092510171593668,-0.0071495127683695
|
|
cLn part,wMat,-0.092510171593668,-0.0071495127683695,-0.074595897533227,-0.0077750930034463
|
|
cArc part,wMat,-0.074595897533227,-0.0077750930034463,-0.073911851959834,-0.012729420248686,-0.072899134811004,-0.017627142247315
|
|
cLn part,wMat,-0.072899134811004,-0.017627142247315,-0.090749402720185,-0.018250487338337
|
|
cArc part,wMat,-0.090749402720185,-0.018250487338337,-0.091521483122823,-0.019049999999952,-0.090749402720185,-0.019849512661568
|
|
cLn part,wMat,-0.090749402720185,-0.019849512661568,-0.072144174511596,-0.020499221547181
|
|
cArc part,wMat,-0.072144174511596,-0.020499221547181,-0.07054523165612,-0.025463116277949,-0.068605202678913,-0.030303896867982
|
|
cLn part,wMat,-0.068605202678913,-0.030303896867982,-0.087121131158337,-0.030950487338337
|
|
cArc part,wMat,-0.087121131158337,-0.030950487338337,-0.087893211560975,-0.031749999999952,-0.087121131158337,-0.032549512661568
|
|
cLn part,wMat,-0.087121131158337,-0.032549512661568,-0.067229660723215,-0.033244138115484
|
|
cArc part,wMat,-0.067229660723215,-0.033244138115484,-0.064537829186715,-0.038208226913406,-0.061480132586244,-0.04295571320765
|
|
cLn part,wMat,-0.061480132586244,-0.04295571320765,-0.081375860567028,-0.043650487338337
|
|
cArc part,wMat,-0.081375860567028,-0.043650487338337,-0.082147940969666,-0.044449999999952,-0.081375860567028,-0.045249512661568
|
|
cLn part,wMat,-0.081375860567028,-0.045249512661568,-0.05921874613329,-0.04602325614731
|
|
cArc part,wMat,-0.05921874613329,-0.04602325614731,-0.055006144141332,-0.050983567026083,-0.050379400161053,-0.055560021952952
|
|
cLn part,wMat,-0.050379400161053,-0.055560021952952,-0.073015367148319,-0.056350487338337
|
|
cArc part,wMat,-0.073015367148319,-0.056350487338337,-0.073787447550957,-0.057149999999952,-0.073015367148319,-0.057949512661568
|
|
cLn part,wMat,-0.073015367148319,-0.057949512661568,-0.048936919617114,-0.058790350577524
|
|
cLn part,wMat,-0.048936919617114,-0.058790350577524,-0.058664107919227,-0.071816628467052
|
|
cArc part,wMat,-0.058664107919227,-0.071816628467052,-0.058523843916031,-0.072919195782681,-0.057417053114036,-0.072817496241352
|
|
cLn part,wMat,-0.057417053114036,-0.072817496241352,-0.046010650657592,-0.059579720131757
|
|
cLn part,wMat,-0.046010650657592,-0.059579720131757,-0.045249512661642,-0.081375860567049
|
|
cArc part,wMat,-0.045249512661642,-0.081375860567049,-0.044450000000027,-0.082147940969687,-0.043650487338411,-0.081375860567049
|
|
cLn part,wMat,-0.043650487338411,-0.081375860567049,-0.042955713207722,-0.061480132586194
|
|
cArc part,wMat,-0.042955713207722,-0.061480132586194,-0.038208226913481,-0.064537829186671,-0.033244138115561,-0.067229660723177
|
|
cLn part,wMat,-0.033244138115561,-0.067229660723177,-0.032549512661642,-0.087121131158358
|
|
cArc part,wMat,-0.032549512661642,-0.087121131158358,-0.031750000000027,-0.087893211560996,-0.030950487338411,-0.087121131158358
|
|
cLn part,wMat,-0.030950487338411,-0.087121131158358,-0.030303896868054,-0.068605202678881
|
|
cArc part,wMat,-0.030303896868054,-0.068605202678881,-0.025463116278024,-0.070545231656093,-0.020499221547257,-0.072144174511574
|
|
cLn part,wMat,-0.020499221547257,-0.072144174511574,-0.019849512661642,-0.090749402720208
|
|
cArc part,wMat,-0.019849512661642,-0.090749402720208,-0.019050000000026,-0.091521483122846,-0.018250487338411,-0.090749402720208
|
|
cLn part,wMat,-0.018250487338411,-0.090749402720208,-0.017627142247387,-0.072899134810986
|
|
cArc part,wMat,-0.017627142247387,-0.072899134810986,-0.012729420248759,-0.073911851959821,-0.0077750930035212,-0.07459589753322
|
|
cLn part,wMat,-0.0077750930035212,-0.07459589753322,-0.0071495127684552,-0.09251017159336
|
|
cArc part,wMat,-0.0071495127684552,-0.09251017159336,-0.0063500001224413,-0.093282251995998,-0.0055504874463136,-0.092510171624544
|
|
cLn part,wMat,-0.0055504874463136,-0.092510171624544,-0.0049333459584965,-0.074837571430758
|
|
cArc part,wMat,-0.0049333459584965,-0.074837571430758,1.0836933593293e-15,-0.075,0.0049333459584965,-0.074837571430758
|
|
cLn part,wMat,0.0049333459584965,-0.074837571430758,0.0055504874463136,-0.092510171624544
|
|
cArc part,wMat,0.0055504874463136,-0.092510171624544,0.0063500001224413,-0.093282251995998,0.0071495127684552,-0.09251017159336
|
|
cLn part,wMat,0.0071495127684552,-0.09251017159336,0.0077750930035212,-0.07459589753322
|
|
cArc part,wMat,0.0077750930035212,-0.07459589753322,0.012729420248759,-0.073911851959821,0.017627142247387,-0.072899134810986
|
|
cLn part,wMat,0.017627142247387,-0.072899134810986,0.018250487338411,-0.090749402720208
|
|
cArc part,wMat,0.018250487338411,-0.090749402720208,0.019050000000026,-0.091521483122846,0.019849512661642,-0.090749402720208
|
|
cLn part,wMat,0.019849512661642,-0.090749402720208,0.020499221547257,-0.072144174511574
|
|
cArc part,wMat,0.020499221547257,-0.072144174511574,0.025463116278024,-0.070545231656093,0.030303896868054,-0.068605202678881
|
|
cLn part,wMat,0.030303896868054,-0.068605202678881,0.030950487338411,-0.087121131158358
|
|
cArc part,wMat,0.030950487338411,-0.087121131158358,0.031750000000027,-0.087893211560996,0.032549512661642,-0.087121131158358
|
|
cLn part,wMat,0.032549512661642,-0.087121131158358,0.033244138115561,-0.067229660723177
|
|
cArc part,wMat,0.033244138115561,-0.067229660723177,0.038208226913482,-0.064537829186671,0.042955713207722,-0.061480132586194
|
|
cLn part,wMat,0.042955713207722,-0.061480132586194,0.043650487338411,-0.081375860567049
|
|
cArc part,wMat,0.043650487338411,-0.081375860567049,0.044450000000027,-0.082147940969687,0.045249512661642,-0.081375860567049
|
|
cLn part,wMat,0.045249512661642,-0.081375860567049,0.046010650657592,-0.059579720131757
|
|
cLn part,wMat,0.046010650657592,-0.059579720131757,0.057417053114036,-0.072817496241352
|
|
cArc part,wMat,0.057417053114036,-0.072817496241352,0.058523843916031,-0.072919195782681,0.058664107919227,-0.071816628467052
|
|
cLn part,wMat,0.058664107919227,-0.071816628467052,0.048936919617114,-0.058790350577524
|
|
cLn part,wMat,0.048936919617114,-0.058790350577524,0.073015367148319,-0.057949512661568
|
|
cArc part,wMat,0.073015367148319,-0.057949512661568,0.073787447550957,-0.057149999999952,0.073015367148319,-0.056350487338337
|
|
cLn part,wMat,0.073015367148319,-0.056350487338337,0.050379400161053,-0.055560021952952
|
|
cArc part,wMat,0.050379400161053,-0.055560021952952,0.055006144141332,-0.050983567026082,0.05921874613329,-0.04602325614731
|
|
cLn part,wMat,0.05921874613329,-0.04602325614731,0.081375860567028,-0.045249512661568
|
|
cArc part,wMat,0.081375860567028,-0.045249512661568,0.082147940969666,-0.044449999999952,0.081375860567028,-0.043650487338337
|
|
cLn part,wMat,0.081375860567028,-0.043650487338337,0.061480132586244,-0.04295571320765
|
|
cArc part,wMat,0.061480132586244,-0.04295571320765,0.064537829186715,-0.038208226913406,0.067229660723215,-0.033244138115484
|
|
cLn part,wMat,0.067229660723215,-0.033244138115484,0.087121131158337,-0.032549512661568
|
|
cArc part,wMat,0.087121131158337,-0.032549512661568,0.087893211560975,-0.031749999999952,0.087121131158337,-0.030950487338337
|
|
cLn part,wMat,0.087121131158337,-0.030950487338337,0.068605202678913,-0.030303896867982
|
|
cArc part,wMat,0.068605202678913,-0.030303896867982,0.07054523165612,-0.025463116277949,0.072144174511596,-0.020499221547181
|
|
cLn part,wMat,0.072144174511596,-0.020499221547181,0.090749402720185,-0.019849512661568
|
|
cArc part,wMat,0.090749402720185,-0.019849512661568,0.091521483122823,-0.019049999999952,0.090749402720185,-0.018250487338337
|
|
cLn part,wMat,0.090749402720185,-0.018250487338337,0.072899134811004,-0.017627142247315
|
|
cArc part,wMat,0.072899134811004,-0.017627142247315,0.073911851959833,-0.012729420248686,0.074595897533227,-0.0077750930034463
|
|
cLn part,wMat,0.074595897533227,-0.0077750930034463,0.092510171593668,-0.0071495127683695
|
|
cArc part,wMat,0.092510171593668,-0.0071495127683695,0.093282251996306,-0.0063500001223556,0.092510171624852,-0.0055504874462279
|
|
cLn part,wMat,0.092510171624852,-0.0055504874462279,0.074837571430765,-0.0049333459583949
|
|
cArc part,wMat,0.074837571430765,-0.0049333459583949,0.075,9.91877403451e-17,0.074837571430765,0.0049333459583949
|
|
cLn part,wMat,0.074837571430765,0.0049333459583949,0.092510171624852,0.0055504874462279
|
|
cArc part,wMat,0.092510171624852,0.0055504874462279,0.093282251996306,0.0063500001223556,0.092510171593668,0.0071495127683695
|
|
end sub
|
|
|
|
sub codeBag14(part,wMat)
|
|
cLn part,wMat,0.092510171593668,0.0071495127683695,0.074595897533227,0.0077750930034463
|
|
cArc part,wMat,0.074595897533227,0.0077750930034463,0.073911851959834,0.012729420248686,0.072899134811004,0.017627142247315
|
|
cLn part,wMat,0.072899134811004,0.017627142247315,0.090749402720185,0.018250487338337
|
|
cArc part,wMat,0.090749402720185,0.018250487338337,0.091521483122823,0.019049999999952,0.090749402720185,0.019849512661568
|
|
cLn part,wMat,0.090749402720185,0.019849512661568,0.072144174511596,0.020499221547181
|
|
cArc part,wMat,0.072144174511596,0.020499221547181,0.07054523165612,0.025463116277949,0.068605202678913,0.030303896867982
|
|
cLn part,wMat,0.068605202678913,0.030303896867982,0.087121131158337,0.030950487338337
|
|
cArc part,wMat,0.087121131158337,0.030950487338337,0.087893211560975,0.031749999999952,0.087121131158337,0.032549512661568
|
|
cLn part,wMat,0.087121131158337,0.032549512661568,0.067229660723215,0.033244138115484
|
|
cArc part,wMat,0.067229660723215,0.033244138115484,0.064537829186715,0.038208226913406,0.061480132586244,0.04295571320765
|
|
cLn part,wMat,0.061480132586244,0.04295571320765,0.081375860567028,0.043650487338337
|
|
cArc part,wMat,0.081375860567028,0.043650487338337,0.082147940969665,0.044449999999952,0.081375860567028,0.045249512661568
|
|
cLn part,wMat,0.081375860567028,0.045249512661568,0.05921874613329,0.04602325614731
|
|
cArc part,wMat,0.05921874613329,0.04602325614731,0.055006144141332,0.050983567026082,0.050379400161053,0.055560021952952
|
|
cLn part,wMat,0.050379400161053,0.055560021952952,0.073015367148319,0.056350487338337
|
|
cArc part,wMat,0.073015367148319,0.056350487338337,0.073787447550958,0.057149999999952,0.073015367148319,0.057949512661568
|
|
cLn part,wMat,0.073015367148319,0.057949512661568,0.045775000000027,0.058900767243624
|
|
cLn part,wMat,0.045775000000027,0.058900767243624,0.045775000000027,0.081058863642367
|
|
cArc part,wMat,0.045775000000027,0.081058863642367,0.044988961925176,0.081858741798492,0.044175487338411,0.081086783239729
|
|
cLn part,wMat,0.044175487338411,0.081086783239729,0.043477950055829,0.061111928941434
|
|
cArc part,wMat,0.043477950055829,0.061111928941434,0.038663278739917,0.06426624990677,0.033620883800941,0.067042047794228
|
|
cLn part,wMat,0.033620883800941,0.067042047794228,0.032924512661642,0.086983508118121
|
|
cArc part,wMat,0.032924512661642,0.086983508118121,0.032125000000027,0.087755588520759,0.031325487338411,0.086983508118121
|
|
cLn part,wMat,0.031325487338411,0.086983508118121,0.030677891259454,0.068438782776092
|
|
cArc part,wMat,0.030677891259454,0.068438782776092,0.025765744003253,0.070435264150558,0.020724813243992,0.072079692812898
|
|
cLn part,wMat,0.020724813243992,0.072079692812898,0.020074512661589,0.09070186500061
|
|
cArc part,wMat,0.020074512661589,0.09070186500061,0.019274999999973,0.091473945403248,0.018475487338358,0.09070186500061
|
|
cLn part,wMat,0.018475487338358,0.09070186500061,0.017851891722477,0.07284442299812
|
|
cArc part,wMat,0.017851891722477,0.07284442299812,0.012880576580141,0.073885659954846,0.0078501867659403,0.074588032335891
|
|
cLn part,wMat,0.0078501867659403,0.074588032335891,0.0072245126691491,0.092504994244162
|
|
cArc part,wMat,0.0072245126691491,0.092504994244162,0.0064250000061877,0.0932770746468,0.0056254873458246,0.092504994241471
|
|
cLn part,wMat,0.0056254873458246,0.092504994241471,0.0050083534201374,0.074832589130799
|
|
cArc part,wMat,0.0050083534201374,0.074832589130799,-7.0043375747617e-17,0.075,-0.0050083534201374,0.074832589130799
|
|
cLn part,wMat,-0.0050083534201374,0.074832589130799,-0.0056254873458246,0.092504994241471
|
|
cArc part,wMat,-0.0056254873458246,0.092504994241471,-0.0064250000061876,0.0932770746468,-0.0072245126691491,0.092504994244162
|
|
cLn part,wMat,-0.0072245126691491,0.092504994244162,-0.0078501867659403,0.074588032335891
|
|
cArc part,wMat,-0.0078501867659403,0.074588032335891,-0.012880576580141,0.073885659954846,-0.017851891722477,0.07284442299812
|
|
cLn part,wMat,-0.017851891722477,0.07284442299812,-0.018475487338358,0.09070186500061
|
|
cArc part,wMat,-0.018475487338358,0.09070186500061,-0.019274999999973,0.091473945403248,-0.020074512661589,0.09070186500061
|
|
cLn part,wMat,-0.020074512661589,0.09070186500061,-0.020724813243992,0.072079692812898
|
|
cArc part,wMat,-0.020724813243992,0.072079692812898,-0.025765744003253,0.070435264150558,-0.030677891259454,0.068438782776092
|
|
cLn part,wMat,-0.030677891259454,0.068438782776092,-0.031325487338411,0.086983508118121
|
|
cArc part,wMat,-0.031325487338411,0.086983508118121,-0.032125000000027,0.087755588520759,-0.032924512661642,0.086983508118121
|
|
cLn part,wMat,-0.032924512661642,0.086983508118121,-0.033620883800941,0.067042047794228
|
|
cArc part,wMat,-0.033620883800941,0.067042047794228,-0.038663278739917,0.06426624990677,-0.043477950055829,0.061111928941434
|
|
cLn part,wMat,-0.043477950055829,0.061111928941434,-0.044175487338411,0.081086783239729
|
|
cArc part,wMat,-0.044175487338411,0.081086783239729,-0.044988961925176,0.081858741798492,-0.045775000000027,0.081058863642367
|
|
cLn part,wMat,-0.045775000000027,0.081058863642367,-0.045775000000027,0.058900767243624
|
|
cLn part,wMat,-0.045775000000027,0.058900767243624,-0.073015367148319,0.057949512661568
|
|
cArc part,wMat,-0.073015367148319,0.057949512661568,-0.073787447550957,0.057149999999952,-0.073015367148319,0.056350487338337
|
|
cLn part,wMat,-0.073015367148319,0.056350487338337,-0.050379400161053,0.055560021952952
|
|
cArc part,wMat,-0.050379400161053,0.055560021952952,-0.055006144141332,0.050983567026083,-0.05921874613329,0.04602325614731
|
|
cLn part,wMat,-0.05921874613329,0.04602325614731,-0.081375860567028,0.045249512661568
|
|
cArc part,wMat,-0.081375860567028,0.045249512661568,-0.082147940969666,0.044449999999952,-0.081375860567028,0.043650487338337
|
|
cLn part,wMat,-0.081375860567028,0.043650487338337,-0.061480132586244,0.04295571320765
|
|
cArc part,wMat,-0.061480132586244,0.04295571320765,-0.064537829186715,0.038208226913406,-0.067229660723215,0.033244138115484
|
|
cLn part,wMat,-0.067229660723215,0.033244138115484,-0.087121131158337,0.032549512661568
|
|
cArc part,wMat,-0.087121131158337,0.032549512661568,-0.087893211560975,0.031749999999952,-0.087121131158337,0.030950487338337
|
|
cLn part,wMat,-0.087121131158337,0.030950487338337,-0.068605202678913,0.030303896867982
|
|
cArc part,wMat,-0.068605202678913,0.030303896867982,-0.07054523165612,0.025463116277949,-0.072144174511596,0.020499221547181
|
|
cLn part,wMat,-0.072144174511596,0.020499221547181,-0.090749402720185,0.019849512661568
|
|
cArc part,wMat,-0.090749402720185,0.019849512661568,-0.091521483122823,0.019049999999952,-0.090749402720185,0.018250487338337
|
|
cLn part,wMat,-0.090749402720185,0.018250487338337,-0.072899134811004,0.017627142247315
|
|
cArc part,wMat,-0.072899134811004,0.017627142247315,-0.073911851959834,0.012729420248686,-0.074595897533227,0.0077750930034463
|
|
cLn part,wMat,-0.074595897533227,0.0077750930034463,-0.092510171593668,0.0071495127683695
|
|
cArc part,wMat,-0.092510171593668,0.0071495127683695,-0.093282251996306,0.0063500001223556,-0.092510171624852,0.0055504874462279
|
|
cLn part,wMat,-0.092510171624852,0.0055504874462279,-0.074837571430765,0.0049333459583949
|
|
cArc part,wMat,-0.074837571430765,0.0049333459583949,-0.075,-1.048198776599e-16,-0.074837571430765,-0.0049333459583949
|
|
cLn part,wMat,-0.074837571430765,-0.0049333459583949,-0.092510171624852,-0.0055504874462279
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag15(part,wMat)
|
|
cLn part,wMat,0.039,0,0.0465,0
|
|
cLn part,wMat,0.0465,0,0.0465,-0.0823
|
|
cLn part,wMat,0.0465,-0.0823,0.039,-0.0823
|
|
cLn part,wMat,0.039,-0.0823,0.039,0
|
|
cCLn part,wMat,0.039,-0.0823,0.039,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag16(part,wMat)
|
|
cLn part,wMat,0.039,0,0.0465,0
|
|
cLn part,wMat,0.0465,0,0.0465,-0.0823
|
|
cLn part,wMat,0.0465,-0.0823,0.039,-0.0823
|
|
cLn part,wMat,0.039,-0.0823,0.039,0
|
|
cCLn part,wMat,0.039,-0.0823,0.039,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag17(part,wMat)
|
|
cLn part,wMat,0.039,0,0.0465,0
|
|
cLn part,wMat,0.0465,0,0.0465,-0.0823
|
|
cLn part,wMat,0.0465,-0.0823,0.039,-0.0823
|
|
cLn part,wMat,0.039,-0.0823,0.039,0
|
|
cCLn part,wMat,0.039,-0.0823,0.039,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag18(part,wMat)
|
|
cLn part,wMat,0.039,0,0.0465,0
|
|
cLn part,wMat,0.0465,0,0.0465,-0.0823
|
|
cLn part,wMat,0.0465,-0.0823,0.039,-0.0823
|
|
cLn part,wMat,0.039,-0.0823,0.039,0
|
|
cCLn part,wMat,0.039,-0.0823,0.039,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag19(part,wMat)
|
|
cLn part,wMat,0,0,0,0.081
|
|
cLn part,wMat,0,0.081,0.0085,0.081
|
|
cLn part,wMat,0.0085,0.081,0.021562177826491,0.0775
|
|
cLn part,wMat,0.021562177826491,0.0775,0.16243782217351,0.0775
|
|
cLn part,wMat,0.16243782217351,0.0775,0.1755,0.081
|
|
cLn part,wMat,0.1755,0.081,0.184,0.081
|
|
cLn part,wMat,0.184,0.081,0.184,0
|
|
cLn part,wMat,0.184,0,0,0
|
|
cCLn part,wMat,0.184,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag20(part,wMat)
|
|
cLn part,wMat,0,0.078,0.003,0.078
|
|
cLn part,wMat,0.003,0.078,0.003,0.081
|
|
cLn part,wMat,0.003,0.081,0.0085,0.081
|
|
cLn part,wMat,0.0085,0.081,0.018246651874682,0.117375
|
|
cLn part,wMat,0.018246651874682,0.117375,0.16575334812532,0.117375
|
|
cLn part,wMat,0.16575334812532,0.117375,0.1755,0.081
|
|
cLn part,wMat,0.1755,0.081,0.181,0.081
|
|
cLn part,wMat,0.181,0.081,0.181,0.078
|
|
cLn part,wMat,0.181,0.078,0.184,0.078
|
|
cLn part,wMat,0.184,0.078,0.184,0.1455
|
|
cLn part,wMat,0.184,0.1455,0,0.1455
|
|
cLn part,wMat,0,0.1455,0,0.078
|
|
cCLn part,wMat,0.092,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag21(part,wMat)
|
|
cLn part,wMat,0.01927,0.10475,0.022745731880565,0.10475
|
|
cLn part,wMat,0.022745731880565,0.10475,0.030070565431648,0
|
|
cLn part,wMat,0.030070565431648,0,0.01927,0
|
|
cLn part,wMat,0.01927,0,0.01927,0.10475
|
|
cCLn part,wMat,0.01927,0,0.01927,0.10475
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag22(part,wMat)
|
|
cLn part,wMat,0.10475,-0.03175,0.10475,-0.035225731880565
|
|
cLn part,wMat,0.10475,-0.035225731880565,0,-0.042550565431648
|
|
cLn part,wMat,0,-0.042550565431648,-0.10475,-0.035225731880565
|
|
cLn part,wMat,-0.10475,-0.035225731880565,-0.10475,-0.03175
|
|
cLn part,wMat,-0.10475,-0.03175,0.10475,-0.03175
|
|
cCLn part,wMat,-0.10475,-0.03175,0.10475,-0.03175
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag23(part,wMat)
|
|
cLn part,wMat,0,0.09475,0.03,0.09475
|
|
cLn part,wMat,0.03,0.09475,0.03,0.11475
|
|
cLn part,wMat,0.03,0.11475,0,0.11475
|
|
cLn part,wMat,0,0.11475,0,0.09475
|
|
cCLn part,wMat,0.03,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag24(part,wMat)
|
|
cLn part,wMat,0.01927,0.10085,0.021145,0.10085
|
|
cLn part,wMat,0.021145,0.10085,0.021145,0.08585
|
|
cLn part,wMat,0.021145,0.08585,0.01927,0.08585
|
|
cLn part,wMat,0.01927,0.08585,0.01927,0.10085
|
|
cCLn part,wMat,0.01927,0.08585,0.01927,0.10085
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag25(part,wMat)
|
|
cLn part,wMat,0.1,-0.03175,0.1,-0.033625
|
|
cLn part,wMat,0.1,-0.033625,0.085,-0.033625
|
|
cLn part,wMat,0.085,-0.033625,0.085,-0.03175
|
|
cLn part,wMat,0.085,-0.03175,0.1,-0.03175
|
|
cCLn part,wMat,0.085,-0.03175,0.1,-0.03175
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag26(part,wMat)
|
|
cLn part,wMat,-0.085,-0.03185,-0.085,-0.033725
|
|
cLn part,wMat,-0.085,-0.033725,-0.1,-0.033725
|
|
cLn part,wMat,-0.1,-0.033725,-0.1,-0.03185
|
|
cLn part,wMat,-0.1,-0.03185,-0.085,-0.03185
|
|
cCLn part,wMat,-0.1,-0.03185,-0.085,-0.03185
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag27(part,wMat)
|
|
cLn part,wMat,0.0645,0.091521483122797,0.06725,0.091521483122797
|
|
cLn part,wMat,0.06725,0.091521483122797,0.06725,0
|
|
cLn part,wMat,0.06725,0,0.0645,0
|
|
cLn part,wMat,0.0645,0,0.0645,0.091521483122797
|
|
cCLn part,wMat,0.0645,0,0.0645,0.091521483122797
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag12(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(0,0,-1),createVec3d(0,1,0),1
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag13 part,wMat
|
|
codeBag14 part,wMat
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.184,0.184,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0.0475),createVec3d(1,0,0.0475),createVec3d(0,1,0.0475),1
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0.0475)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag15 part,wMat
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.106,0,0.0475),createVec3d(1.106,0,0.0475),createVec3d(0.106,1,0.0475),1
|
|
set feat12=part.Extension.GetLastFeatureAdded()
|
|
feat12.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0.106,0,0.0475)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag16 part,wMat
|
|
set feat12=part.Extension.GetLastFeatureAdded()
|
|
feat12.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0,-0.0475),createVec3d(1,0,-0.0475),createVec3d(0,1,-0.0475),1
|
|
set feat13=part.Extension.GetLastFeatureAdded()
|
|
feat13.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.0475)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag17 part,wMat
|
|
set feat13=part.Extension.GetLastFeatureAdded()
|
|
feat13.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.106,0,-0.0475),createVec3d(1.106,0,-0.0475),createVec3d(0.106,1,-0.0475),1
|
|
set feat14=part.Extension.GetLastFeatureAdded()
|
|
feat14.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0.106,0,-0.0475)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag18 part,wMat
|
|
set feat14=part.Extension.GetLastFeatureAdded()
|
|
feat14.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat17=part.Extension.GetLastFeatureAdded()
|
|
feat17.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag19 part,wMat
|
|
set feat17=part.Extension.GetLastFeatureAdded()
|
|
feat17.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat18=part.Extension.GetLastFeatureAdded()
|
|
feat18.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag20 part,wMat
|
|
set feat18=part.Extension.GetLastFeatureAdded()
|
|
feat18.select2 false,0
|
|
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
|
|
part.CreatePlaneFixed2 createVec3d(0.012,0,0),createVec3d(0.012,0,-1),createVec3d(0.012,1,0),1
|
|
set feat21=part.Extension.GetLastFeatureAdded()
|
|
feat21.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.012,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag21 part,wMat
|
|
set feat21=part.Extension.GetLastFeatureAdded()
|
|
feat21.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.012,0,0),createVec3d(0.012,0,-1),createVec3d(0.012,1,0),1
|
|
set feat23=part.Extension.GetLastFeatureAdded()
|
|
feat23.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.012,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag22 part,wMat
|
|
set feat23=part.Extension.GetLastFeatureAdded()
|
|
feat23.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat25=part.Extension.GetLastFeatureAdded()
|
|
feat25.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag23 part,wMat
|
|
set feat25=part.Extension.GetLastFeatureAdded()
|
|
feat25.select2 false,0
|
|
featMgr.FeatureRevolveCut2 2.0943951023932,1,2.0943951023932,2,0,1,1,false,false,false
|
|
part.CreatePlaneFixed2 createVec3d(0.012,0,0),createVec3d(0.012,0,-1),createVec3d(0.012,1,0),1
|
|
set feat27=part.Extension.GetLastFeatureAdded()
|
|
feat27.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.012,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag24 part,wMat
|
|
set feat27=part.Extension.GetLastFeatureAdded()
|
|
feat27.select2 false,0
|
|
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
|
|
part.CreatePlaneFixed2 createVec3d(0.012,0,0),createVec3d(0.012,0,-1),createVec3d(0.012,1,0),1
|
|
set feat29=part.Extension.GetLastFeatureAdded()
|
|
feat29.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.012,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag25 part,wMat
|
|
set feat29=part.Extension.GetLastFeatureAdded()
|
|
feat29.select2 false,0
|
|
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
|
|
part.CreatePlaneFixed2 createVec3d(0.012,0,0),createVec3d(0.012,0,-1),createVec3d(0.012,1,0),1
|
|
set feat31=part.Extension.GetLastFeatureAdded()
|
|
feat31.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.012,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag26 part,wMat
|
|
set feat31=part.Extension.GetLastFeatureAdded()
|
|
feat31.select2 false,0
|
|
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
|
|
part.CreatePlaneFixed2 createVec3d(0,0.01905,0),createVec3d(1,0.01905,0),createVec3d(0,0.01905,-1),1
|
|
set feat34=part.Extension.GetLastFeatureAdded()
|
|
feat34.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.01905,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag27 part,wMat
|
|
set feat34=part.Extension.GetLastFeatureAdded()
|
|
feat34.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
end sub
|
|
|
|
sub codeBag29(part,wMat)
|
|
cLn part,wMat,0.1195,0.091521483122797,0.12225,0.091521483122797
|
|
cLn part,wMat,0.12225,0.091521483122797,0.12225,0
|
|
cLn part,wMat,0.12225,0,0.1195,0
|
|
cLn part,wMat,0.1195,0,0.1195,0.091521483122797
|
|
cCLn part,wMat,0.1195,0,0.1195,0.091521483122797
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag30(part,wMat)
|
|
cLn part,wMat,0.0645,0.1085214831228,0.06585,0.1085214831228
|
|
cLn part,wMat,0.06585,0.1085214831228,0.06585,0.077
|
|
cLn part,wMat,0.06585,0.077,0.0645,0.077
|
|
cLn part,wMat,0.0645,0.077,0.0645,0.1085214831228
|
|
cCLn part,wMat,0.0645,0.077,0.0645,0.1085214831228
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag31(part,wMat)
|
|
cLn part,wMat,0.1195,0.1085214831228,0.12085,0.1085214831228
|
|
cLn part,wMat,0.12085,0.1085214831228,0.12085,0.077
|
|
cLn part,wMat,0.12085,0.077,0.1195,0.077
|
|
cLn part,wMat,0.1195,0.077,0.1195,0.1085214831228
|
|
cCLn part,wMat,0.1195,0.077,0.1195,0.1085214831228
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag32(part,wMat)
|
|
cLn part,wMat,0.0595,-0.091521483122797,0.05675,-0.091521483122797
|
|
cLn part,wMat,0.05675,-0.091521483122797,0.053553999384326,0
|
|
cLn part,wMat,0.053553999384326,0,0.0595,0
|
|
cLn part,wMat,0.0595,0,0.0595,-0.091521483122797
|
|
cCLn part,wMat,0.0595,0,0.0595,-0.091521483122797
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag33(part,wMat)
|
|
cLn part,wMat,0.0695,-0.091521483122797,0.06675,-0.091521483122797
|
|
cLn part,wMat,0.06675,-0.091521483122797,0.063553999384326,0
|
|
cLn part,wMat,0.063553999384326,0,0.0695,0
|
|
cLn part,wMat,0.0695,0,0.0695,-0.091521483122797
|
|
cCLn part,wMat,0.0695,0,0.0695,-0.091521483122797
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag34(part,wMat)
|
|
cLn part,wMat,0.1145,-0.091521483122797,0.11175,-0.091521483122797
|
|
cLn part,wMat,0.11175,-0.091521483122797,0.10855399938433,0
|
|
cLn part,wMat,0.10855399938433,0,0.1145,0
|
|
cLn part,wMat,0.1145,0,0.1145,-0.091521483122797
|
|
cCLn part,wMat,0.1145,0,0.1145,-0.091521483122797
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag35(part,wMat)
|
|
cLn part,wMat,0.1245,-0.091521483122797,0.12175,-0.091521483122797
|
|
cLn part,wMat,0.12175,-0.091521483122797,0.11855399938433,0
|
|
cLn part,wMat,0.11855399938433,0,0.1245,0
|
|
cLn part,wMat,0.1245,0,0.1245,-0.091521483122797
|
|
cCLn part,wMat,0.1245,0,0.1245,-0.091521483122797
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag36(part,wMat)
|
|
cLn part,wMat,-0.091521483122797,0.0218,-0.091521483122797,0.0163
|
|
cLn part,wMat,-0.091521483122797,0.0163,0,0.013103999384326
|
|
cLn part,wMat,0,0.013103999384326,0,0.024996000615674
|
|
cLn part,wMat,0,0.024996000615674,-0.091521483122797,0.0218
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag37(part,wMat)
|
|
cLn part,wMat,-0.091521483122797,0.0218,-0.091521483122797,0.0163
|
|
cLn part,wMat,-0.091521483122797,0.0163,0,0.013103999384326
|
|
cLn part,wMat,0,0.013103999384326,0,0.024996000615674
|
|
cLn part,wMat,0,0.024996000615674,-0.091521483122797,0.0218
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag38(part,wMat)
|
|
cLn part,wMat,-0.049,0.0995,-0.045775,0.09391413614559
|
|
cLn part,wMat,-0.045775,0.09391413614559,-0.045775,0
|
|
cLn part,wMat,-0.045775,0,0.045775,0
|
|
cLn part,wMat,0.045775,0,0.045775,0.09391413614559
|
|
cLn part,wMat,0.045775,0.09391413614559,0.049,0.0995
|
|
cLn part,wMat,0.049,0.0995,0.049,0.105
|
|
cLn part,wMat,0.049,0.105,-0.049,0.105
|
|
cLn part,wMat,-0.049,0.105,-0.049,0.0995
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag39(part,wMat)
|
|
cArc part,wMat,0.101,0.10330037878244,0.107,0.0756,0.113,0.10330037878244
|
|
cLn part,wMat,0.113,0.10330037878244,0.113,0.105
|
|
cLn part,wMat,0.113,0.105,0.101,0.105
|
|
cLn part,wMat,0.101,0.105,0.101,0.10330037878244
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag40(part,wMat)
|
|
cArc part,wMat,0.14,0.10330037878244,0.146,0.0756,0.152,0.10330037878244
|
|
cLn part,wMat,0.152,0.10330037878244,0.152,0.105
|
|
cLn part,wMat,0.152,0.105,0.14,0.105
|
|
cLn part,wMat,0.14,0.105,0.14,0.10330037878244
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag41(part,wMat)
|
|
cLn part,wMat,0.0924,0.091,0.12152,0.091
|
|
cLn part,wMat,0.12152,0.091,0.12152,0.0995
|
|
cLn part,wMat,0.12152,0.0995,0.13145,0.0995
|
|
cLn part,wMat,0.13145,0.0995,0.13145,0.091
|
|
cLn part,wMat,0.13145,0.091,0.16055,0.091
|
|
cLn part,wMat,0.16055,0.091,0.16055,0.105
|
|
cLn part,wMat,0.16055,0.105,0.0924,0.105
|
|
cLn part,wMat,0.0924,0.105,0.0924,0.091
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag42(part,wMat)
|
|
cLn part,wMat,0.0675,-0.0062,0.0675,-0.019275
|
|
cLn part,wMat,0.0675,-0.019275,0.0775,-0.019275
|
|
cLn part,wMat,0.0775,-0.019275,0.0775,-0.0062
|
|
cLn part,wMat,0.0775,-0.0062,0.0675,-0.0062
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag28(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0.01905,0),createVec3d(1,0.01905,0),createVec3d(0,0.01905,-1),1
|
|
set feat36=part.Extension.GetLastFeatureAdded()
|
|
feat36.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.01905,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag29 part,wMat
|
|
set feat36=part.Extension.GetLastFeatureAdded()
|
|
feat36.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0.01905,0),createVec3d(1,0.01905,0),createVec3d(0,0.01905,-1),1
|
|
set feat38=part.Extension.GetLastFeatureAdded()
|
|
feat38.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.01905,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag30 part,wMat
|
|
set feat38=part.Extension.GetLastFeatureAdded()
|
|
feat38.select2 false,0
|
|
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
|
|
part.CreatePlaneFixed2 createVec3d(0,0.01905,0),createVec3d(1,0.01905,0),createVec3d(0,0.01905,-1),1
|
|
set feat40=part.Extension.GetLastFeatureAdded()
|
|
feat40.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.01905,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag31 part,wMat
|
|
set feat40=part.Extension.GetLastFeatureAdded()
|
|
feat40.select2 false,0
|
|
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
|
|
part.CreatePlaneFixed2 createVec3d(0,0.01905,0),createVec3d(1,0.01905,0),createVec3d(0,0.01905,-1),1
|
|
set feat42=part.Extension.GetLastFeatureAdded()
|
|
feat42.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.01905,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag32 part,wMat
|
|
set feat42=part.Extension.GetLastFeatureAdded()
|
|
feat42.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0.01905,0),createVec3d(1,0.01905,0),createVec3d(0,0.01905,-1),1
|
|
set feat44=part.Extension.GetLastFeatureAdded()
|
|
feat44.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.01905,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag33 part,wMat
|
|
set feat44=part.Extension.GetLastFeatureAdded()
|
|
feat44.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0.01905,0),createVec3d(1,0.01905,0),createVec3d(0,0.01905,-1),1
|
|
set feat46=part.Extension.GetLastFeatureAdded()
|
|
feat46.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.01905,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag34 part,wMat
|
|
set feat46=part.Extension.GetLastFeatureAdded()
|
|
feat46.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0.01905,0),createVec3d(1,0.01905,0),createVec3d(0,0.01905,-1),1
|
|
set feat48=part.Extension.GetLastFeatureAdded()
|
|
feat48.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.01905,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag35 part,wMat
|
|
set feat48=part.Extension.GetLastFeatureAdded()
|
|
feat48.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.0595,0,0),createVec3d(0.0595,0,-1),createVec3d(0.0595,1,0),1
|
|
set feat51=part.Extension.GetLastFeatureAdded()
|
|
feat51.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.0595,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag36 part,wMat
|
|
set feat51=part.Extension.GetLastFeatureAdded()
|
|
feat51.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.01,0.01,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.1145,0,0),createVec3d(0.1145,0,-1),createVec3d(0.1145,1,0),1
|
|
set feat54=part.Extension.GetLastFeatureAdded()
|
|
feat54.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.1145,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag37 part,wMat
|
|
set feat54=part.Extension.GetLastFeatureAdded()
|
|
feat54.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.01,0.01,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.1755,0,0),createVec3d(0.1755,0,-1),createVec3d(0.1755,1,0),1
|
|
set feat57=part.Extension.GetLastFeatureAdded()
|
|
feat57.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.1755,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag38 part,wMat
|
|
set feat57=part.Extension.GetLastFeatureAdded()
|
|
feat57.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.098,0.098,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat59=part.Extension.GetLastFeatureAdded()
|
|
feat59.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag39 part,wMat
|
|
set feat59=part.Extension.GetLastFeatureAdded()
|
|
feat59.select2 false,0
|
|
featMgr.FeatureExtrusion2 0,0,1,0,0,0.0505,0.0505,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat61=part.Extension.GetLastFeatureAdded()
|
|
feat61.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag40 part,wMat
|
|
set feat61=part.Extension.GetLastFeatureAdded()
|
|
feat61.select2 false,0
|
|
featMgr.FeatureExtrusion2 0,0,1,0,0,0.0505,0.0505,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat63=part.Extension.GetLastFeatureAdded()
|
|
feat63.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag41 part,wMat
|
|
set feat63=part.Extension.GetLastFeatureAdded()
|
|
feat63.select2 false,0
|
|
featMgr.FeatureExtrusion2 0,0,1,0,0,0.049,0.049,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,0,-1),1
|
|
set feat65=part.Extension.GetLastFeatureAdded()
|
|
feat65.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag42 part,wMat
|
|
set feat65=part.Extension.GetLastFeatureAdded()
|
|
feat65.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.09,0.09,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
end sub
|
|
|
|
sub codeBag44(part,wMat)
|
|
cCir part,wMat,0,0.088,0.0035
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag45(part,wMat)
|
|
cCir part,wMat,0.0725,-0.012951,0.0018
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag43(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(0,0,-1),createVec3d(0,1,0),1
|
|
set feat67=part.Extension.GetLastFeatureAdded()
|
|
feat67.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag44 part,wMat
|
|
set feat67=part.Extension.GetLastFeatureAdded()
|
|
feat67.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.184,0.184,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.105,0),createVec3d(1,0.105,0),createVec3d(0,0.105,-1),1
|
|
set feat70=part.Extension.GetLastFeatureAdded()
|
|
feat70.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.105,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag45 part,wMat
|
|
set feat70=part.Extension.GetLastFeatureAdded()
|
|
feat70.select2 false,0
|
|
featMgr.FeatureCut3 1,0,0,0,0,0.029,0.029,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
end sub
|
|
|
|
sub codeBag47(part,wMat)
|
|
cLn part,wMat,0,0,0,0.09545
|
|
cLn part,wMat,0,0.09545,0.081069402422242,0.09545
|
|
cArc part,wMat,0.081069402422242,0.09545,0.081670814021251,0.095357433901496,0.082216555294944,0.095088304088578
|
|
cLn part,wMat,0.082216555294944,0.095088304088578,0.1001471528727,0.082533164500027
|
|
cArc part,wMat,0.1001471528727,0.082533164500027,0.10077402166636,0.081818357637919,0.101,0.080894860411449
|
|
cLn part,wMat,0.101,0.080894860411449,0.101,0
|
|
cLn part,wMat,0.101,0,0,0
|
|
cCLn part,wMat,0.101,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag46(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag47 part,wMat
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
end sub
|
|
|
|
sub codeBag48(part,featMgr)
|
|
end sub
|
|
|
|
sub codeBag50(part,wMat)
|
|
cLn part,wMat,0,0,0,0.015
|
|
cLn part,wMat,0,0.015,0.15575,0.015
|
|
cLn part,wMat,0.15575,0.015,0.15575,0.014
|
|
cLn part,wMat,0.15575,0.014,0.21375,0.014
|
|
cLn part,wMat,0.21375,0.014,0.21575,0.012845299461621
|
|
cLn part,wMat,0.21575,0.012845299461621,0.21575,0
|
|
cLn part,wMat,0.21575,0,0,0
|
|
cCLn part,wMat,0.21575,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag51(part,wMat)
|
|
cArc part,wMat,0.16725,0.004,0.16325,4.8985871965894e-19,0.16725,-0.004
|
|
cLn part,wMat,0.16725,-0.004,0.20425,-0.004
|
|
cArc part,wMat,0.20425,-0.004,0.20825,-9.7971743931788e-19,0.20425,0.004
|
|
cLn part,wMat,0.20425,0.004,0.16725,0.004
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag52(part,wMat)
|
|
cLn part,wMat,0.18088205707263,0,0.1833,0.004188
|
|
cLn part,wMat,0.1833,0.004188,0.207438,0.004188
|
|
cLn part,wMat,0.207438,0.004188,0.20825,0.005
|
|
cLn part,wMat,0.20825,0.005,0.20825,0.00525
|
|
cLn part,wMat,0.20825,0.00525,0.21194,0.00525
|
|
cLn part,wMat,0.21194,0.00525,0.21575,0.0074497045256125
|
|
cLn part,wMat,0.21575,0.0074497045256125,0.21575,0
|
|
cLn part,wMat,0.21575,0,0.18088205707263,0
|
|
cCLn part,wMat,0.21575,0,0.18088205707263,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag49(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat5=part.Extension.GetLastFeatureAdded()
|
|
feat5.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag50 part,wMat
|
|
set feat5=part.Extension.GetLastFeatureAdded()
|
|
feat5.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,0,-1),1
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag51 part,wMat
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.017,0.017,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat9=part.Extension.GetLastFeatureAdded()
|
|
feat9.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag52 part,wMat
|
|
set feat9=part.Extension.GetLastFeatureAdded()
|
|
feat9.select2 false,0
|
|
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
|
|
if getEdgeFromModel(part,createVec3d(0.207438,0.004188,0),cylEdge) then
|
|
cylEdge.Select(false)
|
|
Part.InsertCosmeticThread 0,0.01,0.022,""
|
|
elseif getEdgeFromModel(part,createVec3d(0.18625,0.004188,0),cylEdge) then
|
|
cylEdge.Select(false)
|
|
Part.InsertCosmeticThread 0,0.01,0.022,""
|
|
End If
|
|
end sub
|
|
|
|
sub codeBag54(part,wMat)
|
|
cArc part,wMat,-0.049,-0.0475,-0.04856066017178,-0.04856066017178,-0.0475,-0.049
|
|
cLn part,wMat,-0.0475,-0.049,0.0475,-0.049
|
|
cArc part,wMat,0.0475,-0.049,0.04856066017178,-0.04856066017178,0.049,-0.0475
|
|
cLn part,wMat,0.049,-0.0475,0.049,0.0475
|
|
cArc part,wMat,0.049,0.0475,0.04856066017178,0.04856066017178,0.0475,0.049
|
|
cLn part,wMat,0.0475,0.049,-0.0475,0.049
|
|
cArc part,wMat,-0.0475,0.049,-0.04856066017178,0.04856066017178,-0.049,0.0475
|
|
cLn part,wMat,-0.049,0.0475,-0.049,-0.0475
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag55(part,wMat)
|
|
cArc part,wMat,-0.049,-0.046,-0.04812132034356,-0.04812132034356,-0.046,-0.049
|
|
cLn part,wMat,-0.046,-0.049,0.046,-0.049
|
|
cArc part,wMat,0.046,-0.049,0.04812132034356,-0.04812132034356,0.049,-0.046
|
|
cLn part,wMat,0.049,-0.046,0.049,0.046
|
|
cArc part,wMat,0.049,0.046,0.04812132034356,0.04812132034356,0.046,0.049
|
|
cLn part,wMat,0.046,0.049,-0.046,0.049
|
|
cArc part,wMat,-0.046,0.049,-0.04812132034356,0.04812132034356,-0.049,0.046
|
|
cLn part,wMat,-0.049,0.046,-0.049,-0.046
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag56(part,wMat)
|
|
cArc part,wMat,-0.049,-0.046,-0.04812132034356,-0.04812132034356,-0.046,-0.049
|
|
cLn part,wMat,-0.046,-0.049,0.046,-0.049
|
|
cArc part,wMat,0.046,-0.049,0.04812132034356,-0.04812132034356,0.049,-0.046
|
|
cLn part,wMat,0.049,-0.046,0.049,0.046
|
|
cArc part,wMat,0.049,0.046,0.04812132034356,0.04812132034356,0.046,0.049
|
|
cLn part,wMat,0.046,0.049,-0.046,0.049
|
|
cArc part,wMat,-0.046,0.049,-0.04812132034356,0.04812132034356,-0.049,0.046
|
|
cLn part,wMat,-0.049,0.046,-0.049,-0.046
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag57(part,wMat)
|
|
cArc part,wMat,-0.04412132034356,0.03287867965644,-0.044771638597534,0.031905409609976,-0.045,0.030757359312881
|
|
cLn part,wMat,-0.045,0.030757359312881,-0.045,-0.030757359312881
|
|
cArc part,wMat,-0.045,-0.030757359312881,-0.044771638597534,-0.031905409609976,-0.04412132034356,-0.03287867965644
|
|
cLn part,wMat,-0.04412132034356,-0.03287867965644,-0.03287867965644,-0.04412132034356
|
|
cArc part,wMat,-0.03287867965644,-0.04412132034356,-0.031905409609976,-0.044771638597534,-0.030757359312881,-0.045
|
|
cLn part,wMat,-0.030757359312881,-0.045,0.030757359312881,-0.045
|
|
cArc part,wMat,0.030757359312881,-0.045,0.031905409609976,-0.044771638597534,0.03287867965644,-0.04412132034356
|
|
cLn part,wMat,0.03287867965644,-0.04412132034356,0.04412132034356,-0.03287867965644
|
|
cArc part,wMat,0.04412132034356,-0.03287867965644,0.044771638597534,-0.031905409609976,0.045,-0.030757359312881
|
|
cLn part,wMat,0.045,-0.030757359312881,0.045,0.030757359312881
|
|
cArc part,wMat,0.045,0.030757359312881,0.044771638597534,0.031905409609976,0.04412132034356,0.03287867965644
|
|
cLn part,wMat,0.04412132034356,0.03287867965644,0.03287867965644,0.04412132034356
|
|
cArc part,wMat,0.03287867965644,0.04412132034356,0.031905409609976,0.044771638597534,0.030757359312881,0.045
|
|
cLn part,wMat,0.030757359312881,0.045,-0.030757359312881,0.045
|
|
cArc part,wMat,-0.030757359312881,0.045,-0.031905409609976,0.044771638597534,-0.03287867965644,0.04412132034356
|
|
cLn part,wMat,-0.03287867965644,0.04412132034356,-0.04412132034356,0.03287867965644
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag58(part,wMat)
|
|
cArc part,wMat,-0.04337132034356,0.03212867965644,-0.044021638597534,0.031155409609976,-0.04425,0.030007359312881
|
|
cLn part,wMat,-0.04425,0.030007359312881,-0.04425,-0.030007359312881
|
|
cArc part,wMat,-0.04425,-0.030007359312881,-0.044021638597534,-0.031155409609976,-0.04337132034356,-0.03212867965644
|
|
cLn part,wMat,-0.04337132034356,-0.03212867965644,-0.03212867965644,-0.04337132034356
|
|
cArc part,wMat,-0.03212867965644,-0.04337132034356,-0.031155409609976,-0.044021638597534,-0.030007359312881,-0.04425
|
|
cLn part,wMat,-0.030007359312881,-0.04425,0.030007359312881,-0.04425
|
|
cArc part,wMat,0.030007359312881,-0.04425,0.031155409609976,-0.044021638597534,0.03212867965644,-0.04337132034356
|
|
cLn part,wMat,0.03212867965644,-0.04337132034356,0.04337132034356,-0.03212867965644
|
|
cArc part,wMat,0.04337132034356,-0.03212867965644,0.044021638597534,-0.031155409609976,0.04425,-0.030007359312881
|
|
cLn part,wMat,0.04425,-0.030007359312881,0.04425,0.030007359312881
|
|
cArc part,wMat,0.04425,0.030007359312881,0.044021638597534,0.031155409609976,0.04337132034356,0.03212867965644
|
|
cLn part,wMat,0.04337132034356,0.03212867965644,0.03212867965644,0.04337132034356
|
|
cArc part,wMat,0.03212867965644,0.04337132034356,0.031155409609976,0.044021638597534,0.030007359312881,0.04425
|
|
cLn part,wMat,0.030007359312881,0.04425,-0.030007359312881,0.04425
|
|
cArc part,wMat,-0.030007359312881,0.04425,-0.031155409609976,0.044021638597534,-0.03212867965644,0.04337132034356
|
|
cLn part,wMat,-0.03212867965644,0.04337132034356,-0.04337132034356,0.03212867965644
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag59(part,wMat)
|
|
cArc part,wMat,-0.0435,0.011255437353462,-0.041403805653782,0.010934207394636,-0.0395,0.01
|
|
cLn part,wMat,-0.0395,0.01,-0.0395,0.007
|
|
cLn part,wMat,-0.0395,0.007,-0.0435,0.007
|
|
cLn part,wMat,-0.0435,0.007,-0.0435,0.011255437353462
|
|
cCLn part,wMat,-0.0435,0.007,-0.0435,0.011255437353462
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag60(part,wMat)
|
|
cArc part,wMat,-0.0435,0.011255437353462,-0.041403805653782,0.010934207394636,-0.0395,0.01
|
|
cLn part,wMat,-0.0395,0.01,-0.0395,0.007
|
|
cLn part,wMat,-0.0395,0.007,-0.0435,0.007
|
|
cLn part,wMat,-0.0435,0.007,-0.0435,0.011255437353462
|
|
cCLn part,wMat,-0.0435,0.007,-0.0435,0.011255437353462
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag61(part,wMat)
|
|
cArc part,wMat,-0.0435,0.011255437353462,-0.041403805653782,0.010934207394636,-0.0395,0.01
|
|
cLn part,wMat,-0.0395,0.01,-0.0395,0.007
|
|
cLn part,wMat,-0.0395,0.007,-0.0435,0.007
|
|
cLn part,wMat,-0.0435,0.007,-0.0435,0.011255437353462
|
|
cCLn part,wMat,-0.0435,0.007,-0.0435,0.011255437353462
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag62(part,wMat)
|
|
cArc part,wMat,-0.0435,0.011255437353462,-0.041403805653782,0.010934207394636,-0.0395,0.01
|
|
cLn part,wMat,-0.0395,0.01,-0.0395,0.007
|
|
cLn part,wMat,-0.0395,0.007,-0.0435,0.007
|
|
cLn part,wMat,-0.0435,0.007,-0.0435,0.011255437353462
|
|
cCLn part,wMat,-0.0435,0.007,-0.0435,0.011255437353462
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag63(part,wMat)
|
|
cLn part,wMat,-0.0455,-0.044,-0.044,-0.044
|
|
cLn part,wMat,-0.044,-0.044,-0.044,-0.0455
|
|
cLn part,wMat,-0.044,-0.0455,-0.043,-0.0455
|
|
cLn part,wMat,-0.043,-0.0455,-0.043,-0.044
|
|
cLn part,wMat,-0.043,-0.044,-0.0415,-0.044
|
|
cLn part,wMat,-0.0415,-0.044,-0.0415,-0.043
|
|
cLn part,wMat,-0.0415,-0.043,-0.043,-0.043
|
|
cLn part,wMat,-0.043,-0.043,-0.043,-0.0415
|
|
cLn part,wMat,-0.043,-0.0415,-0.044,-0.0415
|
|
cLn part,wMat,-0.044,-0.0415,-0.044,-0.043
|
|
cLn part,wMat,-0.044,-0.043,-0.0455,-0.043
|
|
cLn part,wMat,-0.0455,-0.043,-0.0455,-0.044
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag64(part,wMat)
|
|
cLn part,wMat,-0.0455,-0.044,-0.044,-0.044
|
|
cLn part,wMat,-0.044,-0.044,-0.044,-0.0455
|
|
cLn part,wMat,-0.044,-0.0455,-0.043,-0.0455
|
|
cLn part,wMat,-0.043,-0.0455,-0.043,-0.044
|
|
cLn part,wMat,-0.043,-0.044,-0.0415,-0.044
|
|
cLn part,wMat,-0.0415,-0.044,-0.0415,-0.043
|
|
cLn part,wMat,-0.0415,-0.043,-0.043,-0.043
|
|
cLn part,wMat,-0.043,-0.043,-0.043,-0.0415
|
|
cLn part,wMat,-0.043,-0.0415,-0.044,-0.0415
|
|
cLn part,wMat,-0.044,-0.0415,-0.044,-0.043
|
|
cLn part,wMat,-0.044,-0.043,-0.0455,-0.043
|
|
cLn part,wMat,-0.0455,-0.043,-0.0455,-0.044
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag65(part,wMat)
|
|
cLn part,wMat,-0.0455,-0.044,-0.044,-0.044
|
|
cLn part,wMat,-0.044,-0.044,-0.044,-0.0455
|
|
cLn part,wMat,-0.044,-0.0455,-0.043,-0.0455
|
|
cLn part,wMat,-0.043,-0.0455,-0.043,-0.044
|
|
cLn part,wMat,-0.043,-0.044,-0.0415,-0.044
|
|
cLn part,wMat,-0.0415,-0.044,-0.0415,-0.043
|
|
cLn part,wMat,-0.0415,-0.043,-0.043,-0.043
|
|
cLn part,wMat,-0.043,-0.043,-0.043,-0.0415
|
|
cLn part,wMat,-0.043,-0.0415,-0.044,-0.0415
|
|
cLn part,wMat,-0.044,-0.0415,-0.044,-0.043
|
|
cLn part,wMat,-0.044,-0.043,-0.0455,-0.043
|
|
cLn part,wMat,-0.0455,-0.043,-0.0455,-0.044
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag66(part,wMat)
|
|
cLn part,wMat,-0.0455,-0.044,-0.044,-0.044
|
|
cLn part,wMat,-0.044,-0.044,-0.044,-0.0455
|
|
cLn part,wMat,-0.044,-0.0455,-0.043,-0.0455
|
|
cLn part,wMat,-0.043,-0.0455,-0.043,-0.044
|
|
cLn part,wMat,-0.043,-0.044,-0.0415,-0.044
|
|
cLn part,wMat,-0.0415,-0.044,-0.0415,-0.043
|
|
cLn part,wMat,-0.0415,-0.043,-0.043,-0.043
|
|
cLn part,wMat,-0.043,-0.043,-0.043,-0.0415
|
|
cLn part,wMat,-0.043,-0.0415,-0.044,-0.0415
|
|
cLn part,wMat,-0.044,-0.0415,-0.044,-0.043
|
|
cLn part,wMat,-0.044,-0.043,-0.0455,-0.043
|
|
cLn part,wMat,-0.0455,-0.043,-0.0455,-0.044
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag53(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,0,-1),1
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag54 part,wMat
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.002,0.002,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.004,0),createVec3d(1,0.004,0),createVec3d(0,0.004,-1),1
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.004,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag55 part,wMat
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.002,0.002,1,1,0,0,0.017453292519943,0.017453292519943,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.004,0),createVec3d(1,0.004,0),createVec3d(0,0.004,-1),1
|
|
set feat9=part.Extension.GetLastFeatureAdded()
|
|
feat9.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.004,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag56 part,wMat
|
|
set feat9=part.Extension.GetLastFeatureAdded()
|
|
feat9.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.003,0.003,1,1,0,0,0.017453292519943,0.017453292519943,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.007,0),createVec3d(1,0.007,0),createVec3d(0,0.007,-1),1
|
|
set feat1400000=part.Extension.GetLastFeatureAdded()
|
|
feat1400000.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.007,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag57 part,wMat
|
|
set feat1400000=part.Extension.GetLastFeatureAdded()
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat1400001=part.Extension.GetLastFeatureAdded()
|
|
feat1400001.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag58 part,wMat
|
|
set feat1400001=part.Extension.GetLastFeatureAdded()
|
|
Part.SketchManager.Insert3DSketch True
|
|
Part.SketchManager.CreateLine -0.04412132034356,0.007,-0.03287867965644,-0.04337132034356,0.05,-0.03212867965644
|
|
Part.SketchManager.Insert3DSketch True
|
|
set feat1400002=getLastFeatureByType(part,"3DProfileFeature")
|
|
feat1400000.select2 false,0
|
|
feat1400001.select2 true,0
|
|
feat1400002.select2 true,0
|
|
Part.FeatureManager.InsertProtrusionBlend 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0.0435),createVec3d(1,0,0.0435),createVec3d(0,1,0.0435),1
|
|
set feat17=part.Extension.GetLastFeatureAdded()
|
|
feat17.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0.0435)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag59 part,wMat
|
|
set feat17=part.Extension.GetLastFeatureAdded()
|
|
feat17.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.087,0,0.0435),createVec3d(1.087,0,0.0435),createVec3d(0.087,1,0.0435),1
|
|
set feat22=part.Extension.GetLastFeatureAdded()
|
|
feat22.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0.087,0,0.0435)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag60 part,wMat
|
|
set feat22=part.Extension.GetLastFeatureAdded()
|
|
feat22.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0,-0.0435),createVec3d(1,0,-0.0435),createVec3d(0,1,-0.0435),1
|
|
set feat23=part.Extension.GetLastFeatureAdded()
|
|
feat23.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.0435)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag61 part,wMat
|
|
set feat23=part.Extension.GetLastFeatureAdded()
|
|
feat23.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.087,0,-0.0435),createVec3d(1.087,0,-0.0435),createVec3d(0.087,1,-0.0435),1
|
|
set feat24=part.Extension.GetLastFeatureAdded()
|
|
feat24.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0.087,0,-0.0435)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag62 part,wMat
|
|
set feat24=part.Extension.GetLastFeatureAdded()
|
|
feat24.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0.009,0),createVec3d(1,0.009,0),createVec3d(0,0.009,-1),1
|
|
set feat27=part.Extension.GetLastFeatureAdded()
|
|
feat27.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.009,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag63 part,wMat
|
|
set feat27=part.Extension.GetLastFeatureAdded()
|
|
feat27.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.087,0.009,0),createVec3d(1.087,0.009,0),createVec3d(0.087,0.009,-1),1
|
|
set feat31=part.Extension.GetLastFeatureAdded()
|
|
feat31.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0.087,0.009,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag64 part,wMat
|
|
set feat31=part.Extension.GetLastFeatureAdded()
|
|
feat31.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.009,-0.087),createVec3d(1,0.009,-0.087),createVec3d(0,0.009,-1.087),1
|
|
set feat32=part.Extension.GetLastFeatureAdded()
|
|
feat32.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.009,-0.087)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag65 part,wMat
|
|
set feat32=part.Extension.GetLastFeatureAdded()
|
|
feat32.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.087,0.009,-0.087),createVec3d(1.087,0.009,-0.087),createVec3d(0.087,0.009,-1.087),1
|
|
set feat33=part.Extension.GetLastFeatureAdded()
|
|
feat33.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0.087,0.009,-0.087)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag66 part,wMat
|
|
set feat33=part.Extension.GetLastFeatureAdded()
|
|
feat33.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
end sub
|
|
|
|
sub codeBag68(part,wMat)
|
|
cArc part,wMat,-0.04425,-0.030007359312881,-0.044021638597534,-0.031155409609976,-0.04337132034356,-0.03212867965644
|
|
cLn part,wMat,-0.04337132034356,-0.03212867965644,-0.03212867965644,-0.04337132034356
|
|
cArc part,wMat,-0.03212867965644,-0.04337132034356,-0.031155409609976,-0.044021638597534,-0.030007359312881,-0.04425
|
|
cLn part,wMat,-0.030007359312881,-0.04425,0.030007359312881,-0.04425
|
|
cArc part,wMat,0.030007359312881,-0.04425,0.031155409609976,-0.044021638597534,0.03212867965644,-0.04337132034356
|
|
cLn part,wMat,0.03212867965644,-0.04337132034356,0.04337132034356,-0.03212867965644
|
|
cArc part,wMat,0.04337132034356,-0.03212867965644,0.044021638597534,-0.031155409609976,0.04425,-0.030007359312881
|
|
cLn part,wMat,0.04425,-0.030007359312881,0.04425,0.030007359312881
|
|
cArc part,wMat,0.04425,0.030007359312881,0.044021638597534,0.031155409609976,0.04337132034356,0.03212867965644
|
|
cLn part,wMat,0.04337132034356,0.03212867965644,0.03212867965644,0.04337132034356
|
|
cArc part,wMat,0.03212867965644,0.04337132034356,0.031155409609976,0.044021638597534,0.030007359312881,0.04425
|
|
cLn part,wMat,0.030007359312881,0.04425,-0.030007359312881,0.04425
|
|
cArc part,wMat,-0.030007359312881,0.04425,-0.031155409609976,0.044021638597534,-0.03212867965644,0.04337132034356
|
|
cLn part,wMat,-0.03212867965644,0.04337132034356,-0.04337132034356,0.03212867965644
|
|
cArc part,wMat,-0.04337132034356,0.03212867965644,-0.044021638597534,0.031155409609976,-0.04425,0.030007359312881
|
|
cLn part,wMat,-0.04425,0.030007359312881,-0.04425,-0.030007359312881
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag69(part,wMat)
|
|
cLn part,wMat,-0.08,-0.08,0.08,-0.08
|
|
cLn part,wMat,0.08,-0.08,0.08,0.08
|
|
cLn part,wMat,0.08,0.08,-0.08,0.08
|
|
cLn part,wMat,-0.08,0.08,-0.08,-0.08
|
|
cLn part,wMat,0.0119992291629,0.0024436826352,0.0119993520975,0.00216163136065
|
|
cLn part,wMat,0.0119993520975,0.00216163136065,0.0128198621869,0.00216198945415
|
|
cLn part,wMat,0.0128198621869,0.00216198945415,0.01282029059525,0.00118763046335
|
|
cLn part,wMat,0.01282029059525,0.00118763046335,0.0119997767806,0.00118727248625
|
|
cLn part,wMat,0.0119997767806,0.00118727248625,0.01199989971515,0.0009052212117
|
|
cLn part,wMat,0.01199989971515,0.0009052212117,0.013999900043,0.00090609386095
|
|
cLn part,wMat,0.013999900043,0.00090609386095,0.0139997771084,0.0011881451355
|
|
cLn part,wMat,0.0139997771084,0.0011881451355,0.0130510574281,0.00118773116265
|
|
cLn part,wMat,0.0130510574281,0.00118773116265,0.013050632745,0.002162090037
|
|
cLn part,wMat,0.013050632745,0.002162090037,0.0139993524253,0.0021625040099
|
|
cLn part,wMat,0.0139993524253,0.0021625040099,0.01399922949075,0.00244455528445
|
|
cLn part,wMat,0.01399922949075,0.00244455528445,0.0119992291629,0.0024436826352
|
|
cLn part,wMat,0.01199841332435,0.0043154773302,0.01199902799725,0.00290522095745
|
|
cLn part,wMat,0.01199902799725,0.00290522095745,0.01399902832505,0.0029060936067
|
|
cLn part,wMat,0.01399902832505,0.0029060936067,0.01399838757515,0.00436763186005
|
|
cLn part,wMat,0.01399838757515,0.00436763186005,0.0137676207423,0.0043675312772
|
|
cLn part,wMat,0.0137676207423,0.0043675312772,0.01376813483235,0.0031880442984
|
|
cLn part,wMat,0.01376813483235,0.0031880442984,0.0130758268833,0.00318774208425
|
|
cLn part,wMat,0.0130758268833,0.00318774208425,0.0130753686726,0.00423902412875
|
|
cLn part,wMat,0.0130753686726,0.00423902412875,0.01284459811445,0.0042389235459
|
|
cLn part,wMat,0.01284459811445,0.0042389235459,0.0128450563252,0.0031876415014
|
|
cLn part,wMat,0.0128450563252,0.0031876415014,0.0122296718955,0.0031873730477
|
|
cLn part,wMat,0.0122296718955,0.0031873730477,0.01222918015715,0.00431557791305
|
|
cLn part,wMat,0.01222918015715,0.00431557791305,0.01199841332435,0.0043154773302
|
|
cLn part,wMat,0.0119978545308,0.0055899163708,0.01199799236655,0.00527180731295
|
|
cLn part,wMat,0.01199799236655,0.00527180731295,0.01399833914635,0.00447860965505
|
|
cLn part,wMat,0.01399833914635,0.00447860965505,0.0139982087612,0.00477788830175
|
|
cLn part,wMat,0.0139982087612,0.00477788830175,0.01338272747395,0.00500518409535
|
|
cLn part,wMat,0.01338272747395,0.00500518409535,0.0133823549449,0.00585774797945
|
|
cLn part,wMat,0.0133823549449,0.00585774797945,0.0139976387918,0.0060855806805
|
|
cLn part,wMat,0.0139976387918,0.0060855806805,0.0139975084066,0.0063848593272
|
|
cLn part,wMat,0.0139975084066,0.0063848593272,0.0119978545308,0.0055899163708
|
|
cLn part,wMat,0.0119970386922,0.0074653169139995,0.01199741494655,0.0065975282341
|
|
cLn part,wMat,0.01199741494655,0.0065975282341,0.01399741527435,0.00659840088335
|
|
cLn part,wMat,0.01399741527435,0.00659840088335,0.0139972923398,0.00688045239075
|
|
cLn part,wMat,0.0139972923398,0.00688045239075,0.0130998550057,0.0068800607696
|
|
cLn part,wMat,0.0130998550057,0.0068800607696,0.01309973207115,0.00716892303895
|
|
cLn part,wMat,0.01309973207115,0.00716892303895,0.013101262505077,0.0072381068756126
|
|
cArc part,wMat,0.013101262505077,0.0072381068756126,0.013128986125353,0.0073641853948098,0.013202021764492,0.0074699673794574
|
|
cArc part,wMat,0.013202021764492,0.0074699673794574,0.013251374068263,0.0075141818310855,0.013304100173244,0.0075543131838654
|
|
cLn part,wMat,0.013304100173244,0.0075543131838654,0.013574647578456,0.0077280247396353
|
|
cLn part,wMat,0.013574647578456,0.0077280247396353,0.0139968155026,0.0079774074256
|
|
cLn part,wMat,0.0139968155026,0.0079774074256,0.0139966739416,0.0083007244393
|
|
cLn part,wMat,0.0139966739416,0.0083007244393,0.0134447312057,0.0079723587259502
|
|
cArc part,wMat,0.0134447312057,0.0079723587259502,0.013331430187034,0.0078994961490481,0.013226493059903,0.0078150315097445
|
|
cArc part,wMat,0.013226493059903,0.0078150315097445,0.013138662559829,0.0077189411433315,0.013073898906448,0.0076060109908291
|
|
cArc part,wMat,0.013073898906448,0.0076060109908291,0.013001045234558,0.007858390792627,0.012827093151202,0.0080552254810361
|
|
cArc part,wMat,0.012827093151202,0.0080552254810361,0.012539989178129,0.0081361748650141,0.012250439176892,0.0080644650964817
|
|
cArc part,wMat,0.012250439176892,0.0080644650964817,0.012128621825406,0.0079707313647139,0.012047064366501,0.007840447595612
|
|
cArc part,wMat,0.012047064366501,0.007840447595612,0.012006349823362,0.0076549761609253,0.0119970386922,0.0074653169139995
|
|
cLn part,wMat,0.0119959285557,0.01000778470185,0.01199661028385,0.0084436824545
|
|
cLn part,wMat,0.01199661028385,0.0084436824545,0.01222738084195,0.00844378303735
|
|
cLn part,wMat,0.01222738084195,0.00844378303735,0.0122271014452,0.00908480864015
|
|
cLn part,wMat,0.0122271014452,0.00908480864015,0.0139963312149,0.0090855807066
|
|
cLn part,wMat,0.0139963312149,0.0090855807066,0.0139962082803,0.0093676317483
|
|
cLn part,wMat,0.0139962082803,0.0093676317483,0.0122269785106,0.0093668596819
|
|
cLn part,wMat,0.0122269785106,0.0093668596819,0.01222669538855,0.0100078852847
|
|
cLn part,wMat,0.01222669538855,0.0100078852847,0.0119959285557,0.01000778470185
|
|
cLn part,wMat,0.0119939355254,0.01457188650965,0.0119945166707,0.01323855295775
|
|
cLn part,wMat,0.0119945166707,0.01323855295775,0.0139945169985,0.013239425607
|
|
cLn part,wMat,0.0139945169985,0.013239425607,0.01399439406395,0.01352147758005
|
|
cLn part,wMat,0.01399439406395,0.01352147758005,0.01309696045515,0.01352108549325
|
|
cLn part,wMat,0.01309696045515,0.01352108549325,0.0130965655744,0.014418521896
|
|
cLn part,wMat,0.0130965655744,0.014418521896,0.01286579874155,0.01441842038185
|
|
cLn part,wMat,0.01286579874155,0.01441842038185,0.01286618989705,0.0135209849104
|
|
cLn part,wMat,0.01286618989705,0.0135209849104,0.0122251642942,0.01352070551365
|
|
cLn part,wMat,0.0122251642942,0.01352070551365,0.0122247060835,0.0145719870925
|
|
cLn part,wMat,0.0122247060835,0.0145719870925,0.0119939355254,0.01457188650965
|
|
cLn part,wMat,0.0119926279485,0.0175718870014,0.01199281048775,0.01715121418235
|
|
cLn part,wMat,0.01199281048775,0.01715121418235,0.013678866949508,0.01661089931591
|
|
cLn part,wMat,0.013678866949508,0.01661089931591,0.0119932798743,0.01607308909295
|
|
cLn part,wMat,0.0119932798743,0.01607308909295,0.0119934661388,0.0156488101929
|
|
cLn part,wMat,0.0119934661388,0.0156488101929,0.01399346646665,0.01564968191085
|
|
cLn part,wMat,0.01399346646665,0.01564968191085,0.01399334353205,0.0159317329526
|
|
cLn part,wMat,0.01399334353205,0.0159317329526,0.01230103728175,0.0159309953451
|
|
cLn part,wMat,0.01230103728175,0.0159309953451,0.01399311256405,0.0164621826261
|
|
cLn part,wMat,0.01399311256405,0.0164621826261,0.0139929821789,0.0167570542544
|
|
cLn part,wMat,0.0139929821789,0.0167570542544,0.0123004412353,0.0172899700701
|
|
cLn part,wMat,0.0123004412353,0.0172899700701,0.0139927512109,0.0172907076776
|
|
cLn part,wMat,0.0139927512109,0.0172907076776,0.01399262827635,0.0175727587193
|
|
cLn part,wMat,0.01399262827635,0.0175727587193,0.0119926279485,0.0175718870014
|
|
cLn part,wMat,0.0119908919632,0.02154624462125,0.01199157741665,0.0199821423739
|
|
cLn part,wMat,0.01199157741665,0.0199821423739,0.01222234424945,0.01998224295675
|
|
cLn part,wMat,0.01222234424945,0.01998224295675,0.0122220648527,0.02062326855955
|
|
cLn part,wMat,0.0122220648527,0.02062326855955,0.0139912946224,0.0206240415573
|
|
cLn part,wMat,0.0139912946224,0.0206240415573,0.0139911716878,0.020906092599
|
|
cLn part,wMat,0.0139911716878,0.020906092599,0.0122219419181,0.0209053196013
|
|
cLn part,wMat,0.0122219419181,0.0209053196013,0.01222166252135,0.0215463452041
|
|
cLn part,wMat,0.01222166252135,0.0215463452041,0.0119908919632,0.02154624462125
|
|
cLn part,wMat,0.0119906237423,0.02216162905095,0.0119907466769,0.02187957800925
|
|
cLn part,wMat,0.0119907466769,0.02187957800925,0.01399074700475,0.0218804515898
|
|
cLn part,wMat,0.01399074700475,0.0218804515898,0.01399062407015,0.02216250263155
|
|
cLn part,wMat,0.01399062407015,0.02216250263155,0.0119906237423,0.02216162905095
|
|
cLn part,wMat,0.01198881325125,0.0263154748827,0.0119889361858,0.026033423841
|
|
cLn part,wMat,0.0119889361858,0.026033423841,0.0134813247323,0.0260340757668
|
|
cLn part,wMat,0.0134813247323,0.0260340757668,0.01198935341835,0.02507509104905
|
|
end sub
|
|
|
|
sub codeBag70(part,wMat)
|
|
cLn part,wMat,0.01198935341835,0.02507509104905,0.0119894838035,0.02477701380845
|
|
cLn part,wMat,0.0119894838035,0.02477701380845,0.0139894841313,0.02477788738905
|
|
cLn part,wMat,0.0139894841313,0.02477788738905,0.01398936119675,0.02505993843075
|
|
cLn part,wMat,0.01398936119675,0.02505993843075,0.01249697265025,0.02505928650495
|
|
cLn part,wMat,0.01249697265025,0.02505928650495,0.01398894023895,0.0260182712227
|
|
cLn part,wMat,0.01398894023895,0.0260182712227,0.01398881357905,0.0263163484633
|
|
cLn part,wMat,0.01398881357905,0.0263163484633,0.01198881325125,0.0263154748827
|
|
cArc part,wMat,0.012073577813944,0.012378504759918,0.011969685452669,0.011907226332557,0.012093989053453,0.011440915713269
|
|
cArc part,wMat,0.012093989053453,0.011440915713269,0.01227428184514,0.01122456512281,0.012513122475772,0.011075339716532
|
|
cArc part,wMat,0.012513122475772,0.011075339716532,0.012996650472727,0.010982242406382,0.013479441475499,0.011079089092644
|
|
cArc part,wMat,0.013479441475499,0.011079089092644,0.013732204118146,0.011243198824439,0.013915275231423,0.01148258538436
|
|
cArc part,wMat,0.013915275231423,0.01148258538436,0.014020728909044,0.011930553577564,0.013916239755222,0.012378747728557
|
|
cArc part,wMat,0.013916239755222,0.012378747728557,0.013737914715208,0.012620166792798,0.013485821147992,0.012783052697191
|
|
cArc part,wMat,0.013485821147992,0.012783052697191,0.013007682191232,0.012879962169162,0.01252780979917,0.01279203722919
|
|
cArc part,wMat,0.01252780979917,0.01279203722919,0.012262876578398,0.012626810162329,0.012073577813944,0.012378504759918
|
|
cArc part,wMat,0.012073577813944,0.023916882967201,0.011969685452669,0.02344560453984,0.012093989053454,0.022979293920551
|
|
cArc part,wMat,0.012093989053454,0.022979293920551,0.01227428184514,0.022762943330093,0.012513122475769,0.022613717923816
|
|
cArc part,wMat,0.012513122475769,0.022613717923816,0.012996650472727,0.022520620613665,0.013479441475499,0.022617467299927
|
|
cArc part,wMat,0.013479441475499,0.022617467299927,0.013732204118145,0.022781577031722,0.013915275231423,0.023020963591643
|
|
cArc part,wMat,0.013915275231423,0.023020963591643,0.014020728909044,0.023468931784846,0.013916239755222,0.02391712593584
|
|
cArc part,wMat,0.013916239755222,0.02391712593584,0.013737914715208,0.024158545000081,0.013485821147992,0.024321430904474
|
|
cArc part,wMat,0.013485821147992,0.024321430904474,0.013007682191232,0.024418340376445,0.01252780979917,0.024330415436472
|
|
cArc part,wMat,0.01252780979917,0.024330415436472,0.012262876578398,0.024165188369611,0.012073577813944,0.023916882967201
|
|
cArc part,wMat,0.01207056823988,0.019275940000767,0.011966675878606,0.018804661573405,0.01209097947939,0.018338350954118
|
|
cArc part,wMat,0.01209097947939,0.018338350954118,0.012271272271077,0.018122000363658,0.01251011290171,0.01797277495738
|
|
cArc part,wMat,0.01251011290171,0.01797277495738,0.012993640898664,0.017879677647231,0.013476431901433,0.017976524333492
|
|
cArc part,wMat,0.013476431901433,0.017976524333492,0.013729194544082,0.018140634065288,0.01391226565736,0.018380020625209
|
|
cArc part,wMat,0.01391226565736,0.018380020625209,0.01401771933498,0.018827988818412,0.013913230181161,0.0192761829694
|
|
cArc part,wMat,0.013913230181161,0.0192761829694,0.013734905141145,0.019517602033647,0.013482811573952,0.01968048793803
|
|
cArc part,wMat,0.013482811573952,0.01968048793803,0.013004672617168,0.019777397410011,0.012524800225107,0.019689472470038
|
|
cArc part,wMat,0.012524800225107,0.019689472470038,0.012259867004335,0.019524245403177,0.01207056823988,0.019275940000767
|
|
cLn part,wMat,0.00375714731215,0.02844506315885,0.00375714731215,0.02792438864705
|
|
cLn part,wMat,0.00375714731215,0.02792438864705,0.00495714899895,0.02792438864705
|
|
cLn part,wMat,0.00495714899895,0.02792438864705,0.00495714899895,0.02809362113475
|
|
cLn part,wMat,0.00495714899895,0.02809362113475,0.00441868436335,0.02809362113475
|
|
cLn part,wMat,0.00441868436335,0.02809362113475,0.00441868436335,0.028266820261028
|
|
cLn part,wMat,0.00441868436335,0.028266820261028,0.0044196317361084,0.028308780007239
|
|
cArc part,wMat,0.0044196317361084,0.028308780007239,0.004442172265249,0.0283964689365,0.0045001314487417,0.028466025796823
|
|
cArc part,wMat,0.0045001314487417,0.028466025796823,0.0045995041445834,0.028537816754747,0.0047038248969837,0.02860229794199
|
|
cLn part,wMat,0.0047038248969837,0.02860229794199,0.00495714899895,0.0287517942488
|
|
cLn part,wMat,0.00495714899895,0.0287517942488,0.00495714899895,0.02894578315315
|
|
cLn part,wMat,0.00495714899895,0.02894578315315,0.0046259261531131,0.028748924608212
|
|
cArc part,wMat,0.0046259261531131,0.028748924608212,0.004569470269754,0.028713365263437,0.0045162099518558,0.028673230088505
|
|
cArc part,wMat,0.0045162099518558,0.028673230088505,0.0044506700267395,0.02860833633731,0.0044033023958051,0.028529197293418
|
|
cArc part,wMat,0.0044033023958051,0.028529197293418,0.0043633479559588,0.028672953560194,0.0042694417673114,0.028788901174375
|
|
cArc part,wMat,0.0042694417673114,0.028788901174375,0.0040866423976449,0.028847345611851,0.0039007696785821,0.028799568112284
|
|
cArc part,wMat,0.0039007696785821,0.028799568112284,0.0038248875513245,0.028735481653863,0.0037794962121786,0.028647136877442
|
|
cArc part,wMat,0.0037794962121786,0.028647136877442,0.0037617487947063,0.028546826973604,0.00375714731215,0.02844506315885
|
|
cLn part,wMat,0.0034999979734,-0.024673903361,0.0074451102018,-0.02564864046875
|
|
cLn part,wMat,0.0074451102018,-0.02564864046875,0.0034999979734,-0.0266220569611
|
|
cLn part,wMat,0.0034999979734,-0.0266220569611,0.0034999979734,-0.02932467497885
|
|
cLn part,wMat,0.0034999979734,-0.02932467497885,0.0099999999702,-0.02932467497885
|
|
cLn part,wMat,0.0099999999702,-0.02932467497885,0.0099999999702,-0.0276363641024
|
|
cLn part,wMat,0.0099999999702,-0.0276363641024,0.00502343681455,-0.0276363641024
|
|
cLn part,wMat,0.00502343681455,-0.0276363641024,0.0099999999702,-0.02640706114475
|
|
cLn part,wMat,0.0099999999702,-0.02640706114475,0.0099999999702,-0.02489945292475
|
|
cLn part,wMat,0.0099999999702,-0.02489945292475,0.00502343681455,-0.02366883121435
|
|
cLn part,wMat,0.00502343681455,-0.02366883121435,0.0099999999702,-0.02366883121435
|
|
cLn part,wMat,0.0099999999702,-0.02366883121435,0.0099999999702,-0.02198052033785
|
|
cLn part,wMat,0.0099999999702,-0.02198052033785,0.0034999979734,-0.02198052033785
|
|
cLn part,wMat,0.0034999979734,-0.02198052033785,0.0034999979734,-0.024673903361
|
|
cLn part,wMat,0.0034999979734,0.00464415596795,0.0034999979734,0.0025957589969
|
|
cLn part,wMat,0.0034999979734,0.0025957589969,0.0081771520972,0.0011409090366
|
|
cLn part,wMat,0.0081771520972,0.0011409090366,0.0034999979734,-0.00033636364970002
|
|
cLn part,wMat,0.0034999979734,-0.00033636364970002,0.0034999979734,-0.00244675320575
|
|
cLn part,wMat,0.0034999979734,-0.00244675320575,0.0099999999702,2.5040584649986e-05
|
|
cLn part,wMat,0.0099999999702,2.5040584649986e-05,0.0099999999702,0.00221588881685
|
|
cLn part,wMat,0.0099999999702,0.00221588881685,0.0034999979734,0.00464415596795
|
|
cLn part,wMat,0.0034999979734,0.0143648739904,0.0034999979734,0.0109922075644
|
|
cLn part,wMat,0.0034999979734,0.0109922075644,0.0099094158113,0.0109922075644
|
|
cLn part,wMat,0.0099094158113,0.0109922075644,0.0034999979734,0.00860298331825
|
|
cLn part,wMat,0.0034999979734,0.00860298331825,0.0034999979734,0.0063171670772
|
|
cLn part,wMat,0.0034999979734,0.0063171670772,0.0099999999702,0.00393506512045
|
|
cLn part,wMat,0.0099999999702,0.00393506512045,0.0099999999702,0.00599269475785
|
|
cLn part,wMat,0.0099999999702,0.00599269475785,0.0089025965035,0.0063211242668
|
|
cLn part,wMat,0.0089025965035,0.0063211242668,0.0089025965035,0.00858451705425
|
|
cLn part,wMat,0.0089025965035,0.00858451705425,0.0099999999702,0.00891294609755
|
|
cLn part,wMat,0.0099999999702,0.00891294609755,0.0099999999702,0.0130181815475
|
|
cLn part,wMat,0.0099999999702,0.0130181815475,0.00738311764595,0.0130181815475
|
|
cLn part,wMat,0.00738311764595,0.0130181815475,0.00738311764595,0.013196245767151
|
|
cArc part,wMat,0.00738311764595,0.013196245767151,0.0074191741377845,0.013454519735192,0.0075321631653158,0.013689549536194
|
|
cArc part,wMat,0.0075321631653158,0.013689549536194,0.0077633288665326,0.01389542487644,0.0080294219851505,0.01405359152705
|
|
cLn part,wMat,0.0080294219851505,0.01405359152705,0.0099999999702,0.01512197684495
|
|
cLn part,wMat,0.0099999999702,0.01512197684495,0.0099999999702,0.017407791689
|
|
end sub
|
|
|
|
sub codeBag71(part,wMat)
|
|
cLn part,wMat,0.0099999999702,0.017407791689,0.0081468133329998,0.01640403829515
|
|
cArc part,wMat,0.0081468133329998,0.01640403829515,0.0077468324604797,0.016132440452497,0.0073897118506285,0.015806534090891
|
|
cArc part,wMat,0.0073897118506285,0.015806534090891,0.0072478124905668,0.015556716002314,0.0071456980519272,0.015288169642839
|
|
cArc part,wMat,0.0071456980519272,0.015288169642839,0.0068979784551134,0.015993975847108,0.0064062824632494,0.016557680067613
|
|
cArc part,wMat,0.0064062824632494,0.016557680067613,0.0053798128000625,0.016899610485066,0.0043281662484887,0.016645453229839
|
|
cArc part,wMat,0.0043281662484887,0.016645453229839,0.0038451876814792,0.016184108625543,0.0035990266421825,0.015563212568852
|
|
cArc part,wMat,0.0035990266421825,0.015563212568852,0.0035192513991,0.014966543989824,0.0034999979734,0.0143648739904
|
|
cLn part,wMat,0.0034999979734,0.01948441565035,0.0034999979734,0.0174584407359
|
|
cLn part,wMat,0.0034999979734,0.0174584407359,0.0099999999702,0.0174584407359
|
|
cLn part,wMat,0.0099999999702,0.0174584407359,0.0099999999702,0.01948441565035
|
|
cLn part,wMat,0.0099999999702,0.01948441565035,0.0034999979734,0.01948441565035
|
|
cArc part,wMat,0.0036377899006623,0.02475190560124,0.0034261591503795,0.023266715451354,0.0036913595472699,0.021790149805922
|
|
cArc part,wMat,0.0036913595472699,0.021790149805922,0.0042322586046457,0.020922627120481,0.0050509077945482,0.020310270276882
|
|
cArc part,wMat,0.0050509077945482,0.020310270276882,0.0066598254933179,0.019958672502473,0.0082851744876131,0.020224149061
|
|
cArc part,wMat,0.0082851744876131,0.020224149061,0.0092210733192587,0.020844985206156,0.0098369676880391,0.021784143482865
|
|
cArc part,wMat,0.0098369676880391,0.021784143482865,0.010093368479712,0.023257328782284,0.0098992929504253,0.024740012491417
|
|
cArc part,wMat,0.0098992929504253,0.024740012491417,0.0092657783544653,0.025797683211618,0.0082345480147413,0.026473384388089
|
|
cArc part,wMat,0.0082345480147413,0.026473384388089,0.0066594233019266,0.026709390257931,0.0050979266417742,0.026395631100511
|
|
cArc part,wMat,0.0050979266417742,0.026395631100511,0.0041952735342194,0.025727076987602,0.0036377899006623,0.02475190560124
|
|
cArc part,wMat,0.0036377899006621,-0.0041182242688903,0.0034261591503794,-0.0056034144187759,0.0036913595472698,-0.0070799800642078
|
|
cArc part,wMat,0.0036913595472698,-0.0070799800642078,0.0042322586046456,-0.0079475027496488,0.0050509077945486,-0.0085598595932478
|
|
cArc part,wMat,0.0050509077945486,-0.0085598595932478,0.0066598254933178,-0.0089114573676565,0.008285174487612,-0.0086459808091303
|
|
cArc part,wMat,0.008285174487612,-0.0086459808091303,0.0092210733192586,-0.0080251446639735,0.0098369676880391,-0.0070859863872644
|
|
cArc part,wMat,0.0098369676880391,-0.0070859863872644,0.010093368479712,-0.0056128010878455,0.0098992929504251,-0.0041301173787129
|
|
cArc part,wMat,0.0098992929504251,-0.0041301173787129,0.0092657783544652,-0.0030724466585119,0.0082345480147403,-0.0023967454820401
|
|
cArc part,wMat,0.0082345480147403,-0.0023967454820401,0.0066594233019257,-0.0021607396121985,0.0050979266417744,-0.0024744987696191
|
|
cArc part,wMat,0.0050979266417744,-0.0024744987696191,0.0041952735342192,-0.0031430528825274,0.0036377899006621,-0.0041182242688903
|
|
cArc part,wMat,0.0036278986992713,-0.016881852468077,0.0034162679489893,-0.01836704261796,0.0036814683458796,-0.019843608263392
|
|
cArc part,wMat,0.0036814683458796,-0.019843608263392,0.0042223674032556,-0.020711130948833,0.0050410165931587,-0.021323487792432
|
|
cArc part,wMat,0.0050410165931587,-0.021323487792432,0.0066499342919278,-0.021675085566841,0.0082752832862235,-0.021409609008314
|
|
cArc part,wMat,0.0082752832862235,-0.021409609008314,0.0092111821178686,-0.020788772863158,0.009827076486649,-0.019849614586449
|
|
cArc part,wMat,0.009827076486649,-0.019849614586449,0.010083477278322,-0.01837642928703,0.0098894017490352,-0.016893745577898
|
|
cArc part,wMat,0.0098894017490352,-0.016893745577898,0.0092558871530752,-0.015836074857696,0.0082246568124876,-0.015160373680905
|
|
cArc part,wMat,0.0082246568124876,-0.015160373680905,0.0066495321005752,-0.014924367811365,0.0050880354404233,-0.015238126968786
|
|
cArc part,wMat,0.0050880354404233,-0.015238126968786,0.0041853823328292,-0.015906681081712,0.0036278986992713,-0.016881852468077
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag72(part,wMat)
|
|
cArc part,wMat,-0.011211617351338,-0.011242196264046,-0.011249892251187,-0.011959797753769,-0.011219312850795,-0.012677765104565
|
|
cArc part,wMat,-0.011219312850795,-0.012677765104565,-0.011181744593286,-0.012777510976295,-0.011098276922517,-0.012843794205953
|
|
cLn part,wMat,-0.011098276922517,-0.012843794205953,-0.010602050950394,-0.013054430590115
|
|
cArc part,wMat,-0.010602050950394,-0.013054430590115,-0.010523820299688,-0.013113847300659,-0.010483317005777,-0.013203346209466
|
|
cArc part,wMat,-0.010483317005777,-0.013203346209466,-0.010357212025608,-0.013769279302086,-0.010183630289309,-0.014322498934472
|
|
cArc part,wMat,-0.010183630289309,-0.014322498934472,-0.010174251131096,-0.014421957027301,-0.010214144545644,-0.014513541493419
|
|
cLn part,wMat,-0.010214144545644,-0.014513541493419,-0.010538856495696,-0.014929154460986
|
|
cArc part,wMat,-0.010538856495696,-0.014929154460986,-0.010579912540354,-0.015029154444597,-0.010562934709251,-0.01513590826517
|
|
cArc part,wMat,-0.010562934709251,-0.01513590826517,-0.010243857439267,-0.015752308030872,-0.0098691630082594,-0.016336570543462
|
|
cArc part,wMat,-0.0098691630082594,-0.016336570543462,-0.0097868155906794,-0.016403866198367,-0.0096816126032633,-0.016419436620663
|
|
cLn part,wMat,-0.0096816126032633,-0.016419436620663,-0.0091447246858845,-0.016353515859225
|
|
cArc part,wMat,-0.0091447246858845,-0.016353515859225,-0.0090475141060638,-0.016365759637577,-0.0089677843674783,-0.016422705766253
|
|
cArc part,wMat,-0.0089677843674783,-0.016422705766253,-0.0085850688080839,-0.016838151467393,-0.0081693792063187,-0.017220602209621
|
|
cArc part,wMat,-0.0081693792063187,-0.017220602209621,-0.0081117307556998,-0.017301982355145,-0.008100548343534,-0.017401084587769
|
|
cLn part,wMat,-0.008100548343534,-0.017401084587769,-0.0081741083127493,-0.017924514842646
|
|
cArc part,wMat,-0.0081741083127493,-0.017924514842646,-0.0081597257772143,-0.018031500557642,-0.008091835059369,-0.018115428710867
|
|
cArc part,wMat,-0.008091835059369,-0.018115428710867,-0.0075026036828734,-0.018493686595436,-0.0068806575301898,-0.018815349105448
|
|
cArc part,wMat,-0.0068806575301898,-0.018815349105448,-0.0067756995584373,-0.018832449560303,-0.006676811995427,-0.018793333212634
|
|
cLn part,wMat,-0.006676811995427,-0.018793333212634,-0.0062447800421957,-0.018467772556235
|
|
cArc part,wMat,-0.0062447800421957,-0.018467772556235,-0.006154477232676,-0.018429771274829,-0.00605696200806,-0.018439217832439
|
|
cArc part,wMat,-0.00605696200806,-0.018439217832439,-0.0055473092659111,-0.018599642369318,-0.0050266895294433,-0.018719796414002
|
|
cArc part,wMat,-0.0050266895294433,-0.018719796414002,-0.0049378085655503,-0.018761135175724,-0.0048792451733288,-0.01883974525543
|
|
cLn part,wMat,-0.0048792451733288,-0.01883974525543,-0.0046723723946849,-0.019339178060036
|
|
cArc part,wMat,-0.0046723723946849,-0.019339178060036,-0.0046069805134013,-0.019423101094658,-0.0045078003372744,-0.019461617696507
|
|
cArc part,wMat,-0.0045078003372744,-0.019461617696507,-0.0037902027618697,-0.019499892248422,-0.0030722323874475,-0.019469312623219
|
|
cArc part,wMat,-0.0030722323874475,-0.019469312623219,-0.0029724882095144,-0.019431744526979,-0.0029062051262461,-0.019348277220409
|
|
cLn part,wMat,-0.0029062051262461,-0.019348277220409,-0.002695569512382,-0.018852051200335
|
|
cArc part,wMat,-0.002695569512382,-0.018852051200335,-0.0026361526954178,-0.018773820298988,-0.002546653790678,-0.018733317005834
|
|
cArc part,wMat,-0.002546653790678,-0.018733317005834,-0.0019807206979637,-0.018607212025653,-0.0014275010655765,-0.018433630289358
|
|
cArc part,wMat,-0.0014275010655765,-0.018433630289358,-0.0013280473226194,-0.018424252701362,-0.0012364616024782,-0.018464147095593
|
|
cLn part,wMat,-0.0012364616024782,-0.018464147095593,-0.00082084585226701,-0.018788858309202
|
|
cArc part,wMat,-0.00082084585226701,-0.018788858309202,-0.00072084721321911,-0.018829913303384,-0.00061409032072948,-0.018812934058371
|
|
cArc part,wMat,-0.00061409032072948,-0.018812934058371,2.3080308155277e-06,-0.018493857439314,0.00058656932091115,-0.01811916387468
|
|
cArc part,wMat,0.00058656932091115,-0.01811916387468,0.00065386251252975,-0.018036818820724,0.00066943333890979,-0.01793161498769
|
|
cLn part,wMat,0.00066943333890979,-0.01793161498769,0.000603517377774,-0.017394722517967
|
|
cArc part,wMat,0.000603517377774,-0.017394722517967,0.00061576125409217,-0.0172975127358,0.00067270576614336,-0.01721778436757
|
|
cArc part,wMat,0.00067270576614336,-0.01721778436757,0.0010881514673933,-0.016835068808082,0.0014706001951663,-0.016419381585987
|
|
cArc part,wMat,0.0014706001951663,-0.016419381585987,0.0015519834472511,-0.016361729465636,0.0016510862660195,-0.016350547135894
|
|
cLn part,wMat,0.0016510862660195,-0.016350547135894,0.0021745130125901,-0.016424110599153
|
|
cArc part,wMat,0.0021745130125901,-0.016424110599153,0.0022814983381853,-0.016409728338837,0.0023654259558517,-0.016341838939735
|
|
cArc part,wMat,0.0023654259558517,-0.016341838939735,0.0027436865953768,-0.015752603682928,0.0030653479912497,-0.015130659955706
|
|
cArc part,wMat,0.0030653479912497,-0.015130659955706,0.0030824476978282,-0.015025703283838,0.003043330292305,-0.014926814545305
|
|
cLn part,wMat,0.003043330292305,-0.014926814545305,0.0027177699026596,-0.014494781692562
|
|
cArc part,wMat,0.0027177699026596,-0.014494781692562,0.0026797700189505,-0.014404480737817,0.0026892178323647,-0.014306962008117
|
|
cArc part,wMat,0.0026892178323647,-0.014306962008117,0.0028496423692682,-0.013797309265902,0.0029697968202868,-0.013276687390711
|
|
cArc part,wMat,0.0029697968202868,-0.013276687390711,0.0030111355477203,-0.0131878073039,0.0030897447552524,-0.013129244413692
|
|
cLn part,wMat,0.0030897447552524,-0.013129244413692,0.0034999979734,-0.01295931078495
|
|
cLn part,wMat,0.0034999979734,-0.01295931078495,0.0034999979734,-0.01495714299385
|
|
cLn part,wMat,0.0034999979734,-0.01495714299385,0.00501948055625,-0.01495714299385
|
|
cLn part,wMat,0.00501948055625,-0.01495714299385,0.00501948055625,-0.0129311690107
|
|
cLn part,wMat,0.00501948055625,-0.0129311690107,0.0099999999702,-0.0129311690107
|
|
cLn part,wMat,0.0099999999702,-0.0129311690107,0.0099999999702,-0.0109051950276
|
|
cLn part,wMat,0.0099999999702,-0.0109051950276,0.00501948055625,-0.0109051950276
|
|
cLn part,wMat,0.00501948055625,-0.0109051950276,0.00501948055625,-0.0088792210445
|
|
cLn part,wMat,0.00501948055625,-0.0088792210445,0.0034999979734,-0.0088792210445
|
|
cLn part,wMat,0.0034999979734,-0.0088792210445,0.0034999979734,-0.01111448835585
|
|
cLn part,wMat,0.0034999979734,-0.01111448835585,0.0031020509962404,-0.010945567087445
|
|
cArc part,wMat,0.0031020509962404,-0.010945567087445,0.0030238198467326,-0.010886150165142,0.0029833163021744,-0.010796649853627
|
|
cArc part,wMat,0.0029833163021744,-0.010796649853627,0.0028572120256052,-0.010230720697967,0.0026836293052838,-0.0096774983396998
|
|
cArc part,wMat,0.0026836293052838,-0.0096774983396998,0.0026742523880966,-0.0095780464550778,0.0027141470155781,-0.0094864604363913
|
|
cLn part,wMat,0.0027141470155781,-0.0094864604363913,0.0030388589656251,-0.0090708474688312
|
|
cArc part,wMat,0.0030388589656251,-0.0090708474688312,0.0030799140149638,-0.0089708487591306,0.0030629340583703,-0.0088640903207812
|
|
cArc part,wMat,0.0030629340583703,-0.0088640903207812,0.0027438574392725,-0.0082476919691565,0.0023691638747109,-0.0076634306791695
|
|
cArc part,wMat,0.0023691638747109,-0.0076634306791695,0.0022868152122667,-0.0075961334841918,0.0021816124048763,-0.0075805631659105
|
|
cLn part,wMat,0.0021816124048763,-0.0075805631659105,0.0016447248830408,-0.0076464843444312
|
|
cArc part,wMat,0.0016447248830408,-0.0076464843444312,0.0015475142262081,-0.0076342405473995,0.0014677817884804,-0.0075772911910986
|
|
cArc part,wMat,0.0014677817884804,-0.0075772911910986,0.0010850688080871,-0.0071618485325907,0.00066937980991294,-0.0067793983013195
|
|
cArc part,wMat,0.00066937980991294,-0.0067793983013195,0.00061172753255156,-0.0066980149163247,0.00060054519534229,-0.0065989121506891
|
|
cLn part,wMat,0.00060054519534229,-0.0065989121506891,0.00067411169372331,-0.0060754884517161
|
|
cArc part,wMat,0.00067411169372331,-0.0060754884517161,0.0006597295212253,-0.0059685025012404,0.0005918389396695,-0.0058845740440445
|
|
cArc part,wMat,0.0005918389396695,-0.0058845740440445,2.6036828908582e-06,-0.0055063134045476,-0.00061933954791922,-0.0051846522367101
|
|
end sub
|
|
|
|
sub codeBag73(part,wMat)
|
|
cArc part,wMat,-0.00061933954791922,-0.0051846522367101,-0.00072429866742021,-0.0051675512546622,-0.00082318597578616,-0.0052066674104706
|
|
cLn part,wMat,-0.00082318597578616,-0.0052066674104706,-0.001255221945095,-0.0055322268757577
|
|
cArc part,wMat,-0.001255221945095,-0.0055322268757577,-0.0013455246251532,-0.0055702280596065,-0.0014430345708447,-0.005560783393163
|
|
cArc part,wMat,-0.0014430345708447,-0.005560783393163,-0.0019526907341089,-0.0054003576306117,-0.0024733136520918,-0.0052802029814772
|
|
cArc part,wMat,-0.0024733136520918,-0.0052802029814772,-0.0025621954777925,-0.0052388639236247,-0.0026207578140508,-0.0051602560533492
|
|
cLn part,wMat,-0.0026207578140508,-0.0051602560533492,-0.0028276313919483,-0.0046608217848348
|
|
cArc part,wMat,-0.0028276313919483,-0.0046608217848348,-0.0028930235627984,-0.0045768983690697,-0.0029921991273225,-0.004538382357808
|
|
cArc part,wMat,-0.0029921991273225,-0.004538382357808,-0.0037097991927252,-0.0045001077410404,-0.0044277683450882,-0.0045306874431906
|
|
cArc part,wMat,-0.0044277683450882,-0.0045306874431906,-0.0045275156973234,-0.0045682558349927,-0.0045937981577129,-0.0046517216934202
|
|
cLn part,wMat,-0.0045937981577129,-0.0046517216934202,-0.0048044336609127,-0.0051479474528362
|
|
cArc part,wMat,-0.0048044336609127,-0.0051479474528362,-0.0048638513569576,-0.0052261804252743,-0.0049533462094748,-0.005266682994224
|
|
cArc part,wMat,-0.0049533462094748,-0.005266682994224,-0.0055192793020841,-0.0053927879743914,-0.0060724989345732,-0.005566369710728
|
|
cArc part,wMat,-0.0060724989345732,-0.005566369710728,-0.0061719553468679,-0.0055757482623203,-0.0062635400962093,-0.0055358546265593
|
|
cLn part,wMat,-0.0062635400962093,-0.0055358546265593,-0.0066791549559985,-0.0052111431773579
|
|
cArc part,wMat,-0.0066791549559985,-0.0052111431773579,-0.0067791548587698,-0.0051700874392526,-0.0068859092585709,-0.0051870657480705
|
|
cArc part,wMat,-0.0068859092585709,-0.0051870657480705,-0.0075023080308526,-0.0055061425607959,-0.0080865693209155,-0.0058808361254168
|
|
cArc part,wMat,-0.0080865693209155,-0.0058808361254168,-0.0081538663771104,-0.0059631846895076,-0.0081694366128507,-0.0060683881691361
|
|
cLn part,wMat,-0.0081694366128507,-0.0060683881691361,-0.0081035139781822,-0.0066052743100652
|
|
cArc part,wMat,-0.0081035139781822,-0.0066052743100652,-0.0081157578221678,-0.0067024843554038,-0.0081727057661105,-0.0067822156326058
|
|
cArc part,wMat,-0.0081727057661105,-0.0067822156326058,-0.0085881514673081,-0.0071649311920514,-0.0089706022095096,-0.0075806207937902
|
|
cArc part,wMat,-0.0089706022095096,-0.0075806207937902,-0.0090519836392178,-0.0076382707613308,-0.0091510861281964,-0.0076494531374216
|
|
cLn part,wMat,-0.0091510861281964,-0.0076494531374216,-0.0096745132845458,-0.0075758900822794
|
|
cArc part,wMat,-0.0096745132845458,-0.0075758900822794,-0.0097814988026018,-0.0075902723155297,-0.0098654242207861,-0.0076581586166899
|
|
cArc part,wMat,-0.0098654242207861,-0.0076581586166899,-0.010243686595301,-0.0082473963172199,-0.010565348658158,-0.0088693414964671
|
|
cArc part,wMat,-0.010565348658158,-0.0088693414964671,-0.010582449163031,-0.0089742995771606,-0.010543332711525,-0.0090731872779326
|
|
cLn part,wMat,-0.010543332711525,-0.0090731872779326,-0.010217772321872,-0.0095052201307359
|
|
cArc part,wMat,-0.010217772321872,-0.0095052201307359,-0.010179771241148,-0.009595522673943,-0.010189217832262,-0.0096930379920793
|
|
cArc part,wMat,-0.010189217832262,-0.0096930379920793,-0.010349642369128,-0.010202690734201,-0.010469796413805,-0.010723310470654
|
|
cArc part,wMat,-0.010469796413805,-0.010723310470654,-0.010511135916468,-0.010812194637606,-0.010589744818798,-0.010870757401361
|
|
cLn part,wMat,-0.010589744818798,-0.010870757401361,-0.011089177333419,-0.011077628357058
|
|
cArc part,wMat,-0.011089177333419,-0.011077628357058,-0.011173101131532,-0.011143020485155,-0.011211617351338,-0.011242196264046
|
|
cArc part,wMat,-0.0036999972463,-0.017764783146402,-0.0035305891357453,-0.017760823194046,-0.0033613658082907,-0.01775188564433
|
|
cArc part,wMat,-0.0033613658082907,-0.01775188564433,-0.0031910402014617,-0.017684279666289,-0.0030918132018143,-0.017530211798686
|
|
cLn part,wMat,-0.0030918132018143,-0.017530211798686,-0.0030146782119588,-0.017242328340788
|
|
cArc part,wMat,-0.0030146782119588,-0.017242328340788,-0.0029706075991938,-0.017170084140613,-0.0028944488643065,-0.017133190845295
|
|
cArc part,wMat,-0.0028944488643065,-0.017133190845295,-0.002401904487506,-0.017026355985125,-0.001922004093232,-0.016872375905535
|
|
cArc part,wMat,-0.001922004093232,-0.016872375905535,-0.0018375705562898,-0.016866214820559,-0.00176324856875,-0.0169067513735
|
|
cLn part,wMat,-0.00176324856875,-0.0169067513735,-0.001552687037225,-0.017117312905025
|
|
cArc part,wMat,-0.001552687037225,-0.017117312905025,-0.0013896548323753,-0.017201135632981,-0.0012082860557073,-0.017174448301587
|
|
cArc part,wMat,-0.0012082860557073,-0.017174448301587,-0.00086637569389508,-0.016991987165614,-0.00053749171091863,-0.01678696307621
|
|
cArc part,wMat,-0.00053749171091863,-0.01678696307621,-0.00042378722378278,-0.016643250990648,-0.00041488838914861,-0.016460209557211
|
|
cLn part,wMat,-0.00041488838914861,-0.016460209557211,-0.00049202991201325,-0.016172329523167
|
|
cArc part,wMat,-0.00049202991201325,-0.016172329523167,-0.00048998574977159,-0.016087729348169,-0.00044247608891543,-0.016017698542403
|
|
cArc part,wMat,-0.00044247608891543,-0.016017698542403,-7.0216310726299e-05,-0.015679783689319,0.00026769896171636,-0.015307523401738
|
|
cArc part,wMat,0.00026769896171636,-0.015307523401738,0.00033772796889581,-0.01526001586127,0.00042232685159383,-0.015257971310388
|
|
cLn part,wMat,0.00042232685159383,-0.015257971310388,0.00071021467100043,-0.015335110195947
|
|
cArc part,wMat,0.00071021467100043,-0.015335110195947,0.00089325279512192,-0.015326210332889,0.0010369646294813,-0.015212505974499
|
|
cArc part,wMat,0.0010369646294813,-0.015212505974499,0.0012419871655703,-0.014883624306124,0.0014244506202015,-0.014541709223963
|
|
cArc part,wMat,0.0014244506202015,-0.014541709223963,0.0014511359461065,-0.014360344898408,0.001367313799875,-0.014197313045624
|
|
cLn part,wMat,0.001367313799875,-0.014197313045624,0.001156752037305,-0.0139867503517
|
|
cArc part,wMat,0.001156752037305,-0.0139867503517,0.0011162151922652,-0.013912427696129,0.0011223761084265,-0.013827995365941
|
|
cArc part,wMat,0.0011223761084265,-0.013827995365941,0.0012763559850907,-0.013348095512569,0.0013831912280717,-0.012855548839
|
|
cArc part,wMat,0.0013831912280717,-0.012855548839,0.0014200840718513,-0.012779393309684,0.0014923263386183,-0.012735323299482
|
|
cLn part,wMat,0.0014923263386183,-0.012735323299482,0.0017802153134532,-0.012658182107929
|
|
cArc part,wMat,0.0017802153134532,-0.012658182107929,0.0019342798495298,-0.012558956071736,0.002001885971226,-0.012388629353017
|
|
cArc part,wMat,0.002001885971226,-0.012388629353017,0.0020108232460426,-0.012219409498111,0.002014783170082,-0.0120500000194
|
|
cLn part,wMat,0.002014783170082,-0.0120500000194,0.0013497548958807,-0.0120500000194
|
|
cArc part,wMat,0.0013497548958807,-0.0120500000194,0.0013470800007511,-0.0121725556894,0.0013414603127566,-0.012295011666935
|
|
cArc part,wMat,0.0013414603127566,-0.012295011666935,0.0013037801944733,-0.012386037400694,0.0012177586154038,-0.012434056004293
|
|
cLn part,wMat,0.0012177586154038,-0.012434056004293,0.00076683388295994,-0.012513565928742
|
|
cArc part,wMat,0.00076683388295994,-0.012513565928742,0.00060687249117241,-0.01259680001204,0.00052352400126494,-0.012756698493678
|
|
cArc part,wMat,0.00052352400126494,-0.012756698493678,0.00044723109263975,-0.013104015921398,0.00034276238481657,-0.013443916916292
|
|
cArc part,wMat,0.00034276238481657,-0.013443916916292,0.00033628110708797,-0.013622809723581,0.00043283541517927,-0.013773544460909
|
|
cLn part,wMat,0.00043283541517927,-0.013773544460909,0.00078753869380206,-0.014071172273178
|
|
cArc part,wMat,0.00078753869380206,-0.014071172273178,0.00083789966493774,-0.014155159221018,0.00082569939400514,-0.014252326587281
|
|
cArc part,wMat,0.00082569939400514,-0.014252326587281,0.00067470814832871,-0.014536130478147,0.00050613558045037,-0.014809859413013
|
|
cArc part,wMat,0.00050613558045037,-0.014809859413013,0.00042801335814702,-0.014869644165366,0.00032965145369031,-0.01486817081797
|
|
cLn part,wMat,0.00032965145369031,-0.01486817081797,-0.00010179235599435,-0.014711136618523
|
|
end sub
|
|
|
|
sub codeBag74(part,wMat)
|
|
cArc part,wMat,-0.00010179235599435,-0.014711136618523,-0.00028161562319276,-0.014703151807439,-0.00043364093596581,-0.014799528988681
|
|
cArc part,wMat,-0.00043364093596581,-0.014799528988681,-0.00067394895436514,-0.015061618847067,-0.00093490449178873,-0.015303155654781
|
|
cArc part,wMat,-0.00093490449178873,-0.015303155654781,-0.0010303867803665,-0.015454950446973,-0.0010222210715068,-0.015634092272543
|
|
cLn part,wMat,-0.0010222210715068,-0.015634092272543,-0.00086428455060598,-0.016068015375904
|
|
cArc part,wMat,-0.00086428455060598,-0.016068015375904,-0.00086271158877364,-0.016166074086523,-0.00092206545597437,-0.016244147289475
|
|
cArc part,wMat,-0.00092206545597437,-0.016244147289475,-0.0011963147149741,-0.016414599808034,-0.0014808009763356,-0.016567355448293
|
|
cArc part,wMat,-0.0014808009763356,-0.016567355448293,-0.001578191770163,-0.016579856959239,-0.0016624492816148,-0.01652943953673
|
|
cLn part,wMat,-0.0016624492816148,-0.01652943953673,-0.0019586030208603,-0.016176495492351
|
|
cArc part,wMat,-0.0019586030208603,-0.016176495492351,-0.0021099282818923,-0.01607978080191,-0.0022893806015184,-0.01608683140992
|
|
cArc part,wMat,-0.0022893806015184,-0.01608683140992,-0.0026288394656945,-0.016192683991985,-0.0029758230351481,-0.016270392256858
|
|
cArc part,wMat,-0.0029758230351481,-0.016270392256858,-0.0031349502409259,-0.016353959330146,-0.0032177511269761,-0.016513486371326
|
|
cLn part,wMat,-0.0032177511269761,-0.016513486371326,-0.0032976584434963,-0.016966665163912
|
|
cArc part,wMat,-0.0032976584434963,-0.016966665163912,-0.0033454697671448,-0.01705250198314,-0.0034361455569078,-0.01709033352433
|
|
cArc part,wMat,-0.0034361455569078,-0.01709033352433,-0.0035680120290813,-0.017096751944014,-0.0036999972463,-0.017099754869108
|
|
cLn part,wMat,-0.0036999972463,-0.017099754869108,-0.0036999972463,-0.017764783146402
|
|
cArc part,wMat,-0.0036999972463,-0.0091004309855752,-0.0036499553688245,-0.0091017260625388,-0.0035999405502306,-0.0091038848596209
|
|
cArc part,wMat,-0.0035999405502306,-0.0091038848596209,-0.0034167479677801,-0.0091787372222826,-0.0033200250297005,-0.0093513888728574
|
|
cLn part,wMat,-0.0033200250297005,-0.0093513888728574,-0.003239387543553,-0.0098087046725321
|
|
cArc part,wMat,-0.003239387543553,-0.0098087046725321,-0.0031678989115281,-0.0098266020576845,-0.0030970370793191,-0.0098468303092702
|
|
cLn part,wMat,-0.0030970370793191,-0.0098468303092702,-0.0027984852543386,-0.0094910320230941
|
|
cArc part,wMat,-0.0027984852543386,-0.0094910320230941,-0.0026284218154125,-0.0093898788094181,-0.0024323671218234,-0.0094166215954033
|
|
cArc part,wMat,-0.0024323671218234,-0.0094166215954033,-0.0023002586342067,-0.0094883769480085,-0.002172046227649,-0.0095668821904172
|
|
cArc part,wMat,-0.002172046227649,-0.0095668821904172,-0.0020508143494385,-0.0097233054237598,-0.0020533750025659,-0.0099211924489856
|
|
cLn part,wMat,-0.0020533750025659,-0.0099211924489856,-0.0022121974442328,-0.010357543454506
|
|
cArc part,wMat,-0.0022121974442328,-0.010357543454506,-0.0021590098746821,-0.010409009545754,-0.0021075457370423,-0.010462195006363
|
|
cLn part,wMat,-0.0021075457370423,-0.010462195006363,-0.0016711892916946,-0.010303375326885
|
|
cArc part,wMat,-0.0016711892916946,-0.010303375326885,-0.0014733043464968,-0.010300815656841,-0.0013168822167282,-0.010422046223734
|
|
cArc part,wMat,-0.0013168822167282,-0.010422046223734,-0.0012392968479171,-0.010548666148187,-0.001168294876943,-0.01067909162889
|
|
cArc part,wMat,-0.001168294876943,-0.01067909162889,-0.0011413412467068,-0.010875299081335,-0.0012425316193049,-0.011045548094891
|
|
cLn part,wMat,-0.0012425316193049,-0.011045548094891,-0.0015978465025411,-0.011343695868911
|
|
cArc part,wMat,-0.0015978465025411,-0.011343695868911,-0.0015773701467959,-0.011415039052521,-0.001559257942917,-0.01148701946583
|
|
cLn part,wMat,-0.001559257942917,-0.01148701946583,-0.0011015078925096,-0.01156773369372
|
|
cArc part,wMat,-0.0011015078925096,-0.01156773369372,-0.00092894459753367,-0.011664357444184,-0.00085401826254591,-0.011847387822633
|
|
cArc part,wMat,-0.00085401826254591,-0.011847387822633,-0.00085177044426025,-0.011898678025178,-0.0008504309424904,-0.01195000018925
|
|
cLn part,wMat,-0.0008504309424904,-0.01195000018925,0.00073972171779817,-0.01195000018925
|
|
cArc part,wMat,0.00073972171779817,-0.01195000018925,0.00073644979017384,-0.011821480072242,0.00072949968921227,-0.011693106502645
|
|
cArc part,wMat,0.00072949968921227,-0.011693106502645,0.00065328614947785,-0.011513029513716,0.00048229583516126,-0.011418169200421
|
|
cLn part,wMat,0.00048229583516126,-0.011418169200421,7.5358977908631e-06,-0.011334456076545
|
|
cArc part,wMat,7.5358977908631e-06,-0.011334456076545,-7.0492376302884e-05,-0.011294754818586,-0.00011306666455447,-0.011218260387935
|
|
cArc part,wMat,-0.00011306666455447,-0.011218260387935,-0.00015616696642221,-0.011039393402942,-0.00020805831002544,-0.010862876448065
|
|
cArc part,wMat,-0.00020805831002544,-0.010862876448065,-0.00020935394689641,-0.010775428094587,-0.00016165599347998,-0.010702120297338
|
|
cLn part,wMat,-0.00016165599347998,-0.010702120297338,0.00020817615884308,-0.010391794107002
|
|
cArc part,wMat,0.00020817615884308,-0.010391794107002,0.00030879463507327,-0.010224305681934,0.00028493543625428,-0.010030381475564
|
|
cArc part,wMat,0.00028493543625428,-0.010030381475564,0.00013623485537389,-0.0097511603535526,-3.1757285132134e-05,-0.0094831026600392
|
|
cArc part,wMat,-3.1757285132134e-05,-0.0094831026600392,-0.00018772101537013,-0.0093658770731226,-0.00038279707584483,-0.0093693619553437
|
|
cLn part,wMat,-0.00038279707584483,-0.0093693619553437,-0.00083766808413081,-0.0095349197063592
|
|
cArc part,wMat,-0.00083766808413081,-0.0095349197063592,-0.00092484091981172,-0.0095396138342185,-0.00099986411798044,-0.0094949743401481
|
|
cArc part,wMat,-0.00099986411798044,-0.0094949743401481,-0.0011270835249966,-0.0093620632889996,-0.0012607219105034,-0.0092356021416519
|
|
cArc part,wMat,-0.0012607219105034,-0.0092356021416519,-0.0013058895616698,-0.0091604227855557,-0.0013012984701201,-0.0090728348125093
|
|
cLn part,wMat,-0.0013012984701201,-0.0090728348125093,-0.0011368548221965,-0.0086210189793619
|
|
cArc part,wMat,-0.0011368548221965,-0.0086210189793619,-0.0011336037026598,-0.0084252265272074,-0.0012518474382916,-0.0082691375115246
|
|
cArc part,wMat,-0.0012518474382916,-0.0082691375115246,-0.0015194529650994,-0.0081032371056768,-0.0017980271132711,-0.0079564986733094
|
|
cArc part,wMat,-0.0017980271132711,-0.0079564986733094,-0.0019914154526103,-0.0079333475359602,-0.0021582622869393,-0.0080338282901142
|
|
cLn part,wMat,-0.0021582622869393,-0.0080338282901142,-0.0024704121355101,-0.0084058324400463
|
|
cArc part,wMat,-0.0024704121355101,-0.0084058324400463,-0.0025433633335355,-0.0084534276136879,-0.0026304568312885,-0.0084524622568537
|
|
cArc part,wMat,-0.0026304568312885,-0.0084524622568537,-0.0028072391814838,-0.0084014443196295,-0.0029863266957202,-0.0083592302970407
|
|
cArc part,wMat,-0.0029863266957202,-0.0083592302970407,-0.0030632904644072,-0.0083167692260905,-0.003103250583411,-0.0082384721848748
|
|
cLn part,wMat,-0.003103250583411,-0.0082384721848748,-0.0031864734780755,-0.0077664900593621
|
|
cArc part,wMat,-0.0031864734780755,-0.0077664900593621,-0.003281822701836,-0.0075950613832264,-0.0034627246488686,-0.0075191993990191
|
|
cArc part,wMat,-0.0034627246488686,-0.0075191993990191,-0.0035813016301524,-0.0075131701599983,-0.0036999972463,-0.0075102783073178
|
|
cLn part,wMat,-0.0036999972463,-0.0075102783073178,-0.0036999972463,-0.0091004309855752
|
|
cArc part,wMat,-0.0036999972463,-0.0069002451308336,-0.0035774429441654,-0.0069029200454135,-0.0034549883331681,-0.0069085396871427
|
|
cArc part,wMat,-0.0034549883331681,-0.0069085396871427,-0.0033639607212778,-0.0069462199142698,-0.0033159419228824,-0.0070322425982882
|
|
cLn part,wMat,-0.0033159419228824,-0.0070322425982882,-0.0032364374840775,-0.0074831635600808
|
|
cArc part,wMat,-0.0032364374840775,-0.0074831635600808,-0.0031532030453589,-0.0076431269674099,-0.0029933010500713,-0.007726476079454
|
|
cArc part,wMat,-0.0029933010500713,-0.007726476079454,-0.0026459840786032,-0.0078027689072908,-0.0023060781919938,-0.0079072393409012
|
|
cArc part,wMat,-0.0023060781919938,-0.0079072393409012,-0.0021271958221248,-0.0079137175079162,-0.0019764614207383,-0.0078171644386614
|
|
cLn part,wMat,-0.0019764614207383,-0.0078171644386614,-0.0016788257335715,-0.007462460584171
|
|
end sub
|
|
|
|
sub codeBag75(part,wMat)
|
|
cArc part,wMat,-0.0016788257335715,-0.007462460584171,-0.0015948398192269,-0.0074121008229912,-0.0014976751786076,-0.0074242997366817
|
|
cArc part,wMat,-0.0014976751786076,-0.0074242997366817,-0.0012138695218586,-0.0075752918515869,-0.00094014058693588,-0.0077438644194992
|
|
cArc part,wMat,-0.00094014058693588,-0.0077438644194992,-0.00088035665888608,-0.0078219860976072,-0.00088183020016093,-0.0079203485347352
|
|
cLn part,wMat,-0.00088183020016093,-0.0079203485347352,-0.0010388650239096,-0.0083517910400375
|
|
cArc part,wMat,-0.0010388650239096,-0.0083517910400375,-0.0010468498153827,-0.0085316142533676,-0.00095046789731954,-0.0086836435646524
|
|
cArc part,wMat,-0.00095046789731954,-0.0086836435646524,-0.00068838115292844,-0.0089239489543464,-0.00044684554059399,-0.009184903089143
|
|
cArc part,wMat,-0.00044684554059399,-0.009184903089143,-0.00029505043988036,-0.0092803862206031,-0.00011590975087148,-0.0092722212573144
|
|
cLn part,wMat,-0.00011590975087148,-0.0092722212573144,0.00031801715653637,-0.0091142865703842
|
|
cArc part,wMat,0.00031801715653637,-0.0091142865703842,0.00041607570927827,-0.0091127137989462,0.00049414728947019,-0.0091720654559774
|
|
cArc part,wMat,0.00049414728947019,-0.0091720654559774,0.00066459980801098,-0.0094463147149461,0.00081735544828754,-0.0097308009763381
|
|
cArc part,wMat,0.00081735544828754,-0.0097308009763381,0.00082985721542136,-0.0098281922857482,0.00077943935651725,-0.0099124501634078
|
|
cLn part,wMat,0.00077943935651725,-0.0099124501634078,0.00042649554031464,-0.010208600885009
|
|
cArc part,wMat,0.00042649554031464,-0.010208600885009,0.00032978022568647,-0.010359926669793,0.00033683007672482,-0.010539376871368
|
|
cArc part,wMat,0.00033683007672482,-0.010539376871368,0.00044268399193229,-0.010878839465682,0.00052039161462241,-0.011225819492831
|
|
cArc part,wMat,0.00052039161462241,-0.011225819492831,0.00060395923693882,-0.011384949727198,0.0007634858332364,-0.011467750534789
|
|
cLn part,wMat,0.0007634858332364,-0.011467750534789,0.0012166653919521,-0.011547658971712
|
|
cArc part,wMat,0.0012166653919521,-0.011547658971712,0.0013025020135894,-0.0115954702605,0.0013403337241637,-0.011686148796652
|
|
cArc part,wMat,0.0013403337241637,-0.011686148796652,0.0013467519932291,-0.011818013405138,0.0013497548980429,-0.01195000018925
|
|
cLn part,wMat,0.0013497548980429,-0.01195000018925,0.002014783172008,-0.01195000018925
|
|
cArc part,wMat,0.002014783172008,-0.01195000018925,0.0020108232465294,-0.011780590511605,0.0020018859677117,-0.011611370593235
|
|
cArc part,wMat,0.0020018859677117,-0.011611370593235,0.0019342798012625,-0.011441042198339,0.0017802138696359,-0.011341815717447
|
|
cLn part,wMat,0.0017802138696359,-0.011341815717447,0.0014923272519238,-0.011264677153893
|
|
cArc part,wMat,0.0014923272519238,-0.011264677153893,0.0014200840069524,-0.011220606796995,0.0013831903701497,-0.011144446012682
|
|
cArc part,wMat,0.0013831903701497,-0.011144446012682,0.0012763559852486,-0.010651904487446,0.0011223773018522,-0.01017200781462
|
|
cArc part,wMat,0.0011223773018522,-0.01017200781462,0.0011162152821164,-0.0100875723039,0.0011567521150175,-0.010013249779237
|
|
cLn part,wMat,0.0011567521150175,-0.010013249779237,0.0013673138845747,-0.0098026870783757
|
|
cArc part,wMat,0.0013673138845747,-0.0098026870783757,0.0014511360220202,-0.0096396551988991,0.0014244498113776,-0.0094582891290693
|
|
cArc part,wMat,0.0014244498113776,-0.0094582891290693,0.0012419871657164,-0.0091163756938203,0.0010369646643927,-0.0087874940772477
|
|
cArc part,wMat,0.0010369646643927,-0.0087874940772477,0.00089325331013818,-0.0086737899925747,0.0007102156163916,-0.0086648897593816
|
|
cLn part,wMat,0.0007102156163916,-0.0086648897593816,0.00042232620262851,-0.0087420281408478
|
|
cArc part,wMat,0.00042232620262851,-0.0087420281408478,0.00033772755355448,-0.0087399835697331,0.00026770052548412,-0.008692478497615
|
|
cArc part,wMat,0.00026770052548412,-0.008692478497615,-7.0216310638725e-05,-0.0083202163106066,-0.00044247450869162,-0.0079823027583503
|
|
cArc part,wMat,-0.00044247450869162,-0.0079823027583503,-0.00048998568086905,-0.0079122707614818,-0.00049202986720472,-0.0078276705182609
|
|
cLn part,wMat,-0.00049202986720472,-0.0078276705182609,-0.00041488842695671,-0.0075397903268404
|
|
cArc part,wMat,-0.00041488842695671,-0.0075397903268404,-0.00042378730947644,-0.007356748897257,-0.00053749402543675,-0.0072130353704482
|
|
cArc part,wMat,-0.00053749402543675,-0.0072130353704482,-0.00086637569379443,-0.0070080128343684,-0.0012082879536896,-0.0068255507660431
|
|
cArc part,wMat,-0.0012082879536896,-0.0068255507660431,-0.0013896553688321,-0.0067988641375486,-0.0015526878479491,-0.0068826871830495
|
|
cLn part,wMat,-0.0015526878479491,-0.0068826871830495,-0.001763248203189,-0.0070932484695871
|
|
cArc part,wMat,-0.001763248203189,-0.0070932484695871,-0.0018375708843961,-0.0071337853402632,-0.0019220080734963,-0.0071276226011137
|
|
cArc part,wMat,-0.0019220080734963,-0.0071276226011137,-0.0024019044874851,-0.0069736440148276,-0.002894447062553,-0.0068668094549523
|
|
cArc part,wMat,-0.002894447062553,-0.0068668094549523,-0.0029706077693466,-0.0068299157482858,-0.0030146782566688,-0.0067576717009957
|
|
cLn part,wMat,-0.0030146782566688,-0.0067576717009957,-0.0030918132582602,-0.0064697881992965
|
|
cArc part,wMat,-0.0030918132582602,-0.0064697881992965,-0.0031910401676305,-0.0063157204044551,-0.0033613706471415,-0.0062481140286682
|
|
cArc part,wMat,-0.0033613706471415,-0.0062481140286682,-0.0035305891357151,-0.0062391768058955,-0.0036999972463,-0.0062352168535396
|
|
cLn part,wMat,-0.0036999972463,-0.0062352168535396,-0.0036999972463,-0.0069002451308336
|
|
cArc part,wMat,-0.0036999972463,-0.01934982991129,-0.0034385344557388,-0.019343397661506,-0.0031774647138891,-0.019327666978407
|
|
cArc part,wMat,-0.0031774647138891,-0.019327666978407,-0.0030762375893372,-0.019290622307142,-0.0030089408987787,-0.019206421223702
|
|
cLn part,wMat,-0.0030089408987787,-0.019206421223702,-0.0028016888235306,-0.018718158445997
|
|
cArc part,wMat,-0.0028016888235306,-0.018718158445997,-0.0027413510736814,-0.01863919673231,-0.0026504588122798,-0.018599023350208
|
|
cArc part,wMat,-0.0026504588122798,-0.018599023350208,-0.0020187379548724,-0.018462107375399,-0.0014031791573969,-0.018264864877458
|
|
cArc part,wMat,-0.0014031791573969,-0.018264864877458,-0.0013026559155505,-0.018254472885846,-0.00120988651234,-0.018294552371227
|
|
cLn part,wMat,-0.00120988651234,-0.018294552371227,-0.00080104448982059,-0.018613976499448
|
|
cArc part,wMat,-0.00080104448982059,-0.018613976499448,-0.00069977862100652,-0.018655175684205,-0.00059197924776349,-0.018636972572553
|
|
cArc part,wMat,-0.00059197924776349,-0.018636972572553,-7.1910855964146e-05,-0.01836350219996,0.00042465325392034,-0.018049361140641
|
|
cArc part,wMat,0.00042465325392034,-0.018049361140641,0.00049348714941093,-0.017966722996641,0.00050956586080934,-0.017860380696585
|
|
cLn part,wMat,0.00050956586080934,-0.017860380696585,0.00044470098661315,-0.017332086992488
|
|
cArc part,wMat,0.00044470098661315,-0.017332086992488,0.00045737401839016,-0.017233786476891,0.00051568333288504,-0.017153643924801
|
|
cArc part,wMat,0.00051568333288504,-0.017153643924801,0.00098265553305558,-0.016728432256629,0.0014074506600528,-0.016261079990942
|
|
cArc part,wMat,0.0014074506600528,-0.016261079990942,0.001489249518117,-0.016202025486277,0.0015894682800862,-0.016190413433066
|
|
cLn part,wMat,0.0015894682800862,-0.016190413433066,0.0021043849807182,-0.016262779007061
|
|
cArc part,wMat,0.0021043849807182,-0.016262779007061,0.0022125370131795,-0.016247889565592,0.0022967557451752,-0.016178426134105
|
|
cArc part,wMat,0.0022967557451752,-0.016178426134105,0.0026142508607152,-0.015676793573464,0.0028902264206488,-0.01515117328665
|
|
cArc part,wMat,0.0028902264206488,-0.01515117328665,0.0029085141679934,-0.015045192693086,0.0028692674480461,-0.01494506344634
|
|
cLn part,wMat,0.0028692674480461,-0.01494506344634,0.0025489175826708,-0.014519950003427
|
|
cArc part,wMat,0.0025489175826708,-0.014519950003427,0.0025107436914507,-0.014428489327384,0.002521165687697,-0.014329931526258
|
|
cArc part,wMat,0.002521165687697,-0.014329931526258,0.0027049201967287,-0.013757869521171,0.0028366067043634,-0.013171627979195
|
|
cArc part,wMat,0.0028366067043634,-0.013171627979195,0.0028776333497766,-0.013081350951379,0.0029569786289769,-0.0130218774196
|
|
cLn part,wMat,0.0029569786289769,-0.0130218774196,0.003448412626419,-0.012818318698671
|
|
end sub
|
|
|
|
sub codeBag76(part,wMat)
|
|
cArc part,wMat,0.003448412626419,-0.012818318698671,0.0034753906319011,-0.01280467114153,0.0034999979734,-0.012787117356023
|
|
cLn part,wMat,0.0034999979734,-0.012787117356023,0.0034999979734,-0.0120500000194
|
|
cLn part,wMat,0.0034999979734,-0.0120500000194,0.0027798085728496,-0.0120500000194
|
|
cArc part,wMat,0.0027798085728496,-0.0120500000194,0.0027778723321349,-0.012166681778704,0.0027738512598421,-0.012283310323613
|
|
cArc part,wMat,0.0027738512598421,-0.012283310323613,0.0027409861836528,-0.012370676325449,0.0026628152365841,-0.012421690389469
|
|
cLn part,wMat,0.0026628152365841,-0.012421690389469,0.0021787376920696,-0.012551398986934
|
|
cArc part,wMat,0.0021787376920696,-0.012551398986934,0.0020316489382363,-0.012642445085801,0.001959283004914,-0.012799570240647
|
|
cArc part,wMat,0.001959283004914,-0.012799570240647,0.0018182510687867,-0.013493253171731,0.0015932675789677,-0.014164420610575
|
|
cArc part,wMat,0.0015932675789677,-0.014164420610575,0.001577316594627,-0.014336732143721,0.0016591880532976,-0.014489185436366
|
|
cLn part,wMat,0.0016591880532976,-0.014489185436366,0.0020133777608467,-0.014843379800568
|
|
cArc part,wMat,0.0020133777608467,-0.014843379800568,0.0020555725915686,-0.014926672546412,0.0020403215673295,-0.015018787198036
|
|
cArc part,wMat,0.0020403215673295,-0.015018787198036,0.0019045208817978,-0.015266082301079,0.0017581657597073,-0.015507279567372
|
|
cArc part,wMat,0.0017581657597073,-0.015507279567372,0.0016860201857626,-0.015566509120582,0.0015928149157792,-0.015571603065638
|
|
cLn part,wMat,0.0015928149157792,-0.015571603065638,0.0011087392573495,-0.015441893908515
|
|
cArc part,wMat,0.0011087392573495,-0.015441893908515,0.0009358329780951,-0.015447197513257,0.00079459896418254,-0.015547089687983
|
|
cArc part,wMat,0.00079459896418254,-0.015547089687983,0.00032647059350604,-0.016076470593556,-0.00020290849021193,-0.016544597542251
|
|
cArc part,wMat,-0.00020290849021193,-0.016544597542251,-0.00030280162818802,-0.016685832097171,-0.00030810560528727,-0.016858737628801
|
|
cLn part,wMat,-0.00030810560528727,-0.016858737628801,-0.00017839814777152,-0.017342816007823
|
|
cArc part,wMat,-0.00017839814777152,-0.017342816007823,-0.00018349216314836,-0.017436020997739,-0.00024272054372936,-0.017508165830433
|
|
cArc part,wMat,-0.00024272054372936,-0.017508165830433,-0.00046756097366956,-0.017645041544431,-0.00069773327614872,-0.017772743528549
|
|
cArc part,wMat,-0.00069773327614872,-0.017772743528549,-0.00082101209788191,-0.017793707056242,-0.00093264226343596,-0.017737359541468
|
|
cLn part,wMat,-0.00093264226343596,-0.017737359541468,-0.0012608112049158,-0.017409188737285
|
|
cArc part,wMat,-0.0012608112049158,-0.017409188737285,-0.001413265571635,-0.017327315900872,-0.0015855757067236,-0.01734326608721
|
|
cArc part,wMat,-0.0015855757067236,-0.01734326608721,-0.002256746828344,-0.017568251068819,-0.0029504309301027,-0.017709283168886
|
|
cArc part,wMat,-0.0029504309301027,-0.017709283168886,-0.0031075569157309,-0.017781649285796,-0.0031986029330245,-0.017928737992447
|
|
cLn part,wMat,-0.0031986029330245,-0.017928737992447,-0.0033283099533875,-0.018412814740168
|
|
cArc part,wMat,-0.0033283099533875,-0.018412814740168,-0.0033793241288846,-0.018490986182869,-0.0034666862448659,-0.018523851110839
|
|
cArc part,wMat,-0.0034666862448659,-0.018523851110839,-0.0035833168449045,-0.018527872297008,-0.0036999972463,-0.018529808551931
|
|
cLn part,wMat,-0.0036999972463,-0.018529808551931,-0.0036999972463,-0.01934982991129
|
|
cLn part,wMat,-0.0036999972463,-0.014899568886035,-0.0036999972463,-0.016489721564306
|
|
cArc part,wMat,-0.0036999972463,-0.016489721564306,-0.0035714787099648,-0.016486449615161,-0.0034431014283434,-0.01647949922057
|
|
cArc part,wMat,-0.0034431014283434,-0.01647949922057,-0.0032630277463338,-0.016403285881372,-0.0031681677363908,-0.016232297137816
|
|
cLn part,wMat,-0.0031681677363908,-0.016232297137816,-0.0030844525086809,-0.015757535832686
|
|
cArc part,wMat,-0.0030844525086809,-0.015757535832686,-0.0030447510991902,-0.015679506699395,-0.0029682578967271,-0.01563693267521
|
|
cArc part,wMat,-0.0029682578967271,-0.01563693267521,-0.0027893934430095,-0.015593832918028,-0.0026128795066547,-0.01554194254381
|
|
cArc part,wMat,-0.0026128795066547,-0.01554194254381,-0.0025254300662707,-0.015540646557997,-0.0024521214948101,-0.015588345434039
|
|
cLn part,wMat,-0.0024521214948101,-0.015588345434039,-0.00214179725245,-0.015958177484676
|
|
cArc part,wMat,-0.00214179725245,-0.015958177484676,-0.0019743087842177,-0.016058796012344,-0.0017803815296166,-0.01603493532555
|
|
cArc part,wMat,-0.0017803815296166,-0.01603493532555,-0.0015011604229641,-0.015886234753203,-0.0012331002778773,-0.015718240953599
|
|
cArc part,wMat,-0.0012331002778773,-0.015718240953599,-0.0011158765847586,-0.015562278125497,-0.0011193620384957,-0.01536720141448
|
|
cLn part,wMat,-0.0011193620384957,-0.01536720141448,-0.0012849211258318,-0.014912333018825
|
|
cArc part,wMat,-0.0012849211258318,-0.014912333018825,-0.0012896152908743,-0.014825160374476,-0.0012449757903235,-0.014750137034624
|
|
cArc part,wMat,-0.0012449757903235,-0.014750137034624,-0.0011120633835816,-0.014622916393642,-0.00098560240897382,-0.014489278200403
|
|
cArc part,wMat,-0.00098560240897382,-0.014489278200403,-0.00091042297740452,-0.014444110116008,-0.00082283448687396,-0.014448701147039
|
|
cLn part,wMat,-0.00082283448687396,-0.014448701147039,-0.0003710198171929,-0.014613145385065
|
|
cArc part,wMat,-0.0003710198171929,-0.014613145385065,-0.00017522613025855,-0.014616396405268,-1.9137616083322e-05,-0.01449815249181
|
|
cArc part,wMat,-1.9137616083322e-05,-0.01449815249181,0.00014676278061651,-0.014230546980373,0.00029350228575432,-0.013951970610726
|
|
cArc part,wMat,0.00029350228575432,-0.013951970610726,0.00031665147866451,-0.013758586299243,0.00021617114580149,-0.013591739818476
|
|
cLn part,wMat,0.00021617114580149,-0.013591739818476,-0.00015583311689648,-0.013279587680689
|
|
cArc part,wMat,-0.00015583311689648,-0.013279587680689,-0.00020342781481901,-0.013206636881901,-0.00020246146766823,-0.013119540245657
|
|
cArc part,wMat,-0.00020246146766823,-0.013119540245657,-0.00015144444491602,-0.012942760795217,-0.00010923016510651,-0.012763672056155
|
|
cArc part,wMat,-0.00010923016510651,-0.012763672056155,-6.6768663668655e-05,-0.012686706235664,1.1527369163683e-05,-0.012646746294504
|
|
cLn part,wMat,1.1527369163683e-05,-0.012646746294504,0.00048350894808842,-0.012563524235184
|
|
cArc part,wMat,0.00048350894808842,-0.012563524235184,0.00065493864624781,-0.012468174831214,0.00073080042624585,-0.012287276069633
|
|
cArc part,wMat,0.00073080042624585,-0.012287276069633,0.0007368297630228,-0.01216869699958,0.0007397215947161,-0.0120500000194
|
|
cLn part,wMat,0.0007397215947161,-0.0120500000194,-0.00085043106685493,-0.0120500000194
|
|
cArc part,wMat,-0.00085043106685493,-0.0120500000194,-0.00085172619081347,-0.012100044625007,-0.00085388498729829,-0.0121500594323
|
|
cArc part,wMat,-0.00085388498729829,-0.0121500594323,-0.00092873751028223,-0.012333255386903,-0.001101389009965,-0.012429978313002
|
|
cLn part,wMat,-0.001101389009965,-0.012429978313002,-0.0015587053573202,-0.012510614964421
|
|
cArc part,wMat,-0.0015587053573202,-0.012510614964421,-0.0015766021506242,-0.012582101057598,-0.0015968307165165,-0.012652963926715
|
|
cLn part,wMat,-0.0015968307165165,-0.012652963926715,-0.0012410321682075,-0.012951510983101
|
|
cArc part,wMat,-0.0012410321682075,-0.012951510983101,-0.0011398776466731,-0.013121575169511,-0.0011666216609589,-0.013317632861333
|
|
cArc part,wMat,-0.0011666216609589,-0.013317632861333,-0.001238377002283,-0.013449741327695,-0.0013168822413972,-0.013577953729568
|
|
cArc part,wMat,-0.0013168822413972,-0.013577953729568,-0.0014733045113805,-0.013699184499449,-0.0016711893960858,-0.01369662484377
|
|
cLn part,wMat,-0.0016711893960858,-0.01369662484377,-0.0021075459401954,-0.013537805128345
|
|
cArc part,wMat,-0.0021075459401954,-0.013537805128345,-0.0021590100187151,-0.01359099051876,-0.0022121975217846,-0.013642456541078
|
|
cLn part,wMat,-0.0022121975217846,-0.013642456541078,-0.0020533750924744,-0.014078807512648
|
|
cArc part,wMat,-0.0020533750924744,-0.014078807512648,-0.0020508144206826,-0.014276694512623,-0.0021720498710419,-0.014433120093751
|
|
cArc part,wMat,-0.0021720498710419,-0.014433120093751,-0.0022986661677367,-0.014510703110171,-0.0024290888227291,-0.014581703635558
|
|
end sub
|
|
|
|
sub codeBag77(part,wMat)
|
|
cArc part,wMat,-0.0024290888227291,-0.014581703635558,-0.0026252987353515,-0.014608659375146,-0.0027955482732799,-0.014507469555682
|
|
cLn part,wMat,-0.0027955482732799,-0.014507469555682,-0.0030936981341176,-0.014152154188288
|
|
cArc part,wMat,-0.0030936981341176,-0.014152154188288,-0.0031650398747491,-0.014172630074631,-0.0032370181566954,-0.014190741750587
|
|
cLn part,wMat,-0.0032370181566954,-0.014190741750587,-0.0033177302655,-0.014648491277985
|
|
cArc part,wMat,-0.0033177302655,-0.014648491277985,-0.0034143541668075,-0.01482105515623,-0.0035973884197486,-0.014895981648045
|
|
cArc part,wMat,-0.0035973884197486,-0.014895981648045,-0.003648676652796,-0.01489822938698,-0.0036999972463,-0.014899568886035
|
|
cArc part,wMat,-0.0036999972463,-0.0054701914481326,-0.0035833168448632,-0.0054721277030553,-0.0034666896765398,-0.0054761487401956
|
|
cArc part,wMat,-0.0034666896765398,-0.0054761487401956,-0.0033793242125391,-0.0055090137930539,-0.0033283100046503,-0.0055871852771655
|
|
cLn part,wMat,-0.0033283100046503,-0.0055871852771655,-0.0031986029855412,-0.0060712620202068
|
|
cArc part,wMat,-0.0031986029855412,-0.0060712620202068,-0.0031075569678031,-0.0062183507114851,-0.0029504264989147,-0.0062907174517268
|
|
cArc part,wMat,-0.0029504264989147,-0.0062907174517268,-0.0022567468283046,-0.0064317489312283,-0.0015855740879031,-0.0066567345685715
|
|
cArc part,wMat,-0.0015855740879031,-0.0066567345685715,-0.0014132654727362,-0.006672684370893,-0.0012608102396709,-0.0065908109717587
|
|
cLn part,wMat,-0.0012608102396709,-0.0065908109717587,-0.00090662427353476,-0.0062366208146694
|
|
cArc part,wMat,-0.00090662427353476,-0.0062366208146694,-0.00082333106790866,-0.006194425524139,-0.00073121154226939,-0.0062096790894234
|
|
cArc part,wMat,-0.00073121154226939,-0.0062096790894234,-0.00048391769898632,-0.0063454791181751,-0.00024272043274266,-0.0064918342402314
|
|
cArc part,wMat,-0.00024272043274266,-0.0064918342402314,-0.00018349227474473,-0.0065639788291954,-0.00017839822204717,-0.0066571840123294
|
|
cLn part,wMat,-0.00017839822204717,-0.0066571840123294,-0.00030810565844468,-0.0071412623125369
|
|
cArc part,wMat,-0.00030810565844468,-0.0071412623125369,-0.00030280166768787,-0.0073141679105548,-0.00020290820478568,-0.0074554026805443
|
|
cArc part,wMat,-0.00020290820478568,-0.0074554026805443,0.00032647059353159,-0.0079235294064899,0.00079459653501394,-0.0084529071997451
|
|
cArc part,wMat,0.00079459653501394,-0.0084529071997451,0.00093583248748641,-0.0085528018810223,0.0011087390350618,-0.008558105428347
|
|
cLn part,wMat,0.0011087390350618,-0.008558105428347,0.0015928147724747,-0.0084283962501105
|
|
cArc part,wMat,0.0015928147724747,-0.0084283962501105,0.0016860197854837,-0.0084334902592849,0.0017581658304342,-0.0084927205436777
|
|
cArc part,wMat,0.0017581658304342,-0.0084927205436777,0.0018950415444606,-0.0087175609736624,0.0020227445620023,-0.0089477352306544
|
|
cArc part,wMat,0.0020227445620023,-0.0089477352306544,0.0020437064429009,-0.0090710109379228,0.0019873594574828,-0.0091826405741132
|
|
cLn part,wMat,0.0019873594574828,-0.0091826405741132,0.0016591885092313,-0.0095108133849799
|
|
cArc part,wMat,0.0016591885092313,-0.0095108133849799,0.001577316463698,-0.0096632669603727,0.0015932660871436,-0.0098355757066835
|
|
cArc part,wMat,0.0015932660871436,-0.0098355757066835,0.0018182510687679,-0.010506746828337,0.0019592836464462,-0.011200434340445
|
|
cArc part,wMat,0.0019592836464462,-0.011200434340445,0.0020316490484499,-0.011357555221366,0.0021787381585902,-0.011448601346762
|
|
cLn part,wMat,0.0021787381585902,-0.011448601346762,0.0026628151605068,-0.011578308867443
|
|
cArc part,wMat,0.0026628151605068,-0.011578308867443,0.0027409861301498,-0.011629322916136,0.0027738512604289,-0.0117166896878
|
|
cArc part,wMat,0.0027738512604289,-0.0117166896878,0.0027778723322267,-0.011833318221324,0.0027798085745383,-0.01195000018925
|
|
cLn part,wMat,0.0027798085745383,-0.01195000018925,0.0034999979734,-0.01195000018925
|
|
cLn part,wMat,0.0034999979734,-0.01195000018925,0.0034999979734,-0.011284352215016
|
|
cArc part,wMat,0.0034999979734,-0.011284352215016,0.0034790158143124,-0.011270270255876,0.0034564215221875,-0.011258944784453
|
|
cLn part,wMat,0.0034564215221875,-0.011258944784453,0.0029681573015911,-0.011051686930779
|
|
cArc part,wMat,0.0029681573015911,-0.011051686930779,0.0028891964799951,-0.010991349559596,0.0028490239337447,-0.01090046231422
|
|
cArc part,wMat,0.0028490239337447,-0.01090046231422,0.002712107375414,-0.010268737954784,0.0025148645495099,-0.0096531782818286
|
|
cArc part,wMat,0.0025148645495099,-0.0096531782818286,0.0025044725364542,-0.009552654982781,0.0025445523984502,-0.0094598850975206
|
|
cLn part,wMat,0.0025445523984502,-0.0094598850975206,0.0028639774464917,-0.009051046665713
|
|
cArc part,wMat,0.0028639774464917,-0.009051046665713,0.002905176686144,-0.0089497807266246,0.0028869725725454,-0.0088419792477158
|
|
cArc part,wMat,0.0028869725725454,-0.0088419792477158,0.0026135021999654,-0.0083219108559448,0.0022993627357262,-0.007825349057443
|
|
cArc part,wMat,0.0022993627357262,-0.007825349057443,0.0022167240001568,-0.0077565144256006,0.0021103806471102,-0.0077404359126438
|
|
cLn part,wMat,0.0021103806471102,-0.0077404359126438,0.0015820875554106,-0.0078053014225428
|
|
cArc part,wMat,0.0015820875554106,-0.0078053014225428,0.0014837881046007,-0.0077926281380158,0.0014036453045338,-0.0077343183340216
|
|
cArc part,wMat,0.0014036453045338,-0.0077343183340216,0.00097843225661121,-0.0072673444668932,0.00051107839953008,-0.0068425480250936
|
|
cArc part,wMat,0.00051107839953008,-0.0068425480250936,0.00045202903921287,-0.0067607540597383,0.00044041663760909,-0.0066605342188312
|
|
cLn part,wMat,0.00044041663760909,-0.0066605342188312,0.00051277755318563,-0.0061456127663192
|
|
cArc part,wMat,0.00051277755318563,-0.0061456127663192,0.00049788811515217,-0.0060374622441378,0.0004284249096094,-0.0059532434086586
|
|
cArc part,wMat,0.0004284249096094,-0.0059532434086586,-7.3206426560663e-05,-0.0056357491392549,-0.00059882492913318,-0.0053597744260506
|
|
cArc part,wMat,-0.00059882492913318,-0.0053597744260506,-0.00070480380421555,-0.0053414874942037,-0.00080493392985306,-0.0053807348764164
|
|
cLn part,wMat,-0.00080493392985306,-0.0053807348764164,-0.0012300496014367,-0.0057010840995084
|
|
cArc part,wMat,-0.0012300496014367,-0.0057010840995084,-0.0013215089129193,-0.0057392569624593,-0.0014200724452921,-0.005728832836754
|
|
cArc part,wMat,-0.0014200724452921,-0.005728832836754,-0.0019921304788922,-0.0055450798032569,-0.0025783697694587,-0.0054133936961099
|
|
cArc part,wMat,-0.0025783697694587,-0.0054133936961099,-0.0026686473413208,-0.0053723669539643,-0.0027281214056646,-0.0052930203891309
|
|
cLn part,wMat,-0.0027281214056646,-0.0052930203891309,-0.0029316786521317,-0.0048015867714787
|
|
cArc part,wMat,-0.0029316786521317,-0.0048015867714787,-0.0029980749179249,-0.0047169211816508,-0.003098734708517,-0.0046789103598256
|
|
cArc part,wMat,-0.003098734708517,-0.0046789103598256,-0.0033990716262502,-0.0046583823801665,-0.0036999972463,-0.0046501700887729
|
|
cLn part,wMat,-0.0036999972463,-0.0046501700887729,-0.0036999972463,-0.0054701914481326
|
|
cArc part,wMat,-0.008239721594708,-0.0120500000194,-0.0082364496694699,-0.012178519923934,-0.0082294995700026,-0.012306893470564
|
|
cArc part,wMat,-0.0082294995700026,-0.012306893470564,-0.0081532860309472,-0.012486970069573,-0.0079822956445354,-0.012581830369206
|
|
cLn part,wMat,-0.0079822956445354,-0.012581830369206,-0.007507535707207,-0.012665543493083
|
|
cArc part,wMat,-0.007507535707207,-0.012665543493083,-0.0074295075976802,-0.012705244722071,-0.0073869324999047,-0.012781742918905
|
|
cArc part,wMat,-0.0073869324999047,-0.012781742918905,-0.0073438329180212,-0.01296060655706,-0.0072919425438065,-0.013137120493392
|
|
cArc part,wMat,-0.0072919425438065,-0.013137120493392,-0.0072906466710387,-0.013224569581651,-0.007338345314533,-0.013297877957982
|
|
cLn part,wMat,-0.007338345314533,-0.013297877957982,-0.007708177466849,-0.01360820414827
|
|
cArc part,wMat,-0.007708177466849,-0.01360820414827,-0.0078087955302963,-0.013775692258545,-0.0077849330769485,-0.013969623076832
|
|
cArc part,wMat,-0.0077849330769485,-0.013969623076832,-0.007636234753202,-0.014248839577037,-0.0074682455297214,-0.014516892961759
|
|
cArc part,wMat,-0.0074682455297214,-0.014516892961759,-0.0073122775114451,-0.014634124322474,-0.0071172008187025,-0.01463063887541
|
|
end sub
|
|
|
|
sub codeBag78(part,wMat)
|
|
cLn part,wMat,-0.0071172008187025,-0.01463063887541,-0.0066623329079727,-0.014465079540036
|
|
cArc part,wMat,-0.0066623329079727,-0.014465079540036,-0.0065751598913713,-0.014460385239481,-0.0065001370345752,-0.014505024209676
|
|
cArc part,wMat,-0.0065001370345752,-0.014505024209676,-0.0063729163935835,-0.014637936616425,-0.0062392797493261,-0.014764396196206
|
|
cArc part,wMat,-0.0062392797493261,-0.014764396196206,-0.0061941077175309,-0.014839579497061,-0.0061986990650383,-0.014927168173374
|
|
cLn part,wMat,-0.0061986990650383,-0.014927168173374,-0.0063631468534942,-0.015378975843628
|
|
cArc part,wMat,-0.0063631468534942,-0.015378975843628,-0.0063663991154377,-0.015574771434518,-0.0062481570078393,-0.015730859360066
|
|
cArc part,wMat,-0.0062481570078393,-0.015730859360066,-0.0059805469803529,-0.015896762780674,-0.0057019772041877,-0.016043499102849
|
|
cArc part,wMat,-0.0057019772041877,-0.016043499102849,-0.0055085874832714,-0.016066650907144,-0.0053417403649118,-0.015966169814437
|
|
cLn part,wMat,-0.0053417403649118,-0.015966169814437,-0.005029589701113,-0.015594165624321
|
|
cArc part,wMat,-0.005029589701113,-0.015594165624321,-0.0049566393143859,-0.015546571417546,-0.0048695402457014,-0.015547538532368
|
|
cArc part,wMat,-0.0048695402457014,-0.015547538532368,-0.0046927607952156,-0.015598555555134,-0.0045136749917088,-0.015640769219192
|
|
cArc part,wMat,-0.0045136749917088,-0.015640769219192,-0.0044367054658883,-0.015683231497792,-0.0043967456106367,-0.015761527043099
|
|
cLn part,wMat,-0.0043967456106367,-0.015761527043099,-0.0043135228087567,-0.016233509107818
|
|
cArc part,wMat,-0.0043135228087567,-0.016233509107818,-0.0042181734169268,-0.016404938736949,-0.0040372743282297,-0.016480800537888
|
|
cArc part,wMat,-0.0040372743282297,-0.016480800537888,-0.0039186969897703,-0.01648682976339,-0.00379999893905,-0.016489721606747
|
|
cLn part,wMat,-0.00379999893905,-0.016489721606747,-0.00379999893905,-0.014899568951774
|
|
cArc part,wMat,-0.00379999893905,-0.014899568951774,-0.0038500446152196,-0.014898273809523,-0.0039000553595748,-0.01489611522372
|
|
cArc part,wMat,-0.0039000553595748,-0.01489611522372,-0.004083255744312,-0.014821262471256,-0.0041799785717243,-0.01464861153131
|
|
cLn part,wMat,-0.0041799785717243,-0.01464861153131,-0.0042606161337078,-0.014191294370251
|
|
cArc part,wMat,-0.0042606161337078,-0.014191294370251,-0.0043321004087615,-0.014173398023192,-0.0044029602949213,-0.014153170384887
|
|
cLn part,wMat,-0.0044029602949213,-0.014153170384887,-0.0047015128235664,-0.014508969509703
|
|
cArc part,wMat,-0.0047015128235664,-0.014508969509703,-0.0048715754725196,-0.01461012219891,-0.0050676277048182,-0.014583380969125
|
|
cArc part,wMat,-0.0050676277048182,-0.014583380969125,-0.0051997413277073,-0.01451162299776,-0.0053279507461943,-0.014433119693464
|
|
cArc part,wMat,-0.0053279507461943,-0.014433119693464,-0.0054491824773563,-0.014276696561197,-0.005446623087549,-0.014078812992988
|
|
cLn part,wMat,-0.005446623087549,-0.014078812992988,-0.0052878051900008,-0.013642454002128
|
|
cArc part,wMat,-0.0052878051900008,-0.013642454002128,-0.0053409905486356,-0.013590989951461,-0.0053924549839623,-0.013537804141351
|
|
cLn part,wMat,-0.0053924549839623,-0.013537804141351,-0.0058288086067986,-0.013696625505304
|
|
cArc part,wMat,-0.0058288086067986,-0.013696625505304,-0.0060266944079919,-0.013699185740757,-0.006183120568963,-0.013577949396255
|
|
cArc part,wMat,-0.006183120568963,-0.013577949396255,-0.0062607031101742,-0.013451333832312,-0.0063317038704183,-0.0133209107183
|
|
cArc part,wMat,-0.0063317038704183,-0.0133209107183,-0.0063586597411281,-0.013124698932126,-0.0062574673712541,-0.012954448215793
|
|
cLn part,wMat,-0.0062574673712541,-0.012954448215793,-0.0059021526695774,-0.012656306845923
|
|
cArc part,wMat,-0.0059021526695774,-0.012656306845923,-0.005922629853206,-0.012584960947528,-0.005940741849536,-0.012512981420587
|
|
cLn part,wMat,-0.005940741849536,-0.012512981420587,-0.0063984921307425,-0.012432267151992
|
|
cArc part,wMat,-0.0063984921307425,-0.012432267151992,-0.0065710553768591,-0.012335643275063,-0.0066459817403943,-0.012152609826865
|
|
cArc part,wMat,-0.0066459817403943,-0.012152609826865,-0.0066482294350425,-0.012101321970992,-0.0066495689331369,-0.0120500000194
|
|
cLn part,wMat,-0.0066495689331369,-0.0120500000194,-0.008239721594708,-0.0120500000194
|
|
cLn part,wMat,-0.0082397215536941,-0.01195000018925,-0.0066495688933943,-0.01195000018925
|
|
cArc part,wMat,-0.0066495688933943,-0.01195000018925,-0.0066482737662018,-0.011899955386144,-0.0066461150367387,-0.011849941869294
|
|
cArc part,wMat,-0.0066461150367387,-0.011849941869294,-0.0065712624869972,-0.011666744240967,-0.0063986115950685,-0.011570021361227
|
|
cLn part,wMat,-0.0063986115950685,-0.011570021361227,-0.0059412944158072,-0.01148938363182
|
|
cArc part,wMat,-0.0059412944158072,-0.01148938363182,-0.0059233979421773,-0.011417898911579,-0.0059031701527728,-0.011347038603431
|
|
cLn part,wMat,-0.0059031701527728,-0.011347038603431,-0.0062589687750722,-0.011048485233172
|
|
cArc part,wMat,-0.0062589687750722,-0.011048485233172,-0.0063601213410736,-0.010878422668941,-0.0063333805355581,-0.010682371299978
|
|
cArc part,wMat,-0.0063333805355581,-0.010682371299978,-0.0062616230519385,-0.01055025863424,-0.0061831178095306,-0.010422046227683
|
|
cArc part,wMat,-0.0061831178095306,-0.010422046227683,-0.0060266946207874,-0.010300814418257,-0.0058288087366284,-0.010303374656091
|
|
cLn part,wMat,-0.0058288087366284,-0.010303374656091,-0.005392455187036,-0.010462195993386
|
|
cArc part,wMat,-0.005392455187036,-0.010462195993386,-0.005340990586906,-0.010409010007399,-0.0052878052675212,-0.010357545993532
|
|
cLn part,wMat,-0.0052878052675212,-0.010357545993532,-0.0054466231681519,-0.0099211869942019
|
|
cArc part,wMat,-0.0054466231681519,-0.0099211869942019,-0.005449182568318,-0.0097233034740899,-0.0053279537763769,-0.0095668822167841
|
|
cArc part,wMat,-0.0053279537763769,-0.0095668822167841,-0.0052013338518477,-0.0094892968479217,-0.005070910460956,-0.0094182959461814
|
|
cArc part,wMat,-0.005070910460956,-0.0094182959461814,-0.0048746975576686,-0.0093913395270691,-0.0047044472484629,-0.0094925314438117
|
|
cLn part,wMat,-0.0047044472484629,-0.0094925314438117,-0.0044063049003859,-0.0098478467371248
|
|
cArc part,wMat,-0.0044063049003859,-0.0098478467371248,-0.0043349609475284,-0.0098273701467941,-0.0042629778260065,-0.0098092573087647
|
|
cLn part,wMat,-0.0042629778260065,-0.0098092573087647,-0.0041822661848113,-0.0093515095020665
|
|
cArc part,wMat,-0.0041822661848113,-0.0093515095020665,-0.0040856420947992,-0.0091789446723645,-0.0039026122117316,-0.0091040184314669
|
|
cArc part,wMat,-0.0039026122117316,-0.0091040184314669,-0.0038513219653228,-0.0091017706109094,-0.00379999893905,-0.0091004310943639
|
|
cLn part,wMat,-0.00379999893905,-0.0091004310943639,-0.00379999893905,-0.007510278439386
|
|
cArc part,wMat,-0.00379999893905,-0.007510278439386,-0.0039285199123139,-0.0075135503762254,-0.0040568934674167,-0.0075205004760097
|
|
cArc part,wMat,-0.0040568934674167,-0.0075205004760097,-0.0042369681486765,-0.0075967135672647,-0.0043318287303266,-0.0077677037352065
|
|
cLn part,wMat,-0.0043318287303266,-0.0077677037352065,-0.0044155435870698,-0.0082424647991343
|
|
cArc part,wMat,-0.0044155435870698,-0.0082424647991343,-0.0044552447355156,-0.0083204924519537,-0.0045317398565376,-0.008363066888578
|
|
cArc part,wMat,-0.0045317398565376,-0.008363066888578,-0.0047106065484598,-0.0084061671269641,-0.0048871204794562,-0.008458057499696
|
|
cArc part,wMat,-0.0048871204794562,-0.008458057499696,-0.0049745729042938,-0.0084593544436857,-0.0050478807144539,-0.008411656474928
|
|
cLn part,wMat,-0.0050478807144539,-0.008411656474928,-0.0053582049567386,-0.0080418244242719
|
|
cArc part,wMat,-0.0053582049567386,-0.0080418244242719,-0.0055256938894105,-0.0079412053430991,-0.0057196212066542,-0.0079650660604686
|
|
cArc part,wMat,-0.0057196212066542,-0.0079650660604686,-0.0059988395572157,-0.0081137652875841,-0.0062668955157287,-0.0082817562536879
|
|
cArc part,wMat,-0.0062668955157287,-0.0082817562536879,-0.0063841263774019,-0.0084377239341744,-0.0063806412241135,-0.0086327998197746
|
|
cLn part,wMat,-0.0063806412241135,-0.0086327998197746,-0.0062150821367773,-0.0090876682154301
|
|
cArc part,wMat,-0.0062150821367773,-0.0090876682154301,-0.0062103874802124,-0.0091748422102083,-0.0062550251632057,-0.0092498638944828
|
|
end sub
|
|
|
|
sub codeBag79(part,wMat)
|
|
cArc part,wMat,-0.0062550251632057,-0.0092498638944828,-0.0063879365869855,-0.0093770836402568,-0.0065143961630357,-0.0095107202806914
|
|
cArc part,wMat,-0.0065143961630357,-0.0095107202806914,-0.0065895784220218,-0.0095558911554986,-0.0066771667135768,-0.0095512999480483
|
|
cLn part,wMat,-0.0066771667135768,-0.0095512999480483,-0.0071289782707273,-0.0093868541311664
|
|
cArc part,wMat,-0.0071289782707273,-0.0093868541311664,-0.007324772397386,-0.0093836024021661,-0.0074808623510648,-0.0095018475386384
|
|
cArc part,wMat,-0.0074808623510648,-0.0095018475386384,-0.0076467627438467,-0.0097694530444389,-0.0077935011651139,-0.010048027169628
|
|
cArc part,wMat,-0.0077935011651139,-0.010048027169628,-0.0078166525636012,-0.010241416049853,-0.0077161704515181,-0.010408264023625
|
|
cLn part,wMat,-0.0077161704515181,-0.010408264023625,-0.0073441665099724,-0.010720409640166
|
|
cArc part,wMat,-0.0073441665099724,-0.010720409640166,-0.007296571402259,-0.010793360782809,-0.007297537965408,-0.010880458103523
|
|
cArc part,wMat,-0.007297537965408,-0.010880458103523,-0.0073485555135116,-0.011057239219017,-0.0073907691762668,-0.011236325017345
|
|
cArc part,wMat,-0.0073907691762668,-0.011236325017345,-0.0074332309927232,-0.011313292339889,-0.0075115268809647,-0.01135325225561
|
|
cLn part,wMat,-0.0075115268809647,-0.01135325225561,-0.0079835101203908,-0.011436476852802
|
|
cArc part,wMat,-0.0079835101203908,-0.011436476852802,-0.0081549386594233,-0.01153182605235,-0.0082308004001163,-0.011712724200292
|
|
cArc part,wMat,-0.0082308004001163,-0.011712724200292,-0.0082368297201947,-0.011831303014971,-0.0082397215536941,-0.01195000018925
|
|
cArc part,wMat,-0.009514783170118,-0.0120500000194,-0.0095108232460801,-0.012219409498059,-0.0095018860684751,-0.012388627914203
|
|
cArc part,wMat,-0.0095018860684751,-0.012388627914203,-0.0094342798571962,-0.012558956973179,-0.0092802136662426,-0.012658183523575
|
|
cLn part,wMat,-0.0092802136662426,-0.012658183523575,-0.0089923270484372,-0.012735322087154
|
|
cArc part,wMat,-0.0089923270484372,-0.012735322087154,-0.0089200841487908,-0.012779392351499,-0.0088831908453032,-0.012855551135695
|
|
cArc part,wMat,-0.0088831908453032,-0.012855551135695,-0.00877635598512,-0.013348095512545,-0.0086223761395806,-0.013827995282965
|
|
cArc part,wMat,-0.0086223761395806,-0.013827995282965,-0.0086162141843863,-0.013912430621645,-0.0086567501033465,-0.0139867522324
|
|
cLn part,wMat,-0.0086567501033465,-0.0139867522324,-0.0088673118728665,-0.014197314933274
|
|
cArc part,wMat,-0.0088673118728665,-0.014197314933274,-0.0089511346438887,-0.014360347181232,-0.0089244475783588,-0.014541715416597
|
|
cArc part,wMat,-0.0089244475783588,-0.014541715416597,-0.0087419871655614,-0.01488362430615,-0.0085369620183268,-0.015212509865393
|
|
cArc part,wMat,-0.0085369620183268,-0.015212509865393,-0.0083932519935058,-0.015326211281887,-0.0082102125590991,-0.015335110652187
|
|
cLn part,wMat,-0.0082102125590991,-0.015335110652187,-0.0079223280016179,-0.015257970644272
|
|
cArc part,wMat,-0.0079223280016179,-0.015257970644272,-0.0078377286980578,-0.015260015040004,-0.0077676980156903,-0.015307524550941
|
|
cArc part,wMat,-0.0077676980156903,-0.015307524550941,-0.0074297836893156,-0.015679783689322,-0.0070575244129148,-0.016017698129318
|
|
cArc part,wMat,-0.0070575244129148,-0.016017698129318,-0.0070100172521674,-0.016087726823887,-0.0070079725512518,-0.016172325146702
|
|
cLn part,wMat,-0.0070079725512518,-0.016172325146702,-0.0070851099216994,-0.01646021748959
|
|
cArc part,wMat,-0.0070851099216994,-0.01646021748959,-0.0070762095156464,-0.016643253233263,-0.006962502071066,-0.01678696724905
|
|
cArc part,wMat,-0.006962502071066,-0.01678696724905,-0.0066336243061167,-0.016991987165574,-0.0062917092289163,-0.017174450617768
|
|
cArc part,wMat,-0.0062917092289163,-0.017174450617768,-0.0061103475539683,-0.01720113442669,-0.005947314800475,-0.017117311106775
|
|
cLn part,wMat,-0.005947314800475,-0.017117311106775,-0.005736753275975,-0.016906749582275
|
|
cArc part,wMat,-0.005736753275975,-0.016906749582275,-0.0056624316077784,-0.016866213724671,-0.0055779953659785,-0.016872376108445
|
|
cArc part,wMat,-0.0055779953659785,-0.016872376108445,-0.0050980955125149,-0.017026355985137,-0.0046055512024163,-0.017133190834191
|
|
cArc part,wMat,-0.0046055512024163,-0.017133190834191,-0.0045293960950481,-0.017170083607615,-0.0044853261252688,-0.017242325723446
|
|
cLn part,wMat,-0.0044853261252688,-0.017242325723446,-0.0044081813599023,-0.017530217858047
|
|
cArc part,wMat,-0.0044081813599023,-0.017530217858047,-0.0043089543186466,-0.017684281240361,-0.0041386336966498,-0.017751885677743
|
|
cArc part,wMat,-0.0041386336966498,-0.017751885677743,-0.0039694094884026,-0.017760823246412,-0.00379999893905,-0.017764783179452
|
|
cLn part,wMat,-0.00379999893905,-0.017764783179452,-0.00379999893905,-0.017099754906473
|
|
cArc part,wMat,-0.00379999893905,-0.017099754906473,-0.0039225556796982,-0.017097080001079,-0.0040450082146738,-0.017091460512788
|
|
cArc part,wMat,-0.0040450082146738,-0.017091460512788,-0.0041360353788877,-0.017053780311657,-0.0041840539069622,-0.016967759160953
|
|
cLn part,wMat,-0.0041840539069622,-0.016967759160953,-0.0042635670106841,-0.016516832243277
|
|
cArc part,wMat,-0.0042635670106841,-0.016516832243277,-0.0043468008304373,-0.016356872346297,-0.0045067020139699,-0.016273523377988
|
|
cArc part,wMat,-0.0045067020139699,-0.016273523377988,-0.0048540159213967,-0.016197231092692,-0.0051939165904568,-0.016092762499823
|
|
cArc part,wMat,-0.0051939165904568,-0.016092762499823,-0.0053728071581678,-0.016086282012235,-0.005523542403903,-0.016182836926228
|
|
cLn part,wMat,-0.005523542403903,-0.016182836926228,-0.0058211705697324,-0.016537540230713
|
|
cArc part,wMat,-0.0058211705697324,-0.016537540230713,-0.0059051571029997,-0.016587900707717,-0.0060023277845903,-0.016575698804696
|
|
cArc part,wMat,-0.0060023277845903,-0.016575698804696,-0.0062861304781495,-0.016424708148379,-0.0065598573573045,-0.016256136937662
|
|
cArc part,wMat,-0.0065598573573045,-0.016256136937662,-0.0066196464847172,-0.016178011827078,-0.0066181732070714,-0.016079650114368
|
|
cLn part,wMat,-0.0066181732070714,-0.016079650114368,-0.0064611381908165,-0.015648208011463
|
|
cArc part,wMat,-0.0064611381908165,-0.015648208011463,-0.0064531529079135,-0.015468383447818,-0.0065495289885827,-0.015316359064168
|
|
cArc part,wMat,-0.0065495289885827,-0.015316359064168,-0.0068116188470755,-0.015076051045681,-0.0070531567638969,-0.014815094206865
|
|
cArc part,wMat,-0.0070531567638969,-0.014815094206865,-0.007204951419739,-0.014719612078274,-0.0073840929967877,-0.014727777696675
|
|
cLn part,wMat,-0.0073840929967877,-0.014727777696675,-0.0078180155983404,-0.014885714459543
|
|
cArc part,wMat,-0.0078180155983404,-0.014885714459543,-0.0079160746607617,-0.014887287549447,-0.0079941451930713,-0.014827937690342
|
|
cArc part,wMat,-0.0079941451930713,-0.014827937690342,-0.0081645998080362,-0.014553685285076,-0.0083173571769892,-0.014269195544269
|
|
cArc part,wMat,-0.0083173571769892,-0.014269195544269,-0.0083298560199776,-0.014171810120607,-0.0082794388721649,-0.014087552839686
|
|
cLn part,wMat,-0.0082794388721649,-0.014087552839686,-0.007926494551133,-0.013791395442733
|
|
cArc part,wMat,-0.007926494551133,-0.013791395442733,-0.0078297810071865,-0.01364007114371,-0.0078368318641334,-0.013460618127591
|
|
cArc part,wMat,-0.0078368318641334,-0.013460618127591,-0.0079426839919857,-0.013121160534311,-0.0080203922568349,-0.012774176964988
|
|
cArc part,wMat,-0.0080203922568349,-0.012774176964988,-0.0081039593239324,-0.012615049793479,-0.0082634865846591,-0.012532248868736
|
|
cLn part,wMat,-0.0082634865846591,-0.012532248868736,-0.0087166651219211,-0.012452341925668
|
|
cArc part,wMat,-0.0087166651219211,-0.012452341925668,-0.0088025019606092,-0.012404530598571,-0.0088403334987841,-0.012313854857415
|
|
cArc part,wMat,-0.0088403334987841,-0.012313854857415,-0.0088467519931472,-0.012181986594881,-0.0088497548959167,-0.0120500000194
|
|
cLn part,wMat,-0.0088497548959167,-0.0120500000194,-0.009514783170118,-0.0120500000194
|
|
cLn part,wMat,-0.0095147831720053,-0.01195000018925,-0.0088497548980401,-0.01195000018925
|
|
cArc part,wMat,-0.0088497548980401,-0.01195000018925,-0.0088470800011931,-0.011827444320302,-0.0088414601720613,-0.011704985902927
|
|
cArc part,wMat,-0.0088414601720613,-0.011704985902927,-0.0088037801692589,-0.011613962162355,-0.0087177585680613,-0.011565943554899
|
|
end sub
|
|
|
|
sub codeBag80(part,wMat)
|
|
cLn part,wMat,-0.0087177585680613,-0.011565943554899,-0.0082668341347017,-0.011486434065626
|
|
cArc part,wMat,-0.0082668341347017,-0.011486434065626,-0.0081068724821056,-0.011403199936307,-0.0080235233780476,-0.011243297986121
|
|
cArc part,wMat,-0.0080235233780476,-0.011243297986121,-0.0079472310927404,-0.010895984078617,-0.0078427618762689,-0.010556081641955
|
|
cArc part,wMat,-0.0078427618762689,-0.010556081641955,-0.0078362819944784,-0.010377192791286,-0.0079328342891782,-0.010226459743437
|
|
cLn part,wMat,-0.0079328342891782,-0.010226459743437,-0.008287538127335,-0.0099288242786083
|
|
cArc part,wMat,-0.008287538127335,-0.0099288242786083,-0.0083378982981888,-0.0098448380021929,-0.0083256989787635,-0.0097476725690661
|
|
cArc part,wMat,-0.0083256989787635,-0.0097476725690661,-0.0081747081483786,-0.0094638695218766,-0.00800613485208,-0.0091901394836568
|
|
cArc part,wMat,-0.00800613485208,-0.0091901394836568,-0.0079280137195621,-0.0091303563327233,-0.0078296521604585,-0.0091318295255225
|
|
cLn part,wMat,-0.0078296521604585,-0.0091318295255225,-0.007398206237545,-0.0092888627136161
|
|
cArc part,wMat,-0.007398206237545,-0.0092888627136161,-0.0072183834918778,-0.0092968472573025,-0.0070663590640829,-0.0092004710114106
|
|
cArc part,wMat,-0.0070663590640829,-0.0092004710114106,-0.006826051045642,-0.0089383811529711,-0.0065650942068451,-0.0086968432361655
|
|
cArc part,wMat,-0.0065650942068451,-0.0086968432361655,-0.0064696103660505,-0.0085450471211113,-0.0064777756271126,-0.0083659065259234
|
|
cLn part,wMat,-0.0064777756271126,-0.0083659065259234,-0.0066357121480193,-0.0079319834225465
|
|
cArc part,wMat,-0.0066357121480193,-0.0079319834225465,-0.0066372854022565,-0.0078339239086289,-0.006577934544126,-0.0077558527106322
|
|
cArc part,wMat,-0.006577934544126,-0.0077558527106322,-0.00630368528513,-0.0075854001920648,-0.0060191990238353,-0.0074326445518291
|
|
cArc part,wMat,-0.0060191990238353,-0.0074326445518291,-0.0059218110016236,-0.0074201439708396,-0.0058375535653137,-0.0074705606809344
|
|
cLn part,wMat,-0.0058375535653137,-0.0074705606809344,-0.0055413927051146,-0.0078235052637466
|
|
cArc part,wMat,-0.0055413927051146,-0.0078235052637466,-0.0053900675948632,-0.0079202185561594,-0.0052106181276461,-0.0079131681359383
|
|
cArc part,wMat,-0.0052106181276461,-0.0079131681359383,-0.0048711605343185,-0.0078073160080677,-0.0045241741860552,-0.0077296072394258
|
|
cArc part,wMat,-0.0045241741860552,-0.0077296072394258,-0.0043650536466731,-0.0076460413747599,-0.0042822525412031,-0.0074865130890914
|
|
cLn part,wMat,-0.0042822525412031,-0.0074865130890914,-0.004202345037955,-0.0070333341688137
|
|
cArc part,wMat,-0.004202345037955,-0.0070333341688137,-0.0041545338715088,-0.0069474982412071,-0.0040638512035015,-0.0069096662759605
|
|
cArc part,wMat,-0.0040638512035015,-0.0069096662759605,-0.0039319865949158,-0.006903248006887,-0.00379999893905,-0.0069002450935246
|
|
cLn part,wMat,-0.00379999893905,-0.0069002450935246,-0.00379999893905,-0.0062352168205452
|
|
cArc part,wMat,-0.00379999893905,-0.0062352168205452,-0.0039694094883796,-0.0062391767535843,-0.0041386294068693,-0.0062481140324103
|
|
cArc part,wMat,-0.0041386294068693,-0.0062481140324103,-0.0043089544627107,-0.006315718825208,-0.0044081814912541,-0.0064697823751265
|
|
cLn part,wMat,-0.0044081814912541,-0.0064697823751265,-0.0044853259178641,-0.006757674176855
|
|
cArc part,wMat,-0.0044853259178641,-0.006757674176855,-0.0045293966607455,-0.0068299170461074,-0.0046055516626476,-0.0068668092425988
|
|
cArc part,wMat,-0.0046055516626476,-0.0068668092425988,-0.0050980955125375,-0.0069736440149543,-0.0055779934711281,-0.0071276231807421
|
|
cArc part,wMat,-0.0055779934711281,-0.0071276231807421,-0.0056624315724677,-0.0071337861724778,-0.0057367532379599,-0.007093250198744
|
|
cLn part,wMat,-0.0057367532379599,-0.007093250198744,-0.0059473141848665,-0.0068826887861872
|
|
cArc part,wMat,-0.0059473141848665,-0.0068826887861872,-0.0061103471212432,-0.0067988653267015,-0.0062917127305237,-0.0068255511022415
|
|
cArc part,wMat,-0.0062917127305237,-0.0068255511022415,-0.0066336243061389,-0.0070080128344448,-0.0069625059228219,-0.0072130353358459
|
|
cArc part,wMat,-0.0069625059228219,-0.0072130353358459,-0.0070762094845681,-0.0073567468003567,-0.0070851098937446,-0.007539782357687
|
|
cLn part,wMat,-0.0070851098937446,-0.007539782357687,-0.0070079725793651,-0.0078276749570264
|
|
cArc part,wMat,-0.0070079725793651,-0.0078276749570264,-0.0070100175290499,-0.0079122739348979,-0.0070575245510509,-0.0079823019843917
|
|
cArc part,wMat,-0.0070575245510509,-0.0079823019843917,-0.0074297836893614,-0.0083202163107139,-0.0077676979271855,-0.0086924753415411
|
|
cArc part,wMat,-0.0077676979271855,-0.0086924753415411,-0.0078377281385853,-0.0087399843448362,-0.0079223274147447,-0.0087420287903233
|
|
cLn part,wMat,-0.0079223274147447,-0.0087420287903233,-0.0082102134674349,-0.0086648893130696
|
|
cArc part,wMat,-0.0082102134674349,-0.0086648893130696,-0.0083932521849835,-0.0086737889222963,-0.0085369665042286,-0.008787496819091
|
|
cArc part,wMat,-0.0085369665042286,-0.008787496819091,-0.0087419871655847,-0.0091163756939236,-0.0089244475674763,-0.0094582845612863
|
|
cArc part,wMat,-0.0089244475674763,-0.0094582845612863,-0.0089511347040045,-0.0096396530106706,-0.0088673119968414,-0.0098026851514505
|
|
cLn part,wMat,-0.0088673119968414,-0.0098026851514505,-0.0086567502342842,-0.010013247845312
|
|
cArc part,wMat,-0.0086567502342842,-0.010013247845312,-0.0086162141965801,-0.010087569736672,-0.0086223766084024,-0.01017200596655
|
|
cArc part,wMat,-0.0086223766084024,-0.01017200596655,-0.0087763559851618,-0.010651904487484,-0.0088831908342314,-0.011144448797674
|
|
cArc part,wMat,-0.0088831908342314,-0.011144448797674,-0.0089200842866002,-0.011220607978592,-0.0089923269685012,-0.011264678100077
|
|
cLn part,wMat,-0.0089923269685012,-0.011264678100077,-0.0092802136301459,-0.011341816675403
|
|
cArc part,wMat,-0.0092802136301459,-0.011341816675403,-0.0094342797969672,-0.011441043148554,-0.0095018858401777,-0.011611368705745
|
|
cArc part,wMat,-0.0095018858401777,-0.011611368705745,-0.0095108232465275,-0.011780590511648,-0.0095147831720053,-0.01195000018925
|
|
cArc part,wMat,-0.011099829929894,-0.0120500000194,-0.011093397719444,-0.012311464178308,-0.01107766720635,-0.012572532368769
|
|
cArc part,wMat,-0.01107766720635,-0.012572532368769,-0.011040622544612,-0.012673759371596,-0.010956421104468,-0.012741056213585
|
|
cLn part,wMat,-0.010956421104468,-0.012741056213585,-0.01046815750708,-0.01294831157141
|
|
cArc part,wMat,-0.01046815750708,-0.01294831157141,-0.010389196732954,-0.013008648922452,-0.0103490233502,-0.013099541187816
|
|
cArc part,wMat,-0.0103490233502,-0.013099541187816,-0.010212107375378,-0.013731262045239,-0.010014864877418,-0.014346820842734
|
|
cArc part,wMat,-0.010014864877418,-0.014346820842734,-0.010004473661929,-0.014447342012671,-0.010044553161622,-0.014540111434241
|
|
cLn part,wMat,-0.010044553161622,-0.014540111434241,-0.010363976369957,-0.014948957047536
|
|
cArc part,wMat,-0.010363976369957,-0.014948957047536,-0.010405175180603,-0.015050222437506,-0.010386973742132,-0.01515801829427
|
|
cArc part,wMat,-0.010386973742132,-0.01515801829427,-0.010113502199954,-0.015678089144089,-0.0097993654219347,-0.016174647050061
|
|
cArc part,wMat,-0.0097993654219347,-0.016174647050061,-0.0097167237423789,-0.01624348582472,-0.0096103801106449,-0.016259564232865
|
|
cLn part,wMat,-0.0096103801106449,-0.016259564232865,-0.0090820882078935,-0.016194697488488
|
|
cArc part,wMat,-0.0090820882078935,-0.016194697488488,-0.008983789217306,-0.016207370707554,-0.0089036439248222,-0.016265683332911
|
|
cArc part,wMat,-0.0089036439248222,-0.016265683332911,-0.0084784322566262,-0.016732655533104,-0.0080110804504185,-0.017157450280475
|
|
cArc part,wMat,-0.0080110804504185,-0.017157450280475,-0.0079520252592107,-0.01723924985635,-0.0079404133913623,-0.017339469103172
|
|
cLn part,wMat,-0.0079404133913623,-0.017339469103172,-0.0080127808234053,-0.017854383908417
|
|
cArc part,wMat,-0.0080127808234053,-0.017854383908417,-0.0079978915218622,-0.017962535401768,-0.0079284271518591,-0.018046755041937
|
|
cArc part,wMat,-0.0079284271518591,-0.018046755041937,-0.0074267935734568,-0.018364250860767,-0.0069011715373411,-0.018640227250843
|
|
cArc part,wMat,-0.0069011715373411,-0.018640227250843,-0.0067951944435747,-0.018658513337375,-0.0066950650359683,-0.018619266496217
|
|
end sub
|
|
|
|
sub codeBag81(part,wMat)
|
|
cLn part,wMat,-0.0066950650359683,-0.018619266496217,-0.0062699493645165,-0.018298917273137
|
|
cArc part,wMat,-0.0062699493645165,-0.018298917273137,-0.0061784891745204,-0.018260743748243,-0.0060799315263438,-0.018271165687716
|
|
cArc part,wMat,-0.0060799315263438,-0.018271165687716,-0.0055078695211719,-0.018454920196778,-0.0049216293402451,-0.018586606462307
|
|
cArc part,wMat,-0.0049216293402451,-0.018586606462307,-0.0048313486339109,-0.018627633761962,-0.0047718754633534,-0.018706978168991
|
|
cLn part,wMat,-0.0047718754633534,-0.018706978168991,-0.004568317784984,-0.019198411897881
|
|
cArc part,wMat,-0.004568317784984,-0.019198411897881,-0.0045019208106069,-0.019283079198435,-0.0044012687459786,-0.019321089332914
|
|
cArc part,wMat,-0.0044012687459786,-0.019321089332914,-0.0041009269984719,-0.019341617685616,-0.00379999893905,-0.019349829937223
|
|
cLn part,wMat,-0.00379999893905,-0.019349829937223,-0.00379999893905,-0.018529808581122
|
|
cArc part,wMat,-0.00379999893905,-0.018529808581122,-0.0039166817786853,-0.018527872332135,-0.0040333076739179,-0.018523851374909
|
|
cArc part,wMat,-0.0040333076739179,-0.018523851374909,-0.0041206795227214,-0.018490986044891,-0.0041716934398786,-0.018412815645883
|
|
cLn part,wMat,-0.0041716934398786,-0.018412815645883,-0.0043014004589869,-0.017928738902845
|
|
cArc part,wMat,-0.0043014004589869,-0.017928738902845,-0.0043924468679524,-0.01778164875148,-0.0045495702289693,-0.017709283006592
|
|
cArc part,wMat,-0.0045495702289693,-0.017709283006592,-0.0052432531716988,-0.017568251068841,-0.0059144234864733,-0.017343266414063
|
|
cArc part,wMat,-0.0059144234864733,-0.017343266414063,-0.0060867313324773,-0.017327316923298,-0.0062391851454238,-0.017409188902271
|
|
cLn part,wMat,-0.0062391851454238,-0.017409188902271,-0.0065933786254595,-0.017763378657054
|
|
cArc part,wMat,-0.0065933786254595,-0.017763378657054,-0.0066766711848912,-0.017805573301383,-0.0067687858663472,-0.017790322261606
|
|
cArc part,wMat,-0.0067687858663472,-0.017790322261606,-0.0070160823010723,-0.017654520881801,-0.0072572766099712,-0.017508167642806
|
|
cArc part,wMat,-0.0072572766099712,-0.017508167642806,-0.0073165109400674,-0.017436019027354,-0.0073216052345888,-0.017342815061593
|
|
cLn part,wMat,-0.0073216052345888,-0.017342815061593,-0.0071918977982383,-0.016858736761375
|
|
cArc part,wMat,-0.0071918977982383,-0.016858736761375,-0.0071972013963816,-0.016685829697961,-0.0072970886285661,-0.016544599791117
|
|
cArc part,wMat,-0.0072970886285661,-0.016544599791117,-0.0078264705935628,-0.016076470593557,-0.0082945997266548,-0.015547088711155
|
|
cArc part,wMat,-0.0082945997266548,-0.015547088711155,-0.0084358321515048,-0.015447198414495,-0.0086087378453534,-0.015441894552312
|
|
cLn part,wMat,-0.0086087378453534,-0.015441894552312,-0.0090928157542189,-0.015571602316057
|
|
cArc part,wMat,-0.0090928157542189,-0.015571602316057,-0.0091860207260401,-0.015566508284354,-0.0092581638491844,-0.01550728256786
|
|
cArc part,wMat,-0.0092581638491844,-0.01550728256786,-0.0093950415444328,-0.015282439026381,-0.0095227454306058,-0.015052263126551
|
|
cArc part,wMat,-0.0095227454306058,-0.015052263126551,-0.0095437076282745,-0.014928986820231,-0.0094873597664735,-0.014817356307661
|
|
cLn part,wMat,-0.0094873597664735,-0.014817356307661,-0.0091591890703644,-0.01448919026808
|
|
cArc part,wMat,-0.0091591890703644,-0.01448919026808,-0.0090773154856032,-0.014336734812785,-0.0090932663818882,-0.014164423565863
|
|
cArc part,wMat,-0.0090932663818882,-0.014164423565863,-0.0093182510688246,-0.013493253171708,-0.009459283168879,-0.012799569070086
|
|
cArc part,wMat,-0.009459283168879,-0.012799569070086,-0.0095316487978684,-0.012642446096509,-0.0096787379342187,-0.012551399896304
|
|
cLn part,wMat,-0.0096787379342187,-0.012551399896304,-0.010162815483458,-0.012421691297559
|
|
cArc part,wMat,-0.010162815483458,-0.012421691297559,-0.010240986174574,-0.012370677269195,-0.010273851102732,-0.012283313941864
|
|
cArc part,wMat,-0.010273851102732,-0.012283313941864,-0.010277872331908,-0.012166681788397,-0.01027980857287,-0.0120500000194
|
|
cLn part,wMat,-0.01027980857287,-0.0120500000194,-0.011099829929894,-0.0120500000194
|
|
cLn part,wMat,-0.01109982993122,-0.01195000018925,-0.010279808574375,-0.01195000018925
|
|
cArc part,wMat,-0.010279808574375,-0.01195000018925,-0.010277872332063,-0.011833318221317,-0.010273851105911,-0.011716686133483
|
|
cArc part,wMat,-0.010273851105911,-0.011716686133483,-0.010240986109061,-0.011629321957629,-0.010162815400792,-0.011578307957594
|
|
cLn part,wMat,-0.010162815400792,-0.011578307957594,-0.0096787384037715,-0.011448600438212
|
|
cArc part,wMat,-0.0096787384037715,-0.011448600438212,-0.0095316489014729,-0.011357554203123,-0.0094592831694587,-0.011200430933755
|
|
cArc part,wMat,-0.0094592831694587,-0.011200430933755,-0.0093182510688701,-0.0105067468283,-0.009093266414145,-0.0098355765136553
|
|
cArc part,wMat,-0.009093266414145,-0.0098355765136553,-0.0090773152866052,-0.0096632646268926,-0.0091591882947159,-0.0095108097848513
|
|
cLn part,wMat,-0.0091591882947159,-0.0095108097848513,-0.0095133784280741,-0.0091566233767614
|
|
cArc part,wMat,-0.0095133784280741,-0.0091566233767614,-0.0095555739090531,-0.0090733299806872,-0.0095403209106147,-0.0089812115422762
|
|
cArc part,wMat,-0.0095403209106147,-0.0089812115422762,-0.009404520881845,-0.0087339176989604,-0.009258164949908,-0.0084927191608044
|
|
cArc part,wMat,-0.009258164949908,-0.0084927191608044,-0.0091860203927976,-0.0084334911216299,-0.009092815536268,-0.0084283970196924
|
|
cLn part,wMat,-0.009092815536268,-0.0084283970196924,-0.0086087377061378,-0.0085581047622909
|
|
cArc part,wMat,-0.0086087377061378,-0.0085581047622909,-0.0084358316327802,-0.0085528009703266,-0.0082945988335338,-0.0084529101445614
|
|
cArc part,wMat,-0.0082945988335338,-0.0084529101445614,-0.0078264705935774,-0.0079235294064582,-0.0072970868553687,-0.0074553988248931
|
|
cArc part,wMat,-0.0072970868553687,-0.0074553988248931,-0.0071972012343876,-0.0073141699439997,-0.0071918977228224,-0.0071412632630334
|
|
cLn part,wMat,-0.0071918977228224,-0.0071412632630334,-0.0073216051802994,-0.006657184883969
|
|
cArc part,wMat,-0.0073216051802994,-0.006657184883969,-0.007316510883998,-0.0065639809424747,-0.0072572794564317,-0.0064918341696572
|
|
cArc part,wMat,-0.0072572794564317,-0.0064918341696572,-0.0070324390264028,-0.0063549584555994,-0.0068022635426468,-0.006227254789419
|
|
cArc part,wMat,-0.0068022635426468,-0.006227254789419,-0.0066789908139406,-0.0062062940067597,-0.0065673608307414,-0.0062626407433113
|
|
cLn part,wMat,-0.0065673608307414,-0.0062626407433113,-0.0062391851178943,-0.0065908117995585
|
|
cArc part,wMat,-0.0062391851178943,-0.0065908117995585,-0.0060867307252512,-0.0066726834918015,-0.0059144213671575,-0.0066567327275228
|
|
cArc part,wMat,-0.0059144213671575,-0.0066567327275228,-0.0052432531717167,-0.006431748931227,-0.004549564366155,-0.0062907161723988
|
|
cArc part,wMat,-0.004549564366155,-0.0062907161723988,-0.004392446803904,-0.0062183512352144,-0.0043014004072451,-0.0060712611127008
|
|
cLn part,wMat,-0.0043014004072451,-0.0060712611127008,-0.0041716933868921,-0.0055871843650173
|
|
cArc part,wMat,-0.0041716933868921,-0.0055871843650173,-0.004120679493319,-0.0055090139745559,-0.004033310312404,-0.0054761487397358
|
|
cArc part,wMat,-0.004033310312404,-0.0054761487397358,-0.0039166817787193,-0.00547212766793,-0.00379999893905,-0.0054701914189424
|
|
cLn part,wMat,-0.00379999893905,-0.0054701914189424,-0.00379999893905,-0.0046501700628417
|
|
cArc part,wMat,-0.00379999893905,-0.0046501700628417,-0.0040614641686131,-0.0046566022802298,-0.0043225339521635,-0.0046723329174506
|
|
cArc part,wMat,-0.0043225339521635,-0.0046723329174506,-0.0044237581691235,-0.0047093773615349,-0.0044910555728802,-0.0047935801251078
|
|
cLn part,wMat,-0.0044910555728802,-0.0047935801251078,-0.0046983080903109,-0.0052818430132472
|
|
cArc part,wMat,-0.0046983080903109,-0.0052818430132472,-0.0047586449387704,-0.0053608026033911,-0.0048495389976775,-0.0054009762849905
|
|
cArc part,wMat,-0.0048495389976775,-0.0054009762849905,-0.0054812620452246,-0.0055378926247364,-0.0060968208427578,-0.0057351351227126
|
|
cArc part,wMat,-0.0060968208427578,-0.0057351351227126,-0.006197340880626,-0.0057455259141518,-0.006290111356707,-0.0057054455905849
|
|
cLn part,wMat,-0.006290111356707,-0.0057054455905849,-0.0066989547258073,-0.0053860218073333
|
|
end sub
|
|
|
|
sub codeBag82(part,wMat)
|
|
cArc part,wMat,-0.0066989547258073,-0.0053860218073333,-0.0068002195445169,-0.0053448234430161,-0.0069080207523311,-0.0053630274276182
|
|
cArc part,wMat,-0.0069080207523311,-0.0053630274276182,-0.0074280891440437,-0.0056364978001756,-0.0079246509426259,-0.005950637264477
|
|
cArc part,wMat,-0.0079246509426259,-0.005950637264477,-0.0079934838187854,-0.0060332748735332,-0.0080095621817476,-0.006139618873414
|
|
cLn part,wMat,-0.0080095621817476,-0.006139618873414,-0.0079446972564355,-0.0066679125281746
|
|
cArc part,wMat,-0.0079446972564355,-0.0066679125281746,-0.0079573707171908,-0.0067662110239437,-0.0080156833329342,-0.0068463560753441
|
|
cArc part,wMat,-0.0080156833329342,-0.0068463560753441,-0.0084826555330547,-0.0072715677434838,-0.008907450280441,-0.0077389195497155
|
|
cArc part,wMat,-0.008907450280441,-0.0077389195497155,-0.0089892502723945,-0.0077979752445675,-0.0090894691255219,-0.0078095871677611
|
|
cLn part,wMat,-0.0090894691255219,-0.0078095871677611,-0.0096043840610747,-0.0077372198634111
|
|
cArc part,wMat,-0.0096043840610747,-0.0077372198634111,-0.0097125358477644,-0.0077521091237329,-0.009796755292764,-0.0078215732113124
|
|
cArc part,wMat,-0.009796755292764,-0.0078215732113124,-0.010114250860696,-0.0083232064266364,-0.01039022460891,-0.0088488228957712
|
|
cArc part,wMat,-0.01039022460891,-0.0088488228957712,-0.010408512754705,-0.0089548043288633,-0.010369266460691,-0.0090549330104223
|
|
cLn part,wMat,-0.010369266460691,-0.0090549330104223,-0.010048918656531,-0.0094800536052343
|
|
cArc part,wMat,-0.010048918656531,-0.0094800536052343,-0.010010744943986,-0.0095715140442512,-0.010021165687677,-0.0096700684738468
|
|
cArc part,wMat,-0.010021165687677,-0.0096700684738468,-0.010204920196694,-0.010242130478908,-0.010336606704337,-0.010828372020964
|
|
cArc part,wMat,-0.010336606704337,-0.010828372020964,-0.010377632921693,-0.010918646642559,-0.010456979118144,-0.010978120554326
|
|
cLn part,wMat,-0.010456979118144,-0.010978120554326,-0.010948413384008,-0.011181680317772
|
|
cArc part,wMat,-0.010948413384008,-0.011181680317772,-0.011033079103814,-0.011248076767796,-0.011071089640146,-0.01134873470852
|
|
cArc part,wMat,-0.011071089640146,-0.01134873470852,-0.011091617685546,-0.011649073001589,-0.01109982993122,-0.01195000018925
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag83(part,wMat)
|
|
cCir part,wMat,0.00442558441555,0.0283232142857,0.00101
|
|
cCir part,wMat,0.00442558441555,0.0283232142857,0.00090000000000001
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag84(part,wMat)
|
|
cArc part,wMat,0.0050429984765853,-0.017742463810989,0.0049353737212092,-0.01833453636477,0.0050698280211235,-0.018921098414468
|
|
cArc part,wMat,0.0050698280211235,-0.018921098414468,0.0054601396405736,-0.019361333064339,0.006006108615222,-0.0195805762762
|
|
cArc part,wMat,0.006006108615222,-0.0195805762762,0.0067440657791085,-0.019650641186216,0.0074823052506984,-0.019583616191372
|
|
cArc part,wMat,0.0074823052506984,-0.019583616191372,0.0080455424346228,-0.019359685870445,0.0084405428256983,-0.018899951593895
|
|
cArc part,wMat,0.0084405428256983,-0.018899951593895,0.0085630219293114,-0.018362889309793,0.0084945931782036,-0.017816304884614
|
|
cArc part,wMat,0.0084945931782036,-0.017816304884614,0.0080720495396222,-0.017249269617026,0.0074085965286825,-0.017004520309635
|
|
cArc part,wMat,0.0074085965286825,-0.017004520309635,0.0066825665974467,-0.01695085992574,0.0059581425189414,-0.017023030920522
|
|
cArc part,wMat,0.0059581425189414,-0.017023030920522,0.005411178857581,-0.017269038042635,0.0050429984765853,-0.017742463810989
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag85(part,wMat)
|
|
cArc part,wMat,0.0050528896779748,-0.0049788356118052,0.0049452649225992,-0.0055709081655855,0.0050797192225135,-0.0061574702152837
|
|
cArc part,wMat,0.0050797192225135,-0.0061574702152837,0.0054700308419636,-0.0065977048651547,0.0060159998166119,-0.0068169480770153
|
|
cArc part,wMat,0.0060159998166119,-0.0068169480770153,0.0067539569804985,-0.0068870129870314,0.0074921964520889,-0.0068199879921873
|
|
cArc part,wMat,0.0074921964520889,-0.0068199879921873,0.0080554336360129,-0.0065960576712609,0.0084504340270886,-0.0061363233947102
|
|
cArc part,wMat,0.0084504340270886,-0.0061363233947102,0.0085729131307015,-0.0055992611106086,0.0085044843795936,-0.0050526766854295
|
|
cArc part,wMat,0.0085044843795936,-0.0050526766854295,0.0080819407410123,-0.0044856414178418,0.0074184877300726,-0.0042408921104508
|
|
cArc part,wMat,0.0074184877300726,-0.0042408921104508,0.0066924577988367,-0.0041872317265553,0.0059680337203321,-0.0042594027213372
|
|
cArc part,wMat,0.0059680337203321,-0.0042594027213372,0.0054210700589711,-0.0045054098434502,0.0050528896779748,-0.0049788356118052
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag86(part,wMat)
|
|
cLn part,wMat,0.00516193193195,0.00743831181895,0.0074675327241,0.00674979714675
|
|
cLn part,wMat,0.0074675327241,0.00674979714675,0.0074675327241,0.00815452542155
|
|
cLn part,wMat,0.0074675327241,0.00815452542155,0.00516193193195,0.00743831181895
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag87(part,wMat)
|
|
cLn part,wMat,0.0048506503999,0.0130181815475,0.00611688402295,0.0130181815475
|
|
cLn part,wMat,0.00611688402295,0.0130181815475,0.00611688402295,0.0139124598354
|
|
cArc part,wMat,0.00611688402295,0.0139124598354,0.0060836802948971,0.014239381253819,0.0059842304036441,0.014552574198353
|
|
cArc part,wMat,0.0059842304036441,0.014552574198353,0.00548772776533,0.014874626701313,0.0049912251270168,0.014552574198355
|
|
cArc part,wMat,0.0049912251270168,0.014552574198355,0.0048818582608754,0.014241099218324,0.0048506503999,0.0139124598354
|
|
cLn part,wMat,0.0048506503999,0.0139124598354,0.0048506503999,0.0130181815475
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag88(part,wMat)
|
|
cArc part,wMat,0.0050528896779756,0.023891294258326,0.0049452649225994,0.023299221704544,0.0050797192225135,0.022712659654847
|
|
cArc part,wMat,0.0050797192225135,0.022712659654847,0.0054700308419638,0.022272425004975,0.0060159998166111,0.022053181793115
|
|
cArc part,wMat,0.0060159998166111,0.022053181793115,0.0067539569804987,0.021983116883098,0.0074921964520887,0.022050141877943
|
|
cArc part,wMat,0.0074921964520887,0.022050141877943,0.008055433636013,0.022274072198869,0.0084504340270883,0.022733806475419
|
|
cArc part,wMat,0.0084504340270883,0.022733806475419,0.0085729131307016,0.023270868759521,0.0085044843795934,0.023817453184701
|
|
cArc part,wMat,0.0085044843795934,0.023817453184701,0.0080819407410124,0.024384488452288,0.0074184877300722,0.024629237759679
|
|
cArc part,wMat,0.0074184877300722,0.024629237759679,0.0066924577988369,0.024682898143575,0.0059680337203402,0.024610727148794
|
|
cArc part,wMat,0.0059680337203402,0.024610727148794,0.0054210700589712,0.02436472002668,0.0050528896779756,0.023891294258326
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag89(part,wMat)
|
|
cLn part,wMat,0.00389560890195,0.02809362113475,0.00428022277355,0.02809362113475
|
|
cLn part,wMat,0.00428022277355,0.02809362113475,0.00428022277355,0.0284150149673
|
|
cArc part,wMat,0.00428022277355,0.0284150149673,0.0042780309513334,0.028474265392527,0.0042698194754124,0.028532984968799
|
|
cArc part,wMat,0.0042698194754124,0.028532984968799,0.0042407262417777,0.028603802082713,0.0041827948985835,0.028653856446579
|
|
cArc part,wMat,0.0041827948985835,0.028653856446579,0.0040832975820264,0.028678228893511,0.0039842640866469,0.028652035402637
|
|
cArc part,wMat,0.0039842640866469,0.028652035402637,0.0039365833423683,0.028609469500986,0.0039084752617717,0.028552065274979
|
|
cArc part,wMat,0.0039084752617717,0.028552065274979,0.0038983989304413,0.028502152139799,0.0038956094962316,0.028451312487605
|
|
cLn part,wMat,0.0038956094962316,0.028451312487605,0.00389560890195,0.02809362113475
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag90(part,wMat)
|
|
cLn part,wMat,0.012228487602222,0.0054310035063445,0.01315191966295,0.0050900192
|
|
cLn part,wMat,0.01315191966295,0.0050900192,0.0131516216397,0.00577271124345
|
|
cLn part,wMat,0.0131516216397,0.00577271124345,0.012228487602222,0.0054310035063445
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag91(part,wMat)
|
|
cLn part,wMat,0.012227801799872,0.0074758335955494,0.01222806257005,0.00687968032435
|
|
cLn part,wMat,0.01222806257005,0.00687968032435,0.0128690881729,0.00687996018675
|
|
cLn part,wMat,0.0128690881729,0.00687996018675,0.012868853483166,0.0074156087462876
|
|
cArc part,wMat,0.012868853483166,0.0074156087462876,0.012862995154471,0.0075402015711575,0.012837348139484,0.0076622583808948
|
|
cArc part,wMat,0.012837348139484,0.0076622583808948,0.012803167170884,0.007728860450107,0.012752054825714,0.0077835569071128
|
|
cArc part,wMat,0.012752054825714,0.0077835569071128,0.012557645924366,0.0078539122486385,0.012358264715886,0.0077992146370922
|
|
cArc part,wMat,0.012358264715886,0.0077992146370922,0.012308312975909,0.0077546871863652,0.012270986384401,0.0076991480491614
|
|
cArc part,wMat,0.012270986384401,0.0076991480491614,0.012236517631121,0.0075899811348986,0.012227801799872,0.0074758335955494
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag92(part,wMat)
|
|
cArc part,wMat,0.012296087858491,0.012276933685889,0.012200246623398,0.011937429410495,0.012288489313238,0.011595871328986
|
|
cArc part,wMat,0.012288489313238,0.011595871328986,0.012442086469589,0.011415074236263,0.012654975712761,0.011310394508917
|
|
cArc part,wMat,0.012654975712761,0.011310394508917,0.01298116042927,0.011264518133153,0.01330849089509,0.011301340372116
|
|
cArc part,wMat,0.01330849089509,0.011301340372116,0.01352661479655,0.01140610079835,0.013692951079864,0.011581842154171
|
|
cArc part,wMat,0.013692951079864,0.011581842154171,0.013789952711328,0.011934535799675,0.013689430227927,0.012286242146528
|
|
cArc part,wMat,0.013689430227927,0.012286242146528,0.013522894817371,0.01245811988506,0.013306039245132,0.012559360493294
|
|
cArc part,wMat,0.013306039245132,0.012559360493294,0.012983688946043,0.012597852240589,0.012662557882666,0.012550247933434
|
|
cArc part,wMat,0.012662557882666,0.012550247933434,0.012454346492171,0.012447080077348,0.012296087858491,0.012276933685889
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag67(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat36=part.Extension.GetLastFeatureAdded()
|
|
feat36.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag68 part,wMat
|
|
set feat36=part.Extension.GetLastFeatureAdded()
|
|
feat36.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0001,0.0001,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat38=part.Extension.GetLastFeatureAdded()
|
|
feat38.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag69 part,wMat
|
|
codeBag70 part,wMat
|
|
codeBag71 part,wMat
|
|
set feat38=part.Extension.GetLastFeatureAdded()
|
|
feat38.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat40=part.Extension.GetLastFeatureAdded()
|
|
feat40.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag72 part,wMat
|
|
codeBag73 part,wMat
|
|
codeBag74 part,wMat
|
|
codeBag75 part,wMat
|
|
codeBag76 part,wMat
|
|
codeBag77 part,wMat
|
|
codeBag78 part,wMat
|
|
codeBag79 part,wMat
|
|
codeBag80 part,wMat
|
|
codeBag81 part,wMat
|
|
codeBag82 part,wMat
|
|
set feat40=part.Extension.GetLastFeatureAdded()
|
|
feat40.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0001,0.0001,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat42=part.Extension.GetLastFeatureAdded()
|
|
feat42.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag83 part,wMat
|
|
set feat42=part.Extension.GetLastFeatureAdded()
|
|
feat42.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0001,0.0001,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat44=part.Extension.GetLastFeatureAdded()
|
|
feat44.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag84 part,wMat
|
|
set feat44=part.Extension.GetLastFeatureAdded()
|
|
feat44.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat46=part.Extension.GetLastFeatureAdded()
|
|
feat46.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag85 part,wMat
|
|
set feat46=part.Extension.GetLastFeatureAdded()
|
|
feat46.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat48=part.Extension.GetLastFeatureAdded()
|
|
feat48.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag86 part,wMat
|
|
set feat48=part.Extension.GetLastFeatureAdded()
|
|
feat48.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat50=part.Extension.GetLastFeatureAdded()
|
|
feat50.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag87 part,wMat
|
|
set feat50=part.Extension.GetLastFeatureAdded()
|
|
feat50.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat52=part.Extension.GetLastFeatureAdded()
|
|
feat52.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag88 part,wMat
|
|
set feat52=part.Extension.GetLastFeatureAdded()
|
|
feat52.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat54=part.Extension.GetLastFeatureAdded()
|
|
feat54.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag89 part,wMat
|
|
set feat54=part.Extension.GetLastFeatureAdded()
|
|
feat54.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat56=part.Extension.GetLastFeatureAdded()
|
|
feat56.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag90 part,wMat
|
|
set feat56=part.Extension.GetLastFeatureAdded()
|
|
feat56.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat58=part.Extension.GetLastFeatureAdded()
|
|
feat58.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag91 part,wMat
|
|
set feat58=part.Extension.GetLastFeatureAdded()
|
|
feat58.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat60=part.Extension.GetLastFeatureAdded()
|
|
feat60.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag92 part,wMat
|
|
set feat60=part.Extension.GetLastFeatureAdded()
|
|
feat60.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
end sub
|
|
|
|
sub codeBag94(part,wMat)
|
|
cArc part,wMat,0.012293078284427,0.019174368926737,0.012197237049335,0.018834864651344,0.012285479739174,0.018493306569836
|
|
cArc part,wMat,0.012285479739174,0.018493306569836,0.012439076895525,0.018312509477112,0.012651966138697,0.018207829749766
|
|
cArc part,wMat,0.012651966138697,0.018207829749766,0.012978150855206,0.018161953374002,0.013305481321026,0.018198775612965
|
|
cArc part,wMat,0.013305481321026,0.018198775612965,0.013523605222486,0.018303536039199,0.013689941505801,0.01847927739502
|
|
cArc part,wMat,0.013689941505801,0.01847927739502,0.013786943137264,0.018831971040524,0.013686420653863,0.019183677387377
|
|
cArc part,wMat,0.013686420653863,0.019183677387377,0.013519885243307,0.019355555125908,0.01330302967107,0.019456795734142
|
|
cArc part,wMat,0.01330302967107,0.019456795734142,0.012980679371979,0.019495287481438,0.012659548308609,0.019447683174285
|
|
cArc part,wMat,0.012659548308609,0.019447683174285,0.012451336918108,0.019344515318197,0.012293078284427,0.019174368926737
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag95(part,wMat)
|
|
cArc part,wMat,0.012296087858491,0.023815311893172,0.012200246623398,0.023475807617778,0.012288489313238,0.02313424953627
|
|
cArc part,wMat,0.012288489313238,0.02313424953627,0.012442086469588,0.022953452443546,0.012654975712761,0.0228487727162
|
|
cArc part,wMat,0.012654975712761,0.0228487727162,0.01298116042927,0.022802896340436,0.01330849089509,0.022839718579399
|
|
cArc part,wMat,0.01330849089509,0.022839718579399,0.01352661479655,0.022944479005633,0.013692951079864,0.023120220361454
|
|
cArc part,wMat,0.013692951079864,0.023120220361454,0.013789952711328,0.023472914006958,0.013689430227927,0.023824620353811
|
|
cArc part,wMat,0.013689430227927,0.023824620353811,0.013522894817371,0.023996498092342,0.013306039245118,0.02409773870058
|
|
cArc part,wMat,0.013306039245118,0.02409773870058,0.012983688946042,0.024136230447872,0.012662557882672,0.024088626140719
|
|
cArc part,wMat,0.012662557882672,0.024088626140719,0.012454346492171,0.023985458284631,0.012296087858491,0.023815311893172
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag96(part,wMat)
|
|
cLn part,wMat,-0.025,0.042,-0.025,0.007
|
|
cLn part,wMat,-0.025,0.007,0.025,0.007
|
|
cLn part,wMat,0.025,0.007,0.025,0.042
|
|
cArc part,wMat,0.025,0.042,0.023535533905933,0.045535533905933,0.02,0.047
|
|
cLn part,wMat,0.02,0.047,-0.02,0.047
|
|
cArc part,wMat,-0.02,0.047,-0.023535533905933,0.045535533905933,-0.025,0.042
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag93(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat62=part.Extension.GetLastFeatureAdded()
|
|
feat62.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag94 part,wMat
|
|
set feat62=part.Extension.GetLastFeatureAdded()
|
|
feat62.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0.05,0),createVec3d(1,0.05,0),createVec3d(0,0.05,-1),1
|
|
set feat64=part.Extension.GetLastFeatureAdded()
|
|
feat64.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag95 part,wMat
|
|
set feat64=part.Extension.GetLastFeatureAdded()
|
|
feat64.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.046,0,0),createVec3d(0.046,0,-1),createVec3d(0.046,1,0),1
|
|
set feat69=part.Extension.GetLastFeatureAdded()
|
|
feat69.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.046,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag96 part,wMat
|
|
set feat69=part.Extension.GetLastFeatureAdded()
|
|
feat69.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
end sub
|
|
|
|
sub codeBag98(part,wMat)
|
|
cLn part,wMat,0,0,0,0.0125
|
|
cLn part,wMat,0,0.0125,0.0375,0.0125
|
|
cLn part,wMat,0.0375,0.0125,0.0375,0.0145
|
|
cArc part,wMat,0.0375,0.0145,0.03962132034356,0.01362132034356,0.0405,0.0115
|
|
cLn part,wMat,0.0405,0.0115,0.0405,0
|
|
cLn part,wMat,0.0405,0,0,0
|
|
cCLn part,wMat,0.0405,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag99(part,wMat)
|
|
cLn part,wMat,-0.015,-0.0086602540378444,0,-0.017320508075689
|
|
cLn part,wMat,0,-0.017320508075689,0.015,-0.0086602540378444
|
|
cLn part,wMat,0.015,-0.0086602540378444,0.015,0.0086602540378444
|
|
cLn part,wMat,0.015,0.0086602540378444,0,0.017320508075689
|
|
cLn part,wMat,0,0.017320508075689,-0.015,0.0086602540378444
|
|
cLn part,wMat,-0.015,0.0086602540378444,-0.015,-0.0086602540378444
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag100(part,wMat)
|
|
cLn part,wMat,-0.015,-0.0086602540378444,0,-0.017320508075689
|
|
cLn part,wMat,0,-0.017320508075689,0.015,-0.0086602540378444
|
|
cLn part,wMat,0.015,-0.0086602540378444,0.015,0.0086602540378444
|
|
cLn part,wMat,0.015,0.0086602540378444,0,0.017320508075689
|
|
cLn part,wMat,0,0.017320508075689,-0.015,0.0086602540378444
|
|
cLn part,wMat,-0.015,0.0086602540378444,-0.015,-0.0086602540378444
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag101(part,wMat)
|
|
cLn part,wMat,-0.03,-0.03,0.03,-0.03
|
|
cLn part,wMat,0.03,-0.03,0.03,0.03
|
|
cLn part,wMat,0.03,0.03,-0.03,0.03
|
|
cLn part,wMat,-0.03,0.03,-0.03,-0.03
|
|
cLn part,wMat,-0.019283498990934,3.5527136788005e-18,-0.0096417494954668,-0.0167
|
|
cLn part,wMat,-0.0096417494954668,-0.0167,0.0096417494954667,-0.0167
|
|
cLn part,wMat,0.0096417494954667,-0.0167,0.019283498990934,-3.5527136788005e-18
|
|
cLn part,wMat,0.019283498990934,-3.5527136788005e-18,0.0096417494954668,0.0167
|
|
cLn part,wMat,0.0096417494954668,0.0167,-0.0096417494954667,0.0167
|
|
cLn part,wMat,-0.0096417494954667,0.0167,-0.019283498990934,3.5527136788005e-18
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag97(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag98 part,wMat
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.011,0,0),createVec3d(0.011,0,-1),createVec3d(0.011,1,0),1
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.011,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag99 part,wMat
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.006,0.006,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.0375,0,0),createVec3d(0.0375,0,-1),createVec3d(0.0375,1,0),1
|
|
set feat10=part.Extension.GetLastFeatureAdded()
|
|
feat10.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.0375,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag100 part,wMat
|
|
set feat10=part.Extension.GetLastFeatureAdded()
|
|
feat10.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,1,0,0,0.015,0.015,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0.011,0,0),createVec3d(0.011,0,-1),createVec3d(0.011,1,0),1
|
|
set feat12=part.Extension.GetLastFeatureAdded()
|
|
feat12.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.011,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag101 part,wMat
|
|
set feat12=part.Extension.GetLastFeatureAdded()
|
|
feat12.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.03,0.03,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
end sub
|
|
|
|
sub codeBag103(part,wMat)
|
|
cLn part,wMat,0,0.00775,0.0005,0.00725
|
|
cLn part,wMat,0.0005,0.00725,0.011,0.00725
|
|
cLn part,wMat,0.011,0.00725,0.0115,0.00775
|
|
cLn part,wMat,0.0115,0.00775,0.0115,0.012
|
|
cLn part,wMat,0.0115,0.012,0.011,0.0125
|
|
cLn part,wMat,0.011,0.0125,0.003,0.0125
|
|
cLn part,wMat,0.003,0.0125,0.003,0.0145
|
|
cLn part,wMat,0.003,0.0145,0.0025,0.015
|
|
cLn part,wMat,0.0025,0.015,0.0005,0.015
|
|
cLn part,wMat,0.0005,0.015,0,0.0145
|
|
cLn part,wMat,0,0.0145,0,0.00775
|
|
cCLn part,wMat,0.01,0,-0.01,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag102(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag103 part,wMat
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
end sub
|
|
|
|
sub codeBag105(part,wMat)
|
|
cLn part,wMat,0,0,0,0.0065
|
|
cArc part,wMat,0,0.0065,0.00087867965644036,0.0086213203435596,0.003,0.0095
|
|
cLn part,wMat,0.003,0.0095,0.0035,0.0095
|
|
cLn part,wMat,0.0035,0.0095,0.0040773502691896,0.0105
|
|
cLn part,wMat,0.0040773502691896,0.0105,0.015,0.0105
|
|
cLn part,wMat,0.015,0.0105,0.015,0.008
|
|
cLn part,wMat,0.015,0.008,0.032,0.008
|
|
cLn part,wMat,0.032,0.008,0.032,0
|
|
cLn part,wMat,0.032,0,0,0
|
|
cCLn part,wMat,0.032,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag106(part,wMat)
|
|
cLn part,wMat,0.019,0,0.019,0.0105
|
|
cLn part,wMat,0.019,0.0105,0.024,0.0105
|
|
cLn part,wMat,0.024,0.0105,0.024,0
|
|
cLn part,wMat,0.024,0,0.019,0
|
|
cCLn part,wMat,0.024,0,0.019,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag107(part,wMat)
|
|
cLn part,wMat,-0.015,0.015,-0.015,-0.015
|
|
cLn part,wMat,-0.015,-0.015,0.015,-0.015
|
|
cLn part,wMat,0.015,-0.015,0.015,0.015
|
|
cLn part,wMat,0.015,0.015,-0.015,0.015
|
|
cLn part,wMat,-0.0095,-0.0054848275573014,0,-0.010969655114603
|
|
cLn part,wMat,0,-0.010969655114603,0.0095,-0.0054848275573014
|
|
cLn part,wMat,0.0095,-0.0054848275573014,0.0095,0.0054848275573014
|
|
cLn part,wMat,0.0095,0.0054848275573014,0,0.010969655114603
|
|
cLn part,wMat,0,0.010969655114603,-0.0095,0.0054848275573014
|
|
cLn part,wMat,-0.0095,0.0054848275573014,-0.0095,-0.0054848275573014
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag104(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag105 part,wMat
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
if getEdgeFromModel(part,createVec3d(0.032,0.008,0),cylEdge) then
|
|
cylEdge.Select(false)
|
|
Part.InsertCosmeticThread 0,0.013546,0.017,""
|
|
elseif getEdgeFromModel(part,createVec3d(0.015,0.008,0),cylEdge) then
|
|
cylEdge.Select(false)
|
|
Part.InsertCosmeticThread 0,0.013546,0.017,""
|
|
End If
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat6=part.Extension.GetLastFeatureAdded()
|
|
feat6.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag106 part,wMat
|
|
set feat6=part.Extension.GetLastFeatureAdded()
|
|
feat6.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(0,0,-1),createVec3d(0,1,0),1
|
|
set feat8=part.Extension.GetLastFeatureAdded()
|
|
feat8.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag107 part,wMat
|
|
set feat8=part.Extension.GetLastFeatureAdded()
|
|
feat8.select2 false,0
|
|
featMgr.FeatureCut3 1,0,1,0,0,0.04,0.04,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
|
|
end sub
|
|
|
|
sub codeBag109(part,wMat)
|
|
cLn part,wMat,0,0,0,0.0025
|
|
cLn part,wMat,0,0.0025,0.02,0.0025
|
|
cLn part,wMat,0.02,0.0025,0.02,0
|
|
cLn part,wMat,0.02,0,0,0
|
|
cCLn part,wMat,0.02,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag110(part,wMat)
|
|
cCir part,wMat,0,0,0.0025
|
|
cCLn part,wMat,-0.01,-0.05,-0.01,0.05
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag111(part,wMat)
|
|
cLn part,wMat,-0.089,0,-0.089,0.0025
|
|
cLn part,wMat,-0.089,0.0025,-0.01,0.0025
|
|
cLn part,wMat,-0.01,0.0025,-0.01,0
|
|
cLn part,wMat,-0.01,0,-0.089,0
|
|
cCLn part,wMat,-0.01,0,-0.089,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag112(part,wMat)
|
|
cCir part,wMat,-0.099,0,0.0025
|
|
cCLn part,wMat,-0.089,0.05,-0.089,-0.05
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag113(part,wMat)
|
|
cLn part,wMat,-0.055,0,-0.055,0.0025
|
|
cLn part,wMat,-0.055,0.0025,0.02,0.0025
|
|
cLn part,wMat,0.02,0.0025,0.02,0
|
|
cLn part,wMat,0.02,0,-0.055,0
|
|
cCLn part,wMat,0.02,0,-0.055,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag108(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag109 part,wMat
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.02,0,0),createVec3d(0.02,0,-1),createVec3d(0.02,1,0),1
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.02,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag110 part,wMat
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
featMgr.FeatureRevolve 1.5707963267949,1,1.5707963267949,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.03,0,0),createVec3d(0.03,0,-1),createVec3d(0.03,1,0),1
|
|
set feat10=part.Extension.GetLastFeatureAdded()
|
|
feat10.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.03,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag111 part,wMat
|
|
set feat10=part.Extension.GetLastFeatureAdded()
|
|
feat10.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.02,0,0),createVec3d(0.02,0,-1),createVec3d(0.02,1,0),1
|
|
set feat12=part.Extension.GetLastFeatureAdded()
|
|
feat12.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.02,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag112 part,wMat
|
|
set feat12=part.Extension.GetLastFeatureAdded()
|
|
feat12.select2 false,0
|
|
featMgr.FeatureRevolve 1.5707963267949,1,1.5707963267949,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0.099),createVec3d(1,0,0.099),createVec3d(0,1,0.099),1
|
|
set feat15=part.Extension.GetLastFeatureAdded()
|
|
feat15.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0.099)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag113 part,wMat
|
|
set feat15=part.Extension.GetLastFeatureAdded()
|
|
feat15.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
end sub
|
|
|
|
sub codeBag115(part,wMat)
|
|
cLn part,wMat,0,0,0,0.021
|
|
cArc part,wMat,0,0.021,0.00043933982822018,0.02206066017178,0.0015,0.0225
|
|
cLn part,wMat,0.0015,0.0225,0.1185,0.0225
|
|
cArc part,wMat,0.1185,0.0225,0.11956066017178,0.02206066017178,0.12,0.021
|
|
cLn part,wMat,0.12,0.021,0.12,0
|
|
cLn part,wMat,0.12,0,0,0
|
|
cCLn part,wMat,0.12,0,0,0
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag116(part,wMat)
|
|
cArc part,wMat,0.009,-0.021708293346092,7.1947999449907e-18,0.0235,-0.009,-0.021708293346092
|
|
cLn part,wMat,-0.009,-0.021708293346092,-0.009,-0.032
|
|
cLn part,wMat,-0.009,-0.032,0.009,-0.032
|
|
cLn part,wMat,0.009,-0.032,0.009,-0.021708293346092
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag117(part,wMat)
|
|
cCir part,wMat,0.058,0,0.00145
|
|
Part.SketchManager.InsertSketch True
|
|
end sub
|
|
|
|
sub codeBag114(part,featMgr)
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag115 part,wMat
|
|
set feat4=part.Extension.GetLastFeatureAdded()
|
|
feat4.select2 false,0
|
|
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
|
|
part.CreatePlaneFixed2 createVec3d(0.054,0,0),createVec3d(0.054,0,-1),createVec3d(0.054,1,0),1
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.054,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag116 part,wMat
|
|
set feat7=part.Extension.GetLastFeatureAdded()
|
|
feat7.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.008,0.008,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,0,-1),1
|
|
set feat9=part.Extension.GetLastFeatureAdded()
|
|
feat9.select2 false,0
|
|
part.SketchManager.InsertSketch True
|
|
part.BlankRefGeom
|
|
Set swActiveMat = Part.SketchManager.ActiveSketch
|
|
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
|
|
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0,0)
|
|
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
|
|
codeBag117 part,wMat
|
|
set feat9=part.Extension.GetLastFeatureAdded()
|
|
feat9.select2 false,0
|
|
featMgr.FeatureExtrusion2 1,0,0,0,0,0.045,0.045,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
|
|
end sub
|
|
|
|
sub codeBag118()
|
|
createPart0
|
|
createPart1
|
|
createPart2
|
|
createPart3
|
|
createPart4
|
|
createPart5
|
|
createPart6
|
|
createPart7
|
|
createPart8
|
|
createPart9
|
|
createPart10
|
|
end sub
|
|
|
|
sub codeBag119(part)
|
|
set comp = part.AddComponent5 (storePath &"S100B5250.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(-1,0,0,0,1,0,0,0,-1,0,0,0)))
|
|
set comp = part.AddComponent5 (storePath &"100B5.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(-1,0,0,0,1,0,0,0,-1,0.181,0,0)))
|
|
set comp = part.AddComponent5 (storePath &"S100IC411B5STD-.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0.164,1.7145055188063e-18,2.0996636957266e-34)))
|
|
set comp = part.AddComponent5 (storePath &"S100IC411B5STD-plug.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0.265,1.7145055188063e-18,2.0996636957266e-34)))
|
|
set comp = part.AddComponent5 (storePath &"10031(-).sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(-1,0,0,0,1,0,0,0,-1,0.11175,0,0)))
|
|
set comp = part.AddComponent5 (storePath &"100A004S19.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0.0545,0.105,0)))
|
|
set comp = part.AddComponent5 (storePath &"D3.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(0,0,1,0,-1,0,1,0,0,0.074,0.0901,0.03975)))
|
|
set comp = part.AddComponent5 (storePath &"ANELLO RID_M25M16M.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(0,0,1,0,-1,0,1,0,0,0.074,0.0901,-0.0535)))
|
|
set comp = part.AddComponent5 (storePath &"Presacavo_M16M.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(0,0,1,0,-1,0,1,0,0,0.074,0.0901,-0.0775)))
|
|
set comp = part.AddComponent5 (storePath &"Cavo_4.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(0,0,-1,-0.29237170472274,0.95630475596304,0,0.95630475596304,0.29237170472274,0,0.074,0.0901,-0.0575)))
|
|
set comp = part.AddComponent5 (storePath &"60uF_45x120.sldprt", 0, "", false, "",0,0,0)
|
|
comp.SetXForm(createSWMatFromMat(createMat4x4FromValues(0,0,1,0,-1,0,1,0,0,0.169,0.118,-0.039)))
|
|
end sub
|
|
|
|
sub codeBag120()
|
|
swApp.CloseDoc storePath &"S100B5250.sldprt"
|
|
swApp.CloseDoc storePath &"100B5.sldprt"
|
|
swApp.CloseDoc storePath &"S100IC411B5STD-.sldprt"
|
|
swApp.CloseDoc storePath &"S100IC411B5STD-plug.sldprt"
|
|
swApp.CloseDoc storePath &"10031(-).sldprt"
|
|
swApp.CloseDoc storePath &"100A004S19.sldprt"
|
|
swApp.CloseDoc storePath &"D3.sldprt"
|
|
swApp.CloseDoc storePath &"ANELLO RID_M25M16M.sldprt"
|
|
swApp.CloseDoc storePath &"Presacavo_M16M.sldprt"
|
|
swApp.CloseDoc storePath &"Cavo_4.sldprt"
|
|
swApp.CloseDoc storePath &"60uF_45x120.sldprt"
|
|
end sub
|
|
|
|
sub main
|
|
set swApp = Application.SldWorks
|
|
code = swApp.RevisionNumber
|
|
found = InStr(code, ".")
|
|
If (found > 0) Then
|
|
code = Left(code, found-1)
|
|
docVisible=1
|
|
If (CInt(code) >= 18) Then
|
|
docVisible=0
|
|
End If
|
|
End If
|
|
swApp.SetUserPreferenceToggle 11, FALSE
|
|
swApp.SetUserPreferenceToggle 97, FALSE
|
|
storePath=BrowseForFolder
|
|
If (storePath <> "") Then
|
|
If ((Right(storePath, 1) <> "\") And (Right(storePath, 1) <> "/")) Then
|
|
storePath = storePath + "\"
|
|
End If
|
|
createPart11
|
|
End If
|
|
end sub
|