dim swApp dim storePath dim sw2003api dim sw2007api dim docVisible #If VBA7 Then Private Type BROWSEINFO hwndOwner As LongPtr pIDLRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfnCallback As LongPtr lParam As LongPtr iImage As Long End Type Private Declare PtrSafe Function SHBrowseForFolder Lib "Shell32" (lpbi As BROWSEINFO) As Long Private Declare PtrSafe Function SHGetPathFromIDList Lib "Shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long Private Declare PtrSafe Sub CoTaskMemFree Lib "ole32" (ByVal hMem As Long) #Else 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) #End If 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 & "750-314.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.AddCustomInfo3 "", "NN", 30, "750-312" part.AddCustomInfo3 "", "NT", 30, "MODBUS FIELDBUS COUPLER RS 485 / 150 - 19200 Baud DIGITAL AND ANALOG SIGNALS" part.AddCustomInfo3 "", "NB", 30, "750-314" part.AddCustomInfo3 "", "NBSYN", 30, "$BESTNR." part.AddCustomInfo3 "", "LINA", 30, "750-314" part.AddCustomInfo3 "", "BESTNR", 30, "750-314" part.AddCustomInfo3 "", "INFODE", 30, "Info DE" part.AddCustomInfo3 "", "INFOEN", 30, "Info EN" part.AddCustomInfo3 "", "QUERSCHNITT1", 30, "0.08 - 2.5" part.AddCustomInfo3 "", "QUERSCHNITT2", 30, "28 - 14" part.AddCustomInfo3 "", "ABISOLIERLAENGE", 30, "8 - 9" part.AddCustomInfo3 "", "HOEHE", 30, "65.00" part.AddCustomInfo3 "", "BREITE", 30, "51.00" part.AddCustomInfo3 "", "TIEFE", 30, "100.00" part.AddCustomInfo3 "", "FARBE", 30, "lichtgrau" part.AddCustomInfo3 "", "GEWICHT", 30, "198.000" part.AddCustomInfo3 "", "BEMERKUNGEN", 30, "RS 232 / 150 ... 19200 Bd" part.AddCustomInfo3 "", "ECLASS71", 30, "27-24-26-07" part.AddCustomInfo3 "", "SUPPLIER", 30, "WAGO" part.AddCustomInfo3 "", "ARTICLENO", 30, "750-314" part.AddCustomInfo3 "", "BOMINFO", 30, "750-314" part.AddCustomInfo3 "", "CREATOR", 30, "CADENAS GmbH" part.AddCustomInfo3 "", "IsFastener", 30, "false" part.SummaryInfo(0)="750-314" part.SummaryInfo(4)="MODBUS FIELDBUS COUPLER RS 485 / 150 - 19200 Baud DIGITAL AND ANALOG SIGNALS" part.SummaryInfo(2)="Cadenas PARTsolutions" valRGB=part.MaterialPropertyValues valRGB(0)=0.81999999284744 valRGB(1)=0.81999999284744 valRGB(2)=0.81999999284744 part.MaterialPropertyValues=valRGB Dim featMgr as object if (sw2003api=1) then set featMgr=part.FeatureManager End If part.CreatePlaneFixed createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1 part.BlankRefGeom set feat4=getLastFeatureByType(part,"RefPlane") feat4.select false codeBag0 part set feat4=getLastFeatureByType(part,"ProfileFeature") feat4.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.02,0.02,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.02,0.02,1,1,0,0,0,0,0,0,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 feat6=getLastFeatureByType(part,"RefPlane") feat6.select false codeBag1 part set feat6=getLastFeatureByType(part,"ProfileFeature") feat6.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0015,0.0015,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0015,0.0015,1,1,0,0,0,0,0,0,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 feat8=getLastFeatureByType(part,"RefPlane") feat8.select false codeBag2 part set feat8=getLastFeatureByType(part,"ProfileFeature") feat8.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,1,0,0,0.0025,0.0025,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,1,0,0,0.0025,0.0025,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.02),createVec3d(1,0,0.02),createVec3d(0,1,0.02),1 part.BlankRefGeom set feat11=getLastFeatureByType(part,"RefPlane") feat11.select false codeBag3 part set feat11=getLastFeatureByType(part,"ProfileFeature") feat11.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.016,0.016,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.016,0.016,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0.0626,0),createVec3d(1,0.0626,0),createVec3d(0,0.0626,-1),1 part.BlankRefGeom set feat14=getLastFeatureByType(part,"RefPlane") feat14.select false codeBag4 part set feat14=getLastFeatureByType(part,"ProfileFeature") feat14.select false if (sw2003api=0) then part.FeatureCut 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(-0.00508,0.0626,0),createVec3d(0.99492,0.0626,0),createVec3d(-0.00508,0.0626,-1),1 part.BlankRefGeom set feat18=getLastFeatureByType(part,"RefPlane") feat18.select false codeBag5 part set feat18=getLastFeatureByType(part,"ProfileFeature") feat18.select false if (sw2003api=0) then part.FeatureCut 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(-0.01016,0.0626,0),createVec3d(0.98984,0.0626,0),createVec3d(-0.01016,0.0626,-1),1 part.BlankRefGeom set feat19=getLastFeatureByType(part,"RefPlane") feat19.select false codeBag6 part set feat19=getLastFeatureByType(part,"ProfileFeature") feat19.select false if (sw2003api=0) then part.FeatureCut 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(-0.01524,0.0626,0),createVec3d(0.98476,0.0626,0),createVec3d(-0.01524,0.0626,-1),1 part.BlankRefGeom set feat20=getLastFeatureByType(part,"RefPlane") feat20.select false codeBag7 part set feat20=getLastFeatureByType(part,"ProfileFeature") feat20.select false if (sw2003api=0) then part.FeatureCut 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0,0.0626,0),createVec3d(1,0.0626,0),createVec3d(0,0.0626,-1),1 part.BlankRefGeom set feat22=getLastFeatureByType(part,"RefPlane") feat22.select false codeBag8 part set feat22=getLastFeatureByType(part,"ProfileFeature") feat22.select false if (sw2003api=0) then part.FeatureCut 0,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 0,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(-0.00508,0.0626,0),createVec3d(0.99492,0.0626,0),createVec3d(-0.00508,0.0626,-1),1 part.BlankRefGeom set feat24=getLastFeatureByType(part,"RefPlane") feat24.select false codeBag9 part set feat24=getLastFeatureByType(part,"ProfileFeature") feat24.select false if (sw2003api=0) then part.FeatureCut 0,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 0,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.024),createVec3d(1,0,0.024),createVec3d(0,1,0.024),1 part.BlankRefGeom set feat27=getLastFeatureByType(part,"RefPlane") feat27.select false codeBag10 part set feat27=getLastFeatureByType(part,"ProfileFeature") feat27.select false 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.00508,0,0.024),createVec3d(0.99492,0,0.024),createVec3d(-0.00508,1,0.024),1 part.BlankRefGeom set feat31=getLastFeatureByType(part,"RefPlane") feat31.select false codeBag11 part set feat31=getLastFeatureByType(part,"ProfileFeature") feat31.select false 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.01016,0,0.024),createVec3d(0.98984,0,0.024),createVec3d(-0.01016,1,0.024),1 part.BlankRefGeom set feat32=getLastFeatureByType(part,"RefPlane") feat32.select false codeBag12 part set feat32=getLastFeatureByType(part,"ProfileFeature") feat32.select false 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.01524,0,0.024),createVec3d(0.98476,0,0.024),createVec3d(-0.01524,1,0.024),1 part.BlankRefGeom set feat33=getLastFeatureByType(part,"RefPlane") feat33.select false codeBag13 part set feat33=getLastFeatureByType(part,"ProfileFeature") feat33.select false 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.024),createVec3d(1,0,0.024),createVec3d(0,1,0.024),1 part.BlankRefGeom set feat35=getLastFeatureByType(part,"RefPlane") feat35.select false codeBag14 part set feat35=getLastFeatureByType(part,"ProfileFeature") feat35.select false 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.00508,0,0.024),createVec3d(0.99492,0,0.024),createVec3d(-0.00508,1,0.024),1 part.BlankRefGeom set feat37=getLastFeatureByType(part,"RefPlane") feat37.select false codeBag15 part set feat37=getLastFeatureByType(part,"ProfileFeature") feat37.select false 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.0144,0),createVec3d(1,0.0144,0),createVec3d(0,0.0144,-1),1 part.BlankRefGeom set feat40=getLastFeatureByType(part,"RefPlane") feat40.select false codeBag16 part set feat40=getLastFeatureByType(part,"ProfileFeature") feat40.select false if (sw2003api=0) then part.FeatureCut 1,0,0,0,0,0.001,0.001,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,0,0,0,0.001,0.001,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0,0.0144,0),createVec3d(1,0.0144,0),createVec3d(0,0.0144,-1),1 part.BlankRefGeom set feat42=getLastFeatureByType(part,"RefPlane") feat42.select false codeBag17 part set feat42=getLastFeatureByType(part,"ProfileFeature") feat42.select false if (sw2003api=0) then part.FeatureCut 1,0,0,0,0,0.001,0.001,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,0,0,0,0.001,0.001,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0,0.0144,0),createVec3d(1,0.0144,0),createVec3d(0,0.0144,-1),1 part.BlankRefGeom set feat44=getLastFeatureByType(part,"RefPlane") feat44.select false codeBag18 part set feat44=getLastFeatureByType(part,"ProfileFeature") feat44.select false if (sw2003api=0) then part.FeatureCut 1,0,0,0,0,0.0015,0.0015,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,0,0,0,0.0015,0.0015,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0,0.0144,0),createVec3d(1,0.0144,0),createVec3d(0,0.0144,-1),1 part.BlankRefGeom set feat46=getLastFeatureByType(part,"RefPlane") feat46.select false codeBag19 part set feat46=getLastFeatureByType(part,"ProfileFeature") feat46.select false if (sw2003api=0) then part.FeatureExtrusion 0,0,1,0,0,0.0025,0.0025,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 0,0,1,0,0,0.0025,0.0025,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0.0144,0),createVec3d(1,0.0144,0),createVec3d(0,0.0144,-1),1 part.BlankRefGeom set feat48=getLastFeatureByType(part,"RefPlane") feat48.select false codeBag20 part set feat48=getLastFeatureByType(part,"ProfileFeature") feat48.select false if (sw2003api=0) then part.FeatureExtrusion 0,0,1,0,0,0.0025,0.0025,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 0,0,1,0,0,0.0025,0.0025,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0.0144,0),createVec3d(1,0.0144,0),createVec3d(0,0.0144,-1),1 part.BlankRefGeom set feat50=getLastFeatureByType(part,"RefPlane") feat50.select false codeBag21 part set feat50=getLastFeatureByType(part,"ProfileFeature") feat50.select false if (sw2003api=0) then part.FeatureExtrusion 0,0,1,0,0,0.0025,0.0025,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 0,0,1,0,0,0.0025,0.0025,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.036),createVec3d(1,0,0.036),createVec3d(0,1,0.036),1 part.BlankRefGeom set feat53=getLastFeatureByType(part,"RefPlane") feat53.select false codeBag22 part set feat53=getLastFeatureByType(part,"ProfileFeature") feat53.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.012,0.012,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.012,0.012,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.036),createVec3d(1,0,0.036),createVec3d(0,1,0.036),1 part.BlankRefGeom set feat55=getLastFeatureByType(part,"RefPlane") feat55.select false codeBag23 part set feat55=getLastFeatureByType(part,"ProfileFeature") feat55.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.036),createVec3d(1,0,0.036),createVec3d(0,1,0.036),1 part.BlankRefGeom set feat57=getLastFeatureByType(part,"RefPlane") feat57.select false codeBag24 part set feat57=getLastFeatureByType(part,"ProfileFeature") feat57.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.036),createVec3d(1,0,0.036),createVec3d(0,1,0.036),1 part.BlankRefGeom set feat59=getLastFeatureByType(part,"RefPlane") feat59.select false codeBag25 part set feat59=getLastFeatureByType(part,"ProfileFeature") feat59.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.036),createVec3d(1,0,0.036),createVec3d(0,1,0.036),1 part.BlankRefGeom set feat61=getLastFeatureByType(part,"RefPlane") feat61.select false codeBag26 part set feat61=getLastFeatureByType(part,"ProfileFeature") feat61.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.048),createVec3d(1,0,0.048),createVec3d(0,1,0.048),1 part.BlankRefGeom set feat64=getLastFeatureByType(part,"RefPlane") feat64.select false codeBag27 part set feat64=getLastFeatureByType(part,"ProfileFeature") feat64.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.048),createVec3d(1,0,0.048),createVec3d(0,1,0.048),1 part.BlankRefGeom set feat66=getLastFeatureByType(part,"RefPlane") feat66.select false codeBag28 part set feat66=getLastFeatureByType(part,"ProfileFeature") feat66.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.048),createVec3d(1,0,0.048),createVec3d(0,1,0.048),1 part.BlankRefGeom set feat68=getLastFeatureByType(part,"RefPlane") feat68.select false codeBag29 part set feat68=getLastFeatureByType(part,"ProfileFeature") feat68.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.048),createVec3d(1,0,0.048),createVec3d(0,1,0.048),1 part.BlankRefGeom set feat70=getLastFeatureByType(part,"RefPlane") feat70.select false codeBag30 part set feat70=getLastFeatureByType(part,"ProfileFeature") feat70.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.048),createVec3d(1,0,0.048),createVec3d(0,1,0.048),1 part.BlankRefGeom set feat72=getLastFeatureByType(part,"RefPlane") feat72.select false codeBag31 part set feat72=getLastFeatureByType(part,"ProfileFeature") feat72.select false if (sw2003api=0) then part.FeatureCut 1,0,0,0,0,0.0019,0.0019,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,0,0,0,0.0019,0.0019,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.04705),createVec3d(1,0,0.04705),createVec3d(0,1,0.04705),1 part.BlankRefGeom set feat75=getLastFeatureByType(part,"RefPlane") feat75.select false codeBag32 part set feat75=getLastFeatureByType(part,"ProfileFeature") feat75.select false if (sw2003api=0) then part.FeatureExtrusion 0,0,1,0,0,0.0008,0.0008,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 0,0,1,0,0,0.0008,0.0008,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-1),1 part.BlankRefGeom set feat78=getLastFeatureByType(part,"RefPlane") feat78.select false codeBag33 part set feat78=getLastFeatureByType(part,"ProfileFeature") feat78.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.052,0.052,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.052,0.052,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-1),1 part.BlankRefGeom set feat80=getLastFeatureByType(part,"RefPlane") feat80.select false codeBag34 part set feat80=getLastFeatureByType(part,"ProfileFeature") feat80.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.052,0.052,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.052,0.052,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-1),1 part.BlankRefGeom set feat82=getLastFeatureByType(part,"RefPlane") feat82.select false codeBag35 part set feat82=getLastFeatureByType(part,"ProfileFeature") feat82.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0608,0.0608,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0608,0.0608,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-1),1 part.BlankRefGeom set feat84=getLastFeatureByType(part,"RefPlane") feat84.select false codeBag36 part set feat84=getLastFeatureByType(part,"ProfileFeature") feat84.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0548,0.0548,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0548,0.0548,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-1),1 part.BlankRefGeom set feat86=getLastFeatureByType(part,"RefPlane") feat86.select false codeBag37 part set feat86=getLastFeatureByType(part,"ProfileFeature") feat86.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0548,0.0548,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0548,0.0548,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,-0.0064,0),createVec3d(1,-0.0064,0),createVec3d(0,-0.0064,-1),1 part.BlankRefGeom set feat88=getLastFeatureByType(part,"RefPlane") feat88.select false codeBag38 part set feat88=getLastFeatureByType(part,"ProfileFeature") feat88.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0608,0.0608,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0608,0.0608,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0.049,0,0),createVec3d(0.049,0,-1),createVec3d(0.049,1,0),1 part.BlankRefGeom set feat91=getLastFeatureByType(part,"RefPlane") feat91.select false codeBag39 part set feat91=getLastFeatureByType(part,"ProfileFeature") feat91.select false 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.049,0,0.005),createVec3d(0.049,0,-0.995),createVec3d(0.049,1,0.005),1 part.BlankRefGeom set feat93=getLastFeatureByType(part,"RefPlane") feat93.select false codeBag40 part set feat93=getLastFeatureByType(part,"ProfileFeature") feat93.select false 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.049,0,0),createVec3d(0.049,0,-1),createVec3d(0.049,1,0),1 part.BlankRefGeom set feat95=getLastFeatureByType(part,"RefPlane") feat95.select false codeBag41 part set feat95=getLastFeatureByType(part,"ProfileFeature") feat95.select false 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.049,0,0.005),createVec3d(0.049,0,-0.995),createVec3d(0.049,1,0.005),1 part.BlankRefGeom set feat97=getLastFeatureByType(part,"RefPlane") feat97.select false codeBag42 part set feat97=getLastFeatureByType(part,"ProfileFeature") feat97.select false 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.0446,0,0),createVec3d(0.0446,0,-1),createVec3d(0.0446,1,0),1 part.BlankRefGeom set feat100=getLastFeatureByType(part,"RefPlane") feat100.select false codeBag43 part set feat100=getLastFeatureByType(part,"ProfileFeature") feat100.select false 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.0446,0,0.005),createVec3d(0.0446,0,-0.995),createVec3d(0.0446,1,0.005),1 part.BlankRefGeom set feat102=getLastFeatureByType(part,"RefPlane") feat102.select false codeBag44 part set feat102=getLastFeatureByType(part,"ProfileFeature") feat102.select false 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.0291,0,0),createVec3d(0.0291,0,-1),createVec3d(0.0291,1,0),1 part.BlankRefGeom set feat105=getLastFeatureByType(part,"RefPlane") feat105.select false codeBag45 part set feat105=getLastFeatureByType(part,"ProfileFeature") feat105.select false 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.0291,0,0.005),createVec3d(0.0291,0,-0.995),createVec3d(0.0291,1,0.005),1 part.BlankRefGeom set feat107=getLastFeatureByType(part,"RefPlane") feat107.select false codeBag46 part set feat107=getLastFeatureByType(part,"ProfileFeature") feat107.select false 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.0312,0,0),createVec3d(0.0312,0,-1),createVec3d(0.0312,1,0),1 part.BlankRefGeom set feat110=getLastFeatureByType(part,"RefPlane") feat110.select false codeBag47 part set feat110=getLastFeatureByType(part,"ProfileFeature") feat110.select false 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.0312,0,0.005),createVec3d(0.0312,0,-0.995),createVec3d(0.0312,1,0.005),1 part.BlankRefGeom set feat112=getLastFeatureByType(part,"RefPlane") feat112.select false codeBag48 part set feat112=getLastFeatureByType(part,"ProfileFeature") feat112.select false 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.033,0,0),createVec3d(0.033,0,-1),createVec3d(0.033,1,0),1 part.BlankRefGeom set feat115=getLastFeatureByType(part,"RefPlane") feat115.select false codeBag49 part set feat115=getLastFeatureByType(part,"ProfileFeature") feat115.select false if (sw2003api=0) then part.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0.033,0,0.005),createVec3d(0.033,0,-0.995),createVec3d(0.033,1,0.005),1 part.BlankRefGeom set feat117=getLastFeatureByType(part,"RefPlane") feat117.select false codeBag50 part set feat117=getLastFeatureByType(part,"ProfileFeature") feat117.select false if (sw2003api=0) then part.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0.0131,0,0),createVec3d(0.0131,0,-1),createVec3d(0.0131,1,0),1 part.BlankRefGeom set feat120=getLastFeatureByType(part,"RefPlane") feat120.select false codeBag51 part set feat120=getLastFeatureByType(part,"ProfileFeature") feat120.select false 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.0131,0,0.005),createVec3d(0.0131,0,-0.995),createVec3d(0.0131,1,0.005),1 part.BlankRefGeom set feat122=getLastFeatureByType(part,"RefPlane") feat122.select false codeBag52 part set feat122=getLastFeatureByType(part,"ProfileFeature") feat122.select false 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.0152,0,0),createVec3d(0.0152,0,-1),createVec3d(0.0152,1,0),1 part.BlankRefGeom set feat125=getLastFeatureByType(part,"RefPlane") feat125.select false codeBag53 part set feat125=getLastFeatureByType(part,"ProfileFeature") feat125.select false 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.0152,0,0.005),createVec3d(0.0152,0,-0.995),createVec3d(0.0152,1,0.005),1 part.BlankRefGeom set feat127=getLastFeatureByType(part,"RefPlane") feat127.select false codeBag54 part set feat127=getLastFeatureByType(part,"ProfileFeature") feat127.select false 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.017,0,0),createVec3d(0.017,0,-1),createVec3d(0.017,1,0),1 part.BlankRefGeom set feat130=getLastFeatureByType(part,"RefPlane") feat130.select false codeBag55 part set feat130=getLastFeatureByType(part,"ProfileFeature") feat130.select false if (sw2003api=0) then part.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0.017,0,0.005),createVec3d(0.017,0,-0.995),createVec3d(0.017,1,0.005),1 part.BlankRefGeom set feat132=getLastFeatureByType(part,"RefPlane") feat132.select false codeBag56 part set feat132=getLastFeatureByType(part,"ProfileFeature") feat132.select false if (sw2003api=0) then part.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(-0.0053,0,0),createVec3d(-0.0053,0,-1),createVec3d(-0.0053,1,0),1 part.BlankRefGeom set feat135=getLastFeatureByType(part,"RefPlane") feat135.select false codeBag57 part set feat135=getLastFeatureByType(part,"ProfileFeature") feat135.select false 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.0053,0,0.005),createVec3d(-0.0053,0,-0.995),createVec3d(-0.0053,1,0.005),1 part.BlankRefGeom set feat137=getLastFeatureByType(part,"RefPlane") feat137.select false codeBag58 part set feat137=getLastFeatureByType(part,"ProfileFeature") feat137.select false 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.0032,0,0),createVec3d(-0.0032,0,-1),createVec3d(-0.0032,1,0),1 part.BlankRefGeom set feat140=getLastFeatureByType(part,"RefPlane") feat140.select false codeBag59 part set feat140=getLastFeatureByType(part,"ProfileFeature") feat140.select false 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.0032,0,0.005),createVec3d(-0.0032,0,-0.995),createVec3d(-0.0032,1,0.005),1 part.BlankRefGeom set feat142=getLastFeatureByType(part,"RefPlane") feat142.select false codeBag60 part set feat142=getLastFeatureByType(part,"ProfileFeature") feat142.select false 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.0014,0,0),createVec3d(-0.0014,0,-1),createVec3d(-0.0014,1,0),1 part.BlankRefGeom set feat145=getLastFeatureByType(part,"RefPlane") feat145.select false codeBag61 part set feat145=getLastFeatureByType(part,"ProfileFeature") feat145.select false if (sw2003api=0) then part.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(-0.0014,0,0.005),createVec3d(-0.0014,0,-0.995),createVec3d(-0.0014,1,0.005),1 part.BlankRefGeom set feat147=getLastFeatureByType(part,"RefPlane") feat147.select false codeBag62 part set feat147=getLastFeatureByType(part,"ProfileFeature") feat147.select false if (sw2003api=0) then part.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(-0.0237,0,0),createVec3d(-0.0237,0,-1),createVec3d(-0.0237,1,0),1 part.BlankRefGeom set feat150=getLastFeatureByType(part,"RefPlane") feat150.select false codeBag63 part set feat150=getLastFeatureByType(part,"ProfileFeature") feat150.select false 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.0237,0,0.005),createVec3d(-0.0237,0,-0.995),createVec3d(-0.0237,1,0.005),1 part.BlankRefGeom set feat152=getLastFeatureByType(part,"RefPlane") feat152.select false codeBag64 part set feat152=getLastFeatureByType(part,"ProfileFeature") feat152.select false 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.0216,0,0),createVec3d(-0.0216,0,-1),createVec3d(-0.0216,1,0),1 part.BlankRefGeom set feat155=getLastFeatureByType(part,"RefPlane") feat155.select false codeBag65 part set feat155=getLastFeatureByType(part,"ProfileFeature") feat155.select false 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.0216,0,0.005),createVec3d(-0.0216,0,-0.995),createVec3d(-0.0216,1,0.005),1 part.BlankRefGeom set feat157=getLastFeatureByType(part,"RefPlane") feat157.select false codeBag66 part set feat157=getLastFeatureByType(part,"ProfileFeature") feat157.select false 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.0198,0,0),createVec3d(-0.0198,0,-1),createVec3d(-0.0198,1,0),1 part.BlankRefGeom set feat160=getLastFeatureByType(part,"RefPlane") feat160.select false codeBag67 part set feat160=getLastFeatureByType(part,"ProfileFeature") feat160.select false if (sw2003api=0) then part.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(-0.0198,0,0.005),createVec3d(-0.0198,0,-0.995),createVec3d(-0.0198,1,0.005),1 part.BlankRefGeom set feat162=getLastFeatureByType(part,"RefPlane") feat162.select false codeBag68 part set feat162=getLastFeatureByType(part,"ProfileFeature") feat162.select false if (sw2003api=0) then part.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0 else featMgr.FeatureCut 1,0,1,0,0,0.0038,0.0038,1,1,0,0,0,0,0,0,0,0,0,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.042),createVec3d(1,0,0.042),createVec3d(0,1,0.042),1 part.BlankRefGeom set feat165=getLastFeatureByType(part,"RefPlane") feat165.select false codeBag69 part set feat165=getLastFeatureByType(part,"ProfileFeature") feat165.select false if (sw2003api=0) then part.FeatureExtrusion 0,0,1,0,0,0.0056,0.0056,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 0,0,1,0,0,0.0056,0.0056,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.0476),createVec3d(1,0,0.0476),createVec3d(0,1,0.0476),1 part.BlankRefGeom set feat168=getLastFeatureByType(part,"RefPlane") feat168.select false codeBag70 part set feat168=getLastFeatureByType(part,"ProfileFeature") feat168.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,1,0,0,0.0006,0.0006,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,1,0,0,0.0006,0.0006,1,1,0,0,0,0,0,0,0,0,1,1,1 end if part.CreatePlaneFixed createVec3d(0,0,0.0364),createVec3d(1,0,0.0364),createVec3d(0,1,0.0364),1 part.BlankRefGeom set feat171=getLastFeatureByType(part,"RefPlane") feat171.select false codeBag71 part set feat171=getLastFeatureByType(part,"ProfileFeature") feat171.select false if (sw2003api=0) then part.FeatureExtrusion 1,0,0,0,0,0.0006,0.0006,1,1,0,0,0,0,0,0 else featMgr.FeatureExtrusion 1,0,0,0,0,0.0006,0.0006,1,1,0,0,0,0,0,0,0,0,1,1,1 end if CreatePartItems0 part,featMgr part.SetDisplayWhenAdded (true) part.SetAddToDB(false) part.EditRebuild3 part.Rebuild swRebuildAll part.SaveAs2 storePath & "750-314.sldprt",0,0,false End Sub sub codeBag0(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) cLn part,wMat,-0.033,-0.0064,-0.018259927446566,-0.0064 cLn part,wMat,-0.018259927446566,-0.0064,-0.0177,0 cLn part,wMat,-0.0177,0,0.0177,0 cLn part,wMat,0.0177,0,0.0177,-0.0064 cLn part,wMat,0.0177,-0.0064,0.0606,-0.0064 cLn part,wMat,0.0606,-0.0064,0.0606,0.0144 cLn part,wMat,0.0606,0.0144,-0.033,0.0144 cLn part,wMat,-0.033,0.0144,-0.033,-0.0064 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag1(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) cLn part,wMat,-0.00935,0,-0.0082580892972014,-0.003 cArc part,wMat,-0.0082580892972014,-0.003,-1.007925407158e-17,-0.0043463195210239,0.0082580892972014,-0.003 cLn part,wMat,0.0082580892972014,-0.003,0.00935,0 cLn part,wMat,0.00935,0,-0.00935,0 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag2(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) cArc part,wMat,0.0083246939255558,0.0035958042783031,0.0084790625645653,0.0029738910163954,0.0089792440703474,0.0025733610633084 cLn part,wMat,0.0089792440703474,0.0025733610633084,0.015002920512148,0.00038092213764227 cArc part,wMat,0.015002920512148,0.00038092213764227,0.015508036409125,0.00024557674096338,0.016028980942125,0.00020000000000001 cLn part,wMat,0.016028980942125,0.00020000000000001,0.0177,0.00020000000000001 cLn part,wMat,0.0177,0.00020000000000001,0.0177,-0.0011 cLn part,wMat,0.0177,-0.0011,0.0163,-0.0014751288694036 cArc part,wMat,0.0163,-0.0014751288694036,0.016551049806305,-0.0023132845907526,0.016850629748335,-0.0031353447325971 cArc part,wMat,0.016850629748335,-0.0031353447325971,0.017383204947069,-0.0036836428966267,0.018147485440274,-0.0036955821885433 cArc part,wMat,0.018147485440274,-0.0036955821885433,0.02247960913008,0.0012322170972366,0.021015519990457,0.0076280707897431 cArc part,wMat,0.021015519990457,0.0076280707897431,0.020170220758773,0.0077020248898025,0.020096266606251,0.0068567257206415 cArc part,wMat,0.020096266606251,0.0068567257206415,0.020034638241998,0.0061523096317165,0.019330222215595,0.0062139380484327 cArc part,wMat,0.019330222215595,0.0062139380484327,0.014205904774487,0.0078296291314453,0.010575961249576,0.0038682409713477 cArc part,wMat,0.010575961249576,0.0038682409713477,0.0099967332793058,0.0034626610989505,0.0095911534793392,0.0040418890513268 cArc part,wMat,0.0095911534793392,0.0040418890513268,0.0091044576896219,0.0047369626327136,0.0084093841783121,0.0042502668792019 cArc part,wMat,0.0084093841783121,0.0042502668792019,0.0083595369827027,0.0039240064386195,0.0083246939255558,0.0035958042783031 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag3(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.02) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.033,-0.0064,-0.0177,-0.0064 cLn part,wMat,-0.0177,-0.0064,-0.0177,0 cLn part,wMat,-0.0177,0,0.0177,0 cLn part,wMat,0.0177,0,0.0177,-0.0064 cLn part,wMat,0.0177,-0.0064,0.0606,-0.0064 cLn part,wMat,0.0606,-0.0064,0.0606,0.061892893218813 cLn part,wMat,0.0606,0.061892893218813,0.059892893218813,0.0626 cLn part,wMat,0.059892893218813,0.0626,0.03178,0.0626 cLn part,wMat,0.03178,0.0626,0.03078,0.0616 cLn part,wMat,0.03078,0.0616,0.02978,0.0616 cLn part,wMat,0.02978,0.0616,0.02878,0.0626 cArc part,wMat,0.02878,0.0626,-0.0010339069254631,0.061319157296826,-0.030573066750758,0.057082691670136 cArc part,wMat,-0.030573066750758,0.057082691670136,-0.032315081019346,0.056045917744944,-0.033,0.054137934549561 cLn part,wMat,-0.033,0.054137934549561,-0.033,-0.0064 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0626,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cCir part,wMat,0.0506,-0.024,0.00175 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.00508,0.0626,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cCir part,wMat,0.0506,-0.024,0.00175 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.01016,0.0626,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cCir part,wMat,0.0506,-0.024,0.00175 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag7(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,-0.01524,0.0626,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cCir part,wMat,0.0506,-0.024,0.00175 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag8(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.0626,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cCir part,wMat,0.0252,-0.024,0.00175 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.00508,0.0626,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cCir part,wMat,0.0252,-0.024,0.00175 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag10(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.024) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,0.0506,0.0652,0.05162530483272,0.06477530483272,0.05205,0.06375 cLn part,wMat,0.05205,0.06375,0.05205,0.0596 cLn part,wMat,0.05205,0.0596,0.0506,0.0596 cLn part,wMat,0.0506,0.0596,0.0506,0.0652 cCLn part,wMat,0.0506,0.0596,0.0506,0.0652 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag11(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,-0.00508,0,0.024) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,0.0506,0.0652,0.05162530483272,0.06477530483272,0.05205,0.06375 cLn part,wMat,0.05205,0.06375,0.05205,0.0596 cLn part,wMat,0.05205,0.0596,0.0506,0.0596 cLn part,wMat,0.0506,0.0596,0.0506,0.0652 cCLn part,wMat,0.0506,0.0596,0.0506,0.0652 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag12(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,-0.01016,0,0.024) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,0.0506,0.0652,0.05162530483272,0.06477530483272,0.05205,0.06375 cLn part,wMat,0.05205,0.06375,0.05205,0.0596 cLn part,wMat,0.05205,0.0596,0.0506,0.0596 cLn part,wMat,0.0506,0.0596,0.0506,0.0652 cCLn part,wMat,0.0506,0.0596,0.0506,0.0652 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag13(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,-0.01524,0,0.024) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,0.0506,0.0652,0.05162530483272,0.06477530483272,0.05205,0.06375 cLn part,wMat,0.05205,0.06375,0.05205,0.0596 cLn part,wMat,0.05205,0.0596,0.0506,0.0596 cLn part,wMat,0.0506,0.0596,0.0506,0.0652 cCLn part,wMat,0.0506,0.0596,0.0506,0.0652 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag14(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.024) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,0.0252,0.0652,0.02622530483272,0.06477530483272,0.02665,0.06375 cLn part,wMat,0.02665,0.06375,0.02665,0.0596 cLn part,wMat,0.02665,0.0596,0.0252,0.0596 cLn part,wMat,0.0252,0.0596,0.0252,0.0652 cCLn part,wMat,0.0252,0.0596,0.0252,0.0652 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag15(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,-0.00508,0,0.024) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,0.0252,0.0652,0.02622530483272,0.06477530483272,0.02665,0.06375 cLn part,wMat,0.02665,0.06375,0.02665,0.0596 cLn part,wMat,0.02665,0.0596,0.0252,0.0596 cLn part,wMat,0.0252,0.0596,0.0252,0.0652 cCLn part,wMat,0.0252,0.0596,0.0252,0.0652 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag16(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,0.0144,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.028,-0.00485,-0.028,-0.01515 cLn part,wMat,-0.028,-0.01515,-0.0177,-0.01515 cLn part,wMat,-0.0177,-0.01515,-0.0177,-0.00485 cLn part,wMat,-0.0177,-0.00485,-0.028,-0.00485 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0144,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.008,-0.00485,-0.008,-0.01515 cLn part,wMat,-0.008,-0.01515,0.0023,-0.01515 cLn part,wMat,0.0023,-0.01515,0.0023,-0.00485 cLn part,wMat,0.0023,-0.00485,-0.008,-0.00485 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0144,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,0.01747,-0.007125,0.014595,-0.01,0.01747,-0.012875 cLn part,wMat,0.01747,-0.012875,0.018845,-0.012875 cArc part,wMat,0.018845,-0.012875,0.019693528137424,-0.013226471862576,0.020045,-0.014075 cLn part,wMat,0.020045,-0.014075,0.020045,-0.01405 cArc part,wMat,0.020045,-0.01405,0.020513629150102,-0.015181370849898,0.021645,-0.01565 cLn part,wMat,0.021645,-0.01565,0.038295,-0.01565 cArc part,wMat,0.038295,-0.01565,0.039426370849898,-0.015181370849898,0.039895,-0.01405 cLn part,wMat,0.039895,-0.01405,0.039895,-0.014075 cArc part,wMat,0.039895,-0.014075,0.040246471862576,-0.013226471862576,0.041095,-0.012875 cLn part,wMat,0.041095,-0.012875,0.04247,-0.012875 cArc part,wMat,0.04247,-0.012875,0.045345,-0.01,0.04247,-0.007125 cLn part,wMat,0.04247,-0.007125,0.039695,-0.007125 cArc part,wMat,0.039695,-0.007125,0.038846471862576,-0.0067735281374239,0.038495,-0.005925 cLn part,wMat,0.038495,-0.005925,0.038495,-0.00595 cArc part,wMat,0.038495,-0.00595,0.038026370849898,-0.0048186291501015,0.036895,-0.00435 cLn part,wMat,0.036895,-0.00435,0.023045,-0.00435 cArc part,wMat,0.023045,-0.00435,0.021913629150102,-0.0048186291501015,0.021445,-0.00595 cLn part,wMat,0.021445,-0.00595,0.021445,-0.005925 cArc part,wMat,0.021445,-0.005925,0.021093528137424,-0.0067735281374239,0.020245,-0.007125 cLn part,wMat,0.020245,-0.007125,0.01747,-0.007125 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0144,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.04027,-0.0087298294077828,0.04027,-0.011270170592217 cLn part,wMat,0.04027,-0.011270170592217,0.04247,-0.012540341184434 cLn part,wMat,0.04247,-0.012540341184434,0.04467,-0.011270170592217 cLn part,wMat,0.04467,-0.011270170592217,0.04467,-0.0087298294077828 cLn part,wMat,0.04467,-0.0087298294077828,0.04247,-0.0074596588155656 cLn part,wMat,0.04247,-0.0074596588155656,0.04027,-0.0087298294077828 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0144,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.01527,-0.0087298294077828,0.01527,-0.011270170592217 cLn part,wMat,0.01527,-0.011270170592217,0.01747,-0.012540341184434 cLn part,wMat,0.01747,-0.012540341184434,0.01967,-0.011270170592217 cLn part,wMat,0.01967,-0.011270170592217,0.01967,-0.0087298294077828 cLn part,wMat,0.01967,-0.0087298294077828,0.01747,-0.0074596588155656 cLn part,wMat,0.01747,-0.0074596588155656,0.01527,-0.0087298294077828 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0144,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,0.022004412650997,-0.010855843373599,0.022437527860725,-0.013023090350898,0.02442,-0.014 cLn part,wMat,0.02442,-0.014,0.03552,-0.014 cArc part,wMat,0.03552,-0.014,0.037502472139275,-0.013023090350898,0.037935587349003,-0.010855843373599 cLn part,wMat,0.037935587349003,-0.010855843373599,0.037135587349003,-0.0078558433735992 cArc part,wMat,0.037135587349003,-0.0078558433735992,0.036243090350898,-0.0065175278607251,0.03472,-0.006 cLn part,wMat,0.03472,-0.006,0.02522,-0.006 cArc part,wMat,0.02522,-0.006,0.023696909649102,-0.0065175278607251,0.022804412650997,-0.0078558433735992 cLn part,wMat,0.022804412650997,-0.0078558433735992,0.022004412650997,-0.010855843373599 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag22(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.036) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0324,0.049707179676972,-0.0324,-0.0064 cLn part,wMat,-0.0324,-0.0064,-0.021967949192431,-0.0064 cLn part,wMat,-0.021967949192431,-0.0064,-0.0207,-0.0071320508075689 cArc part,wMat,-0.0207,-0.0071320508075689,-0.0187,-0.0071320508075689,-0.0177,-0.0054 cLn part,wMat,-0.0177,-0.0054,-0.0177,0 cLn part,wMat,-0.0177,0,0.0177,0 cLn part,wMat,0.0177,0,0.0177,-0.0054 cArc part,wMat,0.0177,-0.0054,0.0187,-0.0071320508075689,0.0207,-0.0071320508075689 cLn part,wMat,0.0207,-0.0071320508075689,0.021967949192431,-0.0064 cLn part,wMat,0.021967949192431,-0.0064,0.06,-0.0064 cLn part,wMat,0.06,-0.0064,0.06,0.057921539030917 cLn part,wMat,0.06,0.057921539030917,0.0588,0.06 cLn part,wMat,0.0588,0.06,0.0542,0.06 cArc part,wMat,0.0542,0.06,0.053847625954994,0.059935859248181,0.053540454982324,0.059751665064812 cLn part,wMat,0.053540454982324,0.059751665064812,0.052,0.0584 cLn part,wMat,0.052,0.0584,0.041911704731648,0.0584 cLn part,wMat,0.041911704731648,0.0584,0.041802524267262,0.058353655642446 cLn part,wMat,0.041802524267262,0.058353655642446,0.041653067840724,0.058198888982175 cArc part,wMat,0.041653067840724,0.058198888982175,0.041577845822616,0.057861394416636,0.041843905892267,0.057640548318784 cArc part,wMat,0.041843905892267,0.057640548318784,0.042205654169426,0.057394752895358,0.042235668009158,0.056958431442696 cLn part,wMat,0.042235668009158,0.056958431442696,0.042158084443384,0.056766405379009 cLn part,wMat,0.042158084443384,0.056766405379009,0.038094779435044,0.05504163473239 cLn part,wMat,0.038094779435044,0.05504163473239,0.037902753371356,0.055119218298164 cArc part,wMat,0.037902753371356,0.055119218298164,0.037609739349714,0.055443902796946,0.037684220413192,0.055874866614234 cArc part,wMat,0.037684220413192,0.055874866614234,0.037710177854124,0.05621966676655,0.037415150976212,0.0564 cLn part,wMat,0.037415150976212,0.0564,0.025911704731648,0.0564 cLn part,wMat,0.025911704731648,0.0564,0.025802524267262,0.056353655642446 cLn part,wMat,0.025802524267262,0.056353655642446,0.025653067840724,0.056198888982175 cArc part,wMat,0.025653067840724,0.056198888982175,0.025577845822616,0.055861394416636,0.025843905848959,0.055640548325071 cArc part,wMat,0.025843905848959,0.055640548325071,0.026205654169426,0.055394752895358,0.026235668009158,0.054958431442696 cLn part,wMat,0.026235668009158,0.054958431442696,0.026158084443384,0.054766405379009 cLn part,wMat,0.026158084443384,0.054766405379009,0.022094779435044,0.05304163473239 cLn part,wMat,0.022094779435044,0.05304163473239,0.021902753371356,0.053119218298164 cArc part,wMat,0.021902753371356,0.053119218298164,0.021609739349714,0.053443902796946,0.021684220413192,0.053874866614234 cArc part,wMat,0.021684220413192,0.053874866614234,0.021710177854124,0.05421966676655,0.021415150976212,0.0544 cLn part,wMat,0.021415150976212,0.0544,0.0075117047316475,0.0544 cLn part,wMat,0.0075117047316475,0.0544,0.0074025242672622,0.054353655642446 cLn part,wMat,0.0074025242672622,0.054353655642446,0.007253067840724,0.054198888982175 cArc part,wMat,0.007253067840724,0.054198888982175,0.0071778458226159,0.053861394416636,0.0074439058954459,0.053640548318323 cArc part,wMat,0.0074439058954459,0.053640548318323,0.0078056541694262,0.053394752895358,0.0078356680091576,0.052958431442696 cLn part,wMat,0.0078356680091576,0.052958431442696,0.007758084443384,0.052766405379009 cLn part,wMat,0.007758084443384,0.052766405379009,0.0036947794350439,0.05104163473239 cLn part,wMat,0.0036947794350439,0.05104163473239,0.0035027533713565,0.051119218298164 cArc part,wMat,0.0035027533713565,0.051119218298164,0.0032097393497141,0.051443902796946,0.0032842204131923,0.051874866614234 cArc part,wMat,0.0032842204131923,0.051874866614234,0.0033101778541245,0.05221966676655,0.0030151509762121,0.0524 cLn part,wMat,0.0030151509762121,0.0524,-0.010888295268352,0.0524 cLn part,wMat,-0.010888295268352,0.0524,-0.010997475732738,0.052353655642446 cLn part,wMat,-0.010997475732738,0.052353655642446,-0.011146932159276,0.052198888982175 cArc part,wMat,-0.011146932159276,0.052198888982175,-0.011222154177384,0.051861394416636,-0.010956094197528,0.051640548331819 cArc part,wMat,-0.010956094197528,0.051640548331819,-0.010594345830574,0.051394752895358,-0.010564331990842,0.050958431442696 cLn part,wMat,-0.010564331990842,0.050958431442696,-0.010641915556616,0.050766405379009 cLn part,wMat,-0.010641915556616,0.050766405379009,-0.014705220564956,0.04904163473239 cLn part,wMat,-0.014705220564956,0.04904163473239,-0.014897246628644,0.049119218298164 cArc part,wMat,-0.014897246628644,0.049119218298164,-0.015190260650286,0.049443902796946,-0.015115779586808,0.049874866614234 cArc part,wMat,-0.015115779586808,0.049874866614234,-0.015089822145876,0.05021966676655,-0.015384849023788,0.0504 cLn part,wMat,-0.015384849023788,0.0504,-0.032,0.0504 cLn part,wMat,-0.032,0.0504,-0.0324,0.049707179676972 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag23(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.036) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0372,0.0564,0.037981462256979,0.054558990293095 cLn part,wMat,0.037981462256979,0.054558990293095,0.042693166988626,0.056558990293095 cLn part,wMat,0.042693166988626,0.056558990293095,0.041911704731648,0.0584 cLn part,wMat,0.041911704731648,0.0584,0.041342271840536,0.058158290078202 cArc part,wMat,0.041342271840536,0.058158290078202,0.040805819114458,0.057612391818165,0.040812498115573,0.05684705409626 cLn part,wMat,0.040812498115573,0.05684705409626,0.038971488408668,0.056065591839281 cArc part,wMat,0.038971488408668,0.056065591839281,0.038425590148631,0.056602044565359,0.037660252426726,0.056595365564245 cLn part,wMat,0.037660252426726,0.056595365564245,0.0372,0.0564 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag24(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.036) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0212,0.0544,0.021981462256979,0.052558990293095 cLn part,wMat,0.021981462256979,0.052558990293095,0.026693166988626,0.054558990293095 cLn part,wMat,0.026693166988626,0.054558990293095,0.025911704731648,0.0564 cLn part,wMat,0.025911704731648,0.0564,0.025342271840536,0.056158290078202 cArc part,wMat,0.025342271840536,0.056158290078202,0.024805819114458,0.055612391818165,0.024812498115573,0.05484705409626 cLn part,wMat,0.024812498115573,0.05484705409626,0.022971488408668,0.054065591839281 cArc part,wMat,0.022971488408668,0.054065591839281,0.022425590148631,0.054602044565359,0.021660252426726,0.054595365564245 cLn part,wMat,0.021660252426726,0.054595365564245,0.0212,0.0544 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag25(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.036) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0028,0.0524,0.0035814622569785,0.050558990293095 cLn part,wMat,0.0035814622569785,0.050558990293095,0.0082931669886261,0.052558990293095 cLn part,wMat,0.0082931669886261,0.052558990293095,0.0075117047316475,0.0544 cLn part,wMat,0.0075117047316475,0.0544,0.006942271840536,0.054158290078202 cArc part,wMat,0.006942271840536,0.054158290078202,0.0064058191144585,0.053612391818165,0.0064124981155728,0.05284705409626 cLn part,wMat,0.0064124981155728,0.05284705409626,0.0045714884086679,0.052065591839281 cArc part,wMat,0.0045714884086679,0.052065591839281,0.0040255901486314,0.052602044565359,0.0032602524267262,0.052595365564245 cLn part,wMat,0.0032602524267262,0.052595365564245,0.0028,0.0524 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag26(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.036) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0156,0.0504,-0.014818537743021,0.048558990293095 cLn part,wMat,-0.014818537743021,0.048558990293095,-0.010106833011374,0.050558990293095 cLn part,wMat,-0.010106833011374,0.050558990293095,-0.010888295268352,0.0524 cLn part,wMat,-0.010888295268352,0.0524,-0.011457728159464,0.052158290078202 cArc part,wMat,-0.011457728159464,0.052158290078202,-0.011994180885542,0.051612391818165,-0.011987501884427,0.05084705409626 cLn part,wMat,-0.011987501884427,0.05084705409626,-0.013828511591332,0.050065591839281 cArc part,wMat,-0.013828511591332,0.050065591839281,-0.014374409851369,0.050602044565359,-0.015139747573274,0.050595365564245 cLn part,wMat,-0.015139747573274,0.050595365564245,-0.0156,0.0504 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag27(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.048) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0372,0.0564,0.037981462256979,0.054558990293095 cLn part,wMat,0.037981462256979,0.054558990293095,0.042693166988626,0.056558990293095 cLn part,wMat,0.042693166988626,0.056558990293095,0.041911704731648,0.0584 cLn part,wMat,0.041911704731648,0.0584,0.041342271840536,0.058158290078202 cArc part,wMat,0.041342271840536,0.058158290078202,0.040805819114458,0.057612391818165,0.040812498115573,0.05684705409626 cLn part,wMat,0.040812498115573,0.05684705409626,0.038971488408668,0.056065591839281 cArc part,wMat,0.038971488408668,0.056065591839281,0.038425590148631,0.056602044565359,0.037660252426726,0.056595365564245 cLn part,wMat,0.037660252426726,0.056595365564245,0.0372,0.0564 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag28(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.048) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0212,0.0544,0.021981462256979,0.052558990293095 cLn part,wMat,0.021981462256979,0.052558990293095,0.026693166988626,0.054558990293095 cLn part,wMat,0.026693166988626,0.054558990293095,0.025911704731648,0.0564 cLn part,wMat,0.025911704731648,0.0564,0.025342271840536,0.056158290078202 cArc part,wMat,0.025342271840536,0.056158290078202,0.024805819114458,0.055612391818165,0.024812498115573,0.05484705409626 cLn part,wMat,0.024812498115573,0.05484705409626,0.022971488408668,0.054065591839281 cArc part,wMat,0.022971488408668,0.054065591839281,0.022425590148631,0.054602044565359,0.021660252426726,0.054595365564245 cLn part,wMat,0.021660252426726,0.054595365564245,0.0212,0.0544 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag29(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.048) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0028,0.0524,0.0035814622569785,0.050558990293095 cLn part,wMat,0.0035814622569785,0.050558990293095,0.0082931669886261,0.052558990293095 cLn part,wMat,0.0082931669886261,0.052558990293095,0.0075117047316475,0.0544 cLn part,wMat,0.0075117047316475,0.0544,0.006942271840536,0.054158290078202 cArc part,wMat,0.006942271840536,0.054158290078202,0.0064058191144585,0.053612391818165,0.0064124981155728,0.05284705409626 cLn part,wMat,0.0064124981155728,0.05284705409626,0.0045714884086679,0.052065591839281 cArc part,wMat,0.0045714884086679,0.052065591839281,0.0040255901486314,0.052602044565359,0.0032602524267262,0.052595365564245 cLn part,wMat,0.0032602524267262,0.052595365564245,0.0028,0.0524 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag30(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.048) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0156,0.0504,-0.014818537743021,0.048558990293095 cLn part,wMat,-0.014818537743021,0.048558990293095,-0.010106833011374,0.050558990293095 cLn part,wMat,-0.010106833011374,0.050558990293095,-0.010888295268352,0.0524 cLn part,wMat,-0.010888295268352,0.0524,-0.011457728159464,0.052158290078202 cArc part,wMat,-0.011457728159464,0.052158290078202,-0.011994180885542,0.051612391818165,-0.011987501884427,0.05084705409626 cLn part,wMat,-0.011987501884427,0.05084705409626,-0.013828511591332,0.050065591839281 cArc part,wMat,-0.013828511591332,0.050065591839281,-0.014374409851369,0.050602044565359,-0.015139747573274,0.050595365564245 cLn part,wMat,-0.015139747573274,0.050595365564245,-0.0156,0.0504 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag31(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.048) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0073,0.0524,-0.0073,0.0464 cLn part,wMat,-0.0073,0.0464,0.0025,0.0464 cLn part,wMat,0.0025,0.0464,0.0025,0.0524 cLn part,wMat,0.0025,0.0524,-0.0073,0.0524 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag32(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.04705) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,-0.007,0.0466,-0.0069414213562373,0.046458578643763,-0.0068,0.0464 cLn part,wMat,-0.0068,0.0464,0.002,0.0464 cArc part,wMat,0.002,0.0464,0.0021414213562373,0.046458578643763,0.0022,0.0466 cLn part,wMat,0.0022,0.0466,0.0022,0.0522 cArc part,wMat,0.0022,0.0522,0.0021414213562373,0.052341421356237,0.002,0.0524 cLn part,wMat,0.002,0.0524,-0.0033,0.0524 cArc part,wMat,-0.0033,0.0524,-0.0035996107691839,0.052684722991489,-0.0033305143751378,0.05299844408674 cLn part,wMat,-0.0033305143751378,0.05299844408674,-0.0023245713540519,0.053101296594384 cArc part,wMat,-0.0023245713540519,0.053101296594384,-0.0021003243590134,0.053362730840425,-0.00235,0.0536 cLn part,wMat,-0.00235,0.0536,-0.0068,0.0536 cArc part,wMat,-0.0068,0.0536,-0.0069414213562373,0.053541421356237,-0.007,0.0534 cLn part,wMat,-0.007,0.0534,-0.007,0.0466 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag33(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.0064,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0604,-0.036,0.0619,-0.036 cLn part,wMat,0.0619,-0.036,0.0619,-0.0344 cLn part,wMat,0.0619,-0.0344,0.0604,-0.0344 cLn part,wMat,0.0604,-0.0344,0.0604,-0.036 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag34(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.0064,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0345,-0.036,-0.033,-0.036 cLn part,wMat,-0.033,-0.036,-0.033,-0.0344 cLn part,wMat,-0.033,-0.0344,-0.0345,-0.0344 cLn part,wMat,-0.0345,-0.0344,-0.0345,-0.036 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag35(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.0064,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,0.06,-0.0377,0.060146446609407,-0.037346446609407,0.0605,-0.0372 cLn part,wMat,0.0605,-0.0372,0.0619,-0.0372 cArc part,wMat,0.0619,-0.0372,0.062253553390593,-0.037346446609407,0.0624,-0.0377 cLn part,wMat,0.0624,-0.0377,0.0624,-0.0403 cArc part,wMat,0.0624,-0.0403,0.0631,-0.041,0.0638,-0.0403 cLn part,wMat,0.0638,-0.0403,0.0638,-0.0342 cArc part,wMat,0.0638,-0.0342,0.063507106781187,-0.033492893218813,0.0628,-0.0332 cLn part,wMat,0.0628,-0.0332,0.0613,-0.0332 cArc part,wMat,0.0613,-0.0332,0.060946446609407,-0.033346446609407,0.0608,-0.0337 cLn part,wMat,0.0608,-0.0337,0.0608,-0.0341 cArc part,wMat,0.0608,-0.0341,0.060858578643763,-0.034241421356237,0.061,-0.0343 cLn part,wMat,0.061,-0.0343,0.0622,-0.0343 cArc part,wMat,0.0622,-0.0343,0.062341421356237,-0.034358578643763,0.0624,-0.0345 cLn part,wMat,0.0624,-0.0345,0.0624,-0.0358 cArc part,wMat,0.0624,-0.0358,0.062341421356237,-0.035941421356237,0.0622,-0.036 cLn part,wMat,0.0622,-0.036,0.06,-0.036 cLn part,wMat,0.06,-0.036,0.06,-0.0377 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag36(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.0064,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0362,-0.0342,-0.0362,-0.0403 cArc part,wMat,-0.0362,-0.0403,-0.0355,-0.041,-0.0348,-0.0403 cLn part,wMat,-0.0348,-0.0403,-0.0348,-0.0377 cArc part,wMat,-0.0348,-0.0377,-0.034653553390593,-0.037346446609407,-0.0343,-0.0372 cLn part,wMat,-0.0343,-0.0372,-0.0329,-0.0372 cArc part,wMat,-0.0329,-0.0372,-0.032546446609407,-0.037346446609407,-0.0324,-0.0377 cLn part,wMat,-0.0324,-0.0377,-0.0324,-0.036 cLn part,wMat,-0.0324,-0.036,-0.0346,-0.036 cArc part,wMat,-0.0346,-0.036,-0.034741421356237,-0.035941421356237,-0.0348,-0.0358 cLn part,wMat,-0.0348,-0.0358,-0.0348,-0.0345 cArc part,wMat,-0.0348,-0.0345,-0.034741421356237,-0.034358578643763,-0.0346,-0.0343 cLn part,wMat,-0.0346,-0.0343,-0.0334,-0.0343 cArc part,wMat,-0.0334,-0.0343,-0.033258578643763,-0.034241421356237,-0.0332,-0.0341 cLn part,wMat,-0.0332,-0.0341,-0.0332,-0.0337 cArc part,wMat,-0.0332,-0.0337,-0.033346446609407,-0.033346446609407,-0.0337,-0.0332 cLn part,wMat,-0.0337,-0.0332,-0.0352,-0.0332 cArc part,wMat,-0.0352,-0.0332,-0.035907106781187,-0.033492893218813,-0.0362,-0.0342 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag37(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.0064,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,-0.0346,-0.0478,-0.034541421356237,-0.047941421356237,-0.0344,-0.048 cLn part,wMat,-0.0344,-0.048,-0.0324,-0.048 cLn part,wMat,-0.0324,-0.048,-0.0324,-0.043 cLn part,wMat,-0.0324,-0.043,-0.033,-0.043 cLn part,wMat,-0.033,-0.043,-0.033,-0.0464 cLn part,wMat,-0.033,-0.0464,-0.0344,-0.0464 cArc part,wMat,-0.0344,-0.0464,-0.034541421356237,-0.046458578643763,-0.0346,-0.0466 cLn part,wMat,-0.0346,-0.0466,-0.0346,-0.0478 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag38(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.0064,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.06,-0.048,0.062,-0.048 cArc part,wMat,0.062,-0.048,0.062141421356237,-0.047941421356237,0.0622,-0.0478 cLn part,wMat,0.0622,-0.0478,0.0622,-0.0466 cArc part,wMat,0.0622,-0.0466,0.062141421356237,-0.046458578643763,0.062,-0.0464 cLn part,wMat,0.062,-0.0464,0.0606,-0.0464 cLn part,wMat,0.0606,-0.0464,0.0606,-0.043 cLn part,wMat,0.0606,-0.043,0.06,-0.043 cLn part,wMat,0.06,-0.043,0.06,-0.048 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.049,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0387,0.0584,-0.0366,0.0584 cLn part,wMat,-0.0366,0.0584,-0.0366,0.058 cLn part,wMat,-0.0366,0.058,-0.037,0.0576 cLn part,wMat,-0.037,0.0576,-0.037,0.0564 cLn part,wMat,-0.037,0.0564,-0.0387,0.0564 cLn part,wMat,-0.0387,0.0564,-0.0387,0.0584 cCLn part,wMat,-0.0387,0.0564,-0.0387,0.0584 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.049,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0387,0.0584,-0.0366,0.0584 cLn part,wMat,-0.0366,0.0584,-0.0366,0.058 cLn part,wMat,-0.0366,0.058,-0.037,0.0576 cLn part,wMat,-0.037,0.0576,-0.037,0.0564 cLn part,wMat,-0.037,0.0564,-0.0387,0.0564 cLn part,wMat,-0.0387,0.0564,-0.0387,0.0584 cCLn part,wMat,-0.0387,0.0564,-0.0387,0.0584 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.049,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,-0.0387,0.0597,-0.03767469516728,0.05927530483272,-0.03725,0.05825 cLn part,wMat,-0.03725,0.05825,-0.03725,0.05642 cLn part,wMat,-0.03725,0.05642,-0.03715,0.05642 cLn part,wMat,-0.03715,0.05642,-0.03715,0.0554 cLn part,wMat,-0.03715,0.0554,-0.0387,0.0554 cLn part,wMat,-0.0387,0.0554,-0.0387,0.0597 cCLn part,wMat,-0.0387,0.0554,-0.0387,0.0597 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.049,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,-0.0387,0.0597,-0.03767469516728,0.05927530483272,-0.03725,0.05825 cLn part,wMat,-0.03725,0.05825,-0.03725,0.05642 cLn part,wMat,-0.03725,0.05642,-0.03715,0.05642 cLn part,wMat,-0.03715,0.05642,-0.03715,0.0554 cLn part,wMat,-0.03715,0.0554,-0.0387,0.0554 cLn part,wMat,-0.0387,0.0554,-0.0387,0.0597 cCLn part,wMat,-0.0387,0.0554,-0.0387,0.0597 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0446,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0387,0.0584,-0.0366,0.0584 cLn part,wMat,-0.0366,0.0584,-0.0366,0.058 cLn part,wMat,-0.0366,0.058,-0.037,0.0576 cLn part,wMat,-0.037,0.0576,-0.037,0.0564 cLn part,wMat,-0.037,0.0564,-0.0387,0.0564 cLn part,wMat,-0.0387,0.0564,-0.0387,0.0584 cCLn part,wMat,-0.0387,0.0564,-0.0387,0.0584 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0446,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0387,0.0584,-0.0366,0.0584 cLn part,wMat,-0.0366,0.0584,-0.0366,0.058 cLn part,wMat,-0.0366,0.058,-0.037,0.0576 cLn part,wMat,-0.037,0.0576,-0.037,0.0564 cLn part,wMat,-0.037,0.0564,-0.0387,0.0564 cLn part,wMat,-0.0387,0.0564,-0.0387,0.0584 cCLn part,wMat,-0.0387,0.0564,-0.0387,0.0584 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0291,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0564,-0.0358,0.0564 cLn part,wMat,-0.0358,0.0564,-0.0364,0.0558 cLn part,wMat,-0.0364,0.0558,-0.0364,0.0544 cLn part,wMat,-0.0364,0.0544,-0.0385,0.0544 cLn part,wMat,-0.0385,0.0544,-0.0385,0.0564 cCLn part,wMat,-0.0385,0.0544,-0.0385,0.0564 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0291,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0564,-0.0358,0.0564 cLn part,wMat,-0.0358,0.0564,-0.0364,0.0558 cLn part,wMat,-0.0364,0.0558,-0.0364,0.0544 cLn part,wMat,-0.0364,0.0544,-0.0385,0.0544 cLn part,wMat,-0.0385,0.0544,-0.0385,0.0564 cCLn part,wMat,-0.0385,0.0544,-0.0385,0.0564 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag47(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.0312,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0564,-0.0372,0.0564 cLn part,wMat,-0.0372,0.0564,-0.0374,0.0558 cLn part,wMat,-0.0374,0.0558,-0.0374,0.0544 cLn part,wMat,-0.0374,0.0544,-0.0385,0.0544 cLn part,wMat,-0.0385,0.0544,-0.0385,0.0564 cCLn part,wMat,-0.0385,0.0544,-0.0385,0.0564 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag48(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.0312,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0564,-0.0372,0.0564 cLn part,wMat,-0.0372,0.0564,-0.0374,0.0558 cLn part,wMat,-0.0374,0.0558,-0.0374,0.0544 cLn part,wMat,-0.0374,0.0544,-0.0385,0.0544 cLn part,wMat,-0.0385,0.0544,-0.0385,0.0564 cCLn part,wMat,-0.0385,0.0544,-0.0385,0.0564 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.033,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0405,0.0564,-0.0405,0.0544 cLn part,wMat,-0.0405,0.0544,-0.0368,0.0544 cLn part,wMat,-0.0368,0.0544,-0.0368,0.0564 cLn part,wMat,-0.0368,0.0564,-0.0405,0.0564 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.033,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0405,0.0564,-0.0405,0.0544 cLn part,wMat,-0.0405,0.0544,-0.0368,0.0544 cLn part,wMat,-0.0368,0.0544,-0.0368,0.0564 cLn part,wMat,-0.0368,0.0564,-0.0405,0.0564 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0131,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0544,-0.0358,0.0544 cLn part,wMat,-0.0358,0.0544,-0.0364,0.0538 cLn part,wMat,-0.0364,0.0538,-0.0364,0.0524 cLn part,wMat,-0.0364,0.0524,-0.0385,0.0524 cLn part,wMat,-0.0385,0.0524,-0.0385,0.0544 cCLn part,wMat,-0.0385,0.0524,-0.0385,0.0544 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If 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.0131,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0544,-0.0358,0.0544 cLn part,wMat,-0.0358,0.0544,-0.0364,0.0538 cLn part,wMat,-0.0364,0.0538,-0.0364,0.0524 cLn part,wMat,-0.0364,0.0524,-0.0385,0.0524 cLn part,wMat,-0.0385,0.0524,-0.0385,0.0544 cCLn part,wMat,-0.0385,0.0524,-0.0385,0.0544 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag53(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.0152,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0544,-0.0372,0.0544 cLn part,wMat,-0.0372,0.0544,-0.0374,0.0538 cLn part,wMat,-0.0374,0.0538,-0.0374,0.0524 cLn part,wMat,-0.0374,0.0524,-0.0385,0.0524 cLn part,wMat,-0.0385,0.0524,-0.0385,0.0544 cCLn part,wMat,-0.0385,0.0524,-0.0385,0.0544 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag54(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.0152,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0544,-0.0372,0.0544 cLn part,wMat,-0.0372,0.0544,-0.0374,0.0538 cLn part,wMat,-0.0374,0.0538,-0.0374,0.0524 cLn part,wMat,-0.0374,0.0524,-0.0385,0.0524 cLn part,wMat,-0.0385,0.0524,-0.0385,0.0544 cCLn part,wMat,-0.0385,0.0524,-0.0385,0.0544 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag55(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.017,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0405,0.0544,-0.0405,0.0524 cLn part,wMat,-0.0405,0.0524,-0.0368,0.0524 cLn part,wMat,-0.0368,0.0524,-0.0368,0.0544 cLn part,wMat,-0.0368,0.0544,-0.0405,0.0544 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag56(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.017,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0405,0.0544,-0.0405,0.0524 cLn part,wMat,-0.0405,0.0524,-0.0368,0.0524 cLn part,wMat,-0.0368,0.0524,-0.0368,0.0544 cLn part,wMat,-0.0368,0.0544,-0.0405,0.0544 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag57(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0053,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0524,-0.0358,0.0524 cLn part,wMat,-0.0358,0.0524,-0.0364,0.0518 cLn part,wMat,-0.0364,0.0518,-0.0364,0.0504 cLn part,wMat,-0.0364,0.0504,-0.0385,0.0504 cLn part,wMat,-0.0385,0.0504,-0.0385,0.0524 cCLn part,wMat,-0.0385,0.0504,-0.0385,0.0524 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag58(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0053,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0524,-0.0358,0.0524 cLn part,wMat,-0.0358,0.0524,-0.0364,0.0518 cLn part,wMat,-0.0364,0.0518,-0.0364,0.0504 cLn part,wMat,-0.0364,0.0504,-0.0385,0.0504 cLn part,wMat,-0.0385,0.0504,-0.0385,0.0524 cCLn part,wMat,-0.0385,0.0504,-0.0385,0.0524 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag59(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0032,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0524,-0.0372,0.0524 cLn part,wMat,-0.0372,0.0524,-0.0374,0.0518 cLn part,wMat,-0.0374,0.0518,-0.0374,0.0504 cLn part,wMat,-0.0374,0.0504,-0.0385,0.0504 cLn part,wMat,-0.0385,0.0504,-0.0385,0.0524 cCLn part,wMat,-0.0385,0.0504,-0.0385,0.0524 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag60(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0032,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0524,-0.0372,0.0524 cLn part,wMat,-0.0372,0.0524,-0.0374,0.0518 cLn part,wMat,-0.0374,0.0518,-0.0374,0.0504 cLn part,wMat,-0.0374,0.0504,-0.0385,0.0504 cLn part,wMat,-0.0385,0.0504,-0.0385,0.0524 cCLn part,wMat,-0.0385,0.0504,-0.0385,0.0524 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag61(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0014,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0405,0.0524,-0.0405,0.0504 cLn part,wMat,-0.0405,0.0504,-0.0368,0.0504 cLn part,wMat,-0.0368,0.0504,-0.0368,0.0524 cLn part,wMat,-0.0368,0.0524,-0.0405,0.0524 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag62(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0014,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0405,0.0524,-0.0405,0.0504 cLn part,wMat,-0.0405,0.0504,-0.0368,0.0504 cLn part,wMat,-0.0368,0.0504,-0.0368,0.0524 cLn part,wMat,-0.0368,0.0524,-0.0405,0.0524 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag63(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0237,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0504,-0.0358,0.0504 cLn part,wMat,-0.0358,0.0504,-0.0364,0.0498 cLn part,wMat,-0.0364,0.0498,-0.0364,0.0484 cLn part,wMat,-0.0364,0.0484,-0.0385,0.0484 cLn part,wMat,-0.0385,0.0484,-0.0385,0.0504 cCLn part,wMat,-0.0385,0.0484,-0.0385,0.0504 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag64(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0237,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0504,-0.0358,0.0504 cLn part,wMat,-0.0358,0.0504,-0.0364,0.0498 cLn part,wMat,-0.0364,0.0498,-0.0364,0.0484 cLn part,wMat,-0.0364,0.0484,-0.0385,0.0484 cLn part,wMat,-0.0385,0.0484,-0.0385,0.0504 cCLn part,wMat,-0.0385,0.0484,-0.0385,0.0504 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag65(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0216,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0504,-0.0372,0.0504 cLn part,wMat,-0.0372,0.0504,-0.0374,0.0498 cLn part,wMat,-0.0374,0.0498,-0.0374,0.0484 cLn part,wMat,-0.0374,0.0484,-0.0385,0.0484 cLn part,wMat,-0.0385,0.0484,-0.0385,0.0504 cCLn part,wMat,-0.0385,0.0484,-0.0385,0.0504 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag66(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0216,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0385,0.0504,-0.0372,0.0504 cLn part,wMat,-0.0372,0.0504,-0.0374,0.0498 cLn part,wMat,-0.0374,0.0498,-0.0374,0.0484 cLn part,wMat,-0.0374,0.0484,-0.0385,0.0484 cLn part,wMat,-0.0385,0.0484,-0.0385,0.0504 cCLn part,wMat,-0.0385,0.0484,-0.0385,0.0504 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag67(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0198,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0405,0.0504,-0.0405,0.0484 cLn part,wMat,-0.0405,0.0484,-0.0368,0.0484 cLn part,wMat,-0.0368,0.0484,-0.0368,0.0504 cLn part,wMat,-0.0368,0.0504,-0.0405,0.0504 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag68(part) Part.InsertSketch Set swActiveMat = Part.GetActiveSketch() swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm) mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0198,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0405,0.0504,-0.0405,0.0484 cLn part,wMat,-0.0405,0.0484,-0.0368,0.0484 cLn part,wMat,-0.0368,0.0484,-0.0368,0.0504 cLn part,wMat,-0.0368,0.0504,-0.0405,0.0504 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag69(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.042) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0521,0.0619,0.0525,0.0619 cLn part,wMat,0.0525,0.0619,0.0525,0.0605 cArc part,wMat,0.0525,0.0605,0.052646446609407,0.060146446609407,0.053,0.06 cLn part,wMat,0.053,0.06,0.0584,0.06 cArc part,wMat,0.0584,0.06,0.058753553390593,0.060146446609407,0.0589,0.0605 cLn part,wMat,0.0589,0.0605,0.0589,0.0619 cLn part,wMat,0.0589,0.0619,0.0593,0.0619 cArc part,wMat,0.0593,0.0619,0.059153553390593,0.062253553390593,0.0588,0.0624 cLn part,wMat,0.0588,0.0624,0.0581,0.0624 cArc part,wMat,0.0581,0.0624,0.0578316718427,0.06223416407865,0.05786,0.06192 cLn part,wMat,0.05786,0.06192,0.0581,0.0616 cArc part,wMat,0.0581,0.0616,0.0581472135955,0.06107639320225,0.0577,0.0608 cLn part,wMat,0.0577,0.0608,0.0537,0.0608 cArc part,wMat,0.0537,0.0608,0.0532527864045,0.06107639320225,0.0533,0.0616 cLn part,wMat,0.0533,0.0616,0.05354,0.06192 cArc part,wMat,0.05354,0.06192,0.0535683281573,0.06223416407865,0.0533,0.0624 cLn part,wMat,0.0533,0.0624,0.0526,0.0624 cArc part,wMat,0.0526,0.0624,0.052246446609407,0.062253553390593,0.0521,0.0619 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag70(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.0476) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0532,0.0608,0.0551,0.0608 cLn part,wMat,0.0551,0.0608,0.05486988013042,0.061658819045103 cArc part,wMat,0.05486988013042,0.061658819045103,0.05451271573314,0.062193353340291,0.053903954304131,0.0624 cLn part,wMat,0.053903954304131,0.0624,0.0532,0.0624 cLn part,wMat,0.0532,0.0624,0.0532,0.0608 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub codeBag71(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.0364) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.0563,0.0608,0.0582,0.0608 cLn part,wMat,0.0582,0.0608,0.0582,0.0624 cLn part,wMat,0.0582,0.0624,0.057496045695869,0.0624 cArc part,wMat,0.057496045695869,0.0624,0.05688728426686,0.062193353340291,0.05653011986958,0.061658819045103 cLn part,wMat,0.05653011986958,0.061658819045103,0.0563,0.0608 if (sw2007api=1) then Part.SketchManager.InsertSketch True else Part.InsertSketch End If end sub sub CreatePartItems0(part,featMgr) 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 If (CInt(code) >= 15) Then sw2007api=1 End If docVisible=1 If (CInt(code) >= 18) Then docVisible=0 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 createPart0 End If end sub