Updating - sheetpress/cassandra-light
This commit is contained in:
parent
c7e2d23c5e
commit
8a47a781eb
199
sheetpress/cassandra-light/License.txt
Normal file
199
sheetpress/cassandra-light/License.txt
Normal file
@ -0,0 +1,199 @@
|
||||
CERN Open Hardware Licence Version 2 - Permissive
|
||||
|
||||
|
||||
Preamble
|
||||
|
||||
CERN has developed this licence to promote collaboration among
|
||||
hardware designers and to provide a legal tool which supports the
|
||||
freedom to use, study, modify, share and distribute hardware designs
|
||||
and products based on those designs. Version 2 of the CERN Open
|
||||
Hardware Licence comes in three variants: this licence, CERN-OHL-P
|
||||
(permissive); and two reciprocal licences: CERN-OHL-W (weakly
|
||||
reciprocal) and CERN-OHL-S (strongly reciprocal).
|
||||
|
||||
The CERN-OHL-P is copyright CERN 2020. Anyone is welcome to use it, in
|
||||
unmodified form only.
|
||||
|
||||
Use of this Licence does not imply any endorsement by CERN of any
|
||||
Licensor or their designs nor does it imply any involvement by CERN in
|
||||
their development.
|
||||
|
||||
|
||||
1 Definitions
|
||||
|
||||
1.1 'Licence' means this CERN-OHL-P.
|
||||
|
||||
1.2 'Source' means information such as design materials or digital
|
||||
code which can be applied to Make or test a Product or to
|
||||
prepare a Product for use, Conveyance or sale, regardless of its
|
||||
medium or how it is expressed. It may include Notices.
|
||||
|
||||
1.3 'Covered Source' means Source that is explicitly made available
|
||||
under this Licence.
|
||||
|
||||
1.4 'Product' means any device, component, work or physical object,
|
||||
whether in finished or intermediate form, arising from the use,
|
||||
application or processing of Covered Source.
|
||||
|
||||
1.5 'Make' means to create or configure something, whether by
|
||||
manufacture, assembly, compiling, loading or applying Covered
|
||||
Source or another Product or otherwise.
|
||||
|
||||
1.6 'Notice' means copyright, acknowledgement and trademark notices,
|
||||
references to the location of any Notices, modification notices
|
||||
(subsection 3.3(b)) and all notices that refer to this Licence
|
||||
and to the disclaimer of warranties that are included in the
|
||||
Covered Source.
|
||||
|
||||
1.7 'Licensee' or 'You' means any person exercising rights under
|
||||
this Licence.
|
||||
|
||||
1.8 'Licensor' means a person who creates Source or modifies Covered
|
||||
Source and subsequently Conveys the resulting Covered Source
|
||||
under the terms and conditions of this Licence. A person may be
|
||||
a Licensee and a Licensor at the same time.
|
||||
|
||||
1.9 'Convey' means to communicate to the public or distribute.
|
||||
|
||||
|
||||
2 Applicability
|
||||
|
||||
2.1 This Licence governs the use, copying, modification, Conveying
|
||||
of Covered Source and Products, and the Making of Products. By
|
||||
exercising any right granted under this Licence, You irrevocably
|
||||
accept these terms and conditions.
|
||||
|
||||
2.2 This Licence is granted by the Licensor directly to You, and
|
||||
shall apply worldwide and without limitation in time.
|
||||
|
||||
2.3 You shall not attempt to restrict by contract or otherwise the
|
||||
rights granted under this Licence to other Licensees.
|
||||
|
||||
2.4 This Licence is not intended to restrict fair use, fair dealing,
|
||||
or any other similar right.
|
||||
|
||||
|
||||
3 Copying, Modifying and Conveying Covered Source
|
||||
|
||||
3.1 You may copy and Convey verbatim copies of Covered Source, in
|
||||
any medium, provided You retain all Notices.
|
||||
|
||||
3.2 You may modify Covered Source, other than Notices.
|
||||
|
||||
You may only delete Notices if they are no longer applicable to
|
||||
the corresponding Covered Source as modified by You and You may
|
||||
add additional Notices applicable to Your modifications.
|
||||
|
||||
3.3 You may Convey modified Covered Source (with the effect that You
|
||||
shall also become a Licensor) provided that You:
|
||||
|
||||
a) retain Notices as required in subsection 3.2; and
|
||||
|
||||
b) add a Notice to the modified Covered Source stating that You
|
||||
have modified it, with the date and brief description of how
|
||||
You have modified it.
|
||||
|
||||
3.4 You may Convey Covered Source or modified Covered Source under
|
||||
licence terms which differ from the terms of this Licence
|
||||
provided that:
|
||||
|
||||
a) You comply at all times with subsection 3.3; and
|
||||
|
||||
b) You provide a copy of this Licence to anyone to whom You
|
||||
Convey Covered Source or modified Covered Source.
|
||||
|
||||
|
||||
4 Making and Conveying Products
|
||||
|
||||
You may Make Products, and/or Convey them, provided that You ensure
|
||||
that the recipient of the Product has access to any Notices applicable
|
||||
to the Product.
|
||||
|
||||
|
||||
5 DISCLAIMER AND LIABILITY
|
||||
|
||||
5.1 DISCLAIMER OF WARRANTY -- The Covered Source and any Products
|
||||
are provided 'as is' and any express or implied warranties,
|
||||
including, but not limited to, implied warranties of
|
||||
merchantability, of satisfactory quality, non-infringement of
|
||||
third party rights, and fitness for a particular purpose or use
|
||||
are disclaimed in respect of any Source or Product to the
|
||||
maximum extent permitted by law. The Licensor makes no
|
||||
representation that any Source or Product does not or will not
|
||||
infringe any patent, copyright, trade secret or other
|
||||
proprietary right. The entire risk as to the use, quality, and
|
||||
performance of any Source or Product shall be with You and not
|
||||
the Licensor. This disclaimer of warranty is an essential part
|
||||
of this Licence and a condition for the grant of any rights
|
||||
granted under this Licence.
|
||||
|
||||
5.2 EXCLUSION AND LIMITATION OF LIABILITY -- The Licensor shall, to
|
||||
the maximum extent permitted by law, have no liability for
|
||||
direct, indirect, special, incidental, consequential, exemplary,
|
||||
punitive or other damages of any character including, without
|
||||
limitation, procurement of substitute goods or services, loss of
|
||||
use, data or profits, or business interruption, however caused
|
||||
and on any theory of contract, warranty, tort (including
|
||||
negligence), product liability or otherwise, arising in any way
|
||||
in relation to the Covered Source, modified Covered Source
|
||||
and/or the Making or Conveyance of a Product, even if advised of
|
||||
the possibility of such damages, and You shall hold the
|
||||
Licensor(s) free and harmless from any liability, costs,
|
||||
damages, fees and expenses, including claims by third parties,
|
||||
in relation to such use.
|
||||
|
||||
|
||||
6 Patents
|
||||
|
||||
6.1 Subject to the terms and conditions of this Licence, each
|
||||
Licensor hereby grants to You a perpetual, worldwide,
|
||||
non-exclusive, no-charge, royalty-free, irrevocable (except as
|
||||
stated in this section 6, or where terminated by the Licensor
|
||||
for cause) patent license to Make, have Made, use, offer to
|
||||
sell, sell, import, and otherwise transfer the Covered Source
|
||||
and Products, where such licence applies only to those patent
|
||||
claims licensable by such Licensor that are necessarily
|
||||
infringed by exercising rights under the Covered Source as
|
||||
Conveyed by that Licensor.
|
||||
|
||||
6.2 If You institute patent litigation against any entity (including
|
||||
a cross-claim or counterclaim in a lawsuit) alleging that the
|
||||
Covered Source or a Product constitutes direct or contributory
|
||||
patent infringement, or You seek any declaration that a patent
|
||||
licensed to You under this Licence is invalid or unenforceable
|
||||
then any rights granted to You under this Licence shall
|
||||
terminate as of the date such process is initiated.
|
||||
|
||||
|
||||
7 General
|
||||
|
||||
7.1 If any provisions of this Licence are or subsequently become
|
||||
invalid or unenforceable for any reason, the remaining
|
||||
provisions shall remain effective.
|
||||
|
||||
7.2 You shall not use any of the name (including acronyms and
|
||||
abbreviations), image, or logo by which the Licensor or CERN is
|
||||
known, except where needed to comply with section 3, or where
|
||||
the use is otherwise allowed by law. Any such permitted use
|
||||
shall be factual and shall not be made so as to suggest any kind
|
||||
of endorsement or implication of involvement by the Licensor or
|
||||
its personnel.
|
||||
|
||||
7.3 CERN may publish updated versions and variants of this Licence
|
||||
which it considers to be in the spirit of this version, but may
|
||||
differ in detail to address new problems or concerns. New
|
||||
versions will be published with a unique version number and a
|
||||
variant identifier specifying the variant. If the Licensor has
|
||||
specified that a given variant applies to the Covered Source
|
||||
without specifying a version, You may treat that Covered Source
|
||||
as being released under any version of the CERN-OHL with that
|
||||
variant. If no variant is specified, the Covered Source shall be
|
||||
treated as being released under CERN-OHL-S. The Licensor may
|
||||
also specify that the Covered Source is subject to a specific
|
||||
version of the CERN-OHL or any later version in which case You
|
||||
may apply this or any later version of CERN-OHL with the same
|
||||
variant identifier published by CERN.
|
||||
|
||||
7.4 This Licence shall not be enforceable except by a Licensor
|
||||
acting as such, and third party beneficiary rights are
|
||||
specifically excluded.
|
||||
BIN
sheetpress/cassandra-light/bom.xlsx
Normal file
BIN
sheetpress/cassandra-light/bom.xlsx
Normal file
Binary file not shown.
3612
sheetpress/cassandra-light/cad/400_Mount_4x_6mm_FERRO.DXF
Normal file
3612
sheetpress/cassandra-light/cad/400_Mount_4x_6mm_FERRO.DXF
Normal file
File diff suppressed because it is too large
Load Diff
BIN
sheetpress/cassandra-light/cad/Cas-Light-Global-650-SPRCB.jpg
(Stored with Git LFS)
Normal file
BIN
sheetpress/cassandra-light/cad/Cas-Light-Global-650-SPRCB.jpg
(Stored with Git LFS)
Normal file
Binary file not shown.
228
sheetpress/cassandra-light/cad/Cas-Light-Global-650-SPRCB.json
Normal file
228
sheetpress/cassandra-light/cad/Cas-Light-Global-650-SPRCB.json
Normal file
@ -0,0 +1,228 @@
|
||||
[
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Cas-Light-Global-650-SPRCB.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Side Frame.SLDPRT"
|
||||
},
|
||||
{
|
||||
"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-light\\cad\\components\\moulds\\15mm\\Mould.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\moulds\\15mm\\15-650.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\moulds\\15mm\\Mould.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Lever Linkage.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Piston - O-Ring.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Retaining Nut.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\SOLIDWORKS Data (2)\\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-light\\cad\\components\\BottleJack\\Parts\\Pump Barrel - Gasket.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump - Back-up Ring.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Rubber Relief-Filler.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Lever.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Lever Linkage Connector Pin.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Lever Main Connector Pin.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Assembly section 1 Adrian.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Jack Barrel.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Barrel.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump washer-gasket.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\AppData\\Local\\Temp\\swx28520\\VC~~\\Pump Base Assembly\\Assem3^Pump Base Assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Bottle Jack Base.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Valve Ball.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Plastic Stop.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\O-Ring - 11 OD.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Valve Bolt.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Valve Bolt Dowel.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Valve Bolt Assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Base Assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Piston.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Jack Piston.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Jack Piston - Back-up Ring.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Jack Piston - O-Ring.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Power Screw.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Power Screw assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Lever Linkage Base Connector Shaft.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Bottle Jack Housing.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Bottle Jack Assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\15_JMPlate_x1_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\7_Rib_x2_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\8_Rib_x2_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\7_Side_x2_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\6_Side_x2_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\Lower Platen Matrix Assembly Light.SLDASM",
|
||||
"IsLaser": "1"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\303_TriMount_x8_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\20_80_60.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\304_SideMount_x4_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\201_PlateCoverTri_x2_1mm_INOX.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\305_FrontPanel_x2_1mm_INOX.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\PressPlate-Bottom\\306_SidePanel_x2_1mm_INOX.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\250-15-SP-HeatPlate5083.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\200_PressPlate-Global-650.SLDASM",
|
||||
"IsLaser": "1"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\Spacer-20.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\LowerRibs\\3_Mount_x4_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\LowerRibs\\1_RibA_x2_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\LowerRibs\\2_RibB_x2_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\LowerRibs\\400_LowerRibs.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\Rails\\11_Mount_x4_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\Rails\\SBR20UU.sldprt"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\AppData\\Local\\Temp\\swx28520\\VC~~\\Bottom-PressPlate\\Rail-Guides-TBR20^Bottom-PressPlate.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\PressPlate-Bottom\\307_RibMount_x8_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\PressPlate-Bottom\\Bottom-PressPlate.SLDASM",
|
||||
"IsLaser": "1"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\Rails\\SBS 20 Rail 200mm.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\18_RailMount_x4_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\RailMounts.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Bottom Frame.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Press-Assembly-Global-650.SLDASM",
|
||||
"IsLaser": "1"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\400_LegCover_x8_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Bracket\\30_Bracket1_x8_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Bracket\\31_Bracket2_x8_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Bracket\\Bracket.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Hood\\HoodSupport.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Hood\\610_HoodSM_x1_1mm_Inox.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Hood\\Hood Assembly.SLDASM"
|
||||
}
|
||||
]
|
||||
BIN
sheetpress/cassandra-light/cad/Cas-Light-Global-650-SPRCB.step
(Stored with Git LFS)
Normal file
BIN
sheetpress/cassandra-light/cad/Cas-Light-Global-650-SPRCB.step
(Stored with Git LFS)
Normal file
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
13630
sheetpress/cassandra-light/cad/Hood/laser/610_HoodSM_x1_1mm_Inox.DXF
Normal file
13630
sheetpress/cassandra-light/cad/Hood/laser/610_HoodSM_x1_1mm_Inox.DXF
Normal file
File diff suppressed because it is too large
Load Diff
BIN
sheetpress/cassandra-light/cad/Press-Assembly-Global-650.jpg
(Stored with Git LFS)
Normal file
BIN
sheetpress/cassandra-light/cad/Press-Assembly-Global-650.jpg
(Stored with Git LFS)
Normal file
Binary file not shown.
201
sheetpress/cassandra-light/cad/Press-Assembly-Global-650.json
Normal file
201
sheetpress/cassandra-light/cad/Press-Assembly-Global-650.json
Normal file
@ -0,0 +1,201 @@
|
||||
[
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Press-Assembly-Global-650.SLDASM",
|
||||
"IsLaser": "1"
|
||||
},
|
||||
{
|
||||
"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-light\\cad\\components\\moulds\\15mm\\Mould.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\moulds\\15mm\\15-650.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\moulds\\15mm\\Mould.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\Spacer-20.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\Rails\\SBS 20 Rail 200mm.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\18_RailMount_x4_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\RailMounts.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\LowerRibs\\3_Mount_x4_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\LowerRibs\\1_RibA_x2_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\LowerRibs\\2_RibB_x2_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\LowerRibs\\400_LowerRibs.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\Rails\\SBR20UU.sldprt"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\Rails\\11_Mount_x4_10mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\AppData\\Local\\Temp\\swx29480\\VC~~\\Bottom-PressPlate\\Rail-Guides-TBR20^Bottom-PressPlate.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\PressPlate-Bottom\\307_RibMount_x8_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\PressPlate-Bottom\\306_SidePanel_x2_1mm_INOX.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\20_80_60.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\304_SideMount_x4_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\303_TriMount_x8_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\305_FrontPanel_x2_1mm_INOX.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\201_PlateCoverTri_x2_1mm_INOX.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\8_Rib_x2_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\7_Rib_x2_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\6_Side_x2_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\7_Side_x2_5mm_FERRO.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\Lower Platen Matrix Assembly Light.SLDASM",
|
||||
"IsLaser": "1"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\250-15-SP-HeatPlate5083.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\components\\sprcb-650\\cad\\200_PressPlate-Global-650.SLDASM",
|
||||
"IsLaser": "1"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\PressPlate-Bottom\\Bottom-PressPlate.SLDASM",
|
||||
"IsLaser": "1"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Piston.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump - Back-up Ring.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Jack Barrel.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Lever.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Lever Main Connector Pin.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\SOLIDWORKS Data (2)\\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-light\\cad\\components\\BottleJack\\Parts\\Pump Lever Linkage Connector Pin.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Assembly section 1 Adrian.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Lever Linkage.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Piston - O-Ring.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Bottle Jack Housing.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Lever Linkage Base Connector Shaft.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Rubber Relief-Filler.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Jack Piston - Back-up Ring.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Jack Piston.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Jack Piston - O-Ring.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Power Screw.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Power Screw assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Barrel - Gasket.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Valve Bolt Dowel.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\O-Ring - 11 OD.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Valve Bolt.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Valve Bolt Assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Bottle Jack Base.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Valve Ball.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Plastic Stop.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump washer-gasket.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\AppData\\Local\\Temp\\swx29480\\VC~~\\Pump Base Assembly\\Assem3^Pump Base Assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Base Assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Pump Barrel.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Parts\\Retaining Nut.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\components\\BottleJack\\Bottle Jack Assembly.SLDASM"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\Bottom Frame.SLDPRT"
|
||||
},
|
||||
{
|
||||
"File Path": "C:\\Users\\mc007\\Desktop\\osr\\products\\products\\sheetpress\\cassandra-light\\cad\\15_JMPlate_x1_10mm_FERRO.SLDPRT"
|
||||
}
|
||||
]
|
||||
BIN
sheetpress/cassandra-light/cad/Press-Assembly-Global-650.step
(Stored with Git LFS)
Normal file
BIN
sheetpress/cassandra-light/cad/Press-Assembly-Global-650.step
(Stored with Git LFS)
Normal file
Binary file not shown.
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
4722
sheetpress/cassandra-light/cad/components/Rails/SBR20UU.stp
Normal file
4722
sheetpress/cassandra-light/cad/components/Rails/SBR20UU.stp
Normal file
File diff suppressed because it is too large
Load Diff
813
sheetpress/cassandra-light/cad/components/Rails/SBR20UU.swb
Normal file
813
sheetpress/cassandra-light/cad/components/Rails/SBR20UU.swb
Normal file
@ -0,0 +1,813 @@
|
||||
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
|
||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,909 @@
|
||||
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
|
||||
3284
sheetpress/cassandra-light/cad/laser/11_Mount_x4_10mm_FERRO.DXF
Normal file
3284
sheetpress/cassandra-light/cad/laser/11_Mount_x4_10mm_FERRO.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3180
sheetpress/cassandra-light/cad/laser/15_JMPlate_x1_10mm_FERRO.DXF
Normal file
3180
sheetpress/cassandra-light/cad/laser/15_JMPlate_x1_10mm_FERRO.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3076
sheetpress/cassandra-light/cad/laser/18_RailMount_x4_5mm_FERRO.DXF
Normal file
3076
sheetpress/cassandra-light/cad/laser/18_RailMount_x4_5mm_FERRO.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3256
sheetpress/cassandra-light/cad/laser/1_RibA_x2_10mm_FERRO.DXF
Normal file
3256
sheetpress/cassandra-light/cad/laser/1_RibA_x2_10mm_FERRO.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3496
sheetpress/cassandra-light/cad/laser/2_RibB_x2_10mm_FERRO.DXF
Normal file
3496
sheetpress/cassandra-light/cad/laser/2_RibB_x2_10mm_FERRO.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3224
sheetpress/cassandra-light/cad/laser/307_RibMount_x4_5mm_FERRO.DXF
Normal file
3224
sheetpress/cassandra-light/cad/laser/307_RibMount_x4_5mm_FERRO.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3282
sheetpress/cassandra-light/cad/laser/3_Mount_x4_10mm_FERRO.DXF
Normal file
3282
sheetpress/cassandra-light/cad/laser/3_Mount_x4_10mm_FERRO.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3230
sheetpress/cassandra-light/cad/laser/400_LegCover_x8_10mm_FERRO.DXF
Normal file
3230
sheetpress/cassandra-light/cad/laser/400_LegCover_x8_10mm_FERRO.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3204
sheetpress/cassandra-light/cad/laser/900_Mould_x2_2mm_INOX.DXF
Normal file
3204
sheetpress/cassandra-light/cad/laser/900_Mould_x2_2mm_INOX.DXF
Normal file
File diff suppressed because it is too large
Load Diff
BIN
sheetpress/cassandra-light/cad/~$Press-Assembly-Global-650.jpg
(Stored with Git LFS)
Normal file
BIN
sheetpress/cassandra-light/cad/~$Press-Assembly-Global-650.jpg
(Stored with Git LFS)
Normal file
Binary file not shown.
@ -0,0 +1 @@
|
||||
-
|
||||
BIN
sheetpress/cassandra-light/cad/~$Press-Assembly-Global-650.step
(Stored with Git LFS)
Normal file
BIN
sheetpress/cassandra-light/cad/~$Press-Assembly-Global-650.step
(Stored with Git LFS)
Normal file
Binary file not shown.
56
sheetpress/cassandra-light/config.yaml
Normal file
56
sheetpress/cassandra-light/config.yaml
Normal file
@ -0,0 +1,56 @@
|
||||
tags :
|
||||
- v3
|
||||
- injection
|
||||
categories:
|
||||
- Injection
|
||||
- Machines
|
||||
alternatives:
|
||||
- injector
|
||||
projects:
|
||||
- PiranhaClamp
|
||||
tabs:
|
||||
- build: false
|
||||
product_id: cassandra
|
||||
preview: ${product_preview}
|
||||
buy: "mailto:sales@plastic-hub.com?subject=Inquiry%20-%20Cassandra"
|
||||
teaser: "Advanced sheetpress, 60cm x 60cm "
|
||||
products: true
|
||||
overview_drawing: true
|
||||
|
||||
products_row:
|
||||
- image_path: /assets/site/product_sheets.jpg
|
||||
alt: "Injection Press"
|
||||
title: "Injection Press"
|
||||
excerpt: "Powerful and precise injection"
|
||||
url: "https://community.preciousplastic.com/how-to/make-extruded-plastic-bricks"
|
||||
btn_class: "btn--primary horizontal-margin"
|
||||
btn_label: "Learn more"
|
||||
buy: "test"
|
||||
price: "From 2000 Euro"
|
||||
- image_path: /assets/site/product_chair.jpg
|
||||
alt: "Injection Press"
|
||||
title: "Injection Press"
|
||||
excerpt: "Powerful and precise injection"
|
||||
url: "https://community.preciousplastic.com/how-to/make-a-chair-with-bent-sheets"
|
||||
btn_class: "btn--primary horizontal-margin"
|
||||
btn_label: "Learn more"
|
||||
buy: "test"
|
||||
price: "From 2000 Euro"
|
||||
- image_path: /assets/site/product_table.jpg
|
||||
alt: "Injection Press"
|
||||
title: "Injection Press"
|
||||
excerpt: "Powerful and precise injection"
|
||||
url: "https://community.preciousplastic.com/how-to/make-a-chair-with-bent-sheets"
|
||||
btn_class: "btn--primary horizontal-margin"
|
||||
btn_label: "Learn more"
|
||||
buy: "test"
|
||||
price: "From 2000 Euro"
|
||||
- image_path: /assets/site/product_table2.jpg
|
||||
alt: "Injection Press"
|
||||
title: "Injection Press"
|
||||
excerpt: "Powerful and precise injection"
|
||||
url: "https://community.preciousplastic.com/how-to/make-a-chair-with-bent-sheets"
|
||||
btn_class: "btn--primary horizontal-margin"
|
||||
btn_label: "Learn more"
|
||||
buy: "test"
|
||||
price: "From 2000 Euro"
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
3284
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-11_Mount_x4.DXF
Normal file
3284
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-11_Mount_x4.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3180
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-15_JMPlate_x1.DXF
Normal file
3180
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-15_JMPlate_x1.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3256
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-1_RibA_x1.dxf
Normal file
3256
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-1_RibA_x1.dxf
Normal file
File diff suppressed because it is too large
Load Diff
3256
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-1_RibA_x2.DXF
Normal file
3256
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-1_RibA_x2.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3496
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-2_RibB_x1.dxf
Normal file
3496
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-2_RibB_x1.dxf
Normal file
File diff suppressed because it is too large
Load Diff
3496
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-2_RibB_x2.DXF
Normal file
3496
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-2_RibB_x2.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3282
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-3_Mount_x2.dxf
Normal file
3282
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-3_Mount_x2.dxf
Normal file
File diff suppressed because it is too large
Load Diff
3282
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-3_Mount_x4.DXF
Normal file
3282
sheetpress/cassandra-light/laser/en/Steel/10mm/CSL-3_Mount_x4.DXF
Normal file
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
3284
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-11_Mount_x4.DXF
Normal file
3284
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-11_Mount_x4.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3180
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-15_JMPlate_x1.DXF
Normal file
3180
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-15_JMPlate_x1.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3256
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-1_RibA_x1.dxf
Normal file
3256
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-1_RibA_x1.dxf
Normal file
File diff suppressed because it is too large
Load Diff
3256
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-1_RibA_x2.DXF
Normal file
3256
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-1_RibA_x2.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3496
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-2_RibB_x1.dxf
Normal file
3496
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-2_RibB_x1.dxf
Normal file
File diff suppressed because it is too large
Load Diff
3496
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-2_RibB_x2.DXF
Normal file
3496
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-2_RibB_x2.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3282
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-3_Mount_x2.dxf
Normal file
3282
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-3_Mount_x2.dxf
Normal file
File diff suppressed because it is too large
Load Diff
3282
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-3_Mount_x4.DXF
Normal file
3282
sheetpress/cassandra-light/laser/es/FERRO/10mm/CSL-3_Mount_x4.DXF
Normal file
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
13630
sheetpress/cassandra-light/laser/es/Hood/Inox/1mm/CSL-610_HoodSM_x1.DXF
Normal file
13630
sheetpress/cassandra-light/laser/es/Hood/Inox/1mm/CSL-610_HoodSM_x1.DXF
Normal file
File diff suppressed because it is too large
Load Diff
3204
sheetpress/cassandra-light/laser/es/INOX/2mm/CSL-900_Mould_x2.DXF
Normal file
3204
sheetpress/cassandra-light/laser/es/INOX/2mm/CSL-900_Mould_x2.DXF
Normal file
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user