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

'create loft
swModcl.ClearSelcction
'select profile curves
'mark I
For/. OT020
bRet swFeatCurvc(z).Select2(True, I)
Next /.
'selL"Ct guide eurves
'mark 2
bRet swGuidcCurve.Sclect2(Truc, 2)
swModel.lnsertLoftRefSurface2 False. False. False, 111,0,°
'hide profile curves ,--------swModel.ClearSck"Ction
llide all of the skclches for
bRct swFeatCurvc(0).ScJcct2(Truc. 0) clean
bRet swFcatCurvt:{1 ).ScJcct2(True, 0) L _
bRet swFeatCurvc(2).ScJcct2(Truc. 0)
bRet swFeatCurvc(3).Sclcct2(Truc.0)
bRet swFeatCurvc(4).Selcct2(Truc.0)
bRei swFcatCurve(5).Sclcct2(Truc. 0)
bRcl swFcatCurve(6).Selcct2(True.0)
bRei swFcaiCurvc(7).Select2(True, 0)
bRei swFcaiCurvc(8).Sclcct2(True, 0)
bRei 5wFeaICurve(9).Selcct2(Truc, 0)
bRei swFcaICurve(10).Select2(Truc,O)
bRei swFealCurvc(II).Sclcct2(True, 0)
bRei swFeuICurve(12).Select2(Truc, 0)
bRcl swFeaICurve(13).Selcct2(Truc,0)
bRcl swl:cuICurvc(14).Sclect2(True,0)
bRcl swFculCurvc( 15).Sclcct2(True. 0)
bRcl SWFcuICllrvc( 16).Sclcct2(Truc, 0)
bRcl SWFcuICllrvc( 17).SclcCI2(Truc, 0)
bRcl swFcuICllrvc(18).Sclcct2(Truc.0)
bRcl swFculCurve( 19).Selcct2(Truc, 0)
bRcl swFeuICurve(20).SclcCI2(Truc,0)
bRcl swGuideCurvc.Sclect2(True, 0)
swModcl.BlankRefG(,"Om
'hide the 3D skclches since Ihcy have alai ofpoints
'nOle that ModcIDoe2::I31ankSketch will only hide onc skclch
For/. 0'1'020
swModcl.ClearSclcction
bRet swSketch(z).SclcCI2(Truc, 0)
swModcl.l3lankSketch
Next /.
swModcl.SclAddToDB Falsc
End Sub
122