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-517.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-517" part.AddCustomInfo3 "", "NT", 30, "2-CHANNEL RELAY OUTPUT MODULE AC 230 V, DC 300 V RELAY 2 CO / POTENTIAL FREE" part.AddCustomInfo3 "", "NB", 30, "750-517" part.AddCustomInfo3 "", "NBSYN", 30, "$BESTNR." part.AddCustomInfo3 "", "LINA", 30, "750-517" part.AddCustomInfo3 "", "BESTNR", 30, "750-517" 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, "64.00" part.AddCustomInfo3 "", "BREITE", 30, "12.00" part.AddCustomInfo3 "", "TIEFE", 30, "100.00" part.AddCustomInfo3 "", "FARBE", 30, "lichtgrau" part.AddCustomInfo3 "", "GEWICHT", 30, "52.500" part.AddCustomInfo3 "", "BEMERKUNGEN", 30, "230V AC 1,0 A / Relais 2CO / potentialfrei" part.AddCustomInfo3 "", "ECLASS71", 30, "27-24-26-04" part.AddCustomInfo3 "", "SUPPLIER", 30, "WAGO" part.AddCustomInfo3 "", "ARTICLENO", 30, "750-517" part.AddCustomInfo3 "", "BOMINFO", 30, "750-517" part.AddCustomInfo3 "", "CREATOR", 30, "CADENAS GmbH" part.AddCustomInfo3 "", "IsFastener", 30, "false" part.SummaryInfo(0)="750-517" part.SummaryInfo(4)="2-CHANNEL RELAY OUTPUT MODULE AC 230 V, DC 300 V RELAY 2 CO / POTENTIAL FREE" 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.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),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.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),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,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),createVec3d(1,0,0),createVec3d(0,1,0),1 part.BlankRefGeom set feat10=getLastFeatureByType(part,"RefPlane") feat10.select false codeBag3 part set feat10=getLastFeatureByType(part,"ProfileFeature") feat10.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),createVec3d(1,0,0),createVec3d(0,1,0),1 part.BlankRefGeom set feat12=getLastFeatureByType(part,"RefPlane") feat12.select false codeBag4 part set feat12=getLastFeatureByType(part,"ProfileFeature") feat12.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.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),1 part.BlankRefGeom set feat15=getLastFeatureByType(part,"RefPlane") feat15.select false codeBag5 part set feat15=getLastFeatureByType(part,"ProfileFeature") feat15.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.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),1 part.BlankRefGeom set feat17=getLastFeatureByType(part,"RefPlane") feat17.select false codeBag6 part set feat17=getLastFeatureByType(part,"ProfileFeature") feat17.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.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),1 part.BlankRefGeom set feat19=getLastFeatureByType(part,"RefPlane") feat19.select false codeBag7 part set feat19=getLastFeatureByType(part,"ProfileFeature") feat19.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.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),1 part.BlankRefGeom set feat21=getLastFeatureByType(part,"RefPlane") feat21.select false codeBag8 part set feat21=getLastFeatureByType(part,"ProfileFeature") feat21.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.012),createVec3d(1,0,0.012),createVec3d(0,1,0.012),1 part.BlankRefGeom set feat23=getLastFeatureByType(part,"RefPlane") feat23.select false codeBag9 part set feat23=getLastFeatureByType(part,"ProfileFeature") feat23.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.01105),createVec3d(1,0,0.01105),createVec3d(0,1,0.01105),1 part.BlankRefGeom set feat26=getLastFeatureByType(part,"RefPlane") feat26.select false codeBag10 part set feat26=getLastFeatureByType(part,"ProfileFeature") feat26.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 feat29=getLastFeatureByType(part,"RefPlane") feat29.select false codeBag11 part set feat29=getLastFeatureByType(part,"ProfileFeature") feat29.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 feat31=getLastFeatureByType(part,"RefPlane") feat31.select false codeBag12 part set feat31=getLastFeatureByType(part,"ProfileFeature") feat31.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 feat33=getLastFeatureByType(part,"RefPlane") feat33.select false codeBag13 part set feat33=getLastFeatureByType(part,"ProfileFeature") feat33.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 feat35=getLastFeatureByType(part,"RefPlane") feat35.select false codeBag14 part set feat35=getLastFeatureByType(part,"ProfileFeature") feat35.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 feat38=getLastFeatureByType(part,"RefPlane") feat38.select false codeBag15 part set feat38=getLastFeatureByType(part,"ProfileFeature") feat38.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 feat40=getLastFeatureByType(part,"RefPlane") feat40.select false codeBag16 part set feat40=getLastFeatureByType(part,"ProfileFeature") feat40.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 feat42=getLastFeatureByType(part,"RefPlane") feat42.select false codeBag17 part set feat42=getLastFeatureByType(part,"ProfileFeature") feat42.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 feat44=getLastFeatureByType(part,"RefPlane") feat44.select false codeBag18 part set feat44=getLastFeatureByType(part,"ProfileFeature") feat44.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 feat47=getLastFeatureByType(part,"RefPlane") feat47.select false codeBag19 part set feat47=getLastFeatureByType(part,"ProfileFeature") feat47.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 feat49=getLastFeatureByType(part,"RefPlane") feat49.select false codeBag20 part set feat49=getLastFeatureByType(part,"ProfileFeature") feat49.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 feat52=getLastFeatureByType(part,"RefPlane") feat52.select false codeBag21 part set feat52=getLastFeatureByType(part,"ProfileFeature") feat52.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 feat54=getLastFeatureByType(part,"RefPlane") feat54.select false codeBag22 part set feat54=getLastFeatureByType(part,"ProfileFeature") feat54.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 feat57=getLastFeatureByType(part,"RefPlane") feat57.select false codeBag23 part set feat57=getLastFeatureByType(part,"ProfileFeature") feat57.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 feat59=getLastFeatureByType(part,"RefPlane") feat59.select false codeBag24 part set feat59=getLastFeatureByType(part,"ProfileFeature") feat59.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 feat62=getLastFeatureByType(part,"RefPlane") feat62.select false codeBag25 part set feat62=getLastFeatureByType(part,"ProfileFeature") feat62.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 feat64=getLastFeatureByType(part,"RefPlane") feat64.select false codeBag26 part set feat64=getLastFeatureByType(part,"ProfileFeature") feat64.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 feat67=getLastFeatureByType(part,"RefPlane") feat67.select false codeBag27 part set feat67=getLastFeatureByType(part,"ProfileFeature") feat67.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 feat69=getLastFeatureByType(part,"RefPlane") feat69.select false codeBag28 part set feat69=getLastFeatureByType(part,"ProfileFeature") feat69.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 feat72=getLastFeatureByType(part,"RefPlane") feat72.select false codeBag29 part set feat72=getLastFeatureByType(part,"ProfileFeature") feat72.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 feat74=getLastFeatureByType(part,"RefPlane") feat74.select false codeBag30 part set feat74=getLastFeatureByType(part,"ProfileFeature") feat74.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 feat77=getLastFeatureByType(part,"RefPlane") feat77.select false codeBag31 part set feat77=getLastFeatureByType(part,"ProfileFeature") feat77.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 feat79=getLastFeatureByType(part,"RefPlane") feat79.select false codeBag32 part set feat79=getLastFeatureByType(part,"ProfileFeature") feat79.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 feat82=getLastFeatureByType(part,"RefPlane") feat82.select false codeBag33 part set feat82=getLastFeatureByType(part,"ProfileFeature") feat82.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 feat84=getLastFeatureByType(part,"RefPlane") feat84.select false codeBag34 part set feat84=getLastFeatureByType(part,"ProfileFeature") feat84.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 feat87=getLastFeatureByType(part,"RefPlane") feat87.select false codeBag35 part set feat87=getLastFeatureByType(part,"ProfileFeature") feat87.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 feat89=getLastFeatureByType(part,"RefPlane") feat89.select false codeBag36 part set feat89=getLastFeatureByType(part,"ProfileFeature") feat89.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 feat92=getLastFeatureByType(part,"RefPlane") feat92.select false codeBag37 part set feat92=getLastFeatureByType(part,"ProfileFeature") feat92.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 feat94=getLastFeatureByType(part,"RefPlane") feat94.select false codeBag38 part set feat94=getLastFeatureByType(part,"ProfileFeature") feat94.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 feat97=getLastFeatureByType(part,"RefPlane") feat97.select false codeBag39 part set feat97=getLastFeatureByType(part,"ProfileFeature") feat97.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 feat99=getLastFeatureByType(part,"RefPlane") feat99.select false codeBag40 part set feat99=getLastFeatureByType(part,"ProfileFeature") feat99.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 feat102=getLastFeatureByType(part,"RefPlane") feat102.select false codeBag41 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.0216,0,0.005),createVec3d(-0.0216,0,-0.995),createVec3d(-0.0216,1,0.005),1 part.BlankRefGeom set feat104=getLastFeatureByType(part,"RefPlane") feat104.select false codeBag42 part set feat104=getLastFeatureByType(part,"ProfileFeature") feat104.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 feat107=getLastFeatureByType(part,"RefPlane") feat107.select false codeBag43 part set feat107=getLastFeatureByType(part,"ProfileFeature") feat107.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 feat109=getLastFeatureByType(part,"RefPlane") feat109.select false codeBag44 part set feat109=getLastFeatureByType(part,"ProfileFeature") feat109.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.006),createVec3d(1,0,0.006),createVec3d(0,1,0.006),1 part.BlankRefGeom set feat112=getLastFeatureByType(part,"RefPlane") feat112.select false codeBag45 part set feat112=getLastFeatureByType(part,"ProfileFeature") feat112.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.0116),createVec3d(1,0,0.0116),createVec3d(0,1,0.0116),1 part.BlankRefGeom set feat115=getLastFeatureByType(part,"RefPlane") feat115.select false codeBag46 part set feat115=getLastFeatureByType(part,"ProfileFeature") feat115.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.0004),createVec3d(1,0,0.0004),createVec3d(0,1,0.0004),1 part.BlankRefGeom set feat118=getLastFeatureByType(part,"RefPlane") feat118.select false codeBag47 part set feat118=getLastFeatureByType(part,"ProfileFeature") feat118.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 part.SetDisplayWhenAdded (true) part.SetAddToDB(false) part.EditRebuild3 part.Rebuild swRebuildAll part.SaveAs2 storePath & "750-517.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.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 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.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 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) 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 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) 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 codeBag4(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.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 codeBag5(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.012) 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 codeBag6(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.012) 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 codeBag7(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.012) 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 codeBag8(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.012) 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 codeBag9(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.012) 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 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.01105) 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 codeBag11(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.0017,0.060146446609407,-0.0013464466094067,0.0605,-0.0012 cLn part,wMat,0.0605,-0.0012,0.0619,-0.0012 cArc part,wMat,0.0619,-0.0012,0.062253553390593,-0.0013464466094067,0.0624,-0.0017 cLn part,wMat,0.0624,-0.0017,0.0624,-0.0043 cArc part,wMat,0.0624,-0.0043,0.0631,-0.005,0.0638,-0.0043 cLn part,wMat,0.0638,-0.0043,0.0638,0.0018 cArc part,wMat,0.0638,0.0018,0.063507106781187,0.0025071067811865,0.0628,0.0028 cLn part,wMat,0.0628,0.0028,0.0613,0.0028 cArc part,wMat,0.0613,0.0028,0.060946446609407,0.0026535533905933,0.0608,0.0023 cLn part,wMat,0.0608,0.0023,0.0608,0.0019 cArc part,wMat,0.0608,0.0019,0.060858578643763,0.0017585786437627,0.061,0.0017 cLn part,wMat,0.061,0.0017,0.0622,0.0017 cArc part,wMat,0.0622,0.0017,0.062341421356237,0.0016414213562373,0.0624,0.0015 cLn part,wMat,0.0624,0.0015,0.0624,0.0002 cArc part,wMat,0.0624,0.0002,0.062341421356237,5.857864376269e-05,0.0622,0 cLn part,wMat,0.0622,0,0.06,0 cLn part,wMat,0.06,0,0.06,-0.0017 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,0,-1,0,1,0,0,-0.0064,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0362,0.0018,-0.0362,-0.0043 cArc part,wMat,-0.0362,-0.0043,-0.0355,-0.005,-0.0348,-0.0043 cLn part,wMat,-0.0348,-0.0043,-0.0348,-0.0017 cArc part,wMat,-0.0348,-0.0017,-0.034653553390593,-0.0013464466094067,-0.0343,-0.0012 cLn part,wMat,-0.0343,-0.0012,-0.0329,-0.0012 cArc part,wMat,-0.0329,-0.0012,-0.032546446609407,-0.0013464466094067,-0.0324,-0.0017 cLn part,wMat,-0.0324,-0.0017,-0.0324,0 cLn part,wMat,-0.0324,0,-0.0346,0 cArc part,wMat,-0.0346,0,-0.034741421356237,5.8578643762691e-05,-0.0348,0.0002 cLn part,wMat,-0.0348,0.0002,-0.0348,0.0015 cArc part,wMat,-0.0348,0.0015,-0.034741421356237,0.0016414213562373,-0.0346,0.0017 cLn part,wMat,-0.0346,0.0017,-0.0334,0.0017 cArc part,wMat,-0.0334,0.0017,-0.033258578643763,0.0017585786437627,-0.0332,0.0019 cLn part,wMat,-0.0332,0.0019,-0.0332,0.0023 cArc part,wMat,-0.0332,0.0023,-0.033346446609407,0.0026535533905933,-0.0337,0.0028 cLn part,wMat,-0.0337,0.0028,-0.0352,0.0028 cArc part,wMat,-0.0352,0.0028,-0.035907106781187,0.0025071067811865,-0.0362,0.0018 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,0,-1,0,1,0,0,-0.0064,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,-0.0346,-0.0118,-0.034541421356237,-0.011941421356237,-0.0344,-0.012 cLn part,wMat,-0.0344,-0.012,-0.0324,-0.012 cLn part,wMat,-0.0324,-0.012,-0.0324,-0.007 cLn part,wMat,-0.0324,-0.007,-0.033,-0.007 cLn part,wMat,-0.033,-0.007,-0.033,-0.0104 cLn part,wMat,-0.033,-0.0104,-0.0344,-0.0104 cArc part,wMat,-0.0344,-0.0104,-0.034541421356237,-0.010458578643763,-0.0346,-0.0106 cLn part,wMat,-0.0346,-0.0106,-0.0346,-0.0118 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,0,-1,0,1,0,0,-0.0064,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,0.06,-0.012,0.062,-0.012 cArc part,wMat,0.062,-0.012,0.062141421356237,-0.011941421356237,0.0622,-0.0118 cLn part,wMat,0.0622,-0.0118,0.0622,-0.0106 cArc part,wMat,0.0622,-0.0106,0.062141421356237,-0.010458578643763,0.062,-0.0104 cLn part,wMat,0.062,-0.0104,0.0606,-0.0104 cLn part,wMat,0.0606,-0.0104,0.0606,-0.007 cLn part,wMat,0.0606,-0.007,0.06,-0.007 cLn part,wMat,0.06,-0.007,0.06,-0.012 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(0,0,-1,0,1,0,1,0,0,0.049,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0027,0.0584,-0.0006,0.0584 cLn part,wMat,-0.0006,0.0584,-0.0006,0.058 cLn part,wMat,-0.0006,0.058,-0.001,0.0576 cLn part,wMat,-0.001,0.0576,-0.001,0.0564 cLn part,wMat,-0.001,0.0564,-0.0027,0.0564 cLn part,wMat,-0.0027,0.0564,-0.0027,0.0584 cCLn part,wMat,-0.0027,0.0564,-0.0027,0.0584 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(0,0,-1,0,1,0,1,0,0,0.049,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0027,0.0584,-0.0006,0.0584 cLn part,wMat,-0.0006,0.0584,-0.0006,0.058 cLn part,wMat,-0.0006,0.058,-0.001,0.0576 cLn part,wMat,-0.001,0.0576,-0.001,0.0564 cLn part,wMat,-0.001,0.0564,-0.0027,0.0564 cLn part,wMat,-0.0027,0.0564,-0.0027,0.0584 cCLn part,wMat,-0.0027,0.0564,-0.0027,0.0584 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(0,0,-1,0,1,0,1,0,0,0.049,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,-0.0027,0.0597,-0.0016746951672795,0.05927530483272,-0.00125,0.05825 cLn part,wMat,-0.00125,0.05825,-0.00125,0.05642 cLn part,wMat,-0.00125,0.05642,-0.00115,0.05642 cLn part,wMat,-0.00115,0.05642,-0.00115,0.0554 cLn part,wMat,-0.00115,0.0554,-0.0027,0.0554 cLn part,wMat,-0.0027,0.0554,-0.0027,0.0597 cCLn part,wMat,-0.0027,0.0554,-0.0027,0.0597 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(0,0,-1,0,1,0,1,0,0,0.049,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cArc part,wMat,-0.0027,0.0597,-0.0016746951672795,0.05927530483272,-0.00125,0.05825 cLn part,wMat,-0.00125,0.05825,-0.00125,0.05642 cLn part,wMat,-0.00125,0.05642,-0.00115,0.05642 cLn part,wMat,-0.00115,0.05642,-0.00115,0.0554 cLn part,wMat,-0.00115,0.0554,-0.0027,0.0554 cLn part,wMat,-0.0027,0.0554,-0.0027,0.0597 cCLn part,wMat,-0.0027,0.0554,-0.0027,0.0597 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(0,0,-1,0,1,0,1,0,0,0.0446,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0027,0.0584,-0.0006,0.0584 cLn part,wMat,-0.0006,0.0584,-0.0006,0.058 cLn part,wMat,-0.0006,0.058,-0.001,0.0576 cLn part,wMat,-0.001,0.0576,-0.001,0.0564 cLn part,wMat,-0.001,0.0564,-0.0027,0.0564 cLn part,wMat,-0.0027,0.0564,-0.0027,0.0584 cCLn part,wMat,-0.0027,0.0564,-0.0027,0.0584 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(0,0,-1,0,1,0,1,0,0,0.0446,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0027,0.0584,-0.0006,0.0584 cLn part,wMat,-0.0006,0.0584,-0.0006,0.058 cLn part,wMat,-0.0006,0.058,-0.001,0.0576 cLn part,wMat,-0.001,0.0576,-0.001,0.0564 cLn part,wMat,-0.001,0.0564,-0.0027,0.0564 cLn part,wMat,-0.0027,0.0564,-0.0027,0.0584 cCLn part,wMat,-0.0027,0.0564,-0.0027,0.0584 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(0,0,-1,0,1,0,1,0,0,0.0291,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0564,0.0002,0.0564 cLn part,wMat,0.0002,0.0564,-0.0004,0.0558 cLn part,wMat,-0.0004,0.0558,-0.0004,0.0544 cLn part,wMat,-0.0004,0.0544,-0.0025,0.0544 cLn part,wMat,-0.0025,0.0544,-0.0025,0.0564 cCLn part,wMat,-0.0025,0.0544,-0.0025,0.0564 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(0,0,-1,0,1,0,1,0,0,0.0291,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0564,0.0002,0.0564 cLn part,wMat,0.0002,0.0564,-0.0004,0.0558 cLn part,wMat,-0.0004,0.0558,-0.0004,0.0544 cLn part,wMat,-0.0004,0.0544,-0.0025,0.0544 cLn part,wMat,-0.0025,0.0544,-0.0025,0.0564 cCLn part,wMat,-0.0025,0.0544,-0.0025,0.0564 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(0,0,-1,0,1,0,1,0,0,0.0312,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0564,-0.0012,0.0564 cLn part,wMat,-0.0012,0.0564,-0.0014,0.0558 cLn part,wMat,-0.0014,0.0558,-0.0014,0.0544 cLn part,wMat,-0.0014,0.0544,-0.0025,0.0544 cLn part,wMat,-0.0025,0.0544,-0.0025,0.0564 cCLn part,wMat,-0.0025,0.0544,-0.0025,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(0,0,-1,0,1,0,1,0,0,0.0312,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0564,-0.0012,0.0564 cLn part,wMat,-0.0012,0.0564,-0.0014,0.0558 cLn part,wMat,-0.0014,0.0558,-0.0014,0.0544 cLn part,wMat,-0.0014,0.0544,-0.0025,0.0544 cLn part,wMat,-0.0025,0.0544,-0.0025,0.0564 cCLn part,wMat,-0.0025,0.0544,-0.0025,0.0564 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(0,0,-1,0,1,0,1,0,0,0.033,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0045,0.0564,-0.0045,0.0544 cLn part,wMat,-0.0045,0.0544,-0.0008,0.0544 cLn part,wMat,-0.0008,0.0544,-0.0008,0.0564 cLn part,wMat,-0.0008,0.0564,-0.0045,0.0564 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(0,0,-1,0,1,0,1,0,0,0.033,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0045,0.0564,-0.0045,0.0544 cLn part,wMat,-0.0045,0.0544,-0.0008,0.0544 cLn part,wMat,-0.0008,0.0544,-0.0008,0.0564 cLn part,wMat,-0.0008,0.0564,-0.0045,0.0564 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(0,0,-1,0,1,0,1,0,0,0.0131,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0544,0.0002,0.0544 cLn part,wMat,0.0002,0.0544,-0.0004,0.0538 cLn part,wMat,-0.0004,0.0538,-0.0004,0.0524 cLn part,wMat,-0.0004,0.0524,-0.0025,0.0524 cLn part,wMat,-0.0025,0.0524,-0.0025,0.0544 cCLn part,wMat,-0.0025,0.0524,-0.0025,0.0544 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(0,0,-1,0,1,0,1,0,0,0.0131,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0544,0.0002,0.0544 cLn part,wMat,0.0002,0.0544,-0.0004,0.0538 cLn part,wMat,-0.0004,0.0538,-0.0004,0.0524 cLn part,wMat,-0.0004,0.0524,-0.0025,0.0524 cLn part,wMat,-0.0025,0.0524,-0.0025,0.0544 cCLn part,wMat,-0.0025,0.0524,-0.0025,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(0,0,-1,0,1,0,1,0,0,0.0152,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0544,-0.0012,0.0544 cLn part,wMat,-0.0012,0.0544,-0.0014,0.0538 cLn part,wMat,-0.0014,0.0538,-0.0014,0.0524 cLn part,wMat,-0.0014,0.0524,-0.0025,0.0524 cLn part,wMat,-0.0025,0.0524,-0.0025,0.0544 cCLn part,wMat,-0.0025,0.0524,-0.0025,0.0544 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(0,0,-1,0,1,0,1,0,0,0.0152,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0544,-0.0012,0.0544 cLn part,wMat,-0.0012,0.0544,-0.0014,0.0538 cLn part,wMat,-0.0014,0.0538,-0.0014,0.0524 cLn part,wMat,-0.0014,0.0524,-0.0025,0.0524 cLn part,wMat,-0.0025,0.0524,-0.0025,0.0544 cCLn part,wMat,-0.0025,0.0524,-0.0025,0.0544 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(0,0,-1,0,1,0,1,0,0,0.017,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0045,0.0544,-0.0045,0.0524 cLn part,wMat,-0.0045,0.0524,-0.0008,0.0524 cLn part,wMat,-0.0008,0.0524,-0.0008,0.0544 cLn part,wMat,-0.0008,0.0544,-0.0045,0.0544 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(0,0,-1,0,1,0,1,0,0,0.017,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0045,0.0544,-0.0045,0.0524 cLn part,wMat,-0.0045,0.0524,-0.0008,0.0524 cLn part,wMat,-0.0008,0.0524,-0.0008,0.0544 cLn part,wMat,-0.0008,0.0544,-0.0045,0.0544 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(0,0,-1,0,1,0,1,0,0,-0.0053,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0524,0.0002,0.0524 cLn part,wMat,0.0002,0.0524,-0.0004,0.0518 cLn part,wMat,-0.0004,0.0518,-0.0004,0.0504 cLn part,wMat,-0.0004,0.0504,-0.0025,0.0504 cLn part,wMat,-0.0025,0.0504,-0.0025,0.0524 cCLn part,wMat,-0.0025,0.0504,-0.0025,0.0524 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(0,0,-1,0,1,0,1,0,0,-0.0053,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0524,0.0002,0.0524 cLn part,wMat,0.0002,0.0524,-0.0004,0.0518 cLn part,wMat,-0.0004,0.0518,-0.0004,0.0504 cLn part,wMat,-0.0004,0.0504,-0.0025,0.0504 cLn part,wMat,-0.0025,0.0504,-0.0025,0.0524 cCLn part,wMat,-0.0025,0.0504,-0.0025,0.0524 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(0,0,-1,0,1,0,1,0,0,-0.0032,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0524,-0.0012,0.0524 cLn part,wMat,-0.0012,0.0524,-0.0014,0.0518 cLn part,wMat,-0.0014,0.0518,-0.0014,0.0504 cLn part,wMat,-0.0014,0.0504,-0.0025,0.0504 cLn part,wMat,-0.0025,0.0504,-0.0025,0.0524 cCLn part,wMat,-0.0025,0.0504,-0.0025,0.0524 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(0,0,-1,0,1,0,1,0,0,-0.0032,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0524,-0.0012,0.0524 cLn part,wMat,-0.0012,0.0524,-0.0014,0.0518 cLn part,wMat,-0.0014,0.0518,-0.0014,0.0504 cLn part,wMat,-0.0014,0.0504,-0.0025,0.0504 cLn part,wMat,-0.0025,0.0504,-0.0025,0.0524 cCLn part,wMat,-0.0025,0.0504,-0.0025,0.0524 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(0,0,-1,0,1,0,1,0,0,-0.0014,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0045,0.0524,-0.0045,0.0504 cLn part,wMat,-0.0045,0.0504,-0.0008,0.0504 cLn part,wMat,-0.0008,0.0504,-0.0008,0.0524 cLn part,wMat,-0.0008,0.0524,-0.0045,0.0524 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(0,0,-1,0,1,0,1,0,0,-0.0014,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0045,0.0524,-0.0045,0.0504 cLn part,wMat,-0.0045,0.0504,-0.0008,0.0504 cLn part,wMat,-0.0008,0.0504,-0.0008,0.0524 cLn part,wMat,-0.0008,0.0524,-0.0045,0.0524 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.0237,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0504,0.0002,0.0504 cLn part,wMat,0.0002,0.0504,-0.0004,0.0498 cLn part,wMat,-0.0004,0.0498,-0.0004,0.0484 cLn part,wMat,-0.0004,0.0484,-0.0025,0.0484 cLn part,wMat,-0.0025,0.0484,-0.0025,0.0504 cCLn part,wMat,-0.0025,0.0484,-0.0025,0.0504 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.0237,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0504,0.0002,0.0504 cLn part,wMat,0.0002,0.0504,-0.0004,0.0498 cLn part,wMat,-0.0004,0.0498,-0.0004,0.0484 cLn part,wMat,-0.0004,0.0484,-0.0025,0.0484 cLn part,wMat,-0.0025,0.0484,-0.0025,0.0504 cCLn part,wMat,-0.0025,0.0484,-0.0025,0.0504 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.0216,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0504,-0.0012,0.0504 cLn part,wMat,-0.0012,0.0504,-0.0014,0.0498 cLn part,wMat,-0.0014,0.0498,-0.0014,0.0484 cLn part,wMat,-0.0014,0.0484,-0.0025,0.0484 cLn part,wMat,-0.0025,0.0484,-0.0025,0.0504 cCLn part,wMat,-0.0025,0.0484,-0.0025,0.0504 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.0216,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0025,0.0504,-0.0012,0.0504 cLn part,wMat,-0.0012,0.0504,-0.0014,0.0498 cLn part,wMat,-0.0014,0.0498,-0.0014,0.0484 cLn part,wMat,-0.0014,0.0484,-0.0025,0.0484 cLn part,wMat,-0.0025,0.0484,-0.0025,0.0504 cCLn part,wMat,-0.0025,0.0484,-0.0025,0.0504 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.0198,0,0) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0045,0.0504,-0.0045,0.0484 cLn part,wMat,-0.0045,0.0484,-0.0008,0.0484 cLn part,wMat,-0.0008,0.0484,-0.0008,0.0504 cLn part,wMat,-0.0008,0.0504,-0.0045,0.0504 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.0198,0,0.005) wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat) cLn part,wMat,-0.0045,0.0504,-0.0045,0.0484 cLn part,wMat,-0.0045,0.0484,-0.0008,0.0484 cLn part,wMat,-0.0008,0.0484,-0.0008,0.0504 cLn part,wMat,-0.0008,0.0504,-0.0045,0.0504 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(1,0,0,0,1,0,0,0,1,0,0,0.006) 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 codeBag46(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.0116) 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 codeBag47(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.0004) 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 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