dim swApp
dim storePath
dim docVisible
#If VBA7 Then
Private Type BROWSEINFO
   hwndOwner       As LongPtr
   pIDLRoot        As Long
   pszDisplayName  As String
   lpszTitle       As String
   ulFlags         As Long
   lpfnCallback    As LongPtr
   lParam          As LongPtr
  iImage          As Long
End Type
Private Declare PtrSafe Function SHBrowseForFolder Lib "Shell32" (lpbi As BROWSEINFO) As Long
Private Declare PtrSafe Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32" (ByVal hMem As Long)
#Else
Private Type BROWSEINFO
   hwndOwner       As Long
   pIDLRoot        As Long
   pszDisplayName  As Long
   lpszTitle       As String
   ulFlags         As Long
   lpfnCallback    As Long
   lParam          As Long
  iImage          As Long
End Type
Private Declare Function SHBrowseForFolder Lib "Shell32" (lpbi As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Sub CoTaskMemFree Lib "ole32" (ByVal hMem As Long)
#End If
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&
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 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()
   getFaceFromModel = noting
   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 < 0.000001 Then
           Set getFaceFromModel = face
           found=1
           Exit Do
         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 < 0.00000001 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
             Exit Do
           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() As String
  Dim tBI         As BROWSEINFO
  Dim lngPIDL     As Long
  Dim strPath     As String
  With tBI
    .lpszTitle = ""
    .ulFlags = BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE Or BIF_EDITBOX
  End With
  lngPIDL = SHBrowseForFolder(tBI)
  If (lngPIDL <> 0) Then
    ' get path from ID list
    strPath = Space$(MAX_PATH)
    SHGetPathFromIDList lngPIDL, strPath
    strPath = Left$(strPath, InStr(strPath, Chr$(0)) - 1)
    ' release list
    CoTaskMemFree lngPIDL
  End If
  BrowseForFolder = strPath
End Function
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 & "750-461_000-007.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 "750-461_000-007.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 "NN", 30, "750-461"
customPropMgr.Add2 "NT", 30, "2-CHANNEL ANALOG INPUT MODULE PT 100 / RTD FOR RESISTOR SENSORS"
customPropMgr.Add2 "NB", 30, "750-461/000-007"
customPropMgr.Add2 "NBSYN", 30, "$BESTNR."
customPropMgr.Add2 "LINA", 30, "750-461/000-007"
customPropMgr.Add2 "OFFICIAL_STANDARD_NUMBERS", 30, "NO"
customPropMgr.Add2 "BESTNR", 30, "750-461/000-007"
customPropMgr.Add2 "INFODE", 30, "Info DE"
customPropMgr.Add2 "INFOEN", 30, "Info EN"
customPropMgr.Add2 "QUERSCHNITT1", 30, "0.08 - 2.5"
customPropMgr.Add2 "QUERSCHNITT2", 30, "28 - 14"
customPropMgr.Add2 "ABISOLIERLAENGE", 30, "8 - 9"
customPropMgr.Add2 "HOEHE", 30, "64.00"
customPropMgr.Add2 "BREITE", 30, "12.00"
customPropMgr.Add2 "TIEFE", 30, "100.00"
customPropMgr.Add2 "FARBE", 30, "lichtgrau"
customPropMgr.Add2 "GEWICHT", 30, "52.500"
customPropMgr.Add2 "BEMERKUNGEN", 30, "Widerstandsmessung 10R-5k0"
customPropMgr.Add2 "ECLASS71", 30, "27-24-26-01"
customPropMgr.Add2 "SUPPLIER", 30, "WAGO"
customPropMgr.Add2 "ARTICLENO", 30, "750-461/000-007"
customPropMgr.Add2 "BOMINFO", 30, "750-461/000-007"
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
customPropMgr.Add2 "IsFastener", 30, "0"
part.SummaryInfo(0)="750-461/000-007"
part.SummaryInfo(4)="2-CHANNEL ANALOG INPUT MODULE PT 100 / RTD FOR RESISTOR SENSORS"
part.SummaryInfo(2)="Cadenas PARTsolutions"
valRGB=part.MaterialPropertyValues
valRGB(0)=0.81999999284744
valRGB(1)=0.81999999284744
valRGB(2)=0.81999999284744
part.MaterialPropertyValues=valRGB
Dim featMgr as object
set featMgr = part.FeatureManager
codeBag0 part,featMgr
codeBag15 part,featMgr
codeBag30 part,featMgr
codeBag44 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 & "750-461_000-007.sldprt",0,0,nothing,errors,warnings
End Sub
sub codeBag1(part,wMat)
cLn part,wMat,-0.0324,0.049707179676972,-0.0324,-0.0064
cLn part,wMat,-0.0324,-0.0064,-0.021967949192431,-0.0064
cLn part,wMat,-0.021967949192431,-0.0064,-0.0207,-0.0071320508075689
cArc part,wMat,-0.0207,-0.0071320508075689,-0.0187,-0.0071320508075689,-0.0177,-0.0054
cLn part,wMat,-0.0177,-0.0054,-0.0177,0
cLn part,wMat,-0.0177,0,0.0177,0
cLn part,wMat,0.0177,0,0.0177,-0.0054
cArc part,wMat,0.0177,-0.0054,0.0187,-0.0071320508075689,0.0207,-0.0071320508075689
cLn part,wMat,0.0207,-0.0071320508075689,0.021967949192431,-0.0064
cLn part,wMat,0.021967949192431,-0.0064,0.06,-0.0064
cLn part,wMat,0.06,-0.0064,0.06,0.057921539030917
cLn part,wMat,0.06,0.057921539030917,0.0588,0.06
cLn part,wMat,0.0588,0.06,0.0542,0.06
cArc part,wMat,0.0542,0.06,0.053847625954994,0.059935859248181,0.053540454982324,0.059751665064812
cLn part,wMat,0.053540454982324,0.059751665064812,0.052,0.0584
cLn part,wMat,0.052,0.0584,0.041911704731648,0.0584
cLn part,wMat,0.041911704731648,0.0584,0.041802524267262,0.058353655642446
cLn part,wMat,0.041802524267262,0.058353655642446,0.041653067840724,0.058198888982175
cArc part,wMat,0.041653067840724,0.058198888982175,0.041577845822616,0.057861394416636,0.041843905892267,0.057640548318784
cArc part,wMat,0.041843905892267,0.057640548318784,0.042205654169426,0.057394752895358,0.042235668009158,0.056958431442696
cLn part,wMat,0.042235668009158,0.056958431442696,0.042158084443384,0.056766405379009
cLn part,wMat,0.042158084443384,0.056766405379009,0.038094779435044,0.05504163473239
cLn part,wMat,0.038094779435044,0.05504163473239,0.037902753371356,0.055119218298164
cArc part,wMat,0.037902753371356,0.055119218298164,0.037609739349714,0.055443902796946,0.037684220413192,0.055874866614234
cArc part,wMat,0.037684220413192,0.055874866614234,0.037710177854124,0.05621966676655,0.037415150976212,0.0564
cLn part,wMat,0.037415150976212,0.0564,0.025911704731648,0.0564
cLn part,wMat,0.025911704731648,0.0564,0.025802524267262,0.056353655642446
cLn part,wMat,0.025802524267262,0.056353655642446,0.025653067840724,0.056198888982175
cArc part,wMat,0.025653067840724,0.056198888982175,0.025577845822616,0.055861394416636,0.025843905848959,0.055640548325071
cArc part,wMat,0.025843905848959,0.055640548325071,0.026205654169426,0.055394752895358,0.026235668009158,0.054958431442696
cLn part,wMat,0.026235668009158,0.054958431442696,0.026158084443384,0.054766405379009
cLn part,wMat,0.026158084443384,0.054766405379009,0.022094779435044,0.05304163473239
cLn part,wMat,0.022094779435044,0.05304163473239,0.021902753371356,0.053119218298164
cArc part,wMat,0.021902753371356,0.053119218298164,0.021609739349714,0.053443902796946,0.021684220413192,0.053874866614234
cArc part,wMat,0.021684220413192,0.053874866614234,0.021710177854124,0.05421966676655,0.021415150976212,0.0544
cLn part,wMat,0.021415150976212,0.0544,0.0075117047316475,0.0544
cLn part,wMat,0.0075117047316475,0.0544,0.0074025242672622,0.054353655642446
cLn part,wMat,0.0074025242672622,0.054353655642446,0.007253067840724,0.054198888982175
cArc part,wMat,0.007253067840724,0.054198888982175,0.0071778458226159,0.053861394416636,0.0074439058954459,0.053640548318323
cArc part,wMat,0.0074439058954459,0.053640548318323,0.0078056541694262,0.053394752895358,0.0078356680091576,0.052958431442696
cLn part,wMat,0.0078356680091576,0.052958431442696,0.007758084443384,0.052766405379009
cLn part,wMat,0.007758084443384,0.052766405379009,0.0036947794350439,0.05104163473239
cLn part,wMat,0.0036947794350439,0.05104163473239,0.0035027533713565,0.051119218298164
cArc part,wMat,0.0035027533713565,0.051119218298164,0.0032097393497141,0.051443902796946,0.0032842204131923,0.051874866614234
cArc part,wMat,0.0032842204131923,0.051874866614234,0.0033101778541245,0.05221966676655,0.0030151509762121,0.0524
cLn part,wMat,0.0030151509762121,0.0524,-0.010888295268352,0.0524
cLn part,wMat,-0.010888295268352,0.0524,-0.010997475732738,0.052353655642446
cLn part,wMat,-0.010997475732738,0.052353655642446,-0.011146932159276,0.052198888982175
cArc part,wMat,-0.011146932159276,0.052198888982175,-0.011222154177384,0.051861394416636,-0.010956094197528,0.051640548331819
cArc part,wMat,-0.010956094197528,0.051640548331819,-0.010594345830574,0.051394752895358,-0.010564331990842,0.050958431442696
cLn part,wMat,-0.010564331990842,0.050958431442696,-0.010641915556616,0.050766405379009
cLn part,wMat,-0.010641915556616,0.050766405379009,-0.014705220564956,0.04904163473239
cLn part,wMat,-0.014705220564956,0.04904163473239,-0.014897246628644,0.049119218298164
cArc part,wMat,-0.014897246628644,0.049119218298164,-0.015190260650286,0.049443902796946,-0.015115779586808,0.049874866614234
cArc part,wMat,-0.015115779586808,0.049874866614234,-0.015089822145876,0.05021966676655,-0.015384849023788,0.0504
cLn part,wMat,-0.015384849023788,0.0504,-0.032,0.0504
cLn part,wMat,-0.032,0.0504,-0.0324,0.049707179676972
Part.SketchManager.InsertSketch True
end sub

sub codeBag2(part,wMat)
cLn part,wMat,0.0372,0.0564,0.037981462256979,0.054558990293095
cLn part,wMat,0.037981462256979,0.054558990293095,0.042693166988626,0.056558990293095
cLn part,wMat,0.042693166988626,0.056558990293095,0.041911704731648,0.0584
cLn part,wMat,0.041911704731648,0.0584,0.041342271840536,0.058158290078202
cArc part,wMat,0.041342271840536,0.058158290078202,0.040805819114458,0.057612391818165,0.040812498115573,0.05684705409626
cLn part,wMat,0.040812498115573,0.05684705409626,0.038971488408668,0.056065591839281
cArc part,wMat,0.038971488408668,0.056065591839281,0.038425590148631,0.056602044565359,0.037660252426726,0.056595365564245
cLn part,wMat,0.037660252426726,0.056595365564245,0.0372,0.0564
Part.SketchManager.InsertSketch True
end sub

sub codeBag3(part,wMat)
cLn part,wMat,0.0212,0.0544,0.021981462256979,0.052558990293095
cLn part,wMat,0.021981462256979,0.052558990293095,0.026693166988626,0.054558990293095
cLn part,wMat,0.026693166988626,0.054558990293095,0.025911704731648,0.0564
cLn part,wMat,0.025911704731648,0.0564,0.025342271840536,0.056158290078202
cArc part,wMat,0.025342271840536,0.056158290078202,0.024805819114458,0.055612391818165,0.024812498115573,0.05484705409626
cLn part,wMat,0.024812498115573,0.05484705409626,0.022971488408668,0.054065591839281
cArc part,wMat,0.022971488408668,0.054065591839281,0.022425590148631,0.054602044565359,0.021660252426726,0.054595365564245
cLn part,wMat,0.021660252426726,0.054595365564245,0.0212,0.0544
Part.SketchManager.InsertSketch True
end sub

sub codeBag4(part,wMat)
cLn part,wMat,0.0028,0.0524,0.0035814622569785,0.050558990293095
cLn part,wMat,0.0035814622569785,0.050558990293095,0.0082931669886261,0.052558990293095
cLn part,wMat,0.0082931669886261,0.052558990293095,0.0075117047316475,0.0544
cLn part,wMat,0.0075117047316475,0.0544,0.006942271840536,0.054158290078202
cArc part,wMat,0.006942271840536,0.054158290078202,0.0064058191144585,0.053612391818165,0.0064124981155728,0.05284705409626
cLn part,wMat,0.0064124981155728,0.05284705409626,0.0045714884086679,0.052065591839281
cArc part,wMat,0.0045714884086679,0.052065591839281,0.0040255901486314,0.052602044565359,0.0032602524267262,0.052595365564245
cLn part,wMat,0.0032602524267262,0.052595365564245,0.0028,0.0524
Part.SketchManager.InsertSketch True
end sub

sub codeBag5(part,wMat)
cLn part,wMat,-0.0156,0.0504,-0.014818537743021,0.048558990293095
cLn part,wMat,-0.014818537743021,0.048558990293095,-0.010106833011374,0.050558990293095
cLn part,wMat,-0.010106833011374,0.050558990293095,-0.010888295268352,0.0524
cLn part,wMat,-0.010888295268352,0.0524,-0.011457728159464,0.052158290078202
cArc part,wMat,-0.011457728159464,0.052158290078202,-0.011994180885542,0.051612391818165,-0.011987501884427,0.05084705409626
cLn part,wMat,-0.011987501884427,0.05084705409626,-0.013828511591332,0.050065591839281
cArc part,wMat,-0.013828511591332,0.050065591839281,-0.014374409851369,0.050602044565359,-0.015139747573274,0.050595365564245
cLn part,wMat,-0.015139747573274,0.050595365564245,-0.0156,0.0504
Part.SketchManager.InsertSketch True
end sub

sub codeBag6(part,wMat)
cLn part,wMat,0.0372,0.0564,0.037981462256979,0.054558990293095
cLn part,wMat,0.037981462256979,0.054558990293095,0.042693166988626,0.056558990293095
cLn part,wMat,0.042693166988626,0.056558990293095,0.041911704731648,0.0584
cLn part,wMat,0.041911704731648,0.0584,0.041342271840536,0.058158290078202
cArc part,wMat,0.041342271840536,0.058158290078202,0.040805819114458,0.057612391818165,0.040812498115573,0.05684705409626
cLn part,wMat,0.040812498115573,0.05684705409626,0.038971488408668,0.056065591839281
cArc part,wMat,0.038971488408668,0.056065591839281,0.038425590148631,0.056602044565359,0.037660252426726,0.056595365564245
cLn part,wMat,0.037660252426726,0.056595365564245,0.0372,0.0564
Part.SketchManager.InsertSketch True
end sub

sub codeBag7(part,wMat)
cLn part,wMat,0.0212,0.0544,0.021981462256979,0.052558990293095
cLn part,wMat,0.021981462256979,0.052558990293095,0.026693166988626,0.054558990293095
cLn part,wMat,0.026693166988626,0.054558990293095,0.025911704731648,0.0564
cLn part,wMat,0.025911704731648,0.0564,0.025342271840536,0.056158290078202
cArc part,wMat,0.025342271840536,0.056158290078202,0.024805819114458,0.055612391818165,0.024812498115573,0.05484705409626
cLn part,wMat,0.024812498115573,0.05484705409626,0.022971488408668,0.054065591839281
cArc part,wMat,0.022971488408668,0.054065591839281,0.022425590148631,0.054602044565359,0.021660252426726,0.054595365564245
cLn part,wMat,0.021660252426726,0.054595365564245,0.0212,0.0544
Part.SketchManager.InsertSketch True
end sub

sub codeBag8(part,wMat)
cLn part,wMat,0.0028,0.0524,0.0035814622569785,0.050558990293095
cLn part,wMat,0.0035814622569785,0.050558990293095,0.0082931669886261,0.052558990293095
cLn part,wMat,0.0082931669886261,0.052558990293095,0.0075117047316475,0.0544
cLn part,wMat,0.0075117047316475,0.0544,0.006942271840536,0.054158290078202
cArc part,wMat,0.006942271840536,0.054158290078202,0.0064058191144585,0.053612391818165,0.0064124981155728,0.05284705409626
cLn part,wMat,0.0064124981155728,0.05284705409626,0.0045714884086679,0.052065591839281
cArc part,wMat,0.0045714884086679,0.052065591839281,0.0040255901486314,0.052602044565359,0.0032602524267262,0.052595365564245
cLn part,wMat,0.0032602524267262,0.052595365564245,0.0028,0.0524
Part.SketchManager.InsertSketch True
end sub

sub codeBag9(part,wMat)
cLn part,wMat,-0.0156,0.0504,-0.014818537743021,0.048558990293095
cLn part,wMat,-0.014818537743021,0.048558990293095,-0.010106833011374,0.050558990293095
cLn part,wMat,-0.010106833011374,0.050558990293095,-0.010888295268352,0.0524
cLn part,wMat,-0.010888295268352,0.0524,-0.011457728159464,0.052158290078202
cArc part,wMat,-0.011457728159464,0.052158290078202,-0.011994180885542,0.051612391818165,-0.011987501884427,0.05084705409626
cLn part,wMat,-0.011987501884427,0.05084705409626,-0.013828511591332,0.050065591839281
cArc part,wMat,-0.013828511591332,0.050065591839281,-0.014374409851369,0.050602044565359,-0.015139747573274,0.050595365564245
cLn part,wMat,-0.015139747573274,0.050595365564245,-0.0156,0.0504
Part.SketchManager.InsertSketch True
end sub

sub codeBag10(part,wMat)
cLn part,wMat,-0.0073,0.0464,0.0025,0.0464
cLn part,wMat,0.0025,0.0464,0.0025,0.0524
cLn part,wMat,0.0025,0.0524,-0.0073,0.0524
cLn part,wMat,-0.0073,0.0524,-0.0073,0.0464
Part.SketchManager.InsertSketch True
end sub

sub codeBag11(part,wMat)
cLn part,wMat,-0.007,0.0534,-0.007,0.0466
cArc part,wMat,-0.007,0.0466,-0.0069414213562373,0.046458578643763,-0.0068,0.0464
cLn part,wMat,-0.0068,0.0464,0.002,0.0464
cArc part,wMat,0.002,0.0464,0.0021414213562373,0.046458578643763,0.0022,0.0466
cLn part,wMat,0.0022,0.0466,0.0022,0.0522
cArc part,wMat,0.0022,0.0522,0.0021414213562373,0.052341421356237,0.002,0.0524
cLn part,wMat,0.002,0.0524,-0.0033,0.0524
cArc part,wMat,-0.0033,0.0524,-0.0035996107691839,0.052684722991489,-0.0033305143751378,0.05299844408674
cLn part,wMat,-0.0033305143751378,0.05299844408674,-0.0023245713540519,0.053101296594384
cArc part,wMat,-0.0023245713540519,0.053101296594384,-0.0021003243590134,0.053362730840425,-0.00235,0.0536
cLn part,wMat,-0.00235,0.0536,-0.0068,0.0536
cArc part,wMat,-0.0068,0.0536,-0.0069414213562373,0.053541421356237,-0.007,0.0534
Part.SketchManager.InsertSketch True
end sub

sub codeBag12(part,wMat)
cLn part,wMat,0.06,0,0.06,-0.0017
cArc part,wMat,0.06,-0.0017,0.060146446609407,-0.0013464466094067,0.0605,-0.0012
cLn part,wMat,0.0605,-0.0012,0.0619,-0.0012
cArc part,wMat,0.0619,-0.0012,0.062253553390593,-0.0013464466094067,0.0624,-0.0017
cLn part,wMat,0.0624,-0.0017,0.0624,-0.0043
cArc part,wMat,0.0624,-0.0043,0.0631,-0.005,0.0638,-0.0043
cLn part,wMat,0.0638,-0.0043,0.0638,0.0018
cArc part,wMat,0.0638,0.0018,0.063507106781187,0.0025071067811865,0.0628,0.0028
cLn part,wMat,0.0628,0.0028,0.0613,0.0028
cArc part,wMat,0.0613,0.0028,0.060946446609407,0.0026535533905933,0.0608,0.0023
cLn part,wMat,0.0608,0.0023,0.0608,0.0019
cArc part,wMat,0.0608,0.0019,0.060858578643763,0.0017585786437627,0.061,0.0017
cLn part,wMat,0.061,0.0017,0.0622,0.0017
cArc part,wMat,0.0622,0.0017,0.062341421356237,0.0016414213562373,0.0624,0.0015
cLn part,wMat,0.0624,0.0015,0.0624,0.0002
cArc part,wMat,0.0624,0.0002,0.062341421356237,5.857864376269e-05,0.0622,0
cLn part,wMat,0.0622,0,0.06,0
Part.SketchManager.InsertSketch True
end sub

sub codeBag13(part,wMat)
cArc part,wMat,-0.0362,-0.0043,-0.0355,-0.005,-0.0348,-0.0043
cLn part,wMat,-0.0348,-0.0043,-0.0348,-0.0017
cArc part,wMat,-0.0348,-0.0017,-0.034653553390593,-0.0013464466094067,-0.0343,-0.0012
cLn part,wMat,-0.0343,-0.0012,-0.0329,-0.0012
cArc part,wMat,-0.0329,-0.0012,-0.032546446609407,-0.0013464466094067,-0.0324,-0.0017
cLn part,wMat,-0.0324,-0.0017,-0.0324,0
cLn part,wMat,-0.0324,0,-0.0346,0
cArc part,wMat,-0.0346,0,-0.034741421356237,5.8578643762691e-05,-0.0348,0.0002
cLn part,wMat,-0.0348,0.0002,-0.0348,0.0015
cArc part,wMat,-0.0348,0.0015,-0.034741421356237,0.0016414213562373,-0.0346,0.0017
cLn part,wMat,-0.0346,0.0017,-0.0334,0.0017
cArc part,wMat,-0.0334,0.0017,-0.033258578643763,0.0017585786437627,-0.0332,0.0019
cLn part,wMat,-0.0332,0.0019,-0.0332,0.0023
cArc part,wMat,-0.0332,0.0023,-0.033346446609407,0.0026535533905933,-0.0337,0.0028
cLn part,wMat,-0.0337,0.0028,-0.0352,0.0028
cArc part,wMat,-0.0352,0.0028,-0.035907106781187,0.0025071067811865,-0.0362,0.0018
cLn part,wMat,-0.0362,0.0018,-0.0362,-0.0043
Part.SketchManager.InsertSketch True
end sub

sub codeBag14(part,wMat)
cLn part,wMat,-0.0346,-0.0106,-0.0346,-0.0118
cArc part,wMat,-0.0346,-0.0118,-0.034541421356237,-0.011941421356237,-0.0344,-0.012
cLn part,wMat,-0.0344,-0.012,-0.0324,-0.012
cLn part,wMat,-0.0324,-0.012,-0.0324,-0.007
cLn part,wMat,-0.0324,-0.007,-0.033,-0.007
cLn part,wMat,-0.033,-0.007,-0.033,-0.0104
cLn part,wMat,-0.033,-0.0104,-0.0344,-0.0104
cArc part,wMat,-0.0344,-0.0104,-0.034541421356237,-0.010458578643763,-0.0346,-0.0106
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 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)
codeBag1 part,wMat
set feat4=part.Extension.GetLastFeatureAdded()
feat4.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.012,0.012,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 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)
codeBag2 part,wMat
set feat6=part.Extension.GetLastFeatureAdded()
feat6.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0005,0.0005,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 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(1,0,0,0,1,0,0,0,1,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag3 part,wMat
set feat8=part.Extension.GetLastFeatureAdded()
feat8.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0005,0.0005,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 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(1,0,0,0,1,0,0,0,1,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag4 part,wMat
set feat10=part.Extension.GetLastFeatureAdded()
feat10.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0005,0.0005,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 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,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag5 part,wMat
set feat12=part.Extension.GetLastFeatureAdded()
feat12.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),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.012)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag6 part,wMat
set feat15=part.Extension.GetLastFeatureAdded()
feat15.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),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.012)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag7 part,wMat
set feat17=part.Extension.GetLastFeatureAdded()
feat17.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),1
set feat19=part.Extension.GetLastFeatureAdded()
feat19.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.012)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag8 part,wMat
set feat19=part.Extension.GetLastFeatureAdded()
feat19.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),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(1,0,0,0,1,0,0,0,1,0,0,0.012)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag9 part,wMat
set feat21=part.Extension.GetLastFeatureAdded()
feat21.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),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.012)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag10 part,wMat
set feat23=part.Extension.GetLastFeatureAdded()
feat23.select2 false,0
featMgr.FeatureCut3 1,0,0,0,0,0.0019,0.0019,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0.01105),createVec3d(1,0,0.01105),createVec3d(0,1,0.01105),1
set feat26=part.Extension.GetLastFeatureAdded()
feat26.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.01105)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag11 part,wMat
set feat26=part.Extension.GetLastFeatureAdded()
feat26.select2 false,0
featMgr.FeatureExtrusion2 0,0,1,0,0,0.0008,0.0008,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-1),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,0,-1,0,1,0,0,-0.0064,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag12 part,wMat
set feat29=part.Extension.GetLastFeatureAdded()
feat29.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0608,0.0608,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-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,-0.0064,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag13 part,wMat
set feat31=part.Extension.GetLastFeatureAdded()
feat31.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0548,0.0548,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-1),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,-0.0064,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag14 part,wMat
set feat33=part.Extension.GetLastFeatureAdded()
feat33.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0548,0.0548,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
end sub

sub codeBag16(part,wMat)
cLn part,wMat,0.06,-0.007,0.06,-0.012
cLn part,wMat,0.06,-0.012,0.062,-0.012
cArc part,wMat,0.062,-0.012,0.062141421356237,-0.011941421356237,0.0622,-0.0118
cLn part,wMat,0.0622,-0.0118,0.0622,-0.0106
cArc part,wMat,0.0622,-0.0106,0.062141421356237,-0.010458578643763,0.062,-0.0104
cLn part,wMat,0.062,-0.0104,0.0606,-0.0104
cLn part,wMat,0.0606,-0.0104,0.0606,-0.007
cLn part,wMat,0.0606,-0.007,0.06,-0.007
Part.SketchManager.InsertSketch True
end sub

sub codeBag17(part,wMat)
cLn part,wMat,-0.0027,0.0584,-0.0006,0.0584
cLn part,wMat,-0.0006,0.0584,-0.0006,0.058
cLn part,wMat,-0.0006,0.058,-0.001,0.0576
cLn part,wMat,-0.001,0.0576,-0.001,0.0564
cLn part,wMat,-0.001,0.0564,-0.0027,0.0564
cLn part,wMat,-0.0027,0.0564,-0.0027,0.0584
cCLn part,wMat,-0.0027,0.0564,-0.0027,0.0584
Part.SketchManager.InsertSketch True
end sub

sub codeBag18(part,wMat)
cLn part,wMat,-0.0027,0.0584,-0.0006,0.0584
cLn part,wMat,-0.0006,0.0584,-0.0006,0.058
cLn part,wMat,-0.0006,0.058,-0.001,0.0576
cLn part,wMat,-0.001,0.0576,-0.001,0.0564
cLn part,wMat,-0.001,0.0564,-0.0027,0.0564
cLn part,wMat,-0.0027,0.0564,-0.0027,0.0584
cCLn part,wMat,-0.0027,0.0564,-0.0027,0.0584
Part.SketchManager.InsertSketch True
end sub

sub codeBag19(part,wMat)
cArc part,wMat,-0.0027,0.0597,-0.0016746951672795,0.05927530483272,-0.00125,0.05825
cLn part,wMat,-0.00125,0.05825,-0.00125,0.05642
cLn part,wMat,-0.00125,0.05642,-0.00115,0.05642
cLn part,wMat,-0.00115,0.05642,-0.00115,0.0554
cLn part,wMat,-0.00115,0.0554,-0.0027,0.0554
cLn part,wMat,-0.0027,0.0554,-0.0027,0.0597
cCLn part,wMat,-0.0027,0.0554,-0.0027,0.0597
Part.SketchManager.InsertSketch True
end sub

sub codeBag20(part,wMat)
cArc part,wMat,-0.0027,0.0597,-0.0016746951672795,0.05927530483272,-0.00125,0.05825
cLn part,wMat,-0.00125,0.05825,-0.00125,0.05642
cLn part,wMat,-0.00125,0.05642,-0.00115,0.05642
cLn part,wMat,-0.00115,0.05642,-0.00115,0.0554
cLn part,wMat,-0.00115,0.0554,-0.0027,0.0554
cLn part,wMat,-0.0027,0.0554,-0.0027,0.0597
cCLn part,wMat,-0.0027,0.0554,-0.0027,0.0597
Part.SketchManager.InsertSketch True
end sub

sub codeBag21(part,wMat)
cLn part,wMat,-0.0027,0.0584,-0.0006,0.0584
cLn part,wMat,-0.0006,0.0584,-0.0006,0.058
cLn part,wMat,-0.0006,0.058,-0.001,0.0576
cLn part,wMat,-0.001,0.0576,-0.001,0.0564
cLn part,wMat,-0.001,0.0564,-0.0027,0.0564
cLn part,wMat,-0.0027,0.0564,-0.0027,0.0584
cCLn part,wMat,-0.0027,0.0564,-0.0027,0.0584
Part.SketchManager.InsertSketch True
end sub

sub codeBag22(part,wMat)
cLn part,wMat,-0.0027,0.0584,-0.0006,0.0584
cLn part,wMat,-0.0006,0.0584,-0.0006,0.058
cLn part,wMat,-0.0006,0.058,-0.001,0.0576
cLn part,wMat,-0.001,0.0576,-0.001,0.0564
cLn part,wMat,-0.001,0.0564,-0.0027,0.0564
cLn part,wMat,-0.0027,0.0564,-0.0027,0.0584
cCLn part,wMat,-0.0027,0.0564,-0.0027,0.0584
Part.SketchManager.InsertSketch True
end sub

sub codeBag23(part,wMat)
cArc part,wMat,-0.0027,0.0597,-0.0016746951672795,0.05927530483272,-0.00125,0.05825
cLn part,wMat,-0.00125,0.05825,-0.00125,0.05642
cLn part,wMat,-0.00125,0.05642,-0.00115,0.05642
cLn part,wMat,-0.00115,0.05642,-0.00115,0.0554
cLn part,wMat,-0.00115,0.0554,-0.0027,0.0554
cLn part,wMat,-0.0027,0.0554,-0.0027,0.0597
cCLn part,wMat,-0.0027,0.0554,-0.0027,0.0597
Part.SketchManager.InsertSketch True
end sub

sub codeBag24(part,wMat)
cArc part,wMat,-0.0027,0.0597,-0.0016746951672795,0.05927530483272,-0.00125,0.05825
cLn part,wMat,-0.00125,0.05825,-0.00125,0.05642
cLn part,wMat,-0.00125,0.05642,-0.00115,0.05642
cLn part,wMat,-0.00115,0.05642,-0.00115,0.0554
cLn part,wMat,-0.00115,0.0554,-0.0027,0.0554
cLn part,wMat,-0.0027,0.0554,-0.0027,0.0597
cCLn part,wMat,-0.0027,0.0554,-0.0027,0.0597
Part.SketchManager.InsertSketch True
end sub

sub codeBag25(part,wMat)
cLn part,wMat,-0.0025,0.0564,0.0002,0.0564
cLn part,wMat,0.0002,0.0564,-0.0004,0.0558
cLn part,wMat,-0.0004,0.0558,-0.0004,0.0544
cLn part,wMat,-0.0004,0.0544,-0.0025,0.0544
cLn part,wMat,-0.0025,0.0544,-0.0025,0.0564
cCLn part,wMat,-0.0025,0.0544,-0.0025,0.0564
Part.SketchManager.InsertSketch True
end sub

sub codeBag26(part,wMat)
cLn part,wMat,-0.0025,0.0564,0.0002,0.0564
cLn part,wMat,0.0002,0.0564,-0.0004,0.0558
cLn part,wMat,-0.0004,0.0558,-0.0004,0.0544
cLn part,wMat,-0.0004,0.0544,-0.0025,0.0544
cLn part,wMat,-0.0025,0.0544,-0.0025,0.0564
cCLn part,wMat,-0.0025,0.0544,-0.0025,0.0564
Part.SketchManager.InsertSketch True
end sub

sub codeBag27(part,wMat)
cLn part,wMat,-0.0025,0.0564,-0.0012,0.0564
cLn part,wMat,-0.0012,0.0564,-0.0014,0.0558
cLn part,wMat,-0.0014,0.0558,-0.0014,0.0544
cLn part,wMat,-0.0014,0.0544,-0.0025,0.0544
cLn part,wMat,-0.0025,0.0544,-0.0025,0.0564
cCLn part,wMat,-0.0025,0.0544,-0.0025,0.0564
Part.SketchManager.InsertSketch True
end sub

sub codeBag28(part,wMat)
cLn part,wMat,-0.0025,0.0564,-0.0012,0.0564
cLn part,wMat,-0.0012,0.0564,-0.0014,0.0558
cLn part,wMat,-0.0014,0.0558,-0.0014,0.0544
cLn part,wMat,-0.0014,0.0544,-0.0025,0.0544
cLn part,wMat,-0.0025,0.0544,-0.0025,0.0564
cCLn part,wMat,-0.0025,0.0544,-0.0025,0.0564
Part.SketchManager.InsertSketch True
end sub

sub codeBag29(part,wMat)
cLn part,wMat,-0.0045,0.0544,-0.0008,0.0544
cLn part,wMat,-0.0008,0.0544,-0.0008,0.0564
cLn part,wMat,-0.0008,0.0564,-0.0045,0.0564
cLn part,wMat,-0.0045,0.0564,-0.0045,0.0544
Part.SketchManager.InsertSketch True
end sub

sub codeBag15(part,featMgr)
part.CreatePlaneFixed2 createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-1),1
set feat35=part.Extension.GetLastFeatureAdded()
feat35.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.0064,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag16 part,wMat
set feat35=part.Extension.GetLastFeatureAdded()
feat35.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0608,0.0608,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0.049,0,0),createVec3d(0.049,0,-1),createVec3d(0.049,1,0),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.049,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag17 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.049,0,0.005),createVec3d(0.049,0,-0.995),createVec3d(0.049,1,0.005),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.049,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag18 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.049,0,0),createVec3d(0.049,0,-1),createVec3d(0.049,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.049,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag19 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.049,0,0.005),createVec3d(0.049,0,-0.995),createVec3d(0.049,1,0.005),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(0,0,-1,0,1,0,1,0,0,0.049,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag20 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.0446,0,0),createVec3d(0.0446,0,-1),createVec3d(0.0446,1,0),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.0446,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag21 part,wMat
set feat47=part.Extension.GetLastFeatureAdded()
feat47.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.0446,0,0.005),createVec3d(0.0446,0,-0.995),createVec3d(0.0446,1,0.005),1
set feat49=part.Extension.GetLastFeatureAdded()
feat49.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.0446,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag22 part,wMat
set feat49=part.Extension.GetLastFeatureAdded()
feat49.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.0446,0,0),createVec3d(0.0446,0,-1),createVec3d(0.0446,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.0446,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag23 part,wMat
set feat51=part.Extension.GetLastFeatureAdded()
feat51.select2 false,0
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
part.CreatePlaneFixed2 createVec3d(0.0446,0,0.005),createVec3d(0.0446,0,-0.995),createVec3d(0.0446,1,0.005),1
set feat53=part.Extension.GetLastFeatureAdded()
feat53.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.0446,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag24 part,wMat
set feat53=part.Extension.GetLastFeatureAdded()
feat53.select2 false,0
featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
part.CreatePlaneFixed2 createVec3d(0.0291,0,0),createVec3d(0.0291,0,-1),createVec3d(0.0291,1,0),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(0,0,-1,0,1,0,1,0,0,0.0291,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag25 part,wMat
set feat56=part.Extension.GetLastFeatureAdded()
feat56.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.0291,0,0.005),createVec3d(0.0291,0,-0.995),createVec3d(0.0291,1,0.005),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(0,0,-1,0,1,0,1,0,0,0.0291,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag26 part,wMat
set feat58=part.Extension.GetLastFeatureAdded()
feat58.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.0312,0,0),createVec3d(0.0312,0,-1),createVec3d(0.0312,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(0,0,-1,0,1,0,1,0,0,0.0312,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag27 part,wMat
set feat61=part.Extension.GetLastFeatureAdded()
feat61.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.0312,0,0.005),createVec3d(0.0312,0,-0.995),createVec3d(0.0312,1,0.005),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(0,0,-1,0,1,0,1,0,0,0.0312,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag28 part,wMat
set feat63=part.Extension.GetLastFeatureAdded()
feat63.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.033,0,0),createVec3d(0.033,0,-1),createVec3d(0.033,1,0),1
set feat66=part.Extension.GetLastFeatureAdded()
feat66.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.033,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag29 part,wMat
set feat66=part.Extension.GetLastFeatureAdded()
feat66.select2 false,0
featMgr.FeatureCut3 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
end sub

sub codeBag31(part,wMat)
cLn part,wMat,-0.0045,0.0544,-0.0008,0.0544
cLn part,wMat,-0.0008,0.0544,-0.0008,0.0564
cLn part,wMat,-0.0008,0.0564,-0.0045,0.0564
cLn part,wMat,-0.0045,0.0564,-0.0045,0.0544
Part.SketchManager.InsertSketch True
end sub

sub codeBag32(part,wMat)
cLn part,wMat,-0.0025,0.0544,0.0002,0.0544
cLn part,wMat,0.0002,0.0544,-0.0004,0.0538
cLn part,wMat,-0.0004,0.0538,-0.0004,0.0524
cLn part,wMat,-0.0004,0.0524,-0.0025,0.0524
cLn part,wMat,-0.0025,0.0524,-0.0025,0.0544
cCLn part,wMat,-0.0025,0.0524,-0.0025,0.0544
Part.SketchManager.InsertSketch True
end sub

sub codeBag33(part,wMat)
cLn part,wMat,-0.0025,0.0544,0.0002,0.0544
cLn part,wMat,0.0002,0.0544,-0.0004,0.0538
cLn part,wMat,-0.0004,0.0538,-0.0004,0.0524
cLn part,wMat,-0.0004,0.0524,-0.0025,0.0524
cLn part,wMat,-0.0025,0.0524,-0.0025,0.0544
cCLn part,wMat,-0.0025,0.0524,-0.0025,0.0544
Part.SketchManager.InsertSketch True
end sub

sub codeBag34(part,wMat)
cLn part,wMat,-0.0025,0.0544,-0.0012,0.0544
cLn part,wMat,-0.0012,0.0544,-0.0014,0.0538
cLn part,wMat,-0.0014,0.0538,-0.0014,0.0524
cLn part,wMat,-0.0014,0.0524,-0.0025,0.0524
cLn part,wMat,-0.0025,0.0524,-0.0025,0.0544
cCLn part,wMat,-0.0025,0.0524,-0.0025,0.0544
Part.SketchManager.InsertSketch True
end sub

sub codeBag35(part,wMat)
cLn part,wMat,-0.0025,0.0544,-0.0012,0.0544
cLn part,wMat,-0.0012,0.0544,-0.0014,0.0538
cLn part,wMat,-0.0014,0.0538,-0.0014,0.0524
cLn part,wMat,-0.0014,0.0524,-0.0025,0.0524
cLn part,wMat,-0.0025,0.0524,-0.0025,0.0544
cCLn part,wMat,-0.0025,0.0524,-0.0025,0.0544
Part.SketchManager.InsertSketch True
end sub

sub codeBag36(part,wMat)
cLn part,wMat,-0.0045,0.0524,-0.0008,0.0524
cLn part,wMat,-0.0008,0.0524,-0.0008,0.0544
cLn part,wMat,-0.0008,0.0544,-0.0045,0.0544
cLn part,wMat,-0.0045,0.0544,-0.0045,0.0524
Part.SketchManager.InsertSketch True
end sub

sub codeBag37(part,wMat)
cLn part,wMat,-0.0045,0.0524,-0.0008,0.0524
cLn part,wMat,-0.0008,0.0524,-0.0008,0.0544
cLn part,wMat,-0.0008,0.0544,-0.0045,0.0544
cLn part,wMat,-0.0045,0.0544,-0.0045,0.0524
Part.SketchManager.InsertSketch True
end sub

sub codeBag38(part,wMat)
cLn part,wMat,-0.0025,0.0524,0.0002,0.0524
cLn part,wMat,0.0002,0.0524,-0.0004,0.0518
cLn part,wMat,-0.0004,0.0518,-0.0004,0.0504
cLn part,wMat,-0.0004,0.0504,-0.0025,0.0504
cLn part,wMat,-0.0025,0.0504,-0.0025,0.0524
cCLn part,wMat,-0.0025,0.0504,-0.0025,0.0524
Part.SketchManager.InsertSketch True
end sub

sub codeBag39(part,wMat)
cLn part,wMat,-0.0025,0.0524,0.0002,0.0524
cLn part,wMat,0.0002,0.0524,-0.0004,0.0518
cLn part,wMat,-0.0004,0.0518,-0.0004,0.0504
cLn part,wMat,-0.0004,0.0504,-0.0025,0.0504
cLn part,wMat,-0.0025,0.0504,-0.0025,0.0524
cCLn part,wMat,-0.0025,0.0504,-0.0025,0.0524
Part.SketchManager.InsertSketch True
end sub

sub codeBag40(part,wMat)
cLn part,wMat,-0.0025,0.0524,-0.0012,0.0524
cLn part,wMat,-0.0012,0.0524,-0.0014,0.0518
cLn part,wMat,-0.0014,0.0518,-0.0014,0.0504
cLn part,wMat,-0.0014,0.0504,-0.0025,0.0504
cLn part,wMat,-0.0025,0.0504,-0.0025,0.0524
cCLn part,wMat,-0.0025,0.0504,-0.0025,0.0524
Part.SketchManager.InsertSketch True
end sub

sub codeBag41(part,wMat)
cLn part,wMat,-0.0025,0.0524,-0.0012,0.0524
cLn part,wMat,-0.0012,0.0524,-0.0014,0.0518
cLn part,wMat,-0.0014,0.0518,-0.0014,0.0504
cLn part,wMat,-0.0014,0.0504,-0.0025,0.0504
cLn part,wMat,-0.0025,0.0504,-0.0025,0.0524
cCLn part,wMat,-0.0025,0.0504,-0.0025,0.0524
Part.SketchManager.InsertSketch True
end sub

sub codeBag42(part,wMat)
cLn part,wMat,-0.0045,0.0504,-0.0008,0.0504
cLn part,wMat,-0.0008,0.0504,-0.0008,0.0524
cLn part,wMat,-0.0008,0.0524,-0.0045,0.0524
cLn part,wMat,-0.0045,0.0524,-0.0045,0.0504
Part.SketchManager.InsertSketch True
end sub

sub codeBag43(part,wMat)
cLn part,wMat,-0.0045,0.0504,-0.0008,0.0504
cLn part,wMat,-0.0008,0.0504,-0.0008,0.0524
cLn part,wMat,-0.0008,0.0524,-0.0045,0.0524
cLn part,wMat,-0.0045,0.0524,-0.0045,0.0504
Part.SketchManager.InsertSketch True
end sub

sub codeBag30(part,featMgr)
part.CreatePlaneFixed2 createVec3d(0.033,0,0.005),createVec3d(0.033,0,-0.995),createVec3d(0.033,1,0.005),1
set feat68=part.Extension.GetLastFeatureAdded()
feat68.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.033,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag31 part,wMat
set feat68=part.Extension.GetLastFeatureAdded()
feat68.select2 false,0
featMgr.FeatureCut3 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(0.0131,0,0),createVec3d(0.0131,0,-1),createVec3d(0.0131,1,0),1
set feat71=part.Extension.GetLastFeatureAdded()
feat71.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.0131,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag32 part,wMat
set feat71=part.Extension.GetLastFeatureAdded()
feat71.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.0131,0,0.005),createVec3d(0.0131,0,-0.995),createVec3d(0.0131,1,0.005),1
set feat73=part.Extension.GetLastFeatureAdded()
feat73.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.0131,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag33 part,wMat
set feat73=part.Extension.GetLastFeatureAdded()
feat73.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.0152,0,0),createVec3d(0.0152,0,-1),createVec3d(0.0152,1,0),1
set feat76=part.Extension.GetLastFeatureAdded()
feat76.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.0152,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag34 part,wMat
set feat76=part.Extension.GetLastFeatureAdded()
feat76.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.0152,0,0.005),createVec3d(0.0152,0,-0.995),createVec3d(0.0152,1,0.005),1
set feat78=part.Extension.GetLastFeatureAdded()
feat78.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.0152,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag35 part,wMat
set feat78=part.Extension.GetLastFeatureAdded()
feat78.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0.017,0,0),createVec3d(0.017,0,-1),createVec3d(0.017,1,0),1
set feat81=part.Extension.GetLastFeatureAdded()
feat81.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.017,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag36 part,wMat
set feat81=part.Extension.GetLastFeatureAdded()
feat81.select2 false,0
featMgr.FeatureCut3 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(0.017,0,0.005),createVec3d(0.017,0,-0.995),createVec3d(0.017,1,0.005),1
set feat83=part.Extension.GetLastFeatureAdded()
feat83.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.017,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag37 part,wMat
set feat83=part.Extension.GetLastFeatureAdded()
feat83.select2 false,0
featMgr.FeatureCut3 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(-0.0053,0,0),createVec3d(-0.0053,0,-1),createVec3d(-0.0053,1,0),1
set feat86=part.Extension.GetLastFeatureAdded()
feat86.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.0053,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag38 part,wMat
set feat86=part.Extension.GetLastFeatureAdded()
feat86.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(-0.0053,0,0.005),createVec3d(-0.0053,0,-0.995),createVec3d(-0.0053,1,0.005),1
set feat88=part.Extension.GetLastFeatureAdded()
feat88.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.0053,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag39 part,wMat
set feat88=part.Extension.GetLastFeatureAdded()
feat88.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(-0.0032,0,0),createVec3d(-0.0032,0,-1),createVec3d(-0.0032,1,0),1
set feat91=part.Extension.GetLastFeatureAdded()
feat91.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.0032,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag40 part,wMat
set feat91=part.Extension.GetLastFeatureAdded()
feat91.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(-0.0032,0,0.005),createVec3d(-0.0032,0,-0.995),createVec3d(-0.0032,1,0.005),1
set feat93=part.Extension.GetLastFeatureAdded()
feat93.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.0032,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag41 part,wMat
set feat93=part.Extension.GetLastFeatureAdded()
feat93.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(-0.0014,0,0),createVec3d(-0.0014,0,-1),createVec3d(-0.0014,1,0),1
set feat96=part.Extension.GetLastFeatureAdded()
feat96.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.0014,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag42 part,wMat
set feat96=part.Extension.GetLastFeatureAdded()
feat96.select2 false,0
featMgr.FeatureCut3 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(-0.0014,0,0.005),createVec3d(-0.0014,0,-0.995),createVec3d(-0.0014,1,0.005),1
set feat98=part.Extension.GetLastFeatureAdded()
feat98.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.0014,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag43 part,wMat
set feat98=part.Extension.GetLastFeatureAdded()
feat98.select2 false,0
featMgr.FeatureCut3 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
end sub

sub codeBag45(part,wMat)
cLn part,wMat,-0.0025,0.0504,0.0002,0.0504
cLn part,wMat,0.0002,0.0504,-0.0004,0.0498
cLn part,wMat,-0.0004,0.0498,-0.0004,0.0484
cLn part,wMat,-0.0004,0.0484,-0.0025,0.0484
cLn part,wMat,-0.0025,0.0484,-0.0025,0.0504
cCLn part,wMat,-0.0025,0.0484,-0.0025,0.0504
Part.SketchManager.InsertSketch True
end sub

sub codeBag46(part,wMat)
cLn part,wMat,-0.0025,0.0504,0.0002,0.0504
cLn part,wMat,0.0002,0.0504,-0.0004,0.0498
cLn part,wMat,-0.0004,0.0498,-0.0004,0.0484
cLn part,wMat,-0.0004,0.0484,-0.0025,0.0484
cLn part,wMat,-0.0025,0.0484,-0.0025,0.0504
cCLn part,wMat,-0.0025,0.0484,-0.0025,0.0504
Part.SketchManager.InsertSketch True
end sub

sub codeBag47(part,wMat)
cLn part,wMat,-0.0025,0.0504,-0.0012,0.0504
cLn part,wMat,-0.0012,0.0504,-0.0014,0.0498
cLn part,wMat,-0.0014,0.0498,-0.0014,0.0484
cLn part,wMat,-0.0014,0.0484,-0.0025,0.0484
cLn part,wMat,-0.0025,0.0484,-0.0025,0.0504
cCLn part,wMat,-0.0025,0.0484,-0.0025,0.0504
Part.SketchManager.InsertSketch True
end sub

sub codeBag48(part,wMat)
cLn part,wMat,-0.0025,0.0504,-0.0012,0.0504
cLn part,wMat,-0.0012,0.0504,-0.0014,0.0498
cLn part,wMat,-0.0014,0.0498,-0.0014,0.0484
cLn part,wMat,-0.0014,0.0484,-0.0025,0.0484
cLn part,wMat,-0.0025,0.0484,-0.0025,0.0504
cCLn part,wMat,-0.0025,0.0484,-0.0025,0.0504
Part.SketchManager.InsertSketch True
end sub

sub codeBag49(part,wMat)
cLn part,wMat,-0.0045,0.0484,-0.0008,0.0484
cLn part,wMat,-0.0008,0.0484,-0.0008,0.0504
cLn part,wMat,-0.0008,0.0504,-0.0045,0.0504
cLn part,wMat,-0.0045,0.0504,-0.0045,0.0484
Part.SketchManager.InsertSketch True
end sub

sub codeBag50(part,wMat)
cLn part,wMat,-0.0045,0.0484,-0.0008,0.0484
cLn part,wMat,-0.0008,0.0484,-0.0008,0.0504
cLn part,wMat,-0.0008,0.0504,-0.0045,0.0504
cLn part,wMat,-0.0045,0.0504,-0.0045,0.0484
Part.SketchManager.InsertSketch True
end sub

sub codeBag51(part,wMat)
cLn part,wMat,0.0521,0.0619,0.0525,0.0619
cLn part,wMat,0.0525,0.0619,0.0525,0.0605
cArc part,wMat,0.0525,0.0605,0.052646446609407,0.060146446609407,0.053,0.06
cLn part,wMat,0.053,0.06,0.0584,0.06
cArc part,wMat,0.0584,0.06,0.058753553390593,0.060146446609407,0.0589,0.0605
cLn part,wMat,0.0589,0.0605,0.0589,0.0619
cLn part,wMat,0.0589,0.0619,0.0593,0.0619
cArc part,wMat,0.0593,0.0619,0.059153553390593,0.062253553390593,0.0588,0.0624
cLn part,wMat,0.0588,0.0624,0.0581,0.0624
cArc part,wMat,0.0581,0.0624,0.0578316718427,0.06223416407865,0.05786,0.06192
cLn part,wMat,0.05786,0.06192,0.0581,0.0616
cArc part,wMat,0.0581,0.0616,0.0581472135955,0.06107639320225,0.0577,0.0608
cLn part,wMat,0.0577,0.0608,0.0537,0.0608
cArc part,wMat,0.0537,0.0608,0.0532527864045,0.06107639320225,0.0533,0.0616
cLn part,wMat,0.0533,0.0616,0.05354,0.06192
cArc part,wMat,0.05354,0.06192,0.0535683281573,0.06223416407865,0.0533,0.0624
cLn part,wMat,0.0533,0.0624,0.0526,0.0624
cArc part,wMat,0.0526,0.0624,0.052246446609407,0.062253553390593,0.0521,0.0619
Part.SketchManager.InsertSketch True
end sub

sub codeBag52(part,wMat)
cLn part,wMat,0.0532,0.0624,0.0532,0.0608
cLn part,wMat,0.0532,0.0608,0.0551,0.0608
cLn part,wMat,0.0551,0.0608,0.05486988013042,0.061658819045103
cArc part,wMat,0.05486988013042,0.061658819045103,0.05451271573314,0.062193353340291,0.053903954304131,0.0624
cLn part,wMat,0.053903954304131,0.0624,0.0532,0.0624
Part.SketchManager.InsertSketch True
end sub

sub codeBag53(part,wMat)
cLn part,wMat,0.0563,0.0608,0.0582,0.0608
cLn part,wMat,0.0582,0.0608,0.0582,0.0624
cLn part,wMat,0.0582,0.0624,0.057496045695869,0.0624
cArc part,wMat,0.057496045695869,0.0624,0.05688728426686,0.062193353340291,0.05653011986958,0.061658819045103
cLn part,wMat,0.05653011986958,0.061658819045103,0.0563,0.0608
Part.SketchManager.InsertSketch True
end sub

sub codeBag44(part,featMgr)
part.CreatePlaneFixed2 createVec3d(-0.0237,0,0),createVec3d(-0.0237,0,-1),createVec3d(-0.0237,1,0),1
set feat101=part.Extension.GetLastFeatureAdded()
feat101.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.0237,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag45 part,wMat
set feat101=part.Extension.GetLastFeatureAdded()
feat101.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(-0.0237,0,0.005),createVec3d(-0.0237,0,-0.995),createVec3d(-0.0237,1,0.005),1
set feat103=part.Extension.GetLastFeatureAdded()
feat103.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.0237,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag46 part,wMat
set feat103=part.Extension.GetLastFeatureAdded()
feat103.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(-0.0216,0,0),createVec3d(-0.0216,0,-1),createVec3d(-0.0216,1,0),1
set feat106=part.Extension.GetLastFeatureAdded()
feat106.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.0216,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag47 part,wMat
set feat106=part.Extension.GetLastFeatureAdded()
feat106.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(-0.0216,0,0.005),createVec3d(-0.0216,0,-0.995),createVec3d(-0.0216,1,0.005),1
set feat108=part.Extension.GetLastFeatureAdded()
feat108.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.0216,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag48 part,wMat
set feat108=part.Extension.GetLastFeatureAdded()
feat108.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(-0.0198,0,0),createVec3d(-0.0198,0,-1),createVec3d(-0.0198,1,0),1
set feat111=part.Extension.GetLastFeatureAdded()
feat111.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.0198,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag49 part,wMat
set feat111=part.Extension.GetLastFeatureAdded()
feat111.select2 false,0
featMgr.FeatureCut3 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(-0.0198,0,0.005),createVec3d(-0.0198,0,-0.995),createVec3d(-0.0198,1,0.005),1
set feat113=part.Extension.GetLastFeatureAdded()
feat113.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.0198,0,0.005)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag50 part,wMat
set feat113=part.Extension.GetLastFeatureAdded()
feat113.select2 false,0
featMgr.FeatureCut3 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0.006),createVec3d(1,0,0.006),createVec3d(0,1,0.006),1
set feat116=part.Extension.GetLastFeatureAdded()
feat116.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.006)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag51 part,wMat
set feat116=part.Extension.GetLastFeatureAdded()
feat116.select2 false,0
featMgr.FeatureExtrusion2 0,0,1,0,0,0.0056,0.0056,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0.0116),createVec3d(1,0,0.0116),createVec3d(0,1,0.0116),1
set feat119=part.Extension.GetLastFeatureAdded()
feat119.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.0116)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag52 part,wMat
set feat119=part.Extension.GetLastFeatureAdded()
feat119.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0006,0.0006,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0.0004),createVec3d(1,0,0.0004),createVec3d(0,1,0.0004),1
set feat122=part.Extension.GetLastFeatureAdded()
feat122.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.0004)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag53 part,wMat
set feat122=part.Extension.GetLastFeatureAdded()
feat122.select2 false,0
featMgr.FeatureExtrusion2 1,0,0,0,0,0.0006,0.0006,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
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
   createPart0
End If
end sub