dim swApp
dim storePath
dim sw2003api
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)
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 getFeatureByTypeOcc(model, typ, nr)  
  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
      Count = Count + 1
      If Count = nr Then
        Set res = feat
        Exit Do
      End If
    End If
    Set feat = feat.GetNextFeature() ' Get the next feature
  Loop ' Continue until no more
  Set getFeatureByTypeOcc = res
End Function
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.CreateLine2 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.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.CreateCircleByRadius2 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 error as long
set res=swApp.OpenDoc2 ( storePath & "RD65_0048_LR.sldprt",1,true,false,true,error)
if not res is nothing then
 exit sub
end if
set part=swApp.NewPart
part.SetAddToDB(true)
part.SetDisplayWhenAdded (false)
part.SetUnits 3,2,64,5,false
swSumInfoTitleVar = 0
swSumInfoAuthorVar = 2
Set swModel = swApp.ActiveDoc
swModel.SummaryInfo (swSumInfoAuthorVar)="pacific_bearing"
swModel.SummaryInfo (swSumInfoTitleVar)="RD65-0048-LR"
valRGB=part.MaterialPropertyValues
valRGB(0)=0.75294119119644
valRGB(1)=0.75294119119644
valRGB(2)=0.75294119119644
part.MaterialPropertyValues=valRGB
Dim featMgr as object
if (sw2003api=1) then
  set featMgr=part.FeatureManager
End If
part.CreatePlaneFixed createVec3d(0,0,0),createVec3d(0,0,-1),createVec3d(0,1,0),1
part.BlankRefGeom
set feat4=getLastFeatureByType(part,"RefPlane")
part.selectById feat4.Name,"PLANE",0,0,0
codeBag0 part
set feat4=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat4.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureExtrusion 1,0,0,0,0,1.2192,1.2192,1,1,0,0,0,0,0,0
else
  featMgr.FeatureExtrusion 1,0,0,0,0,1.2192,1.2192,1,1,0,0,0,0,0,0,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,-0.03599765,0),createVec3d(1,-0.03599765,0),createVec3d(0,-0.03599765,-1),1
part.BlankRefGeom
set feat7=getLastFeatureByType(part,"RefPlane")
part.selectById feat7.Name,"PLANE",0,0,0
codeBag1 part
set feat7=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat7.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,-0.03599765,0),createVec3d(1,-0.03599765,0),createVec3d(0,-0.03599765,-1),1
part.BlankRefGeom
set feat9=getLastFeatureByType(part,"RefPlane")
part.selectById feat9.Name,"PLANE",0,0,0
codeBag2 part
set feat9=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat9.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,-0.03599765,0),createVec3d(1,-0.03599765,0),createVec3d(0,-0.03599765,-1),1
part.BlankRefGeom
set feat11=getLastFeatureByType(part,"RefPlane")
part.selectById feat11.Name,"PLANE",0,0,0
codeBag3 part
set feat11=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat11.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,-0.03701365,0),createVec3d(1,-0.03701365,0),createVec3d(0,-0.03701365,-1),1
part.BlankRefGeom
set feat14=getLastFeatureByType(part,"RefPlane")
part.selectById feat14.Name,"PLANE",0,0,0
codeBag4 part
set feat14=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat14.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,-0.03701365,0),createVec3d(1,-0.03701365,0),createVec3d(0,-0.03701365,-1),1
part.BlankRefGeom
set feat16=getLastFeatureByType(part,"RefPlane")
part.selectById feat16.Name,"PLANE",0,0,0
codeBag5 part
set feat16=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat16.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,-0.03701365,0),createVec3d(1,-0.03701365,0),createVec3d(0,-0.03701365,-1),1
part.BlankRefGeom
set feat18=getLastFeatureByType(part,"RefPlane")
part.selectById feat18.Name,"PLANE",0,0,0
codeBag6 part
set feat18=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat18.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
part.BlankRefGeom
set feat20=getLastFeatureByType(part,"RefPlane")
part.selectById feat20.Name,"PLANE",0,0,0
codeBag7 part
set feat20=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat20.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureCut 0,0,0,0,0,0.018542,0.018542,1,1,0,0,0,0,0,0
else
  featMgr.FeatureCut 0,0,0,0,0,0.018542,0.018542,1,1,0,0,0,0,0,0,0,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
part.BlankRefGeom
set feat22=getLastFeatureByType(part,"RefPlane")
part.selectById feat22.Name,"PLANE",0,0,0
codeBag8 part
set feat22=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat22.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureCut 0,0,0,0,0,0.018542,0.018542,1,1,0,0,0,0,0,0
else
  featMgr.FeatureCut 0,0,0,0,0,0.018542,0.018542,1,1,0,0,0,0,0,0,0,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0,-0.05175835,0),createVec3d(1,-0.05175835,0),createVec3d(0,-0.05175835,-1),1
part.BlankRefGeom
set feat26=getLastFeatureByType(part,"RefPlane")
part.selectById feat26.Name,"PLANE",0,0,0
codeBag9 part
set feat26=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat26.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureExtrusion 1,0,0,0,0,0.03048,0.03048,1,1,0,0,0,0,0,0
else
  featMgr.FeatureExtrusion 1,0,0,0,0,0.03048,0.03048,1,1,0,0,0,0,0,0,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,-0.05175835,0),createVec3d(1,-0.05175835,0),createVec3d(0,-0.05175835,-1),1
part.BlankRefGeom
set feat28=getLastFeatureByType(part,"RefPlane")
part.selectById feat28.Name,"PLANE",0,0,0
codeBag10 part
set feat28=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat28.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureExtrusion 1,0,0,0,0,0.03048,0.03048,1,1,0,0,0,0,0,0
else
  featMgr.FeatureExtrusion 1,0,0,0,0,0.03048,0.03048,1,1,0,0,0,0,0,0,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.6393434,0,0),createVec3d(0.6393434,0,-1),createVec3d(0.6393434,1,0),1
part.BlankRefGeom
set feat30=getLastFeatureByType(part,"RefPlane")
part.selectById feat30.Name,"PLANE",0,0,0
codeBag11 part
set feat30=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat30.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.6393434,0,0),createVec3d(0.6393434,0,-1),createVec3d(0.6393434,1,0),1
part.BlankRefGeom
set feat32=getLastFeatureByType(part,"RefPlane")
part.selectById feat32.Name,"PLANE",0,0,0
codeBag12 part
set feat32=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat32.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.6393434,0,0),createVec3d(0.6393434,0,-1),createVec3d(0.6393434,1,0),1
part.BlankRefGeom
set feat34=getLastFeatureByType(part,"RefPlane")
part.selectById feat34.Name,"PLANE",0,0,0
codeBag13 part
set feat34=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat34.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.008763,0,0),createVec3d(0.008763,0,-1),createVec3d(0.008763,1,0),1
part.BlankRefGeom
set feat37=getLastFeatureByType(part,"RefPlane")
part.selectById feat37.Name,"PLANE",0,0,0
codeBag14 part
set feat37=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat37.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.008763,0,0),createVec3d(0.008763,0,-1),createVec3d(0.008763,1,0),1
part.BlankRefGeom
set feat39=getLastFeatureByType(part,"RefPlane")
part.selectById feat39.Name,"PLANE",0,0,0
codeBag15 part
set feat39=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat39.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.008763,0,0),createVec3d(0.008763,0,-1),createVec3d(0.008763,1,0),1
part.BlankRefGeom
set feat41=getLastFeatureByType(part,"RefPlane")
part.selectById feat41.Name,"PLANE",0,0,0
codeBag16 part
set feat41=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat41.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0.03703905,0),createVec3d(1,0.03703905,0),createVec3d(0,0.03703905,-1),1
part.BlankRefGeom
set feat46=getLastFeatureByType(part,"RefPlane")
part.selectById feat46.Name,"PLANE",0,0,0
codeBag17 part
set feat46=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat46.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0.03703905,0),createVec3d(1,0.03703905,0),createVec3d(0,0.03703905,-1),1
part.BlankRefGeom
set feat48=getLastFeatureByType(part,"RefPlane")
part.selectById feat48.Name,"PLANE",0,0,0
codeBag18 part
set feat48=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat48.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0.03703905,0),createVec3d(1,0.03703905,0),createVec3d(0,0.03703905,-1),1
part.BlankRefGeom
set feat50=getLastFeatureByType(part,"RefPlane")
part.selectById feat50.Name,"PLANE",0,0,0
codeBag19 part
set feat50=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat50.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0.03602305,0),createVec3d(1,0.03602305,0),createVec3d(0,0.03602305,-1),1
part.BlankRefGeom
set feat53=getLastFeatureByType(part,"RefPlane")
part.selectById feat53.Name,"PLANE",0,0,0
codeBag20 part
set feat53=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat53.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0.03602305,0),createVec3d(1,0.03602305,0),createVec3d(0,0.03602305,-1),1
part.BlankRefGeom
set feat55=getLastFeatureByType(part,"RefPlane")
part.selectById feat55.Name,"PLANE",0,0,0
codeBag21 part
set feat55=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat55.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0.03602305,0),createVec3d(1,0.03602305,0),createVec3d(0,0.03602305,-1),1
part.BlankRefGeom
set feat57=getLastFeatureByType(part,"RefPlane")
part.selectById feat57.Name,"PLANE",0,0,0
codeBag22 part
set feat57=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat57.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0.05175835,0),createVec3d(1,0.05175835,0),createVec3d(0,0.05175835,-1),1
part.BlankRefGeom
set feat61=getLastFeatureByType(part,"RefPlane")
part.selectById feat61.Name,"PLANE",0,0,0
codeBag23 part
set feat61=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat61.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureExtrusion 1,0,1,0,0,0.03048,0.03048,1,1,0,0,0,0,0,0
else
  featMgr.FeatureExtrusion 1,0,1,0,0,0.03048,0.03048,1,1,0,0,0,0,0,0,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.5798566,0,0),createVec3d(0.5798566,0,-1),createVec3d(0.5798566,1,0),1
part.BlankRefGeom
set feat63=getLastFeatureByType(part,"RefPlane")
part.selectById feat63.Name,"PLANE",0,0,0
codeBag24 part
set feat63=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat63.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.5798566,0,0),createVec3d(0.5798566,0,-1),createVec3d(0.5798566,1,0),1
part.BlankRefGeom
set feat65=getLastFeatureByType(part,"RefPlane")
part.selectById feat65.Name,"PLANE",0,0,0
codeBag25 part
set feat65=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat65.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.5798566,0,0),createVec3d(0.5798566,0,-1),createVec3d(0.5798566,1,0),1
part.BlankRefGeom
set feat67=getLastFeatureByType(part,"RefPlane")
part.selectById feat67.Name,"PLANE",0,0,0
codeBag26 part
set feat67=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat67.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0.05175835,0),createVec3d(1,0.05175835,0),createVec3d(0,0.05175835,-1),1
part.BlankRefGeom
set feat69=getLastFeatureByType(part,"RefPlane")
part.selectById feat69.Name,"PLANE",0,0,0
codeBag27 part
set feat69=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat69.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureExtrusion 1,0,1,0,0,0.03048,0.03048,1,1,0,0,0,0,0,0
else
  featMgr.FeatureExtrusion 1,0,1,0,0,0.03048,0.03048,1,1,0,0,0,0,0,0,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(1.210437,0,0),createVec3d(1.210437,0,-1),createVec3d(1.210437,1,0),1
part.BlankRefGeom
set feat72=getLastFeatureByType(part,"RefPlane")
part.selectById feat72.Name,"PLANE",0,0,0
codeBag28 part
set feat72=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat72.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(1.210437,0,0),createVec3d(1.210437,0,-1),createVec3d(1.210437,1,0),1
part.BlankRefGeom
set feat74=getLastFeatureByType(part,"RefPlane")
part.selectById feat74.Name,"PLANE",0,0,0
codeBag29 part
set feat74=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat74.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(1.210437,0,0),createVec3d(1.210437,0,-1),createVec3d(1.210437,1,0),1
part.BlankRefGeom
set feat76=getLastFeatureByType(part,"RefPlane")
part.selectById feat76.Name,"PLANE",0,0,0
codeBag30 part
set feat76=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat76.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.SetDisplayWhenAdded (true)
part.SetAddToDB(false)
part.SaveAs2 storePath & "RD65_0048_LR.sldprt",0,0,false
End Sub
Sub CreatePart1
dim error as long
set res=swApp.OpenDoc2 ( storePath & "RD65_0048C.sldprt",1,true,false,true,error)
if not res is nothing then
 exit sub
end if
set part=swApp.NewPart
part.SetAddToDB(true)
part.SetDisplayWhenAdded (false)
part.SetUnits 3,2,64,5,false
swSumInfoTitleVar = 0
swSumInfoAuthorVar = 2
Set swModel = swApp.ActiveDoc
swModel.SummaryInfo (swSumInfoAuthorVar)="pacific_bearing"
swModel.SummaryInfo (swSumInfoTitleVar)="RD65-0048C"
valRGB=part.MaterialPropertyValues
valRGB(0)=0.75294119119644
valRGB(1)=0.75294119119644
valRGB(2)=0.75294119119644
part.MaterialPropertyValues=valRGB
Dim featMgr as object
if (sw2003api=1) then
  set featMgr=part.FeatureManager
End If
part.CreatePlaneFixed createVec3d(0,0,0),createVec3d(0,0,-1),createVec3d(0,1,0),1
part.BlankRefGeom
set feat4=getLastFeatureByType(part,"RefPlane")
part.selectById feat4.Name,"PLANE",0,0,0
codeBag31 part
set feat4=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat4.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureExtrusion 1,0,0,0,0,1.2192,1.2192,1,1,0,0,0,0,0,0
else
  featMgr.FeatureExtrusion 1,0,0,0,0,1.2192,1.2192,1,1,0,0,0,0,0,0,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.03556,0,0),createVec3d(0.03556,0,-1),createVec3d(0.03556,1,0),1
part.BlankRefGeom
set feat7=getLastFeatureByType(part,"RefPlane")
part.selectById feat7.Name,"PLANE",0,0,0
codeBag32 part
set feat7=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat7.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(1.1557,0,0),createVec3d(1.1557,0,-1),createVec3d(1.1557,1,0),1
part.BlankRefGeom
set feat36=getLastFeatureByType(part,"RefPlane")
part.selectById feat36.Name,"PLANE",0,0,0
codeBag33 part
set feat36=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat36.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(1.07569,0,0),createVec3d(1.07569,0,-1),createVec3d(1.07569,1,0),1
part.BlankRefGeom
set feat37=getLastFeatureByType(part,"RefPlane")
part.selectById feat37.Name,"PLANE",0,0,0
codeBag34 part
set feat37=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat37.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.99568,0,0),createVec3d(0.99568,0,-1),createVec3d(0.99568,1,0),1
part.BlankRefGeom
set feat38=getLastFeatureByType(part,"RefPlane")
part.selectById feat38.Name,"PLANE",0,0,0
codeBag35 part
set feat38=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat38.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.91567,0,0),createVec3d(0.91567,0,-1),createVec3d(0.91567,1,0),1
part.BlankRefGeom
set feat39=getLastFeatureByType(part,"RefPlane")
part.selectById feat39.Name,"PLANE",0,0,0
codeBag36 part
set feat39=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat39.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.83566,0,0),createVec3d(0.83566,0,-1),createVec3d(0.83566,1,0),1
part.BlankRefGeom
set feat40=getLastFeatureByType(part,"RefPlane")
part.selectById feat40.Name,"PLANE",0,0,0
codeBag37 part
set feat40=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat40.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.75565,0,0),createVec3d(0.75565,0,-1),createVec3d(0.75565,1,0),1
part.BlankRefGeom
set feat41=getLastFeatureByType(part,"RefPlane")
part.selectById feat41.Name,"PLANE",0,0,0
codeBag38 part
set feat41=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat41.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.67564,0,0),createVec3d(0.67564,0,-1),createVec3d(0.67564,1,0),1
part.BlankRefGeom
set feat42=getLastFeatureByType(part,"RefPlane")
part.selectById feat42.Name,"PLANE",0,0,0
codeBag39 part
set feat42=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat42.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.59563,0,0),createVec3d(0.59563,0,-1),createVec3d(0.59563,1,0),1
part.BlankRefGeom
set feat43=getLastFeatureByType(part,"RefPlane")
part.selectById feat43.Name,"PLANE",0,0,0
codeBag40 part
set feat43=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat43.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.51562,0,0),createVec3d(0.51562,0,-1),createVec3d(0.51562,1,0),1
part.BlankRefGeom
set feat44=getLastFeatureByType(part,"RefPlane")
part.selectById feat44.Name,"PLANE",0,0,0
codeBag41 part
set feat44=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat44.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.43561,0,0),createVec3d(0.43561,0,-1),createVec3d(0.43561,1,0),1
part.BlankRefGeom
set feat45=getLastFeatureByType(part,"RefPlane")
part.selectById feat45.Name,"PLANE",0,0,0
codeBag42 part
set feat45=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat45.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.3556,0,0),createVec3d(0.3556,0,-1),createVec3d(0.3556,1,0),1
part.BlankRefGeom
set feat46=getLastFeatureByType(part,"RefPlane")
part.selectById feat46.Name,"PLANE",0,0,0
codeBag43 part
set feat46=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat46.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.27559,0,0),createVec3d(0.27559,0,-1),createVec3d(0.27559,1,0),1
part.BlankRefGeom
set feat47=getLastFeatureByType(part,"RefPlane")
part.selectById feat47.Name,"PLANE",0,0,0
codeBag44 part
set feat47=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat47.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.19558,0,0),createVec3d(0.19558,0,-1),createVec3d(0.19558,1,0),1
part.BlankRefGeom
set feat48=getLastFeatureByType(part,"RefPlane")
part.selectById feat48.Name,"PLANE",0,0,0
codeBag45 part
set feat48=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat48.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0.11557,0,0),createVec3d(0.11557,0,-1),createVec3d(0.11557,1,0),1
part.BlankRefGeom
set feat49=getLastFeatureByType(part,"RefPlane")
part.selectById feat49.Name,"PLANE",0,0,0
codeBag46 part
set feat49=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat49.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolveCut 6.2831853071796,1,6.2831853071796,0,0,1,1
end if
part.CreatePlaneFixed createVec3d(0,0,-0.0095402),createVec3d(1,0,-0.0095402),createVec3d(0,1,-0.0095402),1
part.BlankRefGeom
set feat52=getLastFeatureByType(part,"RefPlane")
part.selectById feat52.Name,"PLANE",0,0,0
codeBag47 part
set feat52=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat52.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureExtrusion 1,0,0,0,0,0.0065,0.0065,1,1,0,0,0,0,0,0
else
  featMgr.FeatureExtrusion 1,0,0,0,0,0.0065,0.0065,1,1,0,0,0,0,0,0,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0,0,-0.0095402),createVec3d(1,0,-0.0095402),createVec3d(0,1,-0.0095402),1
part.BlankRefGeom
set feat54=getLastFeatureByType(part,"RefPlane")
part.selectById feat54.Name,"PLANE",0,0,0
codeBag48 part
set feat54=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat54.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureExtrusion 1,0,0,0,0,0.0065,0.0065,1,1,0,0,0,0,0,0
else
  featMgr.FeatureExtrusion 1,0,0,0,0,0.0065,0.0065,1,1,0,0,0,0,0,0,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.009525,0,0),createVec3d(0.009525,0,-1),createVec3d(0.009525,1,0),1
part.BlankRefGeom
set feat57=getLastFeatureByType(part,"RefPlane")
part.selectById feat57.Name,"PLANE",0,0,0
codeBag49 part
set feat57=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat57.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.009525,-0.022225270416995,0),createVec3d(0.009525,-0.022225270416995,-1),createVec3d(0.009525,0.97777472958301,0),1
part.BlankRefGeom
set feat65=getLastFeatureByType(part,"RefPlane")
part.selectById feat65.Name,"PLANE",0,0,0
codeBag50 part
set feat65=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat65.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.016025,-0.022225270416995,0),createVec3d(0.016025,-0.022225270416995,-1),createVec3d(0.016025,0.97777472958301,0),1
part.BlankRefGeom
set feat66=getLastFeatureByType(part,"RefPlane")
part.selectById feat66.Name,"PLANE",0,0,0
codeBag51 part
set feat66=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat66.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.CreatePlaneFixed createVec3d(0.016025,-2.5670416994505e-005,0),createVec3d(0.016025,-2.5670416994505e-005,-1),createVec3d(0.016025,0.99997432958301,0),1
part.BlankRefGeom
set feat67=getLastFeatureByType(part,"RefPlane")
part.selectById feat67.Name,"PLANE",0,0,0
codeBag52 part
set feat67=getLastFeatureByType(part,"ProfileFeature")
part.selectById feat67.Name,"SKETCH",0,0,0
if (sw2003api=0) then
  part.FeatureRevolve2 6.2831853071796,1,6.2831853071796,0,0
else
  featMgr.FeatureRevolve 6.2831853071796,1,6.2831853071796,0,0,1,1,1
end if
part.SetDisplayWhenAdded (true)
part.SetAddToDB(false)
part.SaveAs2 storePath & "RD65_0048C.sldprt",0,0,false
End Sub
sub CreatePart2
dim error as long
set res=swApp.OpenDoc2 ( storePath & "RD65_0048_L.sldasm",2,true,false,true,error)
if not res is nothing then
 exit sub
end if
createPart0
createPart1
createPart1
set asm=swApp.NewAssembly
asm.SetUnits 3,2,64,5,false
swSumInfoTitleVar = 0
swSumInfoAuthorVar = 2
Set swModel = swApp.ActiveDoc
swModel.SummaryInfo (swSumInfoAuthorVar)="pacific_bearing"
swModel.SummaryInfo (swSumInfoTitleVar)="RD65-0048-L"
set comp=asm.AddComponent2 ( storePath &"RD65_0048_LR.sldprt",0,0,0)
posMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
swPosMat=createSWMatFromMat(posMat)
comp.SetXForm(swPosMat)
set comp=asm.AddComponent2 ( storePath &"RD65_0048C.sldprt",0,0,0)
posMat=createMat4x4FromValues(-1,0,0,0,-1,0,0,0,1,1.2192,0.0365185,0)
swPosMat=createSWMatFromMat(posMat)
comp.SetXForm(swPosMat)
set comp=asm.AddComponent2 ( storePath &"RD65_0048C.sldprt",0,0,0)
posMat=createMat4x4FromValues(1,0,0,0,-1,0,0,0,-1,0,-0.0365185,0)
swPosMat=createSWMatFromMat(posMat)
comp.SetXForm(swPosMat)
swApp.CloseDoc storePath &"RD65_0048_LR.sldprt"
swApp.CloseDoc storePath &"RD65_0048C.sldprt"
swApp.CloseDoc storePath &"RD65_0048C.sldprt"
asm.SaveAs2 storePath & "RD65_0048_L.sldasm",0,0,false
end sub
sub codeBag0(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.014466999995,0.06516835,-0.014466999995,0.0078685
cArc part,wMat,-0.014466999995,0.0078685,-0.011717611349998,0.0012308886450019,-0.005079999995,-0.0015185
cLn part,wMat,-0.005079999995,-0.0015185,0.00508,-0.0015185
cArc part,wMat,0.00508,-0.0015185,0.0095701280605346,-0.0033783719394654,0.01143,-0.0078685
cLn part,wMat,0.01143,-0.0078685,0.01143,-0.065168349978
cArc part,wMat,0.01143,-0.065168349978,0.0095701280605346,-0.069658478038535,0.00508,-0.071518349978
cLn part,wMat,0.00508,-0.071518349978,-0.01143,-0.071518349978
cLn part,wMat,-0.01143,-0.071518349978,-0.01143,-0.07455535
cLn part,wMat,-0.01143,-0.07455535,0.005080000049,-0.07455535
cArc part,wMat,0.005080000049,-0.07455535,0.011717611403998,-0.071805961354998,0.014467000049,-0.06516835
cLn part,wMat,0.014467000049,-0.06516835,0.014467000049,-0.0078685
cArc part,wMat,0.014467000049,-0.0078685,0.011717611403998,-0.0012308886450019,0.005080000049,0.0015185
cLn part,wMat,0.005080000049,0.0015185,-0.00508,0.0015185
cArc part,wMat,-0.00508,0.0015185,-0.0095701280605346,0.0033783719394654,-0.01143,0.0078685
cLn part,wMat,-0.01143,0.0078685,-0.01143,0.065168350022
cArc part,wMat,-0.01143,0.065168350022,-0.0095701280605346,0.069658478082535,-0.00508,0.071518350022
cLn part,wMat,-0.00508,0.071518350022,0.01143,0.071518350022
cLn part,wMat,0.01143,0.071518350022,0.01143,0.07455535
cLn part,wMat,0.01143,0.07455535,-0.005079999995,0.07455535
cArc part,wMat,-0.005079999995,0.07455535,-0.011717611349998,0.071805961354998,-0.014466999995,0.06516835
Part.InsertSketch
end sub

sub codeBag1(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.03599765,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,1.18872,0.015241699995,1.19726999995,0.015241699995
cLn part,wMat,1.19726999995,0.015241699995,1.19726999995,0.011429999995
cLn part,wMat,1.19726999995,0.011429999995,1.2007596,0.011429999995
cLn part,wMat,1.2007596,0.011429999995,1.2007596,0.009429999995
cLn part,wMat,1.2007596,0.009429999995,1.19726999995,0.009429999995
cLn part,wMat,1.19726999995,0.009429999995,1.19726999995,0.008381999995
cLn part,wMat,1.19726999995,0.008381999995,1.202395,0.008381999995
cLn part,wMat,1.202395,0.008381999995,1.202395,0.009429999995
cLn part,wMat,1.202395,0.009429999995,1.20622,0.009429999995
cLn part,wMat,1.20622,0.009429999995,1.20622,0.0053639956580708
cArc part,wMat,1.20622,0.0053639956580708,1.20437,0.001481019995,1.20622,-0.0024019556680708
cLn part,wMat,1.20622,-0.0024019556680708,1.20622,-0.006468980005
cLn part,wMat,1.20622,-0.006468980005,1.202395,-0.006468980005
cLn part,wMat,1.202395,-0.006468980005,1.202395,-0.004468980005
cLn part,wMat,1.202395,-0.004468980005,1.19726999995,-0.004468980005
cLn part,wMat,1.19726999995,-0.004468980005,1.19726999995,-0.006468980005
cLn part,wMat,1.19726999995,-0.006468980005,1.1947144,-0.006468980005
cLn part,wMat,1.1947144,-0.006468980005,1.1947144,-0.007618300005
cLn part,wMat,1.1947144,-0.007618300005,1.18872,-0.007618300005
cLn part,wMat,1.18872,-0.007618300005,1.18872,0.015241699995
cCLn part,wMat,1.18872,-0.007618300005,1.18872,0.015241699995
Part.InsertSketch
end sub

sub codeBag2(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.03599765,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,1.10744,0.015241699995,1.11598999995,0.015241699995
cLn part,wMat,1.11598999995,0.015241699995,1.11598999995,0.011429999995
cLn part,wMat,1.11598999995,0.011429999995,1.1194796,0.011429999995
cLn part,wMat,1.1194796,0.011429999995,1.1194796,0.009429999995
cLn part,wMat,1.1194796,0.009429999995,1.11598999995,0.009429999995
cLn part,wMat,1.11598999995,0.009429999995,1.11598999995,0.008381999995
cLn part,wMat,1.11598999995,0.008381999995,1.121115,0.008381999995
cLn part,wMat,1.121115,0.008381999995,1.121115,0.009429999995
cLn part,wMat,1.121115,0.009429999995,1.12494,0.009429999995
cLn part,wMat,1.12494,0.009429999995,1.12494,0.0053639956580708
cArc part,wMat,1.12494,0.0053639956580708,1.12309,0.001481019995,1.12494,-0.0024019556680708
cLn part,wMat,1.12494,-0.0024019556680708,1.12494,-0.006468980005
cLn part,wMat,1.12494,-0.006468980005,1.121115,-0.006468980005
cLn part,wMat,1.121115,-0.006468980005,1.121115,-0.004468980005
cLn part,wMat,1.121115,-0.004468980005,1.11598999995,-0.004468980005
cLn part,wMat,1.11598999995,-0.004468980005,1.11598999995,-0.006468980005
cLn part,wMat,1.11598999995,-0.006468980005,1.1134344,-0.006468980005
cLn part,wMat,1.1134344,-0.006468980005,1.1134344,-0.007618300005
cLn part,wMat,1.1134344,-0.007618300005,1.10744,-0.007618300005
cLn part,wMat,1.10744,-0.007618300005,1.10744,0.015241699995
cCLn part,wMat,1.10744,-0.007618300005,1.10744,0.015241699995
Part.InsertSketch
end sub

sub codeBag3(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.03599765,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.71374,0.015241699995,0.72228999995,0.015241699995
cLn part,wMat,0.72228999995,0.015241699995,0.72228999995,0.011429999995
cLn part,wMat,0.72228999995,0.011429999995,0.7257796,0.011429999995
cLn part,wMat,0.7257796,0.011429999995,0.7257796,0.009429999995
cLn part,wMat,0.7257796,0.009429999995,0.72228999995,0.009429999995
cLn part,wMat,0.72228999995,0.009429999995,0.72228999995,0.008381999995
cLn part,wMat,0.72228999995,0.008381999995,0.727415,0.008381999995
cLn part,wMat,0.727415,0.008381999995,0.727415,0.009429999995
cLn part,wMat,0.727415,0.009429999995,0.73124,0.009429999995
cLn part,wMat,0.73124,0.009429999995,0.73124,0.0053639956580708
cArc part,wMat,0.73124,0.0053639956580708,0.72939,0.001481019995,0.73124,-0.0024019556680708
cLn part,wMat,0.73124,-0.0024019556680708,0.73124,-0.006468980005
cLn part,wMat,0.73124,-0.006468980005,0.727415,-0.006468980005
cLn part,wMat,0.727415,-0.006468980005,0.727415,-0.004468980005
cLn part,wMat,0.727415,-0.004468980005,0.72228999995,-0.004468980005
cLn part,wMat,0.72228999995,-0.004468980005,0.72228999995,-0.006468980005
cLn part,wMat,0.72228999995,-0.006468980005,0.7197344,-0.006468980005
cLn part,wMat,0.7197344,-0.006468980005,0.7197344,-0.007618300005
cLn part,wMat,0.7197344,-0.007618300005,0.71374,-0.007618300005
cLn part,wMat,0.71374,-0.007618300005,0.71374,0.015241699995
cCLn part,wMat,0.71374,-0.007618300005,0.71374,0.015241699995
Part.InsertSketch
end sub

sub codeBag4(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.03701365,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,1.14808,0.015241699995,1.15662999995,0.015241699995
cLn part,wMat,1.15662999995,0.015241699995,1.15662999995,0.011429999995
cLn part,wMat,1.15662999995,0.011429999995,1.1601196,0.011429999995
cLn part,wMat,1.1601196,0.011429999995,1.1601196,0.009429999995
cLn part,wMat,1.1601196,0.009429999995,1.15662999995,0.009429999995
cLn part,wMat,1.15662999995,0.009429999995,1.15662999995,0.008381999995
cLn part,wMat,1.15662999995,0.008381999995,1.161755,0.008381999995
cLn part,wMat,1.161755,0.008381999995,1.161755,0.009429999995
cLn part,wMat,1.161755,0.009429999995,1.16558,0.009429999995
cLn part,wMat,1.16558,0.009429999995,1.16558,0.0042698369484769
cArc part,wMat,1.16558,0.0042698369484769,1.16473,0.001481019995,1.16558,-0.0013077969584769
cLn part,wMat,1.16558,-0.0013077969584769,1.16558,-0.006468980005
cLn part,wMat,1.16558,-0.006468980005,1.161755,-0.006468980005
cLn part,wMat,1.161755,-0.006468980005,1.161755,-0.004468980005
cLn part,wMat,1.161755,-0.004468980005,1.15662999995,-0.004468980005
cLn part,wMat,1.15662999995,-0.004468980005,1.15662999995,-0.006468980005
cLn part,wMat,1.15662999995,-0.006468980005,1.1540744,-0.006468980005
cLn part,wMat,1.1540744,-0.006468980005,1.1540744,-0.007618300005
cLn part,wMat,1.1540744,-0.007618300005,1.14808,-0.007618300005
cLn part,wMat,1.14808,-0.007618300005,1.14808,0.015241699995
cCLn part,wMat,1.14808,-0.007618300005,1.14808,0.015241699995
Part.InsertSketch
end sub

sub codeBag5(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.03701365,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.75438,0.015241699995,0.76292999995,0.015241699995
cLn part,wMat,0.76292999995,0.015241699995,0.76292999995,0.011429999995
cLn part,wMat,0.76292999995,0.011429999995,0.7664196,0.011429999995
cLn part,wMat,0.7664196,0.011429999995,0.7664196,0.009429999995
cLn part,wMat,0.7664196,0.009429999995,0.76292999995,0.009429999995
cLn part,wMat,0.76292999995,0.009429999995,0.76292999995,0.008381999995
cLn part,wMat,0.76292999995,0.008381999995,0.768055,0.008381999995
cLn part,wMat,0.768055,0.008381999995,0.768055,0.009429999995
cLn part,wMat,0.768055,0.009429999995,0.77188,0.009429999995
cLn part,wMat,0.77188,0.009429999995,0.77188,0.0053639956580708
cArc part,wMat,0.77188,0.0053639956580708,0.77003,0.001481019995,0.77188,-0.0024019556680708
cLn part,wMat,0.77188,-0.0024019556680708,0.77188,-0.006468980005
cLn part,wMat,0.77188,-0.006468980005,0.768055,-0.006468980005
cLn part,wMat,0.768055,-0.006468980005,0.768055,-0.004468980005
cLn part,wMat,0.768055,-0.004468980005,0.76292999995,-0.004468980005
cLn part,wMat,0.76292999995,-0.004468980005,0.76292999995,-0.006468980005
cLn part,wMat,0.76292999995,-0.006468980005,0.7603744,-0.006468980005
cLn part,wMat,0.7603744,-0.006468980005,0.7603744,-0.007618300005
cLn part,wMat,0.7603744,-0.007618300005,0.75438,-0.007618300005
cLn part,wMat,0.75438,-0.007618300005,0.75438,0.015241699995
cCLn part,wMat,0.75438,-0.007618300005,0.75438,0.015241699995
Part.InsertSketch
end sub

sub codeBag6(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.03701365,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.6731,0.015241699995,0.68164999995,0.015241699995
cLn part,wMat,0.68164999995,0.015241699995,0.68164999995,0.011429999995
cLn part,wMat,0.68164999995,0.011429999995,0.6851396,0.011429999995
cLn part,wMat,0.6851396,0.011429999995,0.6851396,0.009429999995
cLn part,wMat,0.6851396,0.009429999995,0.68164999995,0.009429999995
cLn part,wMat,0.68164999995,0.009429999995,0.68164999995,0.008381999995
cLn part,wMat,0.68164999995,0.008381999995,0.686775,0.008381999995
cLn part,wMat,0.686775,0.008381999995,0.686775,0.009429999995
cLn part,wMat,0.686775,0.009429999995,0.6906,0.009429999995
cLn part,wMat,0.6906,0.009429999995,0.6906,0.0053639956580708
cArc part,wMat,0.6906,0.0053639956580708,0.68875,0.001481019995,0.6906,-0.0024019556680708
cLn part,wMat,0.6906,-0.0024019556680708,0.6906,-0.006468980005
cLn part,wMat,0.6906,-0.006468980005,0.686775,-0.006468980005
cLn part,wMat,0.686775,-0.006468980005,0.686775,-0.004468980005
cLn part,wMat,0.686775,-0.004468980005,0.68164999995,-0.004468980005
cLn part,wMat,0.68164999995,-0.004468980005,0.68164999995,-0.006468980005
cLn part,wMat,0.68164999995,-0.006468980005,0.6790944,-0.006468980005
cLn part,wMat,0.6790944,-0.006468980005,0.6790944,-0.007618300005
cLn part,wMat,0.6790944,-0.007618300005,0.6731,-0.007618300005
cLn part,wMat,0.6731,-0.007618300005,0.6731,0.015241699995
cCLn part,wMat,0.6731,-0.007618300005,0.6731,0.015241699995
Part.InsertSketch
end sub

sub codeBag7(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cCir part,wMat,0.6096,-0.0365185,0.00635
Part.InsertSketch
end sub

sub codeBag8(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cCir part,wMat,0.6096,0.0365185,0.00635
Part.InsertSketch
end sub

sub codeBag9(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.05175835,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.6306312,-0.008534400005,0.6336792,-0.008534400005
cLn part,wMat,0.6336792,-0.008534400005,0.6336792,0.007111999995
cArc part,wMat,0.6336792,0.007111999995,0.63405117438789,0.0080100256071069,0.6349492,0.008381999995
cLn part,wMat,0.6349492,0.008381999995,0.6433312,0.008381999995
cLn part,wMat,0.6433312,0.008381999995,0.6433312,0.011429999995
cLn part,wMat,0.6433312,0.011429999995,0.6349492,0.011429999995
cArc part,wMat,0.6349492,0.011429999995,0.63189591291884,0.010165287076164,0.6306312,0.007111999995
cLn part,wMat,0.6306312,0.007111999995,0.6306312,-0.008534400005
Part.InsertSketch
end sub

sub codeBag10(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.05175835,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,5e-005,-0.008534400005,0.003098,-0.008534400005
cLn part,wMat,0.003098,-0.008534400005,0.003098,0.007111999995
cArc part,wMat,0.003098,0.007111999995,0.0034699743878931,0.0080100256071069,0.004368,0.008381999995
cLn part,wMat,0.004368,0.008381999995,0.01275,0.008381999995
cLn part,wMat,0.01275,0.008381999995,0.01275,0.011429999995
cLn part,wMat,0.01275,0.011429999995,0.004368,0.011429999995
cArc part,wMat,0.004368,0.011429999995,0.0013147129188365,0.010165287076164,5e-005,0.007111999995
cLn part,wMat,5e-005,0.007111999995,5e-005,-0.008534400005
Part.InsertSketch
end sub

sub codeBag11(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.6393434,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.006676999995,-0.04604335,0.006676999995,-0.04492435
cLn part,wMat,0.006676999995,-0.04492435,0.007057999995,-0.04454335
cLn part,wMat,0.007057999995,-0.04454335,0.011676999995,-0.04454335
cLn part,wMat,0.011676999995,-0.04454335,0.011676999995,-0.04336835
cLn part,wMat,0.011676999995,-0.04336835,0.014676999995,-0.04336835
cLn part,wMat,0.014676999995,-0.04336835,0.014676999995,-0.04604335
cLn part,wMat,0.014676999995,-0.04604335,0.006676999995,-0.04604335
cCLn part,wMat,0.014676999995,-0.04604335,0.006676999995,-0.04604335
Part.InsertSketch
end sub

sub codeBag12(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.6393434,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.006676999995,-0.03651835,0.006676999995,-0.03539935
cLn part,wMat,0.006676999995,-0.03539935,0.007057999995,-0.03501835
cLn part,wMat,0.007057999995,-0.03501835,0.011676999995,-0.03501835
cLn part,wMat,0.011676999995,-0.03501835,0.011676999995,-0.03384335
cLn part,wMat,0.011676999995,-0.03384335,0.014676999995,-0.03384335
cLn part,wMat,0.014676999995,-0.03384335,0.014676999995,-0.03651835
cLn part,wMat,0.014676999995,-0.03651835,0.006676999995,-0.03651835
cCLn part,wMat,0.014676999995,-0.03651835,0.006676999995,-0.03651835
Part.InsertSketch
end sub

sub codeBag13(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.6393434,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.006676999995,-0.02699335,0.006676999995,-0.02587435
cLn part,wMat,0.006676999995,-0.02587435,0.007057999995,-0.02549335
cLn part,wMat,0.007057999995,-0.02549335,0.011676999995,-0.02549335
cLn part,wMat,0.011676999995,-0.02549335,0.011676999995,-0.02431835
cLn part,wMat,0.011676999995,-0.02431835,0.014676999995,-0.02431835
cLn part,wMat,0.014676999995,-0.02431835,0.014676999995,-0.02699335
cLn part,wMat,0.014676999995,-0.02699335,0.006676999995,-0.02699335
cCLn part,wMat,0.014676999995,-0.02699335,0.006676999995,-0.02699335
Part.InsertSketch
end sub

sub codeBag14(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.008763,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.006676999995,-0.04604335,0.006676999995,-0.04492435
cLn part,wMat,0.006676999995,-0.04492435,0.007057999995,-0.04454335
cLn part,wMat,0.007057999995,-0.04454335,0.011676999995,-0.04454335
cLn part,wMat,0.011676999995,-0.04454335,0.011676999995,-0.04336835
cLn part,wMat,0.011676999995,-0.04336835,0.014676999995,-0.04336835
cLn part,wMat,0.014676999995,-0.04336835,0.014676999995,-0.04604335
cLn part,wMat,0.014676999995,-0.04604335,0.006676999995,-0.04604335
cCLn part,wMat,0.014676999995,-0.04604335,0.006676999995,-0.04604335
Part.InsertSketch
end sub

sub codeBag15(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.008763,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.006676999995,-0.03651835,0.006676999995,-0.03539935
cLn part,wMat,0.006676999995,-0.03539935,0.007057999995,-0.03501835
cLn part,wMat,0.007057999995,-0.03501835,0.011676999995,-0.03501835
cLn part,wMat,0.011676999995,-0.03501835,0.011676999995,-0.03384335
cLn part,wMat,0.011676999995,-0.03384335,0.014676999995,-0.03384335
cLn part,wMat,0.014676999995,-0.03384335,0.014676999995,-0.03651835
cLn part,wMat,0.014676999995,-0.03651835,0.006676999995,-0.03651835
cCLn part,wMat,0.014676999995,-0.03651835,0.006676999995,-0.03651835
Part.InsertSketch
end sub

sub codeBag16(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.008763,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.006676999995,-0.02699335,0.006676999995,-0.02587435
cLn part,wMat,0.006676999995,-0.02587435,0.007057999995,-0.02549335
cLn part,wMat,0.007057999995,-0.02549335,0.011676999995,-0.02549335
cLn part,wMat,0.011676999995,-0.02549335,0.011676999995,-0.02431835
cLn part,wMat,0.011676999995,-0.02431835,0.014676999995,-0.02431835
cLn part,wMat,0.014676999995,-0.02431835,0.014676999995,-0.02699335
cLn part,wMat,0.014676999995,-0.02699335,0.006676999995,-0.02699335
cCLn part,wMat,0.014676999995,-0.02699335,0.006676999995,-0.02699335
Part.InsertSketch
end sub

sub codeBag17(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.03703905,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.03048,0.007618300005,0.0364744,0.007618300005
cLn part,wMat,0.0364744,0.007618300005,0.0364744,0.006468980005
cLn part,wMat,0.0364744,0.006468980005,0.03902999995,0.006468980005
cLn part,wMat,0.03902999995,0.006468980005,0.03902999995,0.004468980005
cLn part,wMat,0.03902999995,0.004468980005,0.044155,0.004468980005
cLn part,wMat,0.044155,0.004468980005,0.044155,0.006468980005
cLn part,wMat,0.044155,0.006468980005,0.04798,0.006468980005
cLn part,wMat,0.04798,0.006468980005,0.04798,0.0024019556680708
cArc part,wMat,0.04798,0.0024019556680708,0.04613,-0.001481019995,0.04798,-0.0053639956580708
cLn part,wMat,0.04798,-0.0053639956580708,0.04798,-0.009429999995
cLn part,wMat,0.04798,-0.009429999995,0.044155,-0.009429999995
cLn part,wMat,0.044155,-0.009429999995,0.044155,-0.008381999995
cLn part,wMat,0.044155,-0.008381999995,0.03902999995,-0.008381999995
cLn part,wMat,0.03902999995,-0.008381999995,0.03902999995,-0.009429999995
cLn part,wMat,0.03902999995,-0.009429999995,0.0425196,-0.009429999995
cLn part,wMat,0.0425196,-0.009429999995,0.0425196,-0.011429999995
cLn part,wMat,0.0425196,-0.011429999995,0.03902999995,-0.011429999995
cLn part,wMat,0.03902999995,-0.011429999995,0.03902999995,-0.015241699995
cLn part,wMat,0.03902999995,-0.015241699995,0.03048,-0.015241699995
cLn part,wMat,0.03048,-0.015241699995,0.03048,0.007618300005
cCLn part,wMat,0.03048,-0.015241699995,0.03048,0.007618300005
Part.InsertSketch
end sub

sub codeBag18(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.03703905,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.11176,0.007618300005,0.1177544,0.007618300005
cLn part,wMat,0.1177544,0.007618300005,0.1177544,0.006468980005
cLn part,wMat,0.1177544,0.006468980005,0.12030999995,0.006468980005
cLn part,wMat,0.12030999995,0.006468980005,0.12030999995,0.004468980005
cLn part,wMat,0.12030999995,0.004468980005,0.125435,0.004468980005
cLn part,wMat,0.125435,0.004468980005,0.125435,0.006468980005
cLn part,wMat,0.125435,0.006468980005,0.12926,0.006468980005
cLn part,wMat,0.12926,0.006468980005,0.12926,0.0024019556680714
cArc part,wMat,0.12926,0.0024019556680714,0.12741,-0.001481019995,0.12926,-0.0053639956580713
cLn part,wMat,0.12926,-0.0053639956580713,0.12926,-0.009429999995
cLn part,wMat,0.12926,-0.009429999995,0.125435,-0.009429999995
cLn part,wMat,0.125435,-0.009429999995,0.125435,-0.008381999995
cLn part,wMat,0.125435,-0.008381999995,0.12030999995,-0.008381999995
cLn part,wMat,0.12030999995,-0.008381999995,0.12030999995,-0.009429999995
cLn part,wMat,0.12030999995,-0.009429999995,0.1237996,-0.009429999995
cLn part,wMat,0.1237996,-0.009429999995,0.1237996,-0.011429999995
cLn part,wMat,0.1237996,-0.011429999995,0.12030999995,-0.011429999995
cLn part,wMat,0.12030999995,-0.011429999995,0.12030999995,-0.015241699995
cLn part,wMat,0.12030999995,-0.015241699995,0.11176,-0.015241699995
cLn part,wMat,0.11176,-0.015241699995,0.11176,0.007618300005
cCLn part,wMat,0.11176,-0.015241699995,0.11176,0.007618300005
Part.InsertSketch
end sub

sub codeBag19(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.03703905,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.50546,0.007618300005,0.5114544,0.007618300005
cLn part,wMat,0.5114544,0.007618300005,0.5114544,0.006468980005
cLn part,wMat,0.5114544,0.006468980005,0.51400999995,0.006468980005
cLn part,wMat,0.51400999995,0.006468980005,0.51400999995,0.004468980005
cLn part,wMat,0.51400999995,0.004468980005,0.519135,0.004468980005
cLn part,wMat,0.519135,0.004468980005,0.519135,0.006468980005
cLn part,wMat,0.519135,0.006468980005,0.52296,0.006468980005
cLn part,wMat,0.52296,0.006468980005,0.52296,0.0024019556680708
cArc part,wMat,0.52296,0.0024019556680708,0.52111,-0.001481019995,0.52296,-0.0053639956580708
cLn part,wMat,0.52296,-0.0053639956580708,0.52296,-0.009429999995
cLn part,wMat,0.52296,-0.009429999995,0.519135,-0.009429999995
cLn part,wMat,0.519135,-0.009429999995,0.519135,-0.008381999995
cLn part,wMat,0.519135,-0.008381999995,0.51400999995,-0.008381999995
cLn part,wMat,0.51400999995,-0.008381999995,0.51400999995,-0.009429999995
cLn part,wMat,0.51400999995,-0.009429999995,0.5174996,-0.009429999995
cLn part,wMat,0.5174996,-0.009429999995,0.5174996,-0.011429999995
cLn part,wMat,0.5174996,-0.011429999995,0.51400999995,-0.011429999995
cLn part,wMat,0.51400999995,-0.011429999995,0.51400999995,-0.015241699995
cLn part,wMat,0.51400999995,-0.015241699995,0.50546,-0.015241699995
cLn part,wMat,0.50546,-0.015241699995,0.50546,0.007618300005
cCLn part,wMat,0.50546,-0.015241699995,0.50546,0.007618300005
Part.InsertSketch
end sub

sub codeBag20(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.03602305,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.07112,0.007618300005,0.0771144,0.007618300005
cLn part,wMat,0.0771144,0.007618300005,0.0771144,0.006468980005
cLn part,wMat,0.0771144,0.006468980005,0.07966999995,0.006468980005
cLn part,wMat,0.07966999995,0.006468980005,0.07966999995,0.004468980005
cLn part,wMat,0.07966999995,0.004468980005,0.084795,0.004468980005
cLn part,wMat,0.084795,0.004468980005,0.084795,0.006468980005
cLn part,wMat,0.084795,0.006468980005,0.08862,0.006468980005
cLn part,wMat,0.08862,0.006468980005,0.08862,0.0030331244422106
cArc part,wMat,0.08862,0.0030331244422106,0.08577,-0.001481019995,0.08862,-0.0059951644322106
cLn part,wMat,0.08862,-0.0059951644322106,0.08862,-0.009429999995
cLn part,wMat,0.08862,-0.009429999995,0.084795,-0.009429999995
cLn part,wMat,0.084795,-0.009429999995,0.084795,-0.008381999995
cLn part,wMat,0.084795,-0.008381999995,0.07966999995,-0.008381999995
cLn part,wMat,0.07966999995,-0.008381999995,0.07966999995,-0.009429999995
cLn part,wMat,0.07966999995,-0.009429999995,0.0831596,-0.009429999995
cLn part,wMat,0.0831596,-0.009429999995,0.0831596,-0.011429999995
cLn part,wMat,0.0831596,-0.011429999995,0.07966999995,-0.011429999995
cLn part,wMat,0.07966999995,-0.011429999995,0.07966999995,-0.015241699995
cLn part,wMat,0.07966999995,-0.015241699995,0.07112,-0.015241699995
cLn part,wMat,0.07112,-0.015241699995,0.07112,0.007618300005
cCLn part,wMat,0.07112,-0.015241699995,0.07112,0.007618300005
Part.InsertSketch
end sub

sub codeBag21(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.03602305,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.46482,0.007618300005,0.4708144,0.007618300005
cLn part,wMat,0.4708144,0.007618300005,0.4708144,0.006468980005
cLn part,wMat,0.4708144,0.006468980005,0.47336999995,0.006468980005
cLn part,wMat,0.47336999995,0.006468980005,0.47336999995,0.004468980005
cLn part,wMat,0.47336999995,0.004468980005,0.478495,0.004468980005
cLn part,wMat,0.478495,0.004468980005,0.478495,0.006468980005
cLn part,wMat,0.478495,0.006468980005,0.48232,0.006468980005
cLn part,wMat,0.48232,0.006468980005,0.48232,0.0024019556680708
cArc part,wMat,0.48232,0.0024019556680708,0.48047,-0.001481019995,0.48232,-0.0053639956580708
cLn part,wMat,0.48232,-0.0053639956580708,0.48232,-0.009429999995
cLn part,wMat,0.48232,-0.009429999995,0.478495,-0.009429999995
cLn part,wMat,0.478495,-0.009429999995,0.478495,-0.008381999995
cLn part,wMat,0.478495,-0.008381999995,0.47336999995,-0.008381999995
cLn part,wMat,0.47336999995,-0.008381999995,0.47336999995,-0.009429999995
cLn part,wMat,0.47336999995,-0.009429999995,0.4768596,-0.009429999995
cLn part,wMat,0.4768596,-0.009429999995,0.4768596,-0.011429999995
cLn part,wMat,0.4768596,-0.011429999995,0.47336999995,-0.011429999995
cLn part,wMat,0.47336999995,-0.011429999995,0.47336999995,-0.015241699995
cLn part,wMat,0.47336999995,-0.015241699995,0.46482,-0.015241699995
cLn part,wMat,0.46482,-0.015241699995,0.46482,0.007618300005
cCLn part,wMat,0.46482,-0.015241699995,0.46482,0.007618300005
Part.InsertSketch
end sub

sub codeBag22(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.03602305,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.5461,0.007618300005,0.5520944,0.007618300005
cLn part,wMat,0.5520944,0.007618300005,0.5520944,0.006468980005
cLn part,wMat,0.5520944,0.006468980005,0.55464999995,0.006468980005
cLn part,wMat,0.55464999995,0.006468980005,0.55464999995,0.004468980005
cLn part,wMat,0.55464999995,0.004468980005,0.559775,0.004468980005
cLn part,wMat,0.559775,0.004468980005,0.559775,0.006468980005
cLn part,wMat,0.559775,0.006468980005,0.5636,0.006468980005
cLn part,wMat,0.5636,0.006468980005,0.5636,0.0024019556680708
cArc part,wMat,0.5636,0.0024019556680708,0.56175,-0.001481019995,0.5636,-0.0053639956580708
cLn part,wMat,0.5636,-0.0053639956580708,0.5636,-0.009429999995
cLn part,wMat,0.5636,-0.009429999995,0.559775,-0.009429999995
cLn part,wMat,0.559775,-0.009429999995,0.559775,-0.008381999995
cLn part,wMat,0.559775,-0.008381999995,0.55464999995,-0.008381999995
cLn part,wMat,0.55464999995,-0.008381999995,0.55464999995,-0.009429999995
cLn part,wMat,0.55464999995,-0.009429999995,0.5581396,-0.009429999995
cLn part,wMat,0.5581396,-0.009429999995,0.5581396,-0.011429999995
cLn part,wMat,0.5581396,-0.011429999995,0.55464999995,-0.011429999995
cLn part,wMat,0.55464999995,-0.011429999995,0.55464999995,-0.015241699995
cLn part,wMat,0.55464999995,-0.015241699995,0.5461,-0.015241699995
cLn part,wMat,0.5461,-0.015241699995,0.5461,0.007618300005
cCLn part,wMat,0.5461,-0.015241699995,0.5461,0.007618300005
Part.InsertSketch
end sub

sub codeBag23(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05175835,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.5758688,-0.011429999995,0.5842508,-0.011429999995
cArc part,wMat,0.5842508,-0.011429999995,0.58730408708116,-0.010165287076164,0.5885688,-0.007111999995
cLn part,wMat,0.5885688,-0.007111999995,0.5885688,0.008534400005
cLn part,wMat,0.5885688,0.008534400005,0.5855208,0.008534400005
cLn part,wMat,0.5855208,0.008534400005,0.5855208,-0.007111999995
cArc part,wMat,0.5855208,-0.007111999995,0.58514882561211,-0.0080100256071069,0.5842508,-0.008381999995
cLn part,wMat,0.5842508,-0.008381999995,0.5758688,-0.008381999995
cLn part,wMat,0.5758688,-0.008381999995,0.5758688,-0.011429999995
Part.InsertSketch
end sub

sub codeBag24(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.5798566,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.014676999995,0.02699335,-0.014676999995,0.02966835
cLn part,wMat,-0.014676999995,0.02966835,-0.011676999995,0.02966835
cLn part,wMat,-0.011676999995,0.02966835,-0.011676999995,0.028493350000001
cLn part,wMat,-0.011676999995,0.028493350000001,-0.007057999995,0.028493350000001
cLn part,wMat,-0.007057999995,0.028493350000001,-0.006676999995,0.02811235
cLn part,wMat,-0.006676999995,0.02811235,-0.006676999995,0.02699335
cLn part,wMat,-0.006676999995,0.02699335,-0.014676999995,0.02699335
cCLn part,wMat,-0.006676999995,0.02699335,-0.014676999995,0.02699335
Part.InsertSketch
end sub

sub codeBag25(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.5798566,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.014676999995,0.03651835,-0.014676999995,0.03919335
cLn part,wMat,-0.014676999995,0.03919335,-0.011676999995,0.03919335
cLn part,wMat,-0.011676999995,0.03919335,-0.011676999995,0.038018350000001
cLn part,wMat,-0.011676999995,0.038018350000001,-0.007057999995,0.038018350000001
cLn part,wMat,-0.007057999995,0.038018350000001,-0.006676999995,0.03763735
cLn part,wMat,-0.006676999995,0.03763735,-0.006676999995,0.03651835
cLn part,wMat,-0.006676999995,0.03651835,-0.014676999995,0.03651835
cCLn part,wMat,-0.006676999995,0.03651835,-0.014676999995,0.03651835
Part.InsertSketch
end sub

sub codeBag26(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.5798566,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.014676999995,0.04604335,-0.014676999995,0.04871835
cLn part,wMat,-0.014676999995,0.04871835,-0.011676999995,0.04871835
cLn part,wMat,-0.011676999995,0.04871835,-0.011676999995,0.047543350000001
cLn part,wMat,-0.011676999995,0.047543350000001,-0.007057999995,0.047543350000001
cLn part,wMat,-0.007057999995,0.047543350000001,-0.006676999995,0.04716235
cLn part,wMat,-0.006676999995,0.04716235,-0.006676999995,0.04604335
cLn part,wMat,-0.006676999995,0.04604335,-0.014676999995,0.04604335
cCLn part,wMat,-0.006676999995,0.04604335,-0.014676999995,0.04604335
Part.InsertSketch
end sub

sub codeBag27(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.05175835,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,1.20645,-0.011429999995,1.214832,-0.011429999995
cArc part,wMat,1.214832,-0.011429999995,1.2178852870812,-0.010165287076164,1.21915,-0.007111999995
cLn part,wMat,1.21915,-0.007111999995,1.21915,0.008534400005
cLn part,wMat,1.21915,0.008534400005,1.216102,0.008534400005
cLn part,wMat,1.216102,0.008534400005,1.216102,-0.007111999995
cArc part,wMat,1.216102,-0.007111999995,1.2157300256121,-0.0080100256071069,1.214832,-0.008381999995
cLn part,wMat,1.214832,-0.008381999995,1.20645,-0.008381999995
cLn part,wMat,1.20645,-0.008381999995,1.20645,-0.011429999995
Part.InsertSketch
end sub

sub codeBag28(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,1.210437,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.014676999995,0.02699335,-0.014676999995,0.02966835
cLn part,wMat,-0.014676999995,0.02966835,-0.011676999995,0.02966835
cLn part,wMat,-0.011676999995,0.02966835,-0.011676999995,0.028493350000001
cLn part,wMat,-0.011676999995,0.028493350000001,-0.007057999995,0.028493350000001
cLn part,wMat,-0.007057999995,0.028493350000001,-0.006676999995,0.02811235
cLn part,wMat,-0.006676999995,0.02811235,-0.006676999995,0.02699335
cLn part,wMat,-0.006676999995,0.02699335,-0.014676999995,0.02699335
cCLn part,wMat,-0.006676999995,0.02699335,-0.014676999995,0.02699335
Part.InsertSketch
end sub

sub codeBag29(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,1.210437,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.014676999995,0.03651835,-0.014676999995,0.03919335
cLn part,wMat,-0.014676999995,0.03919335,-0.011676999995,0.03919335
cLn part,wMat,-0.011676999995,0.03919335,-0.011676999995,0.038018350000001
cLn part,wMat,-0.011676999995,0.038018350000001,-0.007057999995,0.038018350000001
cLn part,wMat,-0.007057999995,0.038018350000001,-0.006676999995,0.03763735
cLn part,wMat,-0.006676999995,0.03763735,-0.006676999995,0.03651835
cLn part,wMat,-0.006676999995,0.03651835,-0.014676999995,0.03651835
cCLn part,wMat,-0.006676999995,0.03651835,-0.014676999995,0.03651835
Part.InsertSketch
end sub

sub codeBag30(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,1.210437,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.014676999995,0.04604335,-0.014676999995,0.04871835
cLn part,wMat,-0.014676999995,0.04871835,-0.011676999995,0.04871835
cLn part,wMat,-0.011676999995,0.04871835,-0.011676999995,0.047543350000001
cLn part,wMat,-0.011676999995,0.047543350000001,-0.007057999995,0.047543350000001
cLn part,wMat,-0.007057999995,0.047543350000001,-0.006676999995,0.04716235
cLn part,wMat,-0.006676999995,0.04716235,-0.006676999995,0.04604335
cLn part,wMat,-0.006676999995,0.04604335,-0.014676999995,0.04604335
cCLn part,wMat,-0.006676999995,0.04604335,-0.014676999995,0.04604335
Part.InsertSketch
end sub

sub codeBag31(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cArc part,wMat,-0.010112468588162,-0.026763660429712,-0.0095428077931217,-0.030357343196171,-0.0066020441051746,-0.0325
cLn part,wMat,-0.0066020441051746,-0.0325,0.0049643899899998,-0.0325
cLn part,wMat,0.0049643899899998,-0.0325,0.0049643899899998,-0.03232592
cLn part,wMat,0.0049643899899998,-0.03232592,0.0061073899899999,-0.03232592
cLn part,wMat,0.0061073899899999,-0.03232592,0.0061073899899999,-0.0325
cLn part,wMat,0.0061073899899999,-0.0325,0.0138155,-0.0325
cArc part,wMat,0.0138155,-0.0325,0.017157640201278,-0.031115640201278,0.018542,-0.0277735
cLn part,wMat,0.018542,-0.0277735,0.018542,-0.0210922
cLn part,wMat,0.018542,-0.0210922,0.018067379510314,-0.020617579510314
cArc part,wMat,0.018067379510314,-0.020617579510314,0.017847138394969,-0.020287965387912,0.0177698,-0.019899159020629
cLn part,wMat,0.0177698,-0.019899159020629,0.0177698,-0.0080408409793711
cArc part,wMat,0.0177698,-0.0080408409793711,0.017847138394969,-0.0076520346120882,0.018067379510314,-0.0073224204896856
cLn part,wMat,0.018067379510314,-0.0073224204896856,0.018542,-0.0068477999999998
cLn part,wMat,0.018542,-0.0068477999999998,0.018542,0.0068478
cLn part,wMat,0.018542,0.0068478,0.018067379510314,0.0073224204896855
cArc part,wMat,0.018067379510314,0.0073224204896855,0.017847138394969,0.0076520346120881,0.0177698,0.0080408409793711
cLn part,wMat,0.0177698,0.0080408409793711,0.0177698,0.019899159020629
cArc part,wMat,0.0177698,0.019899159020629,0.017847138394969,0.020287965387912,0.018067379510314,0.020617579510314
cLn part,wMat,0.018067379510314,0.020617579510314,0.018542,0.0210922
cLn part,wMat,0.018542,0.0210922,0.018542,0.0277735
cArc part,wMat,0.018542,0.0277735,0.017157640201278,0.031115640201278,0.0138155,0.0325
cLn part,wMat,0.0138155,0.0325,0.00610738999,0.0325
cLn part,wMat,0.00610738999,0.0325,0.00610738999,0.03232592
cLn part,wMat,0.00610738999,0.03232592,0.00496438999,0.03232592
cLn part,wMat,0.00496438999,0.03232592,0.00496438999,0.0325
cLn part,wMat,0.00496438999,0.0325,-0.0066020441051745,0.0325
cArc part,wMat,-0.0066020441051745,0.0325,-0.0095428077931217,0.030357343196171,-0.010112468588162,0.026763660429712
cLn part,wMat,-0.010112468588162,0.026763660429712,-0.0085320508449059,0.020155458468754
cArc part,wMat,-0.0085320508449059,0.020155458468754,-0.0082629601990094,0.019734493494348,-0.00779095069,0.0195707
cLn part,wMat,-0.00779095069,0.0195707,-0.0062020288763605,0.0195707
cArc part,wMat,-0.0062020288763605,0.0195707,-0.001457999878,0.016150000118,0.0032860291203605,0.0195707
cLn part,wMat,0.0032860291203605,0.0195707,0.0075336,0.0195707
cArc part,wMat,0.0075336,0.0195707,0.0089524804671289,0.018982980467129,0.0095402,0.0175641
cLn part,wMat,0.0095402,0.0175641,0.0095402,-0.0175641
cArc part,wMat,0.0095402,-0.0175641,0.0089524804671288,-0.018982980467129,0.0075335999999999,-0.0195707
cLn part,wMat,0.0075335999999999,-0.0195707,0.0032860291203607,-0.0195707
cArc part,wMat,0.0032860291203607,-0.0195707,-0.0014579998779999,-0.016150000118,-0.0062020288763603,-0.0195707
cLn part,wMat,-0.0062020288763603,-0.0195707,-0.0077909506900002,-0.0195707
cArc part,wMat,-0.0077909506900002,-0.0195707,-0.0082629601990095,-0.019734493494348,-0.0085320508449059,-0.020155458468754
cLn part,wMat,-0.0085320508449059,-0.020155458468754,-0.010112468588162,-0.026763660429712
Part.InsertSketch
end sub

sub codeBag32(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.03556,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag33(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,1.1557,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag34(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,1.07569,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag35(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.99568,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag36(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.91567,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag37(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.83566,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag38(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.75565,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag39(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.67564,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag40(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.59563,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag41(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.51562,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag42(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.43561,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag43(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.3556,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag44(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.27559,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag45(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.19558,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag46(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.11557,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,-0.006858,0,-0.006858,0.005715
cLn part,wMat,-0.006858,0.005715,0.014732,0.005715
cLn part,wMat,0.014732,0.005715,0.014732,0.003302
cLn part,wMat,0.014732,0.003302,0.018542,0.003302
cLn part,wMat,0.018542,0.003302,0.018542,0
cLn part,wMat,0.018542,0,-0.006858,0
cCLn part,wMat,0.018542,0,-0.006858,0
Part.InsertSketch
end sub

sub codeBag47(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.0095402)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.00452499999,0.007099800042,0.005525000022,0.00609980001
cLn part,wMat,0.005525000022,0.00609980001,0.02002499999,0.00609980001
cLn part,wMat,0.02002499999,0.00609980001,0.02102499999,0.00709980001
cLn part,wMat,0.02102499999,0.00709980001,0.02102499999,0.01509980001
cLn part,wMat,0.02102499999,0.01509980001,0.02002499999,0.01609980001
cLn part,wMat,0.02002499999,0.01609980001,0.00552499999,0.01609980001
cLn part,wMat,0.00552499999,0.01609980001,0.00452499999,0.01509980001
cLn part,wMat,0.00452499999,0.01509980001,0.00452499999,0.007099800042
Part.InsertSketch
end sub

sub codeBag48(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.0095402)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.00452499999,-0.015099799938,0.005525000022,-0.01609979997
cLn part,wMat,0.005525000022,-0.01609979997,0.02002499999,-0.01609979997
cLn part,wMat,0.02002499999,-0.01609979997,0.02102499999,-0.01509979997
cLn part,wMat,0.02102499999,-0.01509979997,0.02102499999,-0.00709979997
cLn part,wMat,0.02102499999,-0.00709979997,0.02002499999,-0.00609979997
cLn part,wMat,0.02002499999,-0.00609979997,0.00552499999,-0.00609979997
cLn part,wMat,0.00552499999,-0.00609979997,0.00452499999,-0.00709979997
cLn part,wMat,0.00452499999,-0.00709979997,0.00452499999,-0.015099799938
Part.InsertSketch
end sub

sub codeBag49(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.009525,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.0028922,0.0110999,0.0028922,0.0125999
cLn part,wMat,0.0028922,0.0125999,0.0105122,0.0125999
cLn part,wMat,0.0105122,0.0125999,0.0105122,0.0137749
cLn part,wMat,0.0105122,0.0137749,0.0179798,0.0137749
cLn part,wMat,0.0179798,0.0137749,0.0179798,0.0110999
cLn part,wMat,0.0179798,0.0110999,0.0028922,0.0110999
cCLn part,wMat,0.0179798,0.0110999,0.0028922,0.0110999
Part.InsertSketch
end sub

sub codeBag50(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.009525,-0.022225270416995,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.0028922,0.0110999,0.0028922,0.0125999
cLn part,wMat,0.0028922,0.0125999,0.0105122,0.0125999
cLn part,wMat,0.0105122,0.0125999,0.0105122,0.0137749
cLn part,wMat,0.0105122,0.0137749,0.0179798,0.0137749
cLn part,wMat,0.0179798,0.0137749,0.0179798,0.0110999
cLn part,wMat,0.0179798,0.0110999,0.0028922,0.0110999
cCLn part,wMat,0.0179798,0.0110999,0.0028922,0.0110999
Part.InsertSketch
end sub

sub codeBag51(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.016025,-0.022225270416995,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.0028922,0.0110999,0.0028922,0.0125999
cLn part,wMat,0.0028922,0.0125999,0.0105122,0.0125999
cLn part,wMat,0.0105122,0.0125999,0.0105122,0.0137749
cLn part,wMat,0.0105122,0.0137749,0.0179798,0.0137749
cLn part,wMat,0.0179798,0.0137749,0.0179798,0.0110999
cLn part,wMat,0.0179798,0.0110999,0.0028922,0.0110999
cCLn part,wMat,0.0179798,0.0110999,0.0028922,0.0110999
Part.InsertSketch
end sub

sub codeBag52(part)
Part.InsertSketch
Set swActiveMat = Part.GetActiveSketch()
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.016025,-2.5670416994505e-005,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
cLn part,wMat,0.0028922,0.0110999,0.0028922,0.0125999
cLn part,wMat,0.0028922,0.0125999,0.0105122,0.0125999
cLn part,wMat,0.0105122,0.0125999,0.0105122,0.0137749
cLn part,wMat,0.0105122,0.0137749,0.0179798,0.0137749
cLn part,wMat,0.0179798,0.0137749,0.0179798,0.0110999
cLn part,wMat,0.0179798,0.0110999,0.0028922,0.0110999
cCLn part,wMat,0.0179798,0.0110999,0.0028922,0.0110999
Part.InsertSketch
end sub

sub main
set swApp=CreateObject("SldWorks.Application")
code = swApp.RevisionNumber
found = InStr(code, ".")
If (found > 0) Then
  code = Left(code, found-1)
  If (CInt(code) >= 11) Then
    sw2003api=1
  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
   createPart2
End If
end sub