committed by
					
						
						Jonathan Tran
					
				
			
			
				
	
			
			
			
						parent
						
							b7437e949a
						
					
				
				
					commit
					f4cf0d0d88
				
			
							
								
								
									
										71
									
								
								rust/kcl-lib/tests/fillet_error_switch_files/main.kcl
									
									
									
									
									
										Normal file
									
								
							
							
						
						
									
										71
									
								
								rust/kcl-lib/tests/fillet_error_switch_files/main.kcl
									
									
									
									
									
										Normal file
									
								
							@ -0,0 +1,71 @@
 | 
			
		||||
holeFudge = 0.4
 | 
			
		||||
frontBarD = 5.0
 | 
			
		||||
yBarD = 6.7
 | 
			
		||||
slideGap = 0.7
 | 
			
		||||
lowerBlockTransHole = {
 | 
			
		||||
  r = (frontBarD + slideGap + holeFudge) / 2
 | 
			
		||||
}
 | 
			
		||||
upperBlockLongHole = { r = (yBarD + holeFudge) / 2 }
 | 
			
		||||
 | 
			
		||||
upperBlockTransHole = { r = (yBarD + holeFudge) / 2 }
 | 
			
		||||
tubeClr = 1.5
 | 
			
		||||
lowerBlock = {
 | 
			
		||||
  h = 2 * lowerBlockTransHole.r + 2 * tubeClr,
 | 
			
		||||
  l = 70
 | 
			
		||||
}
 | 
			
		||||
upperBlock = {
 | 
			
		||||
  h = 2 * upperBlockLongHole.r + 2 * tubeClr,
 | 
			
		||||
  l = 25
 | 
			
		||||
}
 | 
			
		||||
elevate = { h = 5 }
 | 
			
		||||
 | 
			
		||||
blockSz = max(upperBlock.h, lowerBlock.h)
 | 
			
		||||
 | 
			
		||||
slot = { l = 10, h = 1 }
 | 
			
		||||
 | 
			
		||||
sketch001 = startSketchOn(XZ)
 | 
			
		||||
  |> startProfileAt([0, 0], %)
 | 
			
		||||
  |> yLine(length = blockSz, tag = $edgeA)
 | 
			
		||||
  |> xLine(length = blockSz, tag = $edgeB)
 | 
			
		||||
  |> yLine(length = -blockSz, tag = $edgeC)
 | 
			
		||||
  |> xLine(length = upperBlock.l - blockSz, tag = $edge1)
 | 
			
		||||
  |> yLine(length = -(elevate.h + blockSz), tag = $edge2)
 | 
			
		||||
  |> xLine(length = lowerBlock.l - blockSz, tag = $edge3)
 | 
			
		||||
  |> yLine(length = -blockSz, tag = $edge4)
 | 
			
		||||
  |> xLine(length = -lowerBlock.l, tag = $edge5)
 | 
			
		||||
  |> yLine(length = blockSz + elevate.h, tag = $edge6)
 | 
			
		||||
  |> xLine(length = -(upperBlock.l - blockSz), tag = $edge7)
 | 
			
		||||
  |> line(endAbsolute = [profileStartX(%), profileStartY(%)], tag = $seg01)
 | 
			
		||||
  |> close(%)
 | 
			
		||||
  |> hole(circle(center = [blockSz / 2, blockSz / 2], radius = upperBlockTransHole.r), %)
 | 
			
		||||
  |> hole(circle(
 | 
			
		||||
       center = [
 | 
			
		||||
         upperBlock.l + lowerBlock.l - blockSz - lowerBlockTransHole.r - tubeClr,
 | 
			
		||||
         -(blockSz + elevate.h + blockSz / 2)
 | 
			
		||||
       ],
 | 
			
		||||
       radius = lowerBlockTransHole.r,
 | 
			
		||||
     ), %)
 | 
			
		||||
rad = 3
 | 
			
		||||
 | 
			
		||||
extrude001 = extrude(sketch001, length = blockSz)
 | 
			
		||||
  |> fillet(
 | 
			
		||||
       radius = rad,
 | 
			
		||||
       tags = [
 | 
			
		||||
         getNextAdjacentEdge(edgeA),
 | 
			
		||||
         getNextAdjacentEdge(edgeB),
 | 
			
		||||
         getNextAdjacentEdge(edgeC),
 | 
			
		||||
         getNextAdjacentEdge(edge1),
 | 
			
		||||
         getNextAdjacentEdge(edge2),
 | 
			
		||||
         getNextAdjacentEdge(edge3),
 | 
			
		||||
         getNextAdjacentEdge(edge4),
 | 
			
		||||
         getNextAdjacentEdge(edge5),
 | 
			
		||||
         getNextAdjacentEdge(edge6),
 | 
			
		||||
         getNextAdjacentEdge(edge7)
 | 
			
		||||
       ],
 | 
			
		||||
     )
 | 
			
		||||
 | 
			
		||||
sketch002 = startSketchOn(extrude001, seg01)
 | 
			
		||||
  |> startProfileAt([0, 0], %)
 | 
			
		||||
  |> circle(center = [blockSz / 2, -blockSz / 2], radius = upperBlockLongHole.r)
 | 
			
		||||
  |> extrude(length = -upperBlock.l)
 | 
			
		||||
 | 
			
		||||
		Reference in New Issue
	
	Block a user