HOli.. - Memorial University's Digital Archives - Memorial University ...

Set swSketehPt( 29 ) :=:: swModcl.CrcatePoint2 (-0.0 I0628, -0.002503, 0.055145)
Set swSkctchPt( 30 ) :=:: swModel.CrcatePoinl2 (-0.006555, -0.005324, 0.054945)
Set swSkctchPt( 31 ):=:: swModcl.CrcatcPoint2 (-0.002373, -0.007967, 0.054624)
Sct swSketehPt( 32):=:: swModel.CreatePoint2 (0.001943, -0.010395, 0.054215)
Sct swSkctehPI( 33 ):=:: swModel.CreatePoint2 (0.006341, -0.012684, 0.053725)
Set swSketcbPI( 34 ) =: swModel.CrclltePoint2 (0.010845, -0.014799, 0.053182)
Set swSketchPt( 35) swModcl.CrelltcPoint2 (0.015441, ·0.016765, 0.052595)
Set swSketchPt( 36) swModcl.CreatePoint2 (0.020137, -0.018573, 0.051984)
Sct swSketchPt( 37) swMode1.CrcatcPoint2 (0.024951, -0.020205, 0.051371)
Sct swSkctchPt( 38) swMode1.CrcatePoint2 (0.029920, -0.021619, 0.050793)
Set swSketchPI( 39 ) swModel.CrcatePoint2 (0.035141, -0.022703, 0.050318)
Set swSketchPt( 40) swModcl.CrealcPoint2 (0.041867, -0.022025, 0.050618)
Set swGuidcPt(O) swSketehPt( I)
'exit 3D skctch
swModcl.lnsert3DSketch
Set swSkelch(O) swModel.FcatureByPositionRevcrsc(O)
swModcl.ClcarScleclion
For z 22 To 39
bRet swSkctchPt(7.).Sclcct2(Truc,0)
Next z
For 7. 1 '1'020
bRet swSkctchPt(z).Select2(True, 0)
Next 7.
swModel.lnscrt3DSplineCurve (True)
Set swFeatCurve(O) swModel.Fcalure13yPositionReversc(O)
swModel.ClearSelection
This stcp is repeatcd until get 21 foil sections
'create guide curve ----+ Create reference line lor
For z
bRet
Ncxt z
0 To 20
swGuidePt(z).Selcet2(Truc,0)
lofting. The detailed each step
is described as AppendIx A
swModcl.lnsert3DSplineCurvc (False)
ScI swGuideCurve swModcl.FcalurcByPositionRevcrsc(O)
121
Connect