建立方向盘项目初始版本

scripts/make_kfl_125_switch60.ps1

@@ -0,0 +1,47 @@
+$src = Get-Content -Raw -Encoding UTF8 'C:\projects\wheel\scripts\build_kfl_same_flange_125.py'
+$pairs = @(
+    @("O=R/'models'/('kfl_same_flange_%d'%shaftlen)", "O=R/'models'/'kfl_125_switch60_concept'"),
+    @("-108 if n=='Shaft' else -112", "-108 if n=='Shaft' else -118"),
+    @("-50.5-shaftlen", "-56.5-shaftlen"),
+    @("4,-119", "4,-125"),
+    @("20,20,190,V(x-10,-75,-170)", "20,20,200,V(x-10,-75,-180)"),
+    @("[-84,-150]", "[-84,-162]"),
+    @("(-150,-153,-1)", "(-162,-165,-1)"),
+    @("cy(15,20,0,0,-176).cut(cy(6.2,20.02,0,0,-176.01))", "cy(15,20,0,0,-188).cut(cy(6.2,20.02,0,0,-188.01))"),
+    @("cy(28.5,4,0,0,-180).cut(cy(6.2,4.02,0,0,-180.01))", "cy(28.5,4,0,0,-192).cut(cy(6.2,4.02,0,0,-192.01))"),
+    @("24*math.sin(a),-180.01", "24*math.sin(a),-192.01"),
+    @("wheel70.translate(V(0,0,-180))", "wheel70.translate(V(0,0,-192))"),
+    @("Part.makeBox(110,80,50,V(-55,-40,-138.5)).cut(cy(23.5,50.02,0,0,-138.51))", "Part.makeBox(110,80,60,V(-55,-40,-149.5)).cut(cy(23.5,60.02,0,0,-149.51))"),
+    @("'50mm switch bounding placeholder; 47mm bore ASSUMED'", "'60mm switch and wiring clearance envelope; 47mm bore ASSUMED'"),
+    @("24*math.sin(a),-188)", "24*math.sin(a),-200)"),
+    @("min(-156,-50.5)-max(-176,z_end)", "min(-168,-56.5)-max(-188,z_end)"),
+    @("min(-176,-50.5)-max(-180,z_end)", "min(-188,-56.5)-max(-192,z_end)"),
+    @("'Shaft nominal 12 x %d; z=%.1f..-50.5; motor hub z=-70..-50; motor insertion 19.5mm assumed and axial gap to base 0.5mm.'", "'Shaft nominal 12 x %d; z=%.1f..-56.5; motor hub z=-70..-50; motor insertion 13.5mm assumed and axial gap to base 6.5mm.'"),
+    @("'Wheel hub z=-176..-156, front plate z=-180..-176;", "'Wheel hub z=-188..-168, front plate z=-192..-188;"),
+    @("'Bearing positions, 50mm switch envelope and cam as previous shifted design;", "'Rear bearing retained; front bearing shifted 12mm to wheel; switch 60mm with 1mm nominal gap on each side, cam shifted 6mm;"),
+    @("'KFL approximate 48 bolt pitch and 14.5 inner width, housing/protrusion guessed; 8mm plate 30.2 hole guessed; no real module shape, its 47mm hole is an assumption.'", "'KFL approximate 48 bolt pitch and 14.5 inner width, housing/protrusion guessed; 8mm plate 30.2 hole guessed; 60mm switch/wire envelope placeholder, its 47mm hole is an assumption.'"),
+    @("KFL125_Schematic", "KFL125_Switch60_Schematic")
+)
+foreach ($pair in $pairs) {
+    if (-not $src.Contains($pair[0])) { throw "Cannot find required source fragment: $($pair[0])" }
+    $src = $src.Replace($pair[0], $pair[1])
+}
+$extraPairs = @'
+ pairs += [('SwitchEnvelope','Plate0',sw,plates[0].Shape),('SwitchEnvelope','Plate1',sw,plates[1].Shape)]
+ pairs += [('SwitchEnvelope','KFLHousing0',sw,bearings[0].Shape),('SwitchEnvelope','KFLHousing1',sw,bearings[2].Shape)]
+ pairs += [('Key','Shaft',cam['Key'],cam['Shaft']),('Key','CamUpper',cam['Key'],cam['Upper']),('Key','CamLower',cam['Key'],cam['Lower'])]
+ pairs += [('CamUpper','Shaft',cam['Upper'],cam['Shaft']),('CamLower','Shaft',cam['Lower'],cam['Shaft'])]
+ pairs += [('CamUpper','RearKFL',cam['Upper'],bearings[0].Shape),('CamUpper','FrontKFL',cam['Upper'],bearings[2].Shape)]
+ pairs += [('CamLower','RearKFL',cam['Lower'],bearings[0].Shape),('CamLower','FrontKFL',cam['Lower'],bearings[2].Shape)]
+ pairs += [('Shaft','Wheel70',cam['Shaft'],wheel70),('WheelHub','SwitchEnvelope',wh,sw),('MotorFlange','SwitchEnvelope',flange,sw)]
+ for a,b,sa,sb in pairs:
+'@
+if (-not $src.Contains(' for a,b,sa,sb in pairs:')) { throw 'Cannot extend collision checks' }
+$src = $src.Replace(' for a,b,sa,sb in pairs:', $extraPairs)
+[System.IO.File]::WriteAllText('C:\projects\wheel\scripts\build_kfl_125_switch60.py', $src, [System.Text.UTF8Encoding]::new($false))
+$macro = @'
+from pathlib import Path
+script=Path(r'C:\projects\wheel\scripts\build_kfl_125_switch60.py')
+exec(compile(script.read_text(encoding='utf8'),str(script),'exec'),{'__name__':'__main__','__file__':str(script)})
+'@
+[System.IO.File]::WriteAllText('C:\projects\wheel\scripts\rebuild_kfl_125_switch60.FCMacro', $macro, [System.Text.UTF8Encoding]::new($false))