аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџаЮ†<ънФ€0apcџџџџџџџџ Ј­”DнФаЮ†<ънФThe VBA Project џџџџџџџџ Ј­”DнФаЮ†<ънФ_VBA_Projectџџџџџџџџ  Ј­”DнФаЮ†<ънФ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ& ўџџџўџџџ!"#$%7џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ6џџџџF89:;<=>?@A4џџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџаузпънФ€0apcџџџџџџџџ Ј­”DнФаузпънФThe VBA Project џџџџџџџџ Ј­”DнФаузпънФ_VBA_Projectџџџџџџџџ  Ј­”DнФаузпънФџџџџџџџџ§џџџ  ) ўџџџўџџџ'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(C+,-./012356BFџџџџџџџџџџџџ;<=>?@A4ўџџџDE:ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Item Names0џџџџ cВ”DнФаузпънФVBA Project Data"џџџџ Host Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџI ўџџџўџџџўџџџўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHMJўџџџўџџџўџџџNOPQRSTUVўџџџXYZ[\]^_`abcdefўџџџhўџџџjkИўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭє{`6Д ThisLibrary*{`7Д 5{8Д L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{№8Д L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{р9Д ";{А:Д $={№2Д &šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИKТ–E:\FS-Handling\Anderes ProgrammZID="{CAEBCE6B-C3A9-4C52-AA93-9CFB1580522E}" Document=ThisLibrary/&H00000000 Module=MergeNearbyPoints1 Name="MergeNearbyPoints" HelpContextID="0" VersionCompatible32="393222000" CMG="6260418B4D8F4D8F4D8F4D8F" DPB="6A6849835084508450" GC="7270519B589C589CA7" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C MergeNearbyPoints1=26, 26, 1138, 356, Z 356, Z ords; €џџџ_B_var_Pointсb €џџџ_B_var_Plane0ч€џџџeux\MergeNearbyPoints\MergeNearbyPoints.swpЬТ 6@,_B_var_PointCoordsK €џџџ_B_var_PlaneCoordsp, €џMergePointsх boolstatusgо €џџџ_B_var_xValue €џџџ_B_var_yValueЌЬ €џџџ_B_var_zValueћ=kb €џџџ_B_var_ForjThisLibraryџџџџџџџџдД”DнФаузпънФProject_Data_CurVer( џџџџL Host Project Item List Data8џџџџџџџџџџџџKVBAџџџџџџџџ Ј­”DнФ Ј­”DнФPROJECTwmџџџџџџџџџџџџ_PROJECT џџџџ З_VBA_PROJECTџџџџџџџџџџџџN ThisLibraryџџџџWьThisLibraryThisLibraryMergeNearbyPoints1MergeNearbyPoints1В€0* pH‚dфMergeNearbyPointDsP@ rU€€€ џџџџџџџџџџџџџџџџ t € yŽCJ J< 9s@tdole>stdol@e hЕ = € IЄCEJ J< 9s@tdole>stdol@e h%^*\G{000Р20430-C 0046}#2.0#0#C:\WINDOWS\System32\e2.tlb#OLE AutomatioFn0€SldWorks>Œ€CdW€G rkdirџџџџџџџџџџџџ Project Item Data$џџџџl Control List Data$џџџџџџџџаузпънФаузпънФReqControl List Data*џџџџџџџџаузпънФаузпънФџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЙКЛМНОПРСўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMergeNearbyPoints1&џџџџџџџџ* ReqControl List Data*џџџџџџџџџџџџo Control_Data_CurVer(џџџџџџџџn Control List Data$џџџџџџџџџџџџm(__SRP_2џџџџi@__SRP_3џџџџџџџџџџџџgg__SRP_0џџџџџџџџџџџџўџџџ%__SRP_1џџџџџџџџFs€Hm€ c€H83A33D31-27C5-11CE-BFD4€H400513BB57}#c‚HD:\SOLIDW~3\sldNw1E8 2` Type LibАrary€2‚Т‚ШB € ThisG,€•i€PL€ibra€Јy 2€(HB1l-XB,B Џф"B+BУРЮ†1G$Сqhrg@NР$byP€SinБzs1€(S2fЯ-ЩЌЭ-Б!@$ У-wяРF /C:\PROGRA~1\COMMON~1\MICROS~Ьamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsж*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#D:\SOLIDW~3\swvba.tlb#SolidWorks Extensibility Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE AutomationЦ*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#c.0#0#D:\SOLIDW~3\sldworks.tlb#SldWorks 2004 Type Library џџџџџџџџIЄCEџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШThisLibrary:W4319a449џџThisLibraryџџЏф-џџ$MergeNearbyPoints1:V4319a438џџ$MergeNearbyPoints1џџБ Щџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Item Names0џџџџ cВ”DнФаЮ†<ънФVBA Project Data"џџџџ Host Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџI ўџџџўџџџўџџџўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHMJўџџџўџџџўџџџNOPQRSTUVўџџџXYZ[\]^_`abcdeflhўџџџjkИmnopqrstuvwxyz{|}~€Эє{`.Д ThisLibrary*{р.Д 5{`/Д L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{р/Д L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{p!Д ";{№!Д $={p"Д &šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИKТ–E:\FS-Handling\Anderes ProgrammZID="{CAEBCE6B-C3A9-4C52-AA93-9CFB1580522E}" Document=ThisLibrary/&H00000000 Module=MergeNearbyPoints1 Name="MergeNearbyPoints" HelpContextID="0" VersionCompatible32="393222000" CMG="EAE8C9B385B785B785B785B7" DPB="A2A0817B387C387C38" GC="5A5879C330C430C4CF" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C MergeNearbyPoints1=26, 26, 1138, 356, Z 356, Z ords; €џџџ_B_var_Pointсb €џџџ_B_var_Plane0ч€џџџeux\MergeNearbyPoints\MergeNearbyPoints.swpЬТ 6@,_B_var_PointCoordsK €џџџ_B_var_PlaneCoordsp, €џMergePointsх boolstatusgо €џџџ_B_var_xValue €џџџ_B_var_yValueЌЬ €џџџ_B_var_zValueћ=kb €џџџ_B_var_ForjThisLibraryџџџџџџџџдД”DнФаЮ†<ънФProject_Data_CurVer( џџџџL Host Project Item List Data8џџџџџџџџџџџџKVBAџџџџџџџџ Ј­”DнФ Ј­”DнФPROJECTwmџџџџџџџџџџџџ_PROJECT џџџџ З_VBA_PROJECTџџџџџџџџџџџџN ThisLibraryџџџџ˜ьThisLibraryThisLibraryMergeNearbyPoints1MergeNearbyPoints1В€0* pH‚dфMergeNearbyPointDsP@ rU€€€ џџџџџџџџџџџџџџџџ t € yŽCJ J< 9s@tdole>stdol@e hЕ = € IЄCEJ J< 9s@tdole>stdol@e h%^*\G{000Р20430-C 0046}#2.0#0#C:\WINDOWS\System32\e2.tlb#OLE AutomatioFn0€SldWorks>Œ€CdW€G rkdirџџџџџџџџџџџџ Project Item Data$џџџџЈ Control List Data$џџџџџџџџаЮ†<ънФаЮ†<ънФReqControl List Data*џџџџџџџџаЮ†<ънФаЮ†<ънФ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—ўџџџ™š›œžŸ ЁЂЃЄЅІЇўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЙКЛМНОПРСўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMergeNearbyPoints1&џџџџџџџџWчReqControl List Data*џџџџџџџџџџџџЋ Control_Data_CurVer(џџџџџџџџЊ Control List Data$џџџџџџџџџџџџЉ(__SRP_2џџџџi@__SRP_3џџџџџџџџџџџџgg__SRP_0џџџџџџџџџџџџўџџџ%__SRP_1џџџџџџџџFs€Hm€ c€H83A33D31-27C5-11CE-BFD4€H400513BB57}#c‚HD:\SOLIDW~3\sldNw1E8 2` Type LibАrary€2‚Т‚ШB € ThisG,€•i€PL€ibra€Јy 2€(HB1l-XB,B Џф"B+BУРЮ†1G$Сqhrg@NР$byP€SinБzs1€(S2fЯ-б€HЭ-Б!@$ У-wяРF /C:\PROGRA~1\COMMON~1\MICROS~Ьamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applicationsж*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#1.0#0#D:\SOLIDW~3\swvba.tlb#SolidWorks Extensibility Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE AutomationЦ*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#c.0#0#D:\SOLIDW~3\sldworks.tlb#SldWorks 2004 Type Library џџџџџџџџIЄCEџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџШThisLibrary:W4319a449џџThisLibraryџџЏф-џџ$MergeNearbyPoints1:V4319a438џџ$MergeNearbyPoints1џџБ б џџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ}pфВфЉ@`MЯSЕ=кџџџџџџџџ`‚зЮ}Ў‚зHЌ=&ˆš˜пџџџџџџџџ€JLџˆ/Г€џTo SolidWorks;VBAїтWin16С~Win32MacГВVBA6­#Project1 stdole“` VBAProject2ЋKMergeNearbyPointsРљ ThisLibraryGЉ €џ_EvaluateйModule1bMergeNearbyPoints1њŒswAppы‘mainˆ, €џApplicationЅ*„џSldWorks$„џGetSketchPointsUPartє~sketchPointArrayЌgtheSketchPoint“z pointCount“*xValue%–yValueRzValue‘У CreateObjectјŠ €џActiveDocк’ theSketchжD€џGetActiveSketch2ябi`€џxo€џyl€џzq€џџџ_B_var_theSketchš>€џџџ_B_var_i Ђ SketchPoint1Чќ SketchPoint2Шќ €џџџ_B_var_Set€џsketchj sketchPoiХ!swModel[ƒ€џџџ_B_var_swModel^wClа\„џDistanceБ'€џџџ_B_var_distanceyџ€џClosestDistance“oPointєž„џPlane# PointCoordsщЎ PlaneCoL€џџџ_B_var_k Ђ €џџџ_B_var_To№ѓ €џџџ_B_var_IfPђDistThreshholdгЃ DistThreshold ”InputBoxЯ Sj €џџџ_B_var_sketch™€џSketchAddConstraints €џџџ_B_var_EndоFMergeSketchPointsл; SP1Coords SP2CoordsGџџTџџџџџџџџџџџџџџџџџџџџџџ"џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$ketch2ябi`€џxo€џyl€џ№,дАџџџџ3Ы ШБџџЖџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ}pфВфЉ@`MЯSЕ=кџџџџџџџџ`‚зЮ}Ў‚зHЌ=&ˆš˜пџџџџџџџџ€JLџˆ/Г€џTo SolidWorks;VBAїтWin16С~Win32MacГВVBA6­#Project1 stdole“` VBAProject2ЋKMergeNearbyPointsРљ ThisLibraryGЉ €џ_EvaluateйModule1bMergeNearbyPoints1њŒswAppы‘mainˆ, €џApplicationЅ*„џSldWorks$„џGetSketchPointsUPartє~sketchPointArrayЌgtheSketchPoint“z pointCount“*xValue%–yValueRzValue‘У CreateObjectјŠ €џActiveDocк’ theSketchжD€џGetActiveSketch2ябi`€џxo€џyl€џzq€џџџ_B_var_theSketchš>€џџџ_B_var_i Ђ SketchPoint1Чќ SketchPoint2Шќ €џџџ_B_var_Set€џsketchj sketchPoiХ!swModel[ƒ€џџџ_B_var_swModel^wClа\„џDistanceБ'€џџџ_B_var_distanceyџ€џClosestDistance“oPointєž„џPlane# PointCoordsщЎ PlaneCoL€џџџ_B_var_k Ђ €џџџ_B_var_To№ѓ €џџџ_B_var_IfPђDistThreshholdгЃ DistThreshold ”InputBoxЯ Sj €џџџ_B_var_sketch™€џSketchAddConstraints €џџџ_B_var_EndоFMergeSketchPointsл; SP1Coords SP2CoordsGџџTџџџџџџџџџџџџџџџџџџџџџџ"џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$ketch2ябi`€џxo€џyl€џ№Ьдџџџџг'ШЏфџџ#ˆЖџџ№,дАџџџџ3УШБџџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ< џџ<џџџџџџ0№`„Rџџџџџџџџ џџџџџџ`„’џџџџџџџџ џџџџџџи„`„џџџџxџџџ џџџџџџ `„”џџџџџџџџ џџXš`„(џџџџdџџџ џџ`„*џџџџ0џџџ џџ`„,.џџџџџ `„„џџџџџџџџџ@0џџџџр џџџџџx"ƒџџџџџџ8џџџџџџџџџџџџџџ%рXXџџџ џџР`„`Tџџџ џџа`„bDџџџ џџџџџџ`„d4џџџ џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1„HџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHИџџџџ`џџџџџџџџpџџџџ@xџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH@ўџЄўџџ џџ `„Hџџџџ`џџџ џџР`„Jџџџџ\џџџ џџ@`„Xџџџџ$џџџџџРџџџџp”ўџџ џџ @ўџ„ўџџ џџ Јtўџџ џџ џџ@ўџdўџџ џџ џџTўџџ џџ џџџџ`„p"џџџ џџРџџџџ џџџџиџџџџр џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪA€ bР€ bX€ b№€ b(€ b€ b € bј€ b`€ bш€ bИ€ bP€ bˆ€ bШ€ џџџџ€@€ џџџџ"€ џџџџ€€€€А€И€р€ш€ €@€а€и€H€ џџџџ$`€ џџџџˆ€ џџџџ˜€ џџџџ Ј€ џџџџИ€ џџџџhxP€ џџџџ€ а€ џџџџ№ 'P€ h Р$№ @  0   P0 X ˆ€ џџџџ˜€ џџџџ€ џџџџџџџџ8– ]ђ@]ђ]ђx]ђџџџџPЗ HB@Hnal]ђЈ]ђР „З ›GgjэЖSldWorks.Application$4. џџэ !6.Rџџэ &!:.8 8!$'(џџ (‘Ќ ',ECTр For each SketchPointџ <ўЌ ,Ќ ’З JB@HOINTЖ sgMERGEPOINTS &B@Œ zum XЌœn?kџ xўШ$†р Get the coordinatesџ <ўШ!>'oџџрэ <$(.H]ђ]ђэ x$(.J]ђ0]ђР]ђ]ђ` H J ’ ” &%\Ќш'X€П X „ ДэЕ їЦА> œkџџџџHЭ`џџџџАџ xў <Ќ ,Ќ ’џџџџ˜ ,Ж7 Punkte in der Skizze. Maximalabstand zum Verschmelzen?ЖMaximalabstandЖ0,01$†X'„џџџџшр\ Grenzwert ist, dann kommt eine Abfrage nach deren Beantwortung das Makro anscheinend 'n Punkр\ Es steht jedem frei im Makro rumzupfuschen/ es zu verbessern, aber als ursprќnglicher 'sig lфр\ nicht mehr zuverlфssig lфuft. Daher Verwendung auf eigene Gefahr. 'scheinр\ 'erCр\ Autor mіchte ich trotzdem weiterhin genannt bleiben. Besten Dank und produktives Arbeiten.'р\ Ein Makro von Kalle Kalkowski '*'р\ Punkte mit geringem Abstand verschmelzen 'ann koр\*******************************************************************************************'р\ erstellt am 07.12.2004 'Cр\*******************************************************************************************'р\ Dieses Makro verschmilzt Punkte, deren Abstand <= des abgefragten Abstandes ist. 'Cр\ Wenn Punkte untereinander vermaпt sind, und das Maп kleiner als der angegebene 'р\*******************************************************************************************'Cџџџџhџџџџ>ЕAttribute VB_Name = "MergeNearbyPoints1"P '*W'^ !Punk™mit geringem Abstand versc€hmelzen: ^#Ein Makro von@ Kallekрowski "/Ttellt am 07.12р.2004' /=WН*\/ч)S ‚Di0esesZCnilzt Cx, de&r€qХv<=s abgefrag†t‡ist.‡!‚Wenn„ u$ntРinРˆerA‰maпt sind,Рd daС!п klein‘@alsA a@—РgebeneЩ1‚GР&zwert РР*a@kommt @Є)e nach@+BeantwortungD˜anschС РЏB‚nicht mehr zu€Еlфssig lфuf@:Dah@)VerwenЂdaufРg*РGefahrHC‰.Р‚Es ste@jedРЯfre i im Нru@mzupfuсn$/ Р+zu&beРssern,`0d$ursprќngl @! Т Aut or mі`e ` trџџџџH€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ0џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8|ŽCпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2otz! шwei@1hl€`&t b`. ,. Be@n Dank‚2produktDivArbn>.С џ^?4Р Optiр~Expрit Sub  SketЄch ()ADр&swApp AsР Objec ƒ`ModelЮ'ArrayсVarВi€C сH 1h2nP1Coo˜rds+ P24XtheH - pсМCvo g!I€h ЎƒD! ^anceDo†u€8уbool`БttuЂB  ^GThresholdщР+e qb(= C reate)("SldWorksV., 1a!3"т.SbC,= "0.AcёСEDocb6ц иPart.Get+ƒУ2s-2= 7ц($sсШ"= $UBр#d(m) x+ 1%ЇРDbl(InputBox(H & "Х• c`Ÿ Skizze. rxima„la„мzum @Ѓ sн?", ѓai!0,01")@%If Empty Th ’EndбС' F veЁ•Ш ‘qiрџ  џќ4ќјxџ5џxџWџќ4ќјtџ5џtџWџјўўNјўџAџќіdџdџќ5IєќЫѕЊфp.џX'4ў'Tў'tў'”ў:Фў NДўДў:фўNдўдўk.џћ§#єў*Fџ #0ўќ3tџ2єў0ў6џдўДў”ўtўTў4ўoџ§kФў]ќgфўћ3жќШ(Єў ўk.џє­DФўўhўй' ў(фўћ”џќір§р§№§k.џє­DЄўўhР§Ю ў§“ @dџўЎџќ4ќј`џ5џ№§§“ @dџўЎџќ4ќј\џ5џ9`џ§“ @\џ§“ @Dџ§“ @4џ§“ @tџўšџ (dўшћДдўBt$џ5џ o$џoџвСќfфў%`џў˜ cфў%\џў˜ :фў %tџў˜  №§ў~Р§  ўў~ўяМмlTўўџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ< џџ<џџџџџџ0№`„Rџџџџџџџџ џџџџџџ`„’џџџџџџџџ џџџџџџи„`„џџџџxџџџ џџџџџџ `„”џџџџџџџџ џџXš`„(џџџџdџџџ џџ`„*џџџџ0џџџ џџ`„,.џџџџџ `„„џџџџџџџџџ@0џџџџр џџџџџx"ƒџџџџџџ8џџџџџџџџџџџџџџ%рXXџџџ џџР`„`Tџџџ џџа`„bDџџџ џџџџџџ`„d4џџџ џџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1„HџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHrU€€€ џџџџџџџџ$`§џџџџџџџџџџџnrU€€€€~| 1A ™ЩЁQaБ QyС! xмѕИџџџџ`џџџџџџџџpџџџџ@xџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH@ўџЄўџџ џџ `„Hџџџџ`џџџ џџР`„Jџџџџ\џџџ џџ@`„Xџџџџ$џџџџџРџџџџp”ўџџ џџ @ўџ„ўџџ џџ Јtўџџ џџ џџ@ўџdўџџ џџ џџTўџџ џџ џџџџ`„p"џџџ џџРџџџџ џџџџиџџџџр џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ3€@€ џџџџ"€ џџџџ€€€€А€И€р€ш€ €@€а€и€H€ џџџџ$`€ џџџџˆ€ џџџџ˜€ џџџџ Ј€ џџџџИ€ џџџџhxP€ џџџџ€ а€ џџџџ№ 'P€ h Р$№ @  0   P0 X ˆ€ џџџџ˜€ џџџџ€ џџџџџџџџш– ]ђ@]ђ]ђx]ђџџџџPЗ HB@Hnal]ђЈ]ђР „З ›GgjэЖSldWorks.Application$4. џџэ !6.Rџџэ &!:.8 8!$'(џџ (‘Ќ ',ECTр For each SketchPointџ <ўЌ ,Ќ ’З JB@HOINTЖ sgMERGEPOINTS &B@Œ zum XЌœn?kџ xўШ$†р Get the coordinatesџ <ўШ!>'oџџрэ <$(.H]ђ]ђэ x$(.J]ђ0]ђР]ђ]ђ` H J ’ ” &%\Ќш'X€П X „ ДэЕ їЦА> œkџџџџHЭ`џџџџАџ xў <Ќ ,Ќ ’џџџџ˜ ,Ж7 Punkte in der Skizze. Maximalabstand zum Verschmelzen?ЖMaximalabstandЖ0,01$†X'„џџџџшџџџџГAttribute VB_Name = "MergeNearbyPoints1" Option Explicit Sub VSketch V()4Dim swApp AsР Objecb(`Model,AArrayVarиian7b1 <2P1CoorLds QP2t,he)(p‰Count Inte ger nDi@stance D oubleƒ boЄol€ tu‚BB€eanThre`shold‰Џet„Ё= CreateЄ("SldРWorks.А€ЦjaЬ"‚ЛS‚Б=ƒ.ActivexDoc‚й†oіP€art.Get •ƒ=2 sMd= Ц  HHsС ˆE= UBРGd(Э) +< 1 JG=€7Dbl(InputBox(ˆ& " PunkЈin der Skizze. Maxi malab\d zum Verschmelzen8?",ВЪA0,01")€JIf  !Empty T$he@Йnd)' For each/€†ИAСi€O0 ˆTo ,- 1@ж k€i=— ™ ' @`W cСЊќinРzUСuˆ[f1MV(iDа 2б kШ !ТV= ТA€ClosestХъ(i,)!2 хkAj) * 100x0 ЁaЄ-‚ <М>  & ,ЧM-l3< 0.р 001Т3 ).SelСР FalsрoС‹iH2ETru0b!УAddConstraСЁ "sgMERGEPO0INTS€Ѓ En0d IfgщNe@xt k тi9` СЉJ ђp]ђˆ H J b№Ьдџџџџг'ШЏфџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2ЎСJ #ˆЖџџJдџџџџл/ШЏфџџ#ˆЖџџвмц№ШџџџџџџџџџџџџxbџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}0 Toт - 1а1?!zk iAoeтA 3с cБ* Yteп@Ё1Aј1@L(iTџt2џyœ(kјb+= т ЈClo0hte(Йі,Ц>2аѕ5Ё5) * 1000< б1дB<>^ PPч--М<ˆ 0.№001т‡‹С .SelрFД F№jeЏЈ2Ѕ8TruŸГуAddConstra1ž "sgMERGEPOINTSŸ15А# If‡љNext k Ъ ri0 с€TA% ќ4ќј`џ5 џє§§“ @dџўЎ џќ4ќј\џ5 џ9`џ§“ @\џ§“ @Dџ§“ @4џ§“ @tџўš џ (hўшћДиўBt$џ5 џo$џlџќ3вДќfшў%`џў˜ cшў%\џў˜ :шў %tџў˜  є§ў~д§ $ўў~ў№ЈаlTўўф§д§$ўџє§џџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2џџџџџџџџџџџџџџџџџџHrU€€€ џџџџџџџџ$`§џџџџџџџџџџџnrU€€€€~| 1A ™ЩЁQaБ QyС! xмѕJ`џџџџџџџџpџџџџ@xџџџџˆџџџџџџвмц№џџџџџџџџџџџџџџџџџџџџџџџџШџџџџџџџџџџџџџџџџџџџџH@ўџЄўџџ џџ `„b џџР`„Jџџџџ\џџџ џџ@`„Xџџџџ$џџџџџр§а§Р§ ў№§0џTџXџtџјў`џ\џDџxџdџ4џ0 єў0ўџдўДў”ўtўTў4ўkWorks.ApplicationActiveDoc  GetActiveSketch2GetSketchPoints lPunkte in der Skizze. Maximalabstand zum Verschmelzen? Maximalabstand 0.001ClosestDistance Select sgMџџџџ џџџџџџџџџџџџЙA џџџџpџџџџщџџййБ‘‘ ThisLibraryMergeNearbyPoints1MergeNearbyPointsяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA 9џџџџ aЩ0€lІгЈН†ЛжD:\SOLIDW~3\swvba.tlb SolidWorks 1џџџџY‘@