polymech/machines
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

latest :)

Browse Source
This commit is contained in:
lovebird 2024-06-11 14:37:03 +02:00
parent f58a1d3208
commit 61a9d6451e
222 changed files with 0 additions and 889094 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

606745
injection/osr-cad-report.json
View File

File diff suppressed because it is too large Load Diff

BIN
sheetpress/cassandra-edcsm/cad/DoorBottom_x2_1mm_INOX.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/DoorFront_x2_1mm_INOX.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/DoorSide_x2_1mm_INOX.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/Global-SPC-EDC-SM-650.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/Global-SPC-EDC-SM-650.jpg (Stored with Git LFS)
View File

Binary file not shown.

214
sheetpress/cassandra-edcsm/cad/Global-SPC-EDC-SM-650.json
View File

@ -1,214 +0,0 @@
[
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\Global-SPC-EDC-SM-650.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\laser\\EncShieldS_x4_1mm_Inox.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\housing\\sm25\\EncSide_x2_1mm_INOX.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\housing\\sm25\\EncBack_x1_1mm_Inox.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\housing\\sm25\\Main-SPC650-Housing.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\laser\\UPNRibs_x4_10mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\base\\cad\\components\\upn\\UPN.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\LowerRibs\\3_Mount_x4_10mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\LowerRibs\\2_RibB_x4_10mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\LowerRibs\\1_RibA_x4_10mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\LowerRibs\\400_LowerRibs.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\LowerRibs\\307_RibMount_x8_5mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\LowerRibs\\400_LowerRibsTop.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\base\\cad\\framework\\UPN-H.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\303_TriMount_x16_5mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\20_80_60.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\304_SideMount_x4_5mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\405_BearingMount_x8_10mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\spc-partition-cell-650.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\201_PlateCoverTri_x2_1mm_INOX.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\405_BearingMountPlate_x8_10mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\6_Side_x2_5mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\8_Rib_x2_5mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\7_Side_x2_5mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\7_Rib_x2_5mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\SPC-650-LowerPlaten-Assembly.SLDASM",
"IsLaser": "1"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\sprcc-650\\cad\\Global-200_PressPlate650.SLDASM",
"IsLaser": "1"
},
{
"File Path": "C:\\Users\\mc007\\AppData\\Local\\Temp\\swx10448\\VC~~\\SPRCC-650-Assembly\\JustForRef^SPRCC-650-Assembly.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\UPNMounts_x8_5mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\base\\cad\\components\\EncSocket_x8_10mm_FERRO.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\base\\cad\\chassis-mounts-4x4.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\AppData\\Local\\Temp\\swx10448\\VC~~\\SPRCC-650-Assembly\\Copy of Part1^SPRCC-650-Assembly.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Jack Piston.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Jack Piston - O-Ring.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Power Screw.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Jack Piston - Back-up Ring.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Power Screw assembly.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump washer-gasket.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Valve Ball.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Valve Bolt Dowel.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Valve Bolt.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\O-Ring - 11 OD.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Valve Bolt Assembly.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\AppData\\Local\\Temp\\swx10448\\VC~~\\Pump Base Assembly\\Assem3^Pump Base Assembly.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Plastic Stop.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Bottle Jack Base.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Base Assembly.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Jack Barrel.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Lever.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Lever Linkage Connector Pin.SLDPRT"
},
{
"File Path": "c:\\solidworks data\\browser\\ansi metric\\retaining rings\\external\\reinforced e-ring external retaining ring_am.sldprt"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Lever Main Connector Pin.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Assembly section 1 Adrian.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Lever Linkage.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Barrel.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Piston.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Piston - O-Ring.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Lever Linkage Base Connector Shaft.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump Barrel - Gasket.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Pump - Back-up Ring.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Bottle Jack Housing.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Rubber Relief-Filler.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Parts\\Retaining Nut.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\BottleJack\\Bottle Jack Assembly.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Mould-650\\900_Mould_x2_2mm_INOX.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\moulds\\15mm\\Mould.SLDPRT"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\moulds\\15mm\\15-650.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\components\\moulds\\15mm\\Mould.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-edcsm\\cad\\SPRCC-650-Assembly.SLDASM"
},
{
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\components\\hardware\\casters\\60\\wheel.SLDPRT"
}
]

BIN
sheetpress/cassandra-edcsm/cad/Global-SPC-EDC-SM-650.step (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/Global-SPC-EDC-SM-650.x_t (Stored with Git LFS)
View File

Binary file not shown.

101
sheetpress/cassandra-edcsm/cad/base/cad-report.json
View File

@ -1,101 +0,0 @@
[
{
"code": 0,
"command": "convert.exe --source=\"C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDDRW\" --target=\"C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad\\housing-sm.pdf\" --configuration=\"Default\" --view=\"*Render\" --hidden=true --quality=2",
"messages": [
"<<Warn::Failed to change configuration: Default>>\r\n",
"<<Warn::IPC error:timeout>>\r\n",
"<<Info::Conversion successful. Output file saved to: C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad\\housing-sm.pdf >>\r\n"
],
"src": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDDRW",
"target": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad\\housing-sm.pdf",
"failed": false,
"options": {
"src": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/**/*.+(SLDDRW)",
"dst": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\*.+(pdf)",
"debug": false,
"verbose": true,
"dry": false,
"skip": false,
"hidden": "true",
"alt": false,
"quality": 2,
"script": "convert.exe",
"sw": 2022,
"configuration": "Default",
"report": "${SRC_DIR}/cad-report.json",
"variables": {
"SRC_PATH": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/**/*.+(SLDDRW)",
"SRC_DIR": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base",
"SRC_NAME": "*",
"SRC_FILE_NAME": "**/*.+(SLDDRW)",
"SRC_FILE_EXT": "+(SLDDRW)",
"SRC_IS_FILE": false,
"SRC_IS_FOLDER": false,
"SRC_IS_EXPRESSION": false,
"SRC_IS_GLOB": true,
"SRC_GLOB": "**/*.+(SLDDRW)",
"SRC_GLOB_EXTENSIONS": [
"SLDDRW"
],
"SRC_FILES": [
"C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDDRW"
],
"DST_PATH": "${SRC_DIR}/${SRC_NAME}.+(pdf)",
"DST_DIR": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base",
"DST_NAME": "*",
"DST_FILE_NAME": "\\*.+(pdf)",
"DST_FILE_EXT": "+(pdf)",
"DST_IS_FILE": false,
"DST_IS_FOLDER": false,
"DST_IS_EXPRESSION": false,
"DST_IS_GLOB": true,
"DST_GLOB": "\\*.+(pdf)",
"DST_GLOB_EXTENSIONS": [
"pdf"
],
"DST_FILES": []
},
"view": "Render",
"args": "",
"bom-config": "Default",
"bom-detail": 1,
"bom-type": 2,
"bom-images": false,
"srcInfo": {
"PATH": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/**/*.+(SLDDRW)",
"DIR": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base",
"NAME": "*",
"FILE_NAME": "**/*.+(SLDDRW)",
"FILE_EXT": "+(SLDDRW)",
"IS_FILE": false,
"IS_FOLDER": false,
"IS_EXPRESSION": false,
"IS_GLOB": true,
"GLOB": "**/*.+(SLDDRW)",
"GLOB_EXTENSIONS": [
"SLDDRW"
],
"FILES": [
"C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDDRW"
]
},
"dstInfo": {
"PATH": "${SRC_DIR}/${SRC_NAME}.+(pdf)",
"DIR": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base",
"NAME": "*",
"FILE_NAME": "\\*.+(pdf)",
"FILE_EXT": "+(pdf)",
"IS_FILE": false,
"IS_FOLDER": false,
"IS_EXPRESSION": false,
"IS_GLOB": true,
"GLOB": "\\*.+(pdf)",
"GLOB_EXTENSIONS": [
"pdf"
],
"FILES": []
}
}
}
]

BIN
sheetpress/cassandra-edcsm/cad/base/cad/base.JPG (Stored with Git LFS)
View File

Binary file not shown.

93
sheetpress/cassandra-edcsm/cad/base/cad/cad-report.json
View File

@ -1,93 +0,0 @@
[
{
"code": 0,
"command": "convert.exe --source=\"C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDASM\" --target=\"C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad\\&{SRC_DIR}\\&{SRC_NAME}.jpg\" --configuration=\"Default\" --view=\"*Render\" --hidden=false",
"messages": [
"<<Warn::Failed to change configuration: Default>>\r\n",
"<<Warn::IPC error:timeout>>\r\n",
"<<Info::Rendering 'C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDASM' to 'C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad\\&{SRC_DIR}\\&{SRC_NAME}.jpg'>>\r\n",
"<<Info::Rendered 'C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDASM' to 'C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad\\&{SRC_DIR}\\&{SRC_NAME}.jpg'>>\r\n<<Info::Conversion successful. Output file saved to: C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad\\&{SRC_DIR}\\&{SRC_NAME}.jpg >>\r\n"
],
"src": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDASM",
"target": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad\\&{SRC_DIR}\\&{SRC_NAME}.jpg",
"failed": false,
"options": {
"src": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDASM",
"dst": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad\\&{SRC_DIR}\\&{SRC_NAME}.+(jpg)",
"debug": false,
"verbose": true,
"dry": false,
"skip": false,
"hidden": "false",
"alt": false,
"script": "convert.exe",
"sw": 2022,
"configuration": "Default",
"report": "${SRC_DIR}/cad-report.json",
"variables": {
"SRC_PATH": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDASM",
"SRC_DIR": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad",
"SRC_NAME": "housing-sm",
"SRC_FILE_NAME": "housing-sm.SLDASM",
"SRC_FILE_EXT": "SLDASM",
"SRC_IS_FILE": true,
"SRC_IS_FOLDER": false,
"SRC_IS_EXPRESSION": false,
"SRC_IS_GLOB": false,
"SRC_FILES": [
"C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDASM"
],
"DST_PATH": "&{SRC_DIR}/&{SRC_NAME}.+(jpg)",
"DST_DIR": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad",
"DST_NAME": "&{SRC_NAME}",
"DST_FILE_NAME": "\\&{SRC_DIR}\\&{SRC_NAME}.+(jpg)",
"DST_FILE_EXT": "+(jpg)",
"DST_IS_FILE": false,
"DST_IS_FOLDER": false,
"DST_IS_EXPRESSION": false,
"DST_IS_GLOB": true,
"DST_GLOB": "\\&{SRC_DIR}\\&{SRC_NAME}.+(jpg)",
"DST_GLOB_EXTENSIONS": [
"jpg"
],
"DST_FILES": []
},
"view": "Render",
"args": "",
"bom-config": "Default",
"bom-detail": 1,
"bom-type": 2,
"bom-images": false,
"srcInfo": {
"PATH": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDASM",
"DIR": "C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad",
"NAME": "housing-sm",
"FILE_NAME": "housing-sm.SLDASM",
"FILE_EXT": "SLDASM",
"IS_FILE": true,
"IS_FOLDER": false,
"IS_EXPRESSION": false,
"IS_GLOB": false,
"FILES": [
"C:/Users/mc007/Desktop/osr/osr-edu-kit/modules/base/cad/housing-sm.SLDASM"
]
},
"dstInfo": {
"PATH": "&{SRC_DIR}/&{SRC_NAME}.+(jpg)",
"DIR": "C:\\Users\\mc007\\Desktop\\osr\\osr-edu-kit\\modules\\base\\cad",
"NAME": "&{SRC_NAME}",
"FILE_NAME": "\\&{SRC_DIR}\\&{SRC_NAME}.+(jpg)",
"FILE_EXT": "+(jpg)",
"IS_FILE": false,
"IS_FOLDER": false,
"IS_EXPRESSION": false,
"IS_GLOB": true,
"GLOB": "\\&{SRC_DIR}\\&{SRC_NAME}.+(jpg)",
"GLOB_EXTENSIONS": [
"jpg"
],
"FILES": []
}
}
}
]

BIN
sheetpress/cassandra-edcsm/cad/base/cad/chassis-mount-pin.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/chassis-mounts-4x4.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

8367
sheetpress/cassandra-edcsm/cad/base/cad/chassis-mounts-4x4.html
View File

File diff suppressed because one or more lines are too long

BIN
sheetpress/cassandra-edcsm/cad/base/cad/chassis-mounts-4x4.jpg (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/chassis-mounts-4x4.step (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/chassis-sm-bottom.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/components/EncSocket_x8_10mm_FERRO.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/components/upn/UPN.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/envelop-sm-top.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/framework/UPN-Bottom.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/framework/UPN-H.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/housing-sm.JPG (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/housing-sm.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/housing-sm.pdf (Stored with Git LFS)
View File

Binary file not shown.

3
sheetpress/cassandra-edcsm/cad/base/cad/main-housing-sm-configs.json
View File

@ -1,3 +0,0 @@
{
"Default": {}
}

BIN
sheetpress/cassandra-edcsm/cad/base/cad/main-housing-sm.JPG (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/main-housing-sm.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

8367
sheetpress/cassandra-edcsm/cad/base/cad/main-housing-sm.html
View File

File diff suppressed because one or more lines are too long

BIN
sheetpress/cassandra-edcsm/cad/base/cad/main-housing-sm.pdf (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/main-housing-sm.step (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/main-housing-sm.x_t (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/base/cad/side-panel.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

12
sheetpress/cassandra-edcsm/cad/base/readme.md
View File

@ -1,12 +0,0 @@
### Specs
### Features
- vent ports: side (module to module) | back | top
- module interlocking (pins & latches, covered) ports
- wheel mount
- bus ports: side (module to module) | back | top - power & control
- 3 segments: top (flip door) | middle | bottom : trays & service access | cp slot (19) - 44/88
- stackable
- transport handles (1/2 person)
- trolley pullout mounts (airport :)

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Bottle Jack Assembly - BOM.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Bottle Jack Assembly Exploded View - BOM.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Bottle Jack Base - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Bottle Jack Housing 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Jack Barrel - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Jack Piston - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Jack Piston - O-Ring - Back-up Ring -2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Plastic Stop - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Power Screw - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Pump Barrel - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Pump Lever - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Pump Lever Linkage - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Pump Piston - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Pump Seals - 2D Drawings.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Retaining Nut - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Rubber Relief-Filler - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Small Steel Components -2D Drawings.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/2D drawings/Valve Bolt Drawing - 2D Drawing.SLDDRW
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Bottle Jack Assembly.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Assembly section 1 Adrian.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Bottle Jack Base.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Bottle Jack Housing.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Jack Barrel.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Jack Piston - Back-up Ring.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Jack Piston - O-Ring.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Jack Piston.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/O-Ring - 11 OD.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Plastic Stop.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Power Screw assembly.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Power Screw.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump - Back-up Ring.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Barrel - Gasket.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Barrel.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Base Assembly.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Lever Linkage Base Connector Shaft.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Lever Linkage Connector Pin.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Lever Linkage.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Lever Main Connector Pin.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Lever.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Piston - O-Ring.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump Piston.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Pump washer-gasket.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Retaining Nut.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Rubber Relief-Filler.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Valve Ball.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Valve Bolt Assembly.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Valve Bolt Dowel.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/BottleJack/Parts/Valve Bolt.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/Rails/11_Mount_x4_10mm_FERRO.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/Rails/SBR20UU.sldprt (Stored with Git LFS)
View File

Binary file not shown.

4722
sheetpress/cassandra-edcsm/cad/components/Rails/SBR20UU.stp
View File

File diff suppressed because it is too large Load Diff

813
sheetpress/cassandra-edcsm/cad/components/Rails/SBR20UU.swb
View File

@ -1,813 +0,0 @@
dim swApp
dim storePath
dim docVisible
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&
' add all dir options
Private Const BIF_BrowseFolder = BIF_EDITBOX Or BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE
' set the virtual desktop as ini folder
Private Const IniFolder = &H0 'Virtual Desktop
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 IsEqual(argVec3DA, argVec3DB)
For i = 0 To 2
If( argVec3DA(i) <> argVec3DB(i) ) Then
Exit For
End If
Next
If(i = 3) Then
IsEqual = 1
Else
IsEqual = 0
End If
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()
Set getFaceFromModel = nothing
minDist = -1
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 < minDist Or minDist = -1 ) Then
Set getFaceFromModel = face
minDist = dTest
found=1
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 < minDist Or minDist = -1 ) 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
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.SketchManager.CreateLine 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.SketchManager.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.SketchManager.CreateCircleByRadius pk1(0),pk1(1),0,rad
end sub
Public Function BrowseForFolder
Dim objFolder, objShell
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Please select the folder..", BIF_BrowseFolder, IniFolder)
If Not (objFolder Is Nothing) Then
BrowseForFolder = objFolder.Self.path
End If
End Function
Sub SelectCommonEdge(argFaceA, argFaceB)
edgesA = argFaceA.GetEdges
edgesB = argFaceB.GetEdges
For Each edgeA In edgesA
Set vertexA1 = edgeA.GetStartVertex
Set vertexA2 = edgeA.GetEndVertex
pointA1 = vertexA1.GetPoint
pointA2 = vertexA2.GetPoint
For Each edgeB In edgesB
Set vertexB1 = edgeB.GetStartVertex
Set vertexB2 = edgeB.GetEndVertex
pointB1 = vertexB1.GetPoint
pointB2 = vertexB2.GetPoint
If ( (IsEqual(pointA1, pointB1) And IsEqual(pointA2, pointB2)) Or (IsEqual(pointA1, pointB2) And IsEqual(pointA2, pointB1)) ) Then
edgeA.Select(True)
Exit Sub
End If
Next
Next
End Sub
Sub CreatePart0
dim errors as long
dim warnings as long
Dim longstatus As Long
if (docVisible=0) then
swApp.DocumentVisible 0, 1
end if
set res=swApp.OpenDoc6 ( storePath & "SBR20UU.sldprt",1,3,"", errors, warnings)
swApp.ActivateDoc2 "SBR20UU.sldprt", False, longstatus
if not res is nothing then
if (docVisible=0) then
swApp.DocumentVisible 1, 1
end if
exit sub
end if
if (docVisible=0) then
swApp.DocumentVisible 1, 1
end if
Dim sPartTemplateName As String
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
swApp.ActivateDoc2 "SBR20UU.sldprt", False, longstatus
Set part = swApp.ActiveDoc
part.SketchManager.AddToDB = true
part.SketchManager.DisplayWhenAdded = false
part.ActiveView.EnableGraphicsUpdate = false
Set modelExt = part.Extension
Set customPropMgr = modelExt.CustomPropertyManager("")
customPropMgr.Add2 "NB", 30, "SBR20UU"
customPropMgr.Add2 "NN", 30, "SBR"
customPropMgr.Add2 "NT", 30, "Linear Motion Ball Bearing Slide Units"
customPropMgr.Add2 "NBSYN", 30, "$CNSTYPECODE."
customPropMgr.Add2 "LINA", 30, "SBR20UU"
customPropMgr.Add2 "CATALOG", 30, "YTP"
customPropMgr.Add2 "MODEL", 30, "SBR20UU"
customPropMgr.Add2 "IB", 30, "LM20UU-OP"
customPropMgr.Add2 "SD", 30, "20"
customPropMgr.Add2 "H", 30, "23"
customPropMgr.Add2 "E", 30, "24.0"
customPropMgr.Add2 "W", 30, "48"
customPropMgr.Add2 "L", 30, "50"
customPropMgr.Add2 "F", 30, "39.0"
customPropMgr.Add2 "T", 30, "11.0"
customPropMgr.Add2 "HH1", 30, "10.0"
customPropMgr.Add2 "ANG", 30, "60°"
customPropMgr.Add2 "B", 30, "35.0"
customPropMgr.Add2 "C", 30, "35"
customPropMgr.Add2 "S", 30, "M6"
customPropMgr.Add2 "I", 30, "12"
customPropMgr.Add2 "CC", 30, "88"
customPropMgr.Add2 "CO", 30, "140"
customPropMgr.Add2 "WEIGHT", 30, "0.200"
customPropMgr.Add2 "PS", 30, "GBT/16940-2012"
customPropMgr.Add2 "MAT1", 30, "6063 Aluminium Alloy"
customPropMgr.Add2 "TS1", 30, "Natural Anodic Oxidation (Conventional)"
customPropMgr.Add2 "TS2", 30, "Black Anodic Oxidation Treatment (Customized)"
customPropMgr.Add2 "TEMPERATUER", 30, "-20~80"
customPropMgr.Add2 "SUPPLIER", 30, "YTP"
customPropMgr.Add2 "ARTICLENO", 30, "SBR20UU"
customPropMgr.Add2 "BOMINFO", 30, "SBR20UU"
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
customPropMgr.Add2 "IsFastener", 30, "0"
part.SummaryInfo(0)="SBR20UU"
part.SummaryInfo(4)="Linear Motion Ball Bearing Slide Units"
part.SummaryInfo(2)="Cadenas PARTsolutions"
valRGB=part.MaterialPropertyValues
valRGB(0)=0.75
valRGB(1)=0.75
valRGB(2)=0.75
valRGB(7)=0
part.MaterialPropertyValues=valRGB
Dim featMgr as object
set featMgr = part.FeatureManager
codeBag0 part,featMgr
part.ActiveView.EnableGraphicsUpdate = true
part.SketchManager.DisplayWhenAdded = true
part.SketchManager.AddToDB = false
part.EditRebuild3
part.Rebuild swRebuildAll
Set modelExt = part.Extension
modelExt.SaveAs storePath & "SBR20UU.sldprt",0,0,nothing,errors,warnings
End Sub
sub codeBag1(part,wMat)
cLn part,wMat,-0.024,0.022,-0.024,0.012
cLn part,wMat,-0.024,0.012,-0.0225,0.0105
cLn part,wMat,-0.0225,0.0105,-0.0225,-0.0144
cLn part,wMat,-0.0225,-0.0144,-0.0215,-0.0154
cLn part,wMat,-0.0215,-0.0154,-0.0095840144685478,-0.0154
cLn part,wMat,-0.0095840144685478,-0.0154,-0.0055106071276578,-0.0083446515256545
cArc part,wMat,-0.0055106071276578,-0.0083446515256545,3.9497954175685e-18,0.01,0.0055106071276578,-0.0083446515256545
cLn part,wMat,0.0055106071276578,-0.0083446515256545,0.0095840144685478,-0.0154
cLn part,wMat,0.0095840144685478,-0.0154,0.0215,-0.0154
cLn part,wMat,0.0215,-0.0154,0.0225,-0.0144
cLn part,wMat,0.0225,-0.0144,0.0225,0.0105
cLn part,wMat,0.0225,0.0105,0.024,0.012
cLn part,wMat,0.024,0.012,0.024,0.022
cLn part,wMat,0.024,0.022,0.023,0.023
cLn part,wMat,0.023,0.023,0.0105,0.023
cLn part,wMat,0.0105,0.023,0.0095,0.022
cLn part,wMat,0.0095,0.022,-0.0095,0.022
cLn part,wMat,-0.0095,0.022,-0.0105,0.023
cLn part,wMat,-0.0105,0.023,-0.023,0.023
cLn part,wMat,-0.023,0.023,-0.024,0.022
Part.SketchManager.InsertSketch True
end sub
sub codeBag2(part,wMat)
cLn part,wMat,-0.0215,-0.016,-0.009237604307034,-0.016
cLn part,wMat,-0.009237604307034,-0.016,-0.005,-0.0086602540378444
cArc part,wMat,-0.005,-0.0086602540378444,-0.00525767218305,-0.0085062849244298,-0.0055106071276578,-0.0083446515256545
cLn part,wMat,-0.0055106071276578,-0.0083446515256545,-0.0095840144685478,-0.0154
cLn part,wMat,-0.0095840144685478,-0.0154,-0.0215,-0.0154
cLn part,wMat,-0.0215,-0.0154,-0.0215,-0.016
Part.SketchManager.InsertSketch True
end sub
sub codeBag3(part,wMat)
cLn part,wMat,0.005,-0.0086602540378444,0.009237604307034,-0.016
cLn part,wMat,0.009237604307034,-0.016,0.0215,-0.016
cLn part,wMat,0.0215,-0.016,0.0215,-0.0154
cLn part,wMat,0.0215,-0.0154,0.0095840144685478,-0.0154
cLn part,wMat,0.0095840144685478,-0.0154,0.0055106071276578,-0.0083446515256545
cArc part,wMat,0.0055106071276578,-0.0083446515256545,0.00525767218305,-0.0085062849244298,0.005,-0.0086602540378444
Part.SketchManager.InsertSketch True
end sub
sub codeBag4(part,wMat)
cCir part,wMat,0.0175,0.0175,0.0025
cLn part,wMat,0.0155,0.017,0.016633974596216,0.017
cArc part,wMat,0.016633974596216,0.017,0.016792893218813,0.016792893218813,0.017,0.016633974596216
cLn part,wMat,0.017,0.016633974596216,0.017,0.0155
cLn part,wMat,0.017,0.0155,0.018,0.0155
cLn part,wMat,0.018,0.0155,0.018,0.016633974596216
cArc part,wMat,0.018,0.016633974596216,0.018207106781187,0.016792893218813,0.018366025403784,0.017
cLn part,wMat,0.018366025403784,0.017,0.0195,0.017
cLn part,wMat,0.0195,0.017,0.0195,0.018
cLn part,wMat,0.0195,0.018,0.018366025403784,0.018
cArc part,wMat,0.018366025403784,0.018,0.018207106781187,0.018207106781187,0.018,0.018366025403784
cLn part,wMat,0.018,0.018366025403784,0.018,0.0195
cLn part,wMat,0.018,0.0195,0.017,0.0195
cLn part,wMat,0.017,0.0195,0.017,0.018366025403784
cArc part,wMat,0.017,0.018366025403784,0.016792893218813,0.018207106781187,0.016633974596216,0.018
cLn part,wMat,0.016633974596216,0.018,0.0155,0.018
cLn part,wMat,0.0155,0.018,0.0155,0.017
Part.SketchManager.InsertSketch True
end sub
sub codeBag5(part,wMat)
cCir part,wMat,0.0175,-0.0175,0.0025
cLn part,wMat,0.0155,-0.017,0.0155,-0.018
cLn part,wMat,0.0155,-0.018,0.016633974596216,-0.018
cArc part,wMat,0.016633974596216,-0.018,0.016792893218813,-0.018207106781187,0.017,-0.018366025403784
cLn part,wMat,0.017,-0.018366025403784,0.017,-0.0195
cLn part,wMat,0.017,-0.0195,0.018,-0.0195
cLn part,wMat,0.018,-0.0195,0.018,-0.018366025403784
cArc part,wMat,0.018,-0.018366025403784,0.018207106781187,-0.018207106781187,0.018366025403784,-0.018
cLn part,wMat,0.018366025403784,-0.018,0.0195,-0.018
cLn part,wMat,0.0195,-0.018,0.0195,-0.017
cLn part,wMat,0.0195,-0.017,0.018366025403784,-0.017
cArc part,wMat,0.018366025403784,-0.017,0.018207106781187,-0.016792893218813,0.018,-0.016633974596216
cLn part,wMat,0.018,-0.016633974596216,0.018,-0.0155
cLn part,wMat,0.018,-0.0155,0.017,-0.0155
cLn part,wMat,0.017,-0.0155,0.017,-0.016633974596216
cArc part,wMat,0.017,-0.016633974596216,0.016792893218813,-0.016792893218813,0.016633974596216,-0.017
cLn part,wMat,0.016633974596216,-0.017,0.0155,-0.017
Part.SketchManager.InsertSketch True
end sub
sub codeBag6(part,wMat)
cCir part,wMat,-0.0175,0.0175,0.0025
cLn part,wMat,-0.0195,0.018,-0.0195,0.017
cLn part,wMat,-0.0195,0.017,-0.018366025403784,0.017
cArc part,wMat,-0.018366025403784,0.017,-0.018207106781187,0.016792893218813,-0.018,0.016633974596216
cLn part,wMat,-0.018,0.016633974596216,-0.018,0.0155
cLn part,wMat,-0.018,0.0155,-0.017,0.0155
cLn part,wMat,-0.017,0.0155,-0.017,0.016633974596216
cArc part,wMat,-0.017,0.016633974596216,-0.016792893218813,0.016792893218813,-0.016633974596216,0.017
cLn part,wMat,-0.016633974596216,0.017,-0.0155,0.017
cLn part,wMat,-0.0155,0.017,-0.0155,0.018
cLn part,wMat,-0.0155,0.018,-0.016633974596216,0.018
cArc part,wMat,-0.016633974596216,0.018,-0.016792893218813,0.018207106781187,-0.017,0.018366025403784
cLn part,wMat,-0.017,0.018366025403784,-0.017,0.0195
cLn part,wMat,-0.017,0.0195,-0.018,0.0195
cLn part,wMat,-0.018,0.0195,-0.018,0.018366025403784
cArc part,wMat,-0.018,0.018366025403784,-0.018207106781187,0.018207106781187,-0.018366025403784,0.018
cLn part,wMat,-0.018366025403784,0.018,-0.0195,0.018
Part.SketchManager.InsertSketch True
end sub
sub codeBag7(part,wMat)
cCir part,wMat,-0.0175,-0.0175,0.0025
cLn part,wMat,-0.0195,-0.018,-0.018366025403784,-0.018
cArc part,wMat,-0.018366025403784,-0.018,-0.018207106781187,-0.018207106781187,-0.018,-0.018366025403784
cLn part,wMat,-0.018,-0.018366025403784,-0.018,-0.0195
cLn part,wMat,-0.018,-0.0195,-0.017,-0.0195
cLn part,wMat,-0.017,-0.0195,-0.017,-0.018366025403784
cArc part,wMat,-0.017,-0.018366025403784,-0.016792893218813,-0.018207106781187,-0.016633974596216,-0.018
cLn part,wMat,-0.016633974596216,-0.018,-0.0155,-0.018
cLn part,wMat,-0.0155,-0.018,-0.0155,-0.017
cLn part,wMat,-0.0155,-0.017,-0.016633974596216,-0.017
cArc part,wMat,-0.016633974596216,-0.017,-0.016792893218813,-0.016792893218813,-0.017,-0.016633974596216
cLn part,wMat,-0.017,-0.016633974596216,-0.017,-0.0155
cLn part,wMat,-0.017,-0.0155,-0.018,-0.0155
cLn part,wMat,-0.018,-0.0155,-0.018,-0.016633974596216
cArc part,wMat,-0.018,-0.016633974596216,-0.018207106781187,-0.016792893218813,-0.018366025403784,-0.017
cLn part,wMat,-0.018366025403784,-0.017,-0.0195,-0.017
cLn part,wMat,-0.0195,-0.017,-0.0195,-0.018
Part.SketchManager.InsertSketch True
end sub
sub codeBag8(part,wMat)
cLn part,wMat,-0.0175,0.023,-0.0145,0.023
cLn part,wMat,-0.0145,0.023,-0.0150415,0.0224585
cLn part,wMat,-0.0150415,0.0224585,-0.0150415,0.011
cLn part,wMat,-0.0150415,0.011,-0.0175,0.011
cLn part,wMat,-0.0175,0.011,-0.0175,0.023
cCLn part,wMat,-0.0175,0.011,-0.0175,0.023
Part.SketchManager.InsertSketch True
end sub
sub codeBag9(part,wMat)
cLn part,wMat,-0.0175,0.023,-0.0145,0.023
cLn part,wMat,-0.0145,0.023,-0.0150415,0.0224585
cLn part,wMat,-0.0150415,0.0224585,-0.0150415,0.011
cLn part,wMat,-0.0150415,0.011,-0.0175,0.011
cLn part,wMat,-0.0175,0.011,-0.0175,0.023
cCLn part,wMat,-0.0175,0.011,-0.0175,0.023
Part.SketchManager.InsertSketch True
end sub
sub codeBag10(part,wMat)
cLn part,wMat,-0.0175,0.023,-0.0145,0.023
cLn part,wMat,-0.0145,0.023,-0.0150415,0.0224585
cLn part,wMat,-0.0150415,0.0224585,-0.0150415,0.011
cLn part,wMat,-0.0150415,0.011,-0.0175,0.011
cLn part,wMat,-0.0175,0.011,-0.0175,0.023
cCLn part,wMat,-0.0175,0.011,-0.0175,0.023
Part.SketchManager.InsertSketch True
end sub
sub codeBag11(part,wMat)
cLn part,wMat,-0.0175,0.023,-0.0145,0.023
cLn part,wMat,-0.0145,0.023,-0.0150415,0.0224585
cLn part,wMat,-0.0150415,0.0224585,-0.0150415,0.011
cLn part,wMat,-0.0150415,0.011,-0.0175,0.011
cLn part,wMat,-0.0175,0.011,-0.0175,0.023
cCLn part,wMat,-0.0175,0.011,-0.0175,0.023
Part.SketchManager.InsertSketch True
end sub
sub codeBag0(part,featMgr)
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(0,0,-1),createVec3d(0,1,0),1
set feat4=part.Extension.GetLastFeatureAdded()
feat4.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag1 part,wMat
set feat4=part.Extension.GetLastFeatureAdded()
feat4.select2 false,0
featMgr.FeatureExtrusion2 0,0,1,0,0,0.025,0.025,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(0,0,-1),createVec3d(0,1,0),1
set feat6=part.Extension.GetLastFeatureAdded()
feat6.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag2 part,wMat
set feat6=part.Extension.GetLastFeatureAdded()
feat6.select2 false,0
featMgr.FeatureExtrusion2 0,0,1,0,0,0.0225,0.0225,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(0,0,-1),createVec3d(0,1,0),1
set feat8=part.Extension.GetLastFeatureAdded()
feat8.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag3 part,wMat
set feat8=part.Extension.GetLastFeatureAdded()
feat8.select2 false,0
featMgr.FeatureExtrusion2 0,0,1,0,0,0.0225,0.0225,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.016,0),createVec3d(1,-0.016,0),createVec3d(0,-0.016,-1),1
set feat11=part.Extension.GetLastFeatureAdded()
feat11.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.016,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag4 part,wMat
set feat11=part.Extension.GetLastFeatureAdded()
feat11.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.016,0),createVec3d(1,-0.016,0),createVec3d(0,-0.016,-1),1
set feat13=part.Extension.GetLastFeatureAdded()
feat13.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.016,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag5 part,wMat
set feat13=part.Extension.GetLastFeatureAdded()
feat13.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.016,0),createVec3d(1,-0.016,0),createVec3d(0,-0.016,-1),1
set feat15=part.Extension.GetLastFeatureAdded()
feat15.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.016,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag6 part,wMat
set feat15=part.Extension.GetLastFeatureAdded()
feat15.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.016,0),createVec3d(1,-0.016,0),createVec3d(0,-0.016,-1),1
set feat17=part.Extension.GetLastFeatureAdded()
feat17.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,-1,0,1,0,0,-0.016,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag7 part,wMat
set feat17=part.Extension.GetLastFeatureAdded()
feat17.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.0005,0.0005,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0.0175,0,0),createVec3d(0.0175,0,-1),createVec3d(0.0175,1,0),1
set feat22=part.Extension.GetLastFeatureAdded()
feat22.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.0175,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag8 part,wMat
set feat22=part.Extension.GetLastFeatureAdded()
feat22.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
if getEdgeFromModel(part,createVec3d(0.0175,0.0224585,0.0150415),cylEdge) then
cylEdge.Select(false)
Part.InsertCosmeticThread 0,0.006,0.012,""
elseif getEdgeFromModel(part,createVec3d(0.0175,0.011,0.0150415),cylEdge) then
cylEdge.Select(false)
Part.InsertCosmeticThread 0,0.006,0.012,""
End If
part.CreatePlaneFixed2 createVec3d(-0.0175,0,0),createVec3d(-0.0175,0,-1),createVec3d(-0.0175,1,0),1
set feat28=part.Extension.GetLastFeatureAdded()
feat28.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0175,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag9 part,wMat
set feat28=part.Extension.GetLastFeatureAdded()
feat28.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
if getEdgeFromModel(part,createVec3d(-0.0175,0.0224585,0.0150415),cylEdge) then
cylEdge.Select(false)
Part.InsertCosmeticThread 0,0.006,0.012,""
elseif getEdgeFromModel(part,createVec3d(-0.0175,0.011,0.0150415),cylEdge) then
cylEdge.Select(false)
Part.InsertCosmeticThread 0,0.006,0.012,""
End If
part.CreatePlaneFixed2 createVec3d(0.0175,0,-0.035),createVec3d(0.0175,0,-1.035),createVec3d(0.0175,1,-0.035),1
set feat29=part.Extension.GetLastFeatureAdded()
feat29.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,0.0175,0,-0.035)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag10 part,wMat
set feat29=part.Extension.GetLastFeatureAdded()
feat29.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
if getEdgeFromModel(part,createVec3d(0.0175,0.0224585,-0.0199585),cylEdge) then
cylEdge.Select(false)
Part.InsertCosmeticThread 0,0.006,0.012,""
elseif getEdgeFromModel(part,createVec3d(0.0175,0.011,-0.0199585),cylEdge) then
cylEdge.Select(false)
Part.InsertCosmeticThread 0,0.006,0.012,""
End If
part.CreatePlaneFixed2 createVec3d(-0.0175,0,-0.035),createVec3d(-0.0175,0,-1.035),createVec3d(-0.0175,1,-0.035),1
set feat30=part.Extension.GetLastFeatureAdded()
feat30.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(0,0,-1,0,1,0,1,0,0,-0.0175,0,-0.035)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag11 part,wMat
set feat30=part.Extension.GetLastFeatureAdded()
feat30.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
if getEdgeFromModel(part,createVec3d(-0.0175,0.0224585,-0.0199585),cylEdge) then
cylEdge.Select(false)
Part.InsertCosmeticThread 0,0.006,0.012,""
elseif getEdgeFromModel(part,createVec3d(-0.0175,0.011,-0.0199585),cylEdge) then
cylEdge.Select(false)
Part.InsertCosmeticThread 0,0.006,0.012,""
End If
end sub
sub main
set swApp = Application.SldWorks
code = swApp.RevisionNumber
found = InStr(code, ".")
If (found > 0) Then
code = Left(code, found-1)
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

BIN
sheetpress/cassandra-edcsm/cad/components/Rails/SBS 20 Rail 200mm.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/Rails/SBS 20 Rail 300mm.sldprt (Stored with Git LFS)
View File

Binary file not shown.

3226
sheetpress/cassandra-edcsm/cad/components/Rails/SBSg620-500L (25 3).stp
View File

File diff suppressed because it is too large Load Diff

909
sheetpress/cassandra-edcsm/cad/components/Rails/SBSg620-500L (25 3).swb
View File

@ -1,909 +0,0 @@
dim swApp
dim storePath
dim docVisible
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&
' add all dir options
Private Const BIF_BrowseFolder = BIF_EDITBOX Or BIF_RETURNONLYFSDIRS Or BIF_NEWDIALOGSTYLE
' set the virtual desktop as ini folder
Private Const IniFolder = &H0 'Virtual Desktop
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 IsEqual(argVec3DA, argVec3DB)
For i = 0 To 2
If( argVec3DA(i) <> argVec3DB(i) ) Then
Exit For
End If
Next
If(i = 3) Then
IsEqual = 1
Else
IsEqual = 0
End If
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()
Set getFaceFromModel = nothing
minDist = -1
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 < minDist Or minDist = -1 ) Then
Set getFaceFromModel = face
minDist = dTest
found=1
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 < minDist Or minDist = -1 ) 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
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.SketchManager.CreateLine 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.SketchManager.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.SketchManager.CreateCircleByRadius pk1(0),pk1(1),0,rad
end sub
Public Function BrowseForFolder
Dim objFolder, objShell
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Please select the folder..", BIF_BrowseFolder, IniFolder)
If Not (objFolder Is Nothing) Then
BrowseForFolder = objFolder.Self.path
End If
End Function
Sub SelectCommonEdge(argFaceA, argFaceB)
edgesA = argFaceA.GetEdges
edgesB = argFaceB.GetEdges
For Each edgeA In edgesA
Set vertexA1 = edgeA.GetStartVertex
Set vertexA2 = edgeA.GetEndVertex
pointA1 = vertexA1.GetPoint
pointA2 = vertexA2.GetPoint
For Each edgeB In edgesB
Set vertexB1 = edgeB.GetStartVertex
Set vertexB2 = edgeB.GetEndVertex
pointB1 = vertexB1.GetPoint
pointB2 = vertexB2.GetPoint
If ( (IsEqual(pointA1, pointB1) And IsEqual(pointA2, pointB2)) Or (IsEqual(pointA1, pointB2) And IsEqual(pointA2, pointB1)) ) Then
edgeA.Select(True)
Exit Sub
End If
Next
Next
End Sub
Sub CreatePart0
dim errors as long
dim warnings as long
Dim longstatus As Long
if (docVisible=0) then
swApp.DocumentVisible 0, 1
end if
set res=swApp.OpenDoc6 ( storePath & "SBSg620-500L (25 3).sldprt",1,3,"", errors, warnings)
swApp.ActivateDoc2 "SBSg620-500L (25 3).sldprt", False, longstatus
if not res is nothing then
if (docVisible=0) then
swApp.DocumentVisible 1, 1
end if
exit sub
end if
if (docVisible=0) then
swApp.DocumentVisible 1, 1
end if
Dim sPartTemplateName As String
sPartTemplateName = swApp.GetUserPreferenceStringValue(8)
Set part = swApp.NewDocument(sPartTemplateName, 0, 0, 0)
swApp.ActivateDoc2 "SBSg620-500L (25 3).sldprt", False, longstatus
Set part = swApp.ActiveDoc
part.SketchManager.AddToDB = true
part.SketchManager.DisplayWhenAdded = false
part.ActiveView.EnableGraphicsUpdate = false
Set modelExt = part.Extension
Set customPropMgr = modelExt.CustomPropertyManager("")
customPropMgr.Add2 "NB", 30, "SBSg620-500L (25 3)"
customPropMgr.Add2 "NN", 30, "SBS"
customPropMgr.Add2 "NT", 30, "Support Rail Unit"
customPropMgr.Add2 "NBSYN", 30, "SBS$SHAFT.$TOL.$SD1.-$L.L ($N. $NH.)"
customPropMgr.Add2 "LINA", 30, "SBSg620-500L"
customPropMgr.Add2 "CATALOG", 30, "Samick Precision"
customPropMgr.Add2 "PN", 30, "SBS20"
customPropMgr.Add2 "SHAFT", 30, "Standard(SUJ2)"
customPropMgr.Add2 "TOL", 30, "Asian STD g6 Tolerance Shaft"
customPropMgr.Add2 "SD", 30, "F20"
customPropMgr.Add2 "L", 30, "500"
customPropMgr.Add2 "E", 30, "22.5"
customPropMgr.Add2 "HH", 30, "27"
customPropMgr.Add2 "B", 30, "45"
customPropMgr.Add2 "H", 30, "17.72"
customPropMgr.Add2 "T", 30, "5"
customPropMgr.Add2 "F", 30, "19.0"
customPropMgr.Add2 "X", 30, "8.0"
customPropMgr.Add2 "Y", 30, "10.0"
customPropMgr.Add2 "C", 30, "30"
customPropMgr.Add2 "THETA", 30, "50"
customPropMgr.Add2 "S1", 30, "F5.5"
customPropMgr.Add2 "A1", 30, "6.5"
customPropMgr.Add2 "A2", 30, "11.0"
customPropMgr.Add2 "D1", 30, "6.6"
customPropMgr.Add2 "W", 30, "3.500"
customPropMgr.Add2 "MAXL", 30, "3000"
customPropMgr.Add2 "P", 30, "150"
customPropMgr.Add2 "SD1", 30, "20"
customPropMgr.Add2 "SUPPLIER", 30, "SAMICKPR"
customPropMgr.Add2 "ARTICLENO", 30, "SBSg620-500L (25 3)"
customPropMgr.Add2 "BOMINFO", 30, "SBSg620-500L"
customPropMgr.Add2 "CREATOR", 30, "CADENAS GmbH"
customPropMgr.Add2 "IsFastener", 30, "0"
part.SummaryInfo(0)="SBSg620-500L"
part.SummaryInfo(4)="Support Rail Unit"
part.SummaryInfo(2)="Cadenas PARTsolutions"
valRGB=part.MaterialPropertyValues
valRGB(0)=0.68999999761581
valRGB(1)=0.68999999761581
valRGB(2)=0.68999999761581
valRGB(7)=0
part.MaterialPropertyValues=valRGB
Dim featMgr as object
set featMgr = part.FeatureManager
codeBag0 part,featMgr
codeBag15 part,featMgr
part.ActiveView.EnableGraphicsUpdate = true
part.SketchManager.DisplayWhenAdded = true
part.SketchManager.AddToDB = false
part.EditRebuild3
part.Rebuild swRebuildAll
Set modelExt = part.Extension
modelExt.SaveAs storePath & "SBSg620-500L (25 3).sldprt",0,0,nothing,errors,warnings
End Sub
sub codeBag1(part,wMat)
cLn part,wMat,-0.0225,-0.0223,-0.0225,-0.0267
cArc part,wMat,-0.0225,-0.0267,-0.022412132034356,-0.026912132034356,-0.0222,-0.027
cLn part,wMat,-0.0222,-0.027,0.0222,-0.027
cArc part,wMat,0.0222,-0.027,0.022412132034356,-0.026912132034356,0.0225,-0.0267
cLn part,wMat,0.0225,-0.0267,0.0225,-0.0223
cArc part,wMat,0.0225,-0.0223,0.022412132034356,-0.022087867965644,0.0222,-0.022
cLn part,wMat,0.0222,-0.022,0.0098,-0.022
cArc part,wMat,0.0098,-0.022,0.009587867965644,-0.021912132034356,0.0095,-0.0217
cLn part,wMat,0.0095,-0.0217,0.0095,-0.0173
cArc part,wMat,0.0095,-0.0173,0.009412132034356,-0.017087867965644,0.0092,-0.017
cLn part,wMat,0.0092,-0.017,0.0077910161991988,-0.017
cArc part,wMat,0.0077910161991988,-0.017,0.0076298263166948,-0.016953017433744,0.0075191238630878,-0.016826785478522
cLn part,wMat,0.0075191238630878,-0.016826785478522,0.0040807712578687,-0.0094532145214778
cArc part,wMat,0.0040807712578687,-0.0094532145214778,0.0039700688042618,-0.0093269825662561,0.0038088789217578,-0.00928
cLn part,wMat,0.0038088789217578,-0.00928,-0.0038088789217578,-0.00928
cArc part,wMat,-0.0038088789217578,-0.00928,-0.0039700688042618,-0.0093269825662561,-0.0040807712578687,-0.0094532145214778
cLn part,wMat,-0.0040807712578687,-0.0094532145214778,-0.0075191238630878,-0.016826785478522
cArc part,wMat,-0.0075191238630878,-0.016826785478522,-0.0076298263166948,-0.016953017433744,-0.0077910161991988,-0.017
cLn part,wMat,-0.0077910161991988,-0.017,-0.0092,-0.017
cArc part,wMat,-0.0092,-0.017,-0.009412132034356,-0.017087867965644,-0.0095,-0.0173
cLn part,wMat,-0.0095,-0.0173,-0.0095,-0.0217
cArc part,wMat,-0.0095,-0.0217,-0.009587867965644,-0.021912132034356,-0.0098,-0.022
cLn part,wMat,-0.0098,-0.022,-0.0222,-0.022
cArc part,wMat,-0.0222,-0.022,-0.022412132034356,-0.022087867965644,-0.0225,-0.0223
Part.SketchManager.InsertSketch True
end sub
sub codeBag2(part,wMat)
cCir part,wMat,0,0,0.01
Part.SketchManager.InsertSketch True
end sub
sub codeBag3(part,wMat)
cLn part,wMat,0.015,-0.022,0.01775,-0.022
cLn part,wMat,0.01775,-0.022,0.01775,-0.027
cLn part,wMat,0.01775,-0.027,0.015,-0.027
cLn part,wMat,0.015,-0.027,0.015,-0.022
cCLn part,wMat,0.015,-0.027,0.015,-0.022
Part.SketchManager.InsertSketch True
end sub
sub codeBag4(part,wMat)
cLn part,wMat,-0.015,-0.027,-0.01775,-0.027
cLn part,wMat,-0.01775,-0.027,-0.01775,-0.022
cLn part,wMat,-0.01775,-0.022,-0.015,-0.022
cLn part,wMat,-0.015,-0.022,-0.015,-0.027
cCLn part,wMat,-0.015,-0.022,-0.015,-0.027
Part.SketchManager.InsertSketch True
end sub
sub codeBag5(part,wMat)
cLn part,wMat,0.015,-0.022,0.01775,-0.022
cLn part,wMat,0.01775,-0.022,0.01775,-0.027
cLn part,wMat,0.01775,-0.027,0.015,-0.027
cLn part,wMat,0.015,-0.027,0.015,-0.022
cCLn part,wMat,0.015,-0.027,0.015,-0.022
Part.SketchManager.InsertSketch True
end sub
sub codeBag6(part,wMat)
cLn part,wMat,-0.015,-0.027,-0.01775,-0.027
cLn part,wMat,-0.01775,-0.027,-0.01775,-0.022
cLn part,wMat,-0.01775,-0.022,-0.015,-0.022
cLn part,wMat,-0.015,-0.022,-0.015,-0.027
cCLn part,wMat,-0.015,-0.022,-0.015,-0.027
Part.SketchManager.InsertSketch True
end sub
sub codeBag7(part,wMat)
cLn part,wMat,0.015,-0.022,0.01775,-0.022
cLn part,wMat,0.01775,-0.022,0.01775,-0.027
cLn part,wMat,0.01775,-0.027,0.015,-0.027
cLn part,wMat,0.015,-0.027,0.015,-0.022
cCLn part,wMat,0.015,-0.027,0.015,-0.022
Part.SketchManager.InsertSketch True
end sub
sub codeBag8(part,wMat)
cLn part,wMat,0.015,-0.022,0.01775,-0.022
cLn part,wMat,0.01775,-0.022,0.01775,-0.027
cLn part,wMat,0.01775,-0.027,0.015,-0.027
cLn part,wMat,0.015,-0.027,0.015,-0.022
cCLn part,wMat,0.015,-0.027,0.015,-0.022
Part.SketchManager.InsertSketch True
end sub
sub codeBag9(part,wMat)
cLn part,wMat,-0.015,-0.027,-0.01775,-0.027
cLn part,wMat,-0.01775,-0.027,-0.01775,-0.022
cLn part,wMat,-0.01775,-0.022,-0.015,-0.022
cLn part,wMat,-0.015,-0.022,-0.015,-0.027
cCLn part,wMat,-0.015,-0.022,-0.015,-0.027
Part.SketchManager.InsertSketch True
end sub
sub codeBag10(part,wMat)
cLn part,wMat,-0.015,-0.027,-0.01775,-0.027
cLn part,wMat,-0.01775,-0.027,-0.01775,-0.022
cLn part,wMat,-0.01775,-0.022,-0.015,-0.022
cLn part,wMat,-0.015,-0.022,-0.015,-0.027
cCLn part,wMat,-0.015,-0.022,-0.015,-0.027
Part.SketchManager.InsertSketch True
end sub
sub codeBag11(part,wMat)
cLn part,wMat,-8.8817841970013e-19,-0.0267,0.0049,-0.0267
cLn part,wMat,0.0049,-0.0267,0.0052,-0.0264
cLn part,wMat,0.0052,-0.0264,0.0052,-0.0205
cLn part,wMat,0.0052,-0.0205,0.0055,-0.0205
cLn part,wMat,0.0055,-0.0205,0.0055,-0.0267
cArc part,wMat,0.0055,-0.0267,0.005587867965644,-0.026912132034356,0.0058,-0.027
cLn part,wMat,0.0058,-0.027,-8.8817841970013e-19,-0.027
cLn part,wMat,-8.8817841970013e-19,-0.027,-8.8817841970013e-19,-0.0267
cCLn part,wMat,-8.8817841970013e-19,-0.027,-8.8817841970013e-19,-0.0205
Part.SketchManager.InsertSketch True
end sub
sub codeBag12(part,wMat)
cLn part,wMat,-8.8817841970013e-19,-0.0267,0.0049,-0.0267
cLn part,wMat,0.0049,-0.0267,0.0052,-0.0264
cLn part,wMat,0.0052,-0.0264,0.0052,-0.0205
cLn part,wMat,0.0052,-0.0205,0.0055,-0.0205
cLn part,wMat,0.0055,-0.0205,0.0055,-0.0267
cArc part,wMat,0.0055,-0.0267,0.005587867965644,-0.026912132034356,0.0058,-0.027
cLn part,wMat,0.0058,-0.027,-8.8817841970013e-19,-0.027
cLn part,wMat,-8.8817841970013e-19,-0.027,-8.8817841970013e-19,-0.0267
cCLn part,wMat,-8.8817841970013e-19,-0.027,-8.8817841970013e-19,-0.0205
Part.SketchManager.InsertSketch True
end sub
sub codeBag13(part,wMat)
cLn part,wMat,-8.8817841970013e-19,-0.0267,0.0049,-0.0267
cLn part,wMat,0.0049,-0.0267,0.0052,-0.0264
cLn part,wMat,0.0052,-0.0264,0.0052,-0.0205
cLn part,wMat,0.0052,-0.0205,0.0055,-0.0205
cLn part,wMat,0.0055,-0.0205,0.0055,-0.0267
cArc part,wMat,0.0055,-0.0267,0.005587867965644,-0.026912132034356,0.0058,-0.027
cLn part,wMat,0.0058,-0.027,-8.8817841970013e-19,-0.027
cLn part,wMat,-8.8817841970013e-19,-0.027,-8.8817841970013e-19,-0.0267
cCLn part,wMat,-8.8817841970013e-19,-0.027,-8.8817841970013e-19,-0.0205
Part.SketchManager.InsertSketch True
end sub
sub codeBag14(part,wMat)
cLn part,wMat,-8.8817841970013e-19,-0.0267,0.0049,-0.0267
cLn part,wMat,0.0049,-0.0267,0.0052,-0.0264
cLn part,wMat,0.0052,-0.0264,0.0052,-0.0205
cLn part,wMat,0.0052,-0.0205,0.0055,-0.0205
cLn part,wMat,0.0055,-0.0205,0.0055,-0.0267
cArc part,wMat,0.0055,-0.0267,0.005587867965644,-0.026912132034356,0.0058,-0.027
cLn part,wMat,0.0058,-0.027,-8.8817841970013e-19,-0.027
cLn part,wMat,-8.8817841970013e-19,-0.027,-8.8817841970013e-19,-0.0267
cCLn part,wMat,-8.8817841970013e-19,-0.027,-8.8817841970013e-19,-0.0205
Part.SketchManager.InsertSketch True
end sub
sub codeBag0(part,featMgr)
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
set feat4=part.Extension.GetLastFeatureAdded()
feat4.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag1 part,wMat
set feat4=part.Extension.GetLastFeatureAdded()
feat4.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.5,0.5,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,0),createVec3d(1,0,0),createVec3d(0,1,0),1
set feat6=part.Extension.GetLastFeatureAdded()
feat6.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,0)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag2 part,wMat
set feat6=part.Extension.GetLastFeatureAdded()
feat6.select2 false,0
featMgr.FeatureExtrusion2 1,0,1,0,0,0.5,0.5,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
part.CreatePlaneFixed2 createVec3d(0,0,-0.025),createVec3d(1,0,-0.025),createVec3d(0,1,-0.025),1
set feat10=part.Extension.GetLastFeatureAdded()
feat10.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.025)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag3 part,wMat
set feat10=part.Extension.GetLastFeatureAdded()
feat10.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0,0,-0.025),createVec3d(1,0,-0.025),createVec3d(0,1,-0.025),1
set feat12=part.Extension.GetLastFeatureAdded()
feat12.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.025)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag4 part,wMat
set feat12=part.Extension.GetLastFeatureAdded()
feat12.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0,0,-0.475),createVec3d(1,0,-0.475),createVec3d(0,1,-0.475),1
set feat15=part.Extension.GetLastFeatureAdded()
feat15.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.475)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag5 part,wMat
set feat15=part.Extension.GetLastFeatureAdded()
feat15.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0,0,-0.475),createVec3d(1,0,-0.475),createVec3d(0,1,-0.475),1
set feat16=part.Extension.GetLastFeatureAdded()
feat16.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.475)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag6 part,wMat
set feat16=part.Extension.GetLastFeatureAdded()
feat16.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0,0,-0.175),createVec3d(1,0,-0.175),createVec3d(0,1,-0.175),1
set feat22=part.Extension.GetLastFeatureAdded()
feat22.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.175)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag7 part,wMat
set feat22=part.Extension.GetLastFeatureAdded()
feat22.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0,0,-0.325),createVec3d(1,0,-0.325),createVec3d(0,1,-0.325),1
set feat23=part.Extension.GetLastFeatureAdded()
feat23.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.325)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag8 part,wMat
set feat23=part.Extension.GetLastFeatureAdded()
feat23.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0,0,-0.175),createVec3d(1,0,-0.175),createVec3d(0,1,-0.175),1
set feat27=part.Extension.GetLastFeatureAdded()
feat27.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.175)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag9 part,wMat
set feat27=part.Extension.GetLastFeatureAdded()
feat27.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0,0,-0.325),createVec3d(1,0,-0.325),createVec3d(0,1,-0.325),1
set feat28=part.Extension.GetLastFeatureAdded()
feat28.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.325)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag10 part,wMat
set feat28=part.Extension.GetLastFeatureAdded()
feat28.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(0,0,-0.025),createVec3d(1,0,-0.025),createVec3d(0,1,-0.025),1
set feat30=part.Extension.GetLastFeatureAdded()
feat30.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,0,0,-0.025)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag11 part,wMat
set feat30=part.Extension.GetLastFeatureAdded()
feat30.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(8.8817841970013e-19,0,-0.175),createVec3d(1,0,-0.175),createVec3d(8.8817841970013e-19,1,-0.175),1
set feat35=part.Extension.GetLastFeatureAdded()
feat35.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,8.8817841970013e-19,0,-0.175)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag12 part,wMat
set feat35=part.Extension.GetLastFeatureAdded()
feat35.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(8.8817841970013e-19,0,-0.325),createVec3d(1,0,-0.325),createVec3d(8.8817841970013e-19,1,-0.325),1
set feat36=part.Extension.GetLastFeatureAdded()
feat36.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,8.8817841970013e-19,0,-0.325)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag13 part,wMat
set feat36=part.Extension.GetLastFeatureAdded()
feat36.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
part.CreatePlaneFixed2 createVec3d(8.8817841970013e-19,0,-0.475),createVec3d(1,0,-0.475),createVec3d(8.8817841970013e-19,1,-0.475),1
set feat37=part.Extension.GetLastFeatureAdded()
feat37.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,1,0,0,0,1,8.8817841970013e-19,0,-0.475)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag14 part,wMat
set feat37=part.Extension.GetLastFeatureAdded()
feat37.select2 false,0
featMgr.FeatureRevolveCut2 6.2831853071796,1,6.2831853071796,0,0,1,1,false,false,false
end sub
sub codeBag16(part,wMat)
cLn part,wMat,-0.002275,-0.0013134718624064,0,-0.0026269437248128
cLn part,wMat,0,-0.0026269437248128,0.002275,-0.0013134718624064
cLn part,wMat,0.002275,-0.0013134718624064,0.002275,0.0013134718624064
cLn part,wMat,0.002275,0.0013134718624064,0,0.0026269437248128
cLn part,wMat,0,0.0026269437248128,-0.002275,0.0013134718624064
cLn part,wMat,-0.002275,0.0013134718624064,-0.002275,-0.0013134718624064
Part.SketchManager.InsertSketch True
end sub
sub codeBag17(part,wMat)
cLn part,wMat,-0.002275,-0.0013134718624064,0,-0.0026269437248128
cLn part,wMat,0,-0.0026269437248128,0.002275,-0.0013134718624064
cLn part,wMat,0.002275,-0.0013134718624064,0.002275,0.0013134718624064
cLn part,wMat,0.002275,0.0013134718624064,0,0.0026269437248128
cLn part,wMat,0,0.0026269437248128,-0.002275,0.0013134718624064
cLn part,wMat,-0.002275,0.0013134718624064,-0.002275,-0.0013134718624064
Part.SketchManager.InsertSketch True
end sub
sub codeBag18(part,wMat)
cLn part,wMat,-0.002275,-0.0013134718624064,0,-0.0026269437248128
cLn part,wMat,0,-0.0026269437248128,0.002275,-0.0013134718624064
cLn part,wMat,0.002275,-0.0013134718624064,0.002275,0.0013134718624064
cLn part,wMat,0.002275,0.0013134718624064,0,0.0026269437248128
cLn part,wMat,0,0.0026269437248128,-0.002275,0.0013134718624064
cLn part,wMat,-0.002275,0.0013134718624064,-0.002275,-0.0013134718624064
Part.SketchManager.InsertSketch True
end sub
sub codeBag19(part,wMat)
cLn part,wMat,-0.002275,-0.0013134718624064,0,-0.0026269437248128
cLn part,wMat,0,-0.0026269437248128,0.002275,-0.0013134718624064
cLn part,wMat,0.002275,-0.0013134718624064,0.002275,0.0013134718624064
cLn part,wMat,0.002275,0.0013134718624064,0,0.0026269437248128
cLn part,wMat,0,0.0026269437248128,-0.002275,0.0013134718624064
cLn part,wMat,-0.002275,0.0013134718624064,-0.002275,-0.0013134718624064
Part.SketchManager.InsertSketch True
end sub
sub codeBag15(part,featMgr)
part.CreatePlaneFixed2 createVec3d(0,-0.0267,-0.025),createVec3d(1,-0.0267,-0.025),createVec3d(0,-0.0267,0.975),1
set feat39=part.Extension.GetLastFeatureAdded()
feat39.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,1,0,-1,0,0,-0.0267,-0.025)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag16 part,wMat
set feat39=part.Extension.GetLastFeatureAdded()
feat39.select2 false,0
featMgr.FeatureCut3 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.0267,-0.175),createVec3d(1,-0.0267,-0.175),createVec3d(0,-0.0267,0.825),1
set feat44=part.Extension.GetLastFeatureAdded()
feat44.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,1,0,-1,0,0,-0.0267,-0.175)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag17 part,wMat
set feat44=part.Extension.GetLastFeatureAdded()
feat44.select2 false,0
featMgr.FeatureCut3 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.0267,-0.325),createVec3d(1,-0.0267,-0.325),createVec3d(0,-0.0267,0.675),1
set feat45=part.Extension.GetLastFeatureAdded()
feat45.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,1,0,-1,0,0,-0.0267,-0.325)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag18 part,wMat
set feat45=part.Extension.GetLastFeatureAdded()
feat45.select2 false,0
featMgr.FeatureCut3 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
part.CreatePlaneFixed2 createVec3d(0,-0.0267,-0.475),createVec3d(1,-0.0267,-0.475),createVec3d(0,-0.0267,0.525),1
set feat46=part.Extension.GetLastFeatureAdded()
feat46.select2 false,0
part.SketchManager.InsertSketch True
part.BlankRefGeom
Set swActiveMat = Part.SketchManager.ActiveSketch
swSketchMat= createMatFromSWMat(swActiveMat.ModelToSketchXForm)
mSkMat=createMat4x4FromValues(1,0,0,0,0,1,0,-1,0,0,-0.0267,-0.475)
wMat=mulMat4x4Mat4x4(swSketchMat,mSkMat)
codeBag19 part,wMat
set feat46=part.Extension.GetLastFeatureAdded()
feat46.select2 false,0
featMgr.FeatureCut3 1,0,0,0,0,0.003,0.003,1,1,0,0,0,0,0,0,0,0,0,1,1,false,false,false,0,0,0
end sub
sub main
set swApp = Application.SldWorks
code = swApp.RevisionNumber
found = InStr(code, ".")
If (found > 0) Then
code = Left(code, found-1)
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

BIN
sheetpress/cassandra-edcsm/cad/components/Spacer-20.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/moulds/15mm/15-650.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/moulds/15mm/Body1.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/moulds/15mm/Body2.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/moulds/15mm/Body3.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/moulds/15mm/Body4.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/moulds/15mm/Mould-Tube.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/moulds/15mm/Mould.SLDASM (Stored with Git LFS)
View File

Binary file not shown.

BIN
sheetpress/cassandra-edcsm/cad/components/moulds/15mm/Mould.SLDPRT (Stored with Git LFS)
View File

Binary file not shown.

Some files were not shown because too many files have changed in this diff Show More