аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_2џџџџџџџџџџџџўџџџь__SRP_3џџџџџџџџџџџџўџџџD__SRP_0џџџџџџџџџџџџўџџџж__SRP_1џџџџџџџџџџџџўџџџіџџџЫ1?џџ#ˆЖџџ№ФдџџџџЫ1?џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{8E75DRoot Entryџџџџџџџџ`XМЊыХ€9VBA_Projectџџџџ § ŸUАП`XМЊыХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџРžЈŸUАПpЛUМЊыХO§џџџ eS§џџџ !"#$%&'()*ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPўџџџџџџџџџџџTUVWXYўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ ўџџџ ўџџџ !"#$%&'()+ўџџџ,-./0123456789:;<=>?@ўџџџBCDEFGHIJKLMNOPўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacadID="{E4E5325D-1C0F-11D4-B110-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="CAC8554B854F854F854F854F" DPB="F6F469BFB9C7E4C8E4C8E4" GC="2220BD93E894E89417" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=2, -7, PROJECTwmџџџџџџџџџџџџ*>PROJECTџџџџЬThisDrawingџџџџAхModule1 џџџџџџџџ№_VBA_PROJECTџџџџџџџџџџџџ dirџџџџџџџџџџџџj__SRP_4џџџџџџџџџџџџўџџџ__SRP_5џџџџџџџџџџџџўџџџ@fВ€0* pH‚dф ACADProject8@е = t  .лЬ9( J< rstdole>stdole f%\*\755, 735, ThisDrawingModule1Module1G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE AutoРmation^€MSFo@rms>SFErmHs3€DD452EE1-E08F-101A-8-02608C4D0BB4Dsystem32\FM20.DLL#Micro soft ‚: €] Ob­ Lib€rary/;D~1€„€tˆ€ˆ€0а0}#0‚€#€h0€r€ B309B0AE-33DE-11D@4-B7C480C6F93F62P.РOP\VBEТ\„G.EXD /€с.E р….`ŒM ŠДС™Т”Т1Т–ThisDrawingG€Thi€^DrawAРng 2E €HB1СЁ%BЂ,B ?"B+Bƒ‚odule1ЊG„‚o@ЅuBЅ1@ ›ТŠ2OWO(=!HТHBj1‚Œ˜РЂB,QB?Ь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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Program Files\Common Files\Autodesk Shared\acax16enu.tlb#AutoCAD 2006 Type LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Libraryф*\G{B309B0AE-33DE-11D4-B7C4-0080C6F93F62}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџ.лЬ9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1ThisDrawing2444e5c9feџџThisDrThisDrawingThisDrawingModule1Module1џџawingџџ?%џџModule12544e5c9feџџModule1џџ=Wџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџе'›цРн”K–ы`=avтџџџџцLVU-SwM—sУ ф@ГџџџџџџџџH€"#џ)AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1b ad_VerifyDimsxч adDimension7њ AcadDimensionowadSS$њAcadSelectionSetЫЩfTypeifDatahCadOverRideCountEH SelectionSetsгAddїrErroŠClearуЭacSelectionSetAll.Т TextOverride1b TextColorKўacYellow—Н ApplicationЅ*UpdateвќMsgBox—RDeleteИxad_VerifyDimsResetColorП‹ GetVariable~ AcadDocumentZџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $913-3D21-11D2-85C4-080009A0C626}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2ѕkvџћ§#dџ!*F0џ /dџ60џ џџџџ|80ёlџhџxџ8 dџ`џ\џXџTџPџpџ0џ џџџkЬў,џ(џџџфўдўkрўўЎŒў(8ў%єўўЎlўћœ\ўBtЄў6Œўlў єў§Tџ рў§Dџ(|ў%(8ў%єўўА(|ў%(8ў%рўўА єў§Ьў/((ў%(|ў%ЬўўЎŒў(8ўћ”lў%ЬўўА6ŒўlўєыtФў6HўmФўќэЬўќэДўќэєў ў"$   ў  QHў№ў ў6HўmФўќэЬўќэДўќэрў ў"$   ў rU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџр џџџџXџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџм `џџџџ8€џџџџџџџџџџџџ`џџџџџџџџ0џџџџџџџџиxаШџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ!"( 0 € џџџџ" *( -˜H -8И -HЈ -X -ШP -XР -hx -€а - А Ар ј ˆ€ џџџџџџџџH`lџџ QHўмў ўќэTџќэєў№ў ˆќэDџќэрўмў ˆ Tџ§єў Dџ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџХЦЧШўџџџЪўџџџЬЭЮЯабвгдежзийклўџџџнопрстуфхўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрў ў"$ d ў € ўTМlyTTљс‘еееџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXљсplџџh ФЏ•џџџџъЌ@'Є ВЏbи ДЏbк ЖЏbв Ќ@'Є ФЏbx ЊB@мœ АЏbаџџџџЄ'ЄЄ 'ЄЌ@'Єџџ ИЏb'ЄџџЌ@'Єџџ ФЏbџџ џџЌ@'Є ФЏbЌ@'Є ФЏbЌ@'ЄЄ'ЄЄ'Є КЏb МЏbЄ'Є ОЏbЌ@'Є O РЏb True тЏbџџ0Ќ@'ЄЌ!@'ЄЌ#@'Єџџџџhџџ№aEЄ'Єpt€lџџаlџџШЄ'Є ЊB@мtion95џџџџЈqБAttribute VB_Name = "PanelThicknessForm"D ЄBasЄ0{7B7C698E-958F-11D4-839C-0080C6F@93F62}J3J dCreatabliFalse „PredeclaIdЗTru "Expose@Templat@eDeriv–C€ustomiz‹DP Sub cmdCancel_Clš() м ЃP5‘ Џ.Hid]End!' /OK -If Opti0on5L€а„} T˜hen1?4.@оE€Ѕ‡ dв5%’Z6d65Š-6Ѕ6U’7Є77Ѕ7U’8Є88Ѕ8е’9Є9P9_CQ29I: Е`]If k3bЖџџџџџџџџ<џџАА Го3дЗФ€Цљ?bйuŽ!=в…Ф  Ц&ЏА Го3дЗФ€Цљ?bџџџџџџџџџџџџxњ(6џџџџ1?џџ#ˆЏА Го3дЗФ€Цљ?bАА Го3дЗФ€Цљ?bџџDђђ˜џџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626}.лЬ9"*\Rffff*83930229aп џџџџpўџџџџџџџџџ(џџџџџџџџџџ$џџџџHџџџџƒўџџџџџџџhџџџџџџџџџџџџџџ $‚ џџџџўџџџ˜џџўџџџџџџџџџџџ $ƒўџџџџџџџШџџџџџџџџџџџџџџ $џџџџƒўџџџџџџџџџџџџџџџџџџџџџЈ $‚ џџџџўџџџ0џџўџџџџџџџџџџџ(нГ $ƒўџџџџџџџ`џџџџџџџџџџџџџџ№5e $џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8@ttџџџџџџџџџџџџџџџџџџџџџџ8MEџџџџџџџџџџўЪџџџџџџџџx­АAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |CreatablA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2ј ˆ€ џџџџџџџџH`lџџЉжжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\љсЩзззџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`љссиииџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdљс йййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhљс!кккџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlљсAлллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkџ?P єы~"$ў €plџџh ФЏ•џџџџъЌ@'Є ВЏbи ДЏbк ЖЏbв Ќ@'Є ФЏbx ЊrU€€€ џџџџџџџџ@prU€€€ !Iqџџџџљ4™aСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVcB@мœ АЏbаџџџџЄ'ЄЄ 'ЄЌ@'Єџџ ИЏb'ЄџџЌ@'Єџџ ФЏbџџ џџЌ@'Є ФЏbЌ@'Є ФЏbЌ@'ЄЄ'ЄЄ'Є КЏb МЏbЄ'Є ОЏbЌ@'Є O РЏb True тЏbџџ0Ќ@'ЄЌ!@'ЄЌ#@'Єџџџџhџџ№aEЄ'Єpt€lџџаlџџШЄ'Є ЊB@мtion95џџџџЈrБAttribute VB_Name = "PanelThicknessForm"D ЄBasЄ0{2B5176C5-912A-11D4-B112-00105A1@1B3C9}JBBJ dCreatabliFalse „Predec$laIdЗTru "Expose@Templa€teDeriv–Customiz ‹DP Sub cmdCanc el_Clš()И ЃP5‘ !Џ.Hid]EnBd' /OK -If №TдАџџџџ]Q1=џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ < џџ<џџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX% „џџџџџџџџx% „"џџџџџџџџА˜„$џџџџџџџџшe '<а `„&џџџџџџџџџџј @џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџџџџџ` not% „џџџџџџџџ€obje% „"џџџџџџџџИ mus „$џџџџџџџџ№ и `„&џџџџџџџџџџensiџџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџп!ўЪV€ € € € @€ LH€ L˜€ Jш€ L8€ Hˆ€ а€ J№€ L@€ € HЈ€ J№€ @@€ .€€ А€ И€ а€ *и€ € J€ J`€ :А€ N№€ >@€ P€€ Pа€ . € P€X€ џџџџ"`€ <h€Ј€А€ *И€ш€€ џџџџ&8 `€ џџџџ*p" € ,Шј€ џџџџ( 8HX `p0€ АР€ џџџџ"Ш€ Fа€ € €( €H € џџџџP &p  ˜ € џџџџPЈ ј € џџџџ ( 8 X  ` p  €  € џџџџ€ џџџџџџџџ  рр ad_VerifyDimsр ad_VerifyDimsResetColorррE This routine reviews all dimensions in modelspace and verifies theyрE are not hard-coded. That is, that they are '<>'. It does this byрC checking the value of the 'TextOverride' property. The tediousџџџџџџрE part is that AutoCAD does not provide a simple 'AcadDim' object,џџџџрB rather it must be one of several different types, and we mustр check for each one.џџрC If an overridden dimension is found, its text color is changed toрF yellow to highlight it. Finally, a message is displayed reportingр the results.рA When you are finished processing the overridden dimensions, theрD 'ad_VerifyDimsResetColor' routine will reset the dimension textAЎ3р: color according to the DimTextColor sysvar "DimClrT".р' Developed for AutoCAD 2000 and above.рр version 2.00hрр# CopyrightЉ2000-2006 ActiveDwg.comƒаƒррC This routine is provided for demonstration purposes only and mustрC not be used for critical applications without your verificationр3 that this routine will perform as you intended.рG This routine may be freely utilized for your own personal use so longƒр8 as the entire contents of this header remain intact.ƒрJ This routine is provided "as-is" and no declaration, written or implied,рJ is made as to its reliability for any particular task. Any use of thisр' routine is solely at your own risk.рЭџџш–р6Demand load: -vbarun;ad_VerifyDims.dvb!ad_VerifyDims;]ђ@]ђ`р# Dim fType(0) As Integer, fData(0)ƒ]ЌЌђ€ЌЌђИ]ђ№Ќ'&эЖadSS !(%*. ,›GэЖadSS !(%*.j. B@._PaЌЌ+"FЖ DIMENSIONЌ+$Г+ЉыХЌdЌ+"FЖ*Ќ+$ р& fType(0) = 0: fData(0) = "DIMENSION"hL 0аа " $ B@H;pPлФџ ў “Ф !2Жœ 6 (4 &Ќ '&Ekџџшџ ўШ_Pe !8B@:b &Ж dimension override(s) found...A@< B@>$oџџ€–р@Demand load: -vbarun;ad_VerifyDims.dvb!ad_VerifyDimsResetColor;Ф]ђH]ђh]ЌЌђˆЌЌђР]ђјэЖadSS !(%*.Pl ,›GэЖadSS !(%*.jФ B@.]§ЉыХЌЌ+"FЖ DIMENSIONЌ+$FЌdЌ+"FЖ*Ќ+$ 0аа " $ B@H;pPлФџ ў “Х !4 6œЖDimClrT %B (4Lkџџшџ ўШ_Pl !8B@:d B@>bofoџџАџџџџ`џџџџ•ЖAttribute VB_Name = "Module1" ' ad_VerifyDimsDResetColor6'. It ,doDƒbGch@ecking\ value of 'TextO>ride' pr@operty3e€ tediouzq€Fpar<€bР0A BdО 2.00ТCopTyrVЉ -6 ActiveDРwg.com ŠдG@ЖФšdem€дt@•€ж purpoТs€РonlyТ!™Э‚ Тв€›usР[Ž@critic Na(pplt‚swiTthРw @4rфrcжaAЄt!ptЉ|-Уg` m as!@|Рtendedc%*mayЁ^freec`…liz$boHwn   so M € so lon/%J aJрcico2n ts#z€#header@NmaРŒРintactЩ(€"as-is"Т%no declaБу), w`$ mБсziedy m@ tobjreli€abilitybBany Ё†icu task. юA€"iЅ‹І€ 8solс"€ŒІ!riC Р/ Op!1 Ex6i X S$ubЋД()@DemС†load: -vbarun‚;jf.dvb!*р;  \р  ёЃЕ As RB™gФSS…Sel@œРGLSe#kfTР—(0)I 4ger€, fData€ƒЅ„ To 12#‡ЁЕR ­CouO Є€D !adЋ=ђ €m A  =@ШisDrawР}. s.Add€("adSS"@(Ф €ЉErrр–џр›ь! .Cleоa€уa"р:&!ЁюDIMENSIO2Nрю уР!= ˜100%т"*!ѓE`+\ Bƒ acСЉAll, вз„Q 1Fр.Eexx InёВИ.yt <> ""b_ГQ„і$ЂsU= Yrfw -+ 1УвEPƒIfБNЁlШ1G5AзM.Updat0d Ms0gBox & †"8sdhe(s)=БРs..."rDP/ЇСЁP8 Я8s‡iwo9o9Pso97:oўn58ёРТХ™;ѕc&0Џ7Ѕ)Џ7erНЏ7eд-266 6ѓ:@qon№:b6ю)05v3B2"6№4‚IЯџ5‘8ё5ё*SSДAo3џo3cF33Жп0}Q—T ’3Џ3Ѕ3.G etVarАgleц(VŠ"L 2uИO2Ђ~x2Ÿ.ub‘.  МInёВИ.й}Р <> ""bГЏБі$Ђг^= YвoGw -+ 1УEщАŒIfБNvШ1kG5AзM.[M`sgBox & "˜|Фqe(s)c= }..."rDP/t`rЁP8 Я8оsчro9o9Pso97љ:on58б РТяХ™ѕc&0Џ7Ѕ)Џ7єerЏ7eд-266Ю 6:@qon№:Лb6)05v3B2"6?№4‚Iџ5‘8ё5ё*SSџДAo3o3cF33їЖп0Б T€›3Џ3Ѕ3.GetVarАg˜le(Ж“"L 2?еС2rox2Ÿ.ub‘. Фќџџ` `h cџџџџџџџџHџџџџр џџџџш џџџџ№ џџџџј џџџџ џџџџ џџџџ џџџџ џџџџ џџџџ( џџџџ0 џџџџ8 РИи˜h€8И ˆ X Hџџџџˆџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  @ўџdќџџ џџ @ўџTќџџ џџ X@ўџDќџџ џџ @ўџ4ќџџ џџ @ўџ,ќџџџџ и ?ш X(ќџџџџ @ўџ$ќџџџџ @ўџ ќџџџџ @ўџќџџ џџ c ќџ? џџ џџcўџ8uHќџџ џџ `wџџџџ€ќџ? џџ џџpwўџШ ˆ ќџџџџ @ўџќџџџџ @ўџќџџџџ @ўџќџџџџ @ўџќћџџџџ @ўџјћџџџџ џџџџx џџџџшИєћџџџџ @ўџ№ћџџџџ @ўџьћџџџџ @ўџшћџџџџ @ўџфћџџџџ H ШWџџирћџџ џџ џџшџџџџX(0мћџ? џџ @џџџџЈџџџџXићџџ џџ hŸџџџџдћџ? џџ xŸџџџџІџџџџР џџџџџџџџџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ MEџџџџџџџџџџ$ўЪY€  /€ Ј/€ 8O€ C€ L Q€ LшF€ J@G€ LG€ HрG€ №L€ J`L€ LM€ XN€ HpN€ JИN€ @АL€ *O€  C€ (C€ (F€ JјQ€ JpT€ @C€ *`O€ HC€ JPC€ J C€ :№C€ N0D€ >€D€ PРD€ PE€ .`E€ E€ € џџџџ"€ <(T€xR€€R€ *HU€ШT€hMpM€ џџџџ*PR&9ˆR РI€ џџџџ*шT"аR€ ,U0АR€ џџџџO0H @L xM8G иHˆM02 M SX€ џџџџ" L€ F O€ L€iginbЯutilObjЂg€џCreateTypedArrayœЪstartTan зvbDoubleЯb vbVariantZA€џEndPointдy €џCoordinates!k €џCoordinate•Q €џџџ_B_var_ReDim•ВStartStr еEndStr%Юvb…_vbCrLfЏЌ LocationStrёР €џAddDimAligned‚Ї€џAcadDimAlignedіеucsObj*q€џAcadUCSш|„џoriginF“ xAxisPointšž yAxisPointYС UCSoriginз§UCSxAxisOUCSyAxisІ] UCSxAxisPoint№А UCSyAxisPoint.Ф€џUserCoordinateSystemsЗД €џActiveUCSь  S€(S€HS€ џџџџPS&pS ˜S€ џџџџPЈSјS€ џџџџTјMNиM (N8N шMHN€ џџџџ€ џџџџџџџџˆUии .• h <'PZъџџџџСxи" Select the 3D Solid to process.ЎThat is not an Acad3DSolidA@0uџџшhџџрnџџиZъџџџџи Updated 5/25/00ЎPDMODEЄ" B@fї $і54Œ " ,ЎЬa^џ  ф*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For ApplicationsЮ*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#C:\PROGRA~1\ACAD2000\ACAD.TLB#AutoCAD 2000 Type LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automationр*\G{15FFD348-178A-11D4-B110-00105A11B3C9}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.twd#Microsoft Forms 2.0 Object Libraryф*\G{B309B0AE-33DE-11D4-B7C4-0080C6F93F62}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Дџџџџџџ.лЬ9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1ThisDrawing 83930229a*Dџџ?˜џџModule1 1939ccdb46*Dџџ=џџџџŒxџџ8XџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџZ2хфдБZГЩџџџџ\2хфдБZГЩџџџџџџџџHџџџџБZГЩџџџџџџџџ€t’џИ^ €џAs€џCase=€џDimB€џDoubleC€џEachD€џElseE€џElseIfG€џEndH€џendifQ€џexplicitS€џFalseU€џFor_€џGoTo`€џIfc€џInk€џIntegerl€џIs‡€џNothingŠ€џonŒ€џoptionŽ€џOr–€џpublicœ€џredimž€џresumeЅ€џSetГ€џThenД€џToЕ€џTrueН€џVariant AutoCAD"ј VBAїтWin16С~Win32MacГВProject1  stdole“`MSFormsC ACADProjectІд ThisDrawingЙ5 €џџџ_Evaluateй AcadDocumentZ Module1bTestMassPropertiesљ~objEntX0 €џAcad3DSolid—оvarPickёstrMassPropertiesѕ˜ varProperty…ЛintIш\€џUtility1J €џGetEntityˆvbCr$ErroŠMsgBox—R€џVolume›€џCentroidgн €џHighlight_Х€џUpdateвќCGStart)| CGLineEnd…бCGLinecš CGLineStart NSpacerс†char)˜LineLenеЉstrlenя €€џLineLen -1Ыl€џџџ_B_var_LineLen -15л €€џLineLen - 1Z7Commandд]_B_var_CommandXapointObjѓё €џAcadPointPхlocation-р’ЉDefineKыthe'йCreateОM €џModelSpace_ж€џAddPoint  €џSetVariable?RCGPoint  CGLocationsмMassProperties–ћ strWeight#strPanelWeightQu SolidWeightCGjГ PanelWeightCGОу PanelSelectedA5RetValЭ; €џRealToStringт€џValueфKunitŸ precisionчЪPanVolО& €џacDecimalМ PanWeightKЈ PanelWeightъЅ€џџџ_B_var_RealToString! valueAsStrЅ2€џacDefaultUnitsEД €џSendCommandcњcalB}€џџџ_B_var_SendCommandDм€џџџ_B_var_CGPointЄModelSelection'Ђ€џAcadSelectionSetЫЩelemX9PaperSelectionУЂ €џSelectionSetsгAddїrClearуЭ€џacSelectionSetAll.Тentн‰ €џEntityNameАx BlockNameBBlockObjAttributesSЁ €џGetAttributesСд €џTextString  BlockMatchбcI` AttributeList6p NewAttributeП›Count0v €џPaperSpaceЬ$ €џActiveSpaceжe €џacPaperSpacen1 €џacModelSpace‚ђ €џApplicationЅ*BlockObjЖDimStartIv DimOriginžе€џGetPoint/А€џџџ_B_var_GetPointИ‡DimAngle БDimObjёИ€џAcadDimRotatedm €џAddDimRotated8гpoint1§point2ўrotAngle˜И€џZoomAllm$ DimLocationЁєDimEnd-…DimLocРЊLoc`Џ€џџџ_B_var_DimOr  $'"ieїПАи PanelSelected.Update Ф (Рxtl ˆЎ#'plџџшљ !(э ThiџџџџHџџџџ Zъџџџџи NextZъџџџџZъџџџџїПˆи, command("Line" "CGLineStart, CGLineEnd")A@@и LineLen = Len(CGLineStart)и' CGLineStart = varProperty & ","и# CGLineStart [LineLen - 1] = " "Uџџџџ ZЄЄъџџџџЎPDSIZEЄ B@fи NextoiиK strMassProperties = strMassProperties & vbCr & " " & varPropertyџџџџџџџџ(џџџџИиџџџџ`и version 1.10isиии% CopyrightЉ2000 Arban & Carosi, Inc.и& Developed 04/28/2000 by Walter BlairInc.и 4/28/2000џџџџџџи 4/28/20001997, и? dimensions the CG from user defined points, and dimensionsџџџџџџpЎWeight: ,Ў  ˆЎ#'pви End Withp0џџџџxџџџџаџџџџр † „Є$z'ˆџџџџ0џџџџˆ Т (Рˆи# strPanelWeight = "Weight: "иT strPanelWeight = strPanelWeight & vbCr & " " & .Volume / 1728 * 150 & "#"џџџџИџџџџи Remove the decimal places. v!2ЄРЄ–Є „Є !(%z'ˆiplyї Јі !ОŒremove Ј!А'Ўcesи=Convert Centroid ponit to an array for the CG point insertionх v!4 !b%d.hиUn-Highlight the solidџџџџHи PanelSelected.Highlight Trueseи! PanelSelected.Highlight Falseи PanelSelected.Updatehiи- CGLocation(0) = PanelSelected.Centroid(0)и- CGLocation(1) = PanelSelected.Centroid(1)и- CGLocation(2) = PanelSelected.Centroid(2)и$ Dim CGLocation(0 To 2) As Doublepace.AџџџџxZъџџџџZъџџџџhїПh žB@Є І žB@J Ј!ЊЎAcDbBlockReference• pЄ$Ў(Вї Жі Ўƒ ЎŠ‹ Ж$Ў!В И!f• К!f Ж$Ў(В МЄ 'МїП№hhџџрhџџиїПа !ЦB@8p Ј!Ў Panel_Weight”F ˆЄ$Ј(Вgи/ MsgBox strPanelWeight, , "Panel Properties"џџџџ(џџџџ Ј!ЊЎAcDbBlockReference•( Ј!Ў Panel_Weight•ht &џџџџШ aE ,'PЄ$ЪЄ+тв и DimAngle = 90џџџџ џџџџ Хџџџџ˜ џџџџ Є$ЬЄ+тЄ$ЪЄ+т+тџџџџ8 џџџџА џџџџh џџџџ№ ,'8џџџџ˜ v!4'фCGџџџџР џџџџ0џџџџр џџџџXџџџџ  џџџџ0џџџџ џџџџџџџџР џџџџ џџџџPZъџџџџи(Vert dimension locationџџџџЄ h%јЄ+фЄ h%јЄ+фџџџџШ џџџџЄ$фA@0Є$фA@0џџџџ џџџџи A@0џџџџџџџџpџџџџˆ ‚!4'фHџџџџх , ф 8 6 !b%и.4odelџџџџАџџџџџџџџџџџџHи* MsgBox StartStr & EndStr & LocationStr ‚  ,ЎPick Panel Model>> C@*et aџџџџ@ии> This routine takes Mass Property information and updates theи/Update this to check only the Block Collection?tiи! Place a point entity at the CGи< Update the 'Panel Weight' block on the paper space borderи. MsgBox strPanelWeight, , "Panel Properties"Formџџџџ(џџџџ˜и Add dimensionsи* sizes the panels lifter requirements.Є$8Є Є+8и2(This offsets the dimline from the objectиG Save the current layer and change to DefPoints layer. This is so the LЄ'6и%This specifies a horizontal dimensionџџџџ˜Ў _view _front B@ZЄЄъџџџџџџџџ`ZЄЄъџџџџZЄЄъџџџџЄЄ+EЄЄ+EЄЄ+ЄЄ+EЄЄ+EЄЄ+ЄЄ+EЄЄ+EЄЄ+х   ЎUCS1 ! %Ђ.   ("џџџџјиq StartStr = "DimStart:" & vbCrLf & DimStart(0) & vbCrLf & DimStart(1) & vbCrLf & DimStart(2) & vbCrLf & vbCrLfиg EndStr = "DimEnd:" & vbCrLf & DimEnd(0) & vbCrLf & DimEnd(1) & vbCrLf & DimEnd(2) & vbCrLf & vbCrLfиn LocationStr = "DimLocation:" & vbCrLf & DimLocation(0) & vbCrLf & DimLocation(1) & vbCrLf & DimLocation(2)џџџџh ‚!2ЄРЄ–Є „Є !(%z'zџџџџИ Ј!А'Ў If pЄ$Ў(В_Weigh !ЦB@8hXhPїП` Ф (РetAt vЄ$Ў(ВWeight Ј!А'Ўthe nЄ$Ў(ВceEnd џџџџ0џџџџаи Dim EndStr As Stringи Dim LocationStr As StringШЎ'Select 1st Horizontal Dimension Point>> !(%Ю',ШЎ'Select 2nd Horizontal Dimension Point>> !(%Ю'<х < ф 8 6 !b%и.DZъџџџџh ‚!4'фPoinи> DimVAngle = 90 'This specifies a vertical dimensionjectџџџџˆZъџџџџ Z (RsZъџџџџх !R.Z \ (RZџџџџˆџџџџхЎ DefPoints %X.\џџџџ0 zЎ#'|џџџџpџџџџиA First, select the two horizontal dimension points on the part: Т (Рate ї Јі !ОŒ block Ј!Ў Dim1StartZ Dim1OriginоwDim1EndУ“ Dim1Locationt DimH1Startйc DimH1Origin'юDimH1Endb? Dim1AngleYDimH1Obj&s DimHAngleјb DimHLocationt^DimHObjє‰ DimH2StartzDimHEnd0V DimH21Startѓn DimH2Originј%DimH2ObjФ8 DimVLocationЌm DimV1StartС DimVAngle­ DimV1Objфm DimV2Start7иDimV2Obj‚3 €џActiveLayer„>layerObj~ѕ €џAcadLayerз €џLayers‚й CurrentLayerzU WorkLayer я €џџџ_B_var_SetItemзz PanelLengthЁ Panel_Weight•и6 CG dimensions will be visible, but will not plot.?џџџџш Ј!ЊЎAcDbBlockReference•= acPaи; panel weight, places a point entity at the panel's CG, If eи) still need to dimension in the Z-Axis.и DimVLocation = DimV1Startи[ DimVLocation(0) = DimVLocation(0) - 10 'This offsets the dimline from the objectиO DimVAngle = DimVAngle * 3.141592 / 180# 'Convert DimVAngle to radiansиd Set DimV1Obj = ThisDrawing.ModelSpace.AddDimRotated(DimV1Start, DimEnd, DimVLocation, DimVAngle)иd Set DimV2Obj = ThisDrawing.ModelSpace.AddDimRotated(DimV2Start, DimEnd, DimVLocation, DimVAngle)џџџџ ШЎ%Select 2nd Vertical Dimension Point>> !(%Ю'N1sЄ$,Є$< '~Є$aEЄ$<Є$, '~Є$,Є$< •и,.Be sure to get a positive value for the Lengthrt(0џџџџи ~Є№•ensiЄ'nи Dimension the Vertical CGh nЄ•PaneЄ'naEЄ'nne nЄ•if Ph0h hhЎCX9'vr €Є`, •и#This is max weight for (2)CX9's €Є4 •и"This is max weight for (2)CX2'saEЎCX2'vџџџџа nЄ•џџ €Єl0 •и#This is max weight for (4)CX2'sЎCX9'vaEЎCX2'v€hџџHhџџ@џџџџ8и' Now locate and dimension the liftershЄ$zЄ Є+zи6(This offsets the dimline from the objectЄ'6и%This specifies a horizontal dimensionсх € „ z 6 !b%и.|х „ Ž z 6 !b%и.~ nЄ•йZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџЄ$,Є$< •и0.Be sure to get a positive value for the Lengthing ,'–a ,'€ <'– ф'„hџџH <'€џџџџ  ,'zЄ$zЄ Є+zи0(This offsets the dimline from the objectх Ž – z 6 !b%и.ˆЄ ф'„ ф'Ž ф'† ф'Š ф'Ž nЄ•z Є$ф ~Ќ—nƒРв? Є+„х Š Ž z 6 !b%и.ŒŽЄ'6и%This specifies a horizontal dimensionх „ † z 6 !b%и.~х † Š z 6 !b%и.ˆhџџЈЄ$ф ~Ќ9ДШvОŸК? Є+Šх Ž – z 6 !b%и.Є$ф ~Ќ9ДШvОŸК? ~ЌуЅ›Ф Ав? Є+ŽџџџџˆZъџџџџџџџџH#ZъџџџџZъџџџџџџџџP#Є$ф ~Ќ—nƒРв? Є+Žџџџџ€#Є$ф ~Ќ9ДШvОŸК? ~ЌуЅ›Ф Ав? Є+„џџџџx# nЄ•и +Now test to be sure Panel Lifters will work €ЄРX •и#!This is the max load for (4)CX9'sџџџџ0# ЊB@Ји'Get the actual panel thicknessџџџџЈ# ЄтЄ HQЌ#@HQЄHQЄHQЄHQ €Ѕ Œ ”F“ь`F“$g €Ѕ(‰ ”F“ь`F“$gЌ!@HQ €Єy ”F“ь`F“$ggЄHQP €Єy ”F“ь`F“$ggЌ@HQ €Єфh ”F“ь`F“$gg €Єдb ”F“ь`F“$g”Fk €ЄРX ”F“ь`F“$gg Z (RF“Ќ@HQ rЄРX ”F“ь`F“ђg”F €Єєp ”F“ь`F“$gF“х N ф F J !b%и.P.Modи) 5/30/00. Add dimensioning for CG point. €Ѕ(‰ ”F“ь`F“$gg JЌz‹ќњ! @Ќ€f@'Jи2Convert DimVAngle to radiansonjectџџџџ џџџџш'х    !b%. Ќ@'~ ,'Є$Є Є+~_џџџџш'ЄZ'Jи#This specifies a vertical dimensionDimVLoх H ф F J !b%и.L и3 6/2/00. Add testing and dimensioning for lifters.DimVAnџџџџ№'џџџџр)uhџџа)џџџџШ)hџџ№)џџџџр)џџџџ*џџџџР)џџџџР*ž   ЎPanel Weight of |Ў with a  ЄЎ inch Ў%panel thickness exceeds the capacity  Ўof ( nЎ) vЎ's. Ў'Please consult Production for guidance.'њstyshwџџџџ0*Є$фЄ+int(џџџџH*џџџџ@*џџџџ€* ,' ,'Є$Є Є+PanelLenghtbŸ€џџџ_B_var_PanelLenghtФ PanelLenghthЖќ€џџџ_B_var_PanelLenghthTE €џџџ_B_var_IfPђ LifterQtyŒ3€џџџ_B_var_LifterQtyб<PanelWgtтЭPanelQtyЕ LifterPart-'€џџџ_B_var_LifterPart—• DimLLocationУЧDimL1ObjмКDimL2Objz€ DimL1Start[S DimL21Start“q DimL2Startj DimL3StartЧ€DimL3ObjF DimL4Start}—DimL4ObjЖ  DimL5Start3ЎDimL5Obj“бDimL2з: €џџџ_B_var_DimL2џ DimL6StartщФDimL5к:€џџџ_B_var_DimLLocationa€PanelThicknessForm&џџџџрр|ŽЬП€ЭC ŽЬПfџџџџџџџџџџџџмroџџџџЫ$CompObjџџџџџџџџЩaVBFrameџџџџџџџџџџџџФ;PanelThicknessForm&џџџџџџџџџџџџўџџџq__SRP_6џџџџџџџџџџџџўџџџF __SRP_7џџџџџџџџџџџџўџџџŠrUЌ@'х    !b%. ЎVerify Lifter Configuration'ЎUse ( nЎ) vЎ's'  Є$Є Є+щЌ@'х    !b%.  €Ѕ Œ ”F“ь`F“$gƒ€џџџџ@)и* ThisDrawing.ActiveSpace = acModelSpace њ & 2 ЎSpecial Lifter Notice$0'*ter Noџџџџ0+ H'FЄ$FЄ Є+Fи2(This offsets the dimline from the objectџџџџ`,џџџџш+џџџџа*ї Јі !ОŒ Ј!ЊЎAcDbBlockReference• Ј!Ў Panel_Weight• Ј!А'Ў |Є$Ў(В !ЦB@8hџџЈ)їП )ї Јі !bŒifter' Ј!А'ЎlSpahhи Else•hџџ() Ј!Ў Panel_Lifters• 4Є$Ў(В vЎCX2•h vЎCX9bї Јі !ОŒ Ј!ЊЎAcDbBlockReference• Ј!Ў Panel_Weight• Ј!А'Ў |Є$Ў(Вhџџx' Ј!Ў Panel_Lifters• Ј!А'Ў nЄ$ЎOpt`ion5L€а„} 0Then1?4.Н@E€Ѕ‡ dв5%Е’6d65Š-6ЅЊ6’7Є77ЅЊ7’8Є88ЅЊ8’9Є9P9_eCQ9I: Е`]If k3bЖџџџџџџџџ<џџАА Го3дЗФ€Цљ?bйuŽ!=в…Ф  Ц&ЏА Го3дЗФ€Цљ?bџџџџџџџџџџџџxњ(6џџџџ1?џџ#ˆЏА Го3дЗФ€Цљ?bАА Го3дЗФ€Цљ?bџџDђђ˜џџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} ЉЬ9"*\Rffff*83930229aп џџџџpўџџџџџџџџџ(џџџџџџџџџџ$џџџџHџџџџƒўџџџџџџџhџџџџџџџџџџџџџџ $‚ џџџџўџџџ˜џџўџџџџџџџџџџџ $ƒўџџџџџџџШџџџџџџџџџџџџџџ $џџџџƒўџџџџџџџџџџџџџџџџџџџџџЈ $‚ џџџџўџџџ0џџўџџџџџџџџџџџ(нГ $ƒўџџџџџџџ`џџџџџџџџџџџџџџ№5e $џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8@ttџџџџџџџџџџџџџџџџџџџџџџ8MEџџџџџџџџџџVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} PanelThicknessForm Caption = "Specify Panel Thickness" ClientHeight = 3465 ClientLeft = 45 ClientTop = 330 ClientWidth = 3150 StartUpPosition = 1 'CenterOwner TypeInfoVer = 27 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq,FР€€€€€{0И5"И5€ЅTahomaЎ,FР€€€€€{0И5.5"5€ЅTahomaЎ,FР€€€€€{0ЅИ6"И5€ЅTahomaЎ,FР€€€€€{0ЅИ6.5"5€ЅTahomaЎ,FР€€€€€{0ЅИ7"И5€ЅTahomaЎ,FР€€€€€{0ЅИ7.5"5€ЅTahomaЎ,FР€€€€€{0tЏ8"Џ5€ЅTahomaЎ,FР€€€€€{0tЏ8.5"5€ЅTahomaЎ,FР€€€€€{0tЏ9"Џ5€ЅTahomaЎ,FР€€€€€{0tЏ>9"5€ЅTahomaЎ,FР€€€€€{0И<5"5€ЅTahomaЎP,€;€Specify the Actual Panel Thickness (Round Up to Next 1/2"):ЌЗ€@ДМArialЎ(€OKИOu€ЅTahomaЎ(€CancelЎOu€ЅTahomaЎ  }ДрDŽ$х€LOption5"$х€LOption55" $х€LOption6"“ $х€LOption65"$х€LOption7"‰$х€LOption75“ і$х€LOption8“ q$х€LOption85“ ь $х€ LOption9“ g (х € L Option9Plus“ т(х € L Option5Less""(ѕ€ 2t Label1Ўдд$х€ 4 cmdOKЎ{и(х €8 cmdCancelssg иўЪџџџџџџџџx­АAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |Creatabџџџ_B_var_DimL6Start3DimL6Obj1—test4ЋPanelPrintHeader‘„PanelThickness Ј UserForm1)жShowѕPanelThicknessForm,Ъ€џџџ_B_var_PanelThicknessFormЖ‹UserFormNOption5‰“Option55‡eOption6Š“Option65ЌeOption7‹“Option75бeOption8Œ“Option85іeOption9“ Option9Plus 1 Option5Less&­Label1,cmdOK'CommandButton1|д Label1_ClickЛЬ cmdOK_ClickИJobNameэ”JobNoя JobNoteЮр JobNameBoxaQJobNoBoxŸ> JobNoteBoxє|Hide9z PanelJobNamejЪ€џClickŠуOption95f ifOption95 RCommandButton1_ClickфС cmdCancelЭcmdCancel_Click\еShowErr‘и €џџџ_B_var_Select'E €џџџ_B_var_goto8<FinishUpD; €џџџ_B_var_GoђDimWeightErrorYн€џџџ_B_var_DimWeightErrorЉt WeightError+Їvbcrlf_х=ExitSubК* €џџџ_B_var_Exit‹п LifterMsgѕLifterЦ! €џџџ_B_var_LifteroœtextObj`•€џAcadText›~ LifterTextObjѕ„џinsertionPointэ­„џheight|‹LifterTextInsnessForm  Use ( ) 'sЬlA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2œўЌўdџhџЬўмўxџ№ўTџєўDџАў4џ$џџДўџрў$ ўHўŒўlў\ўLўkž [8дБZГЩДЬž [8дБZГЩ‚Ьž [8дБZГЩ~Ьž [8 acaddimrotated AcadDimRotated AcadDimension(ВЎ%%%%212%%%%129x6 COIL INSERT'4 vЎCX9bЎ%%%%212%%%%129x9 COIL INSERT'4hџџ &hџџp&hџџh&їП`&Ў-Є$Ў(В8&џџџџX&џџџџp.Ў-Є$Ў(ВkџџџџX.ZъџџџџZЄЄъџџџџZЄЄъџџџџZъџџџџZЄЄъџџџџZЄЄъџџџџи! Dimension the CG on the Z-Axisи Switch the UCS to the LeftЄЄ+EЄЄ+EЄЄ+ЄЄ+<EЄЄ+<EЄЄ+<ЄЄ+>EЄЄ+>EЄЄ+>х  < >ЎUCSLeft ! %Ђ.:Џ !F(HЏ !F(J : (" Ј!А'ЎЄ$LЄ Є+Lи1(This offsets the dimline from the objectЄ'Rи%This specifies a horizontal dimensionх P ф L R !b%и.NЄ$,Є$< •и Restore the UCS to the FrontЄЄ+EЄЄ+EЄЄ+ЄЄ+BEЄЄ+BEЄЄ+BЄЄ+DEЄЄ+DEЄЄ+Dх  B DЎUCSFront ! %Ђ.@Џ !F(HЏ !F(J @ (" vЎCX2•џџџџ*џџџџ02 ,'Lџџџџ@2Є$фЄ Є+Є$фЄ Є+џџ 2џџџџH2Ў%%212"%%129x6" COIL INSERT'4џџ 2Ў%%212"%%129x9" COIL INSERT'4џџџџ`2и- MsgBox strObjWeight, , "Panel Properties"ter Ј' Zъџџџџи(.Used in the error warning for oversized panelsZъџџџџи(.Used in the error warning for oversized panelsZъџџџџи(@Used to display the required lifters above the dimensioned modelZъџџџџZъџџџџZъџџџџи('Used to update the Lifter block stringsedии ad_VerifyDimsfoиD This routine places the dimensions and CG point on the 'defpoints'objectZъџџџџи&>Used to update the Panel_Weight block in the Paperspace border(Zъџџџџи(Horiz dimension locationZъџџџџи("the centroid of the selected solidZъџџџџи('Vert dimension objects for the panel CG fZъџџџџZъџџџџZъџџџџZъџџџџи("Horiz dimension angle. Usually = 0Zъџџџџи(Set to the panel CGe paneZъџџџџи(*Z-Axis dimension variable for the panel CGZъџџџџи(Z-Axis dimension locationZъџџџџи(#Z-Axis dimension angle. Usually = 0 dimenZъџџџџи("Vert dimension angle. Usually = 90Zъџџџџи((Horiz dimension objects for the panel CGZъџџџџи((Z-Axis dimension object for the panel CGCGџџџџр+hї Јі !bŒ dimen Ј!ЊЎAcDbBlockReference•t endpї Јі !bŒLiertionPointр LifterTextHgtIlLifterTextPoint3дLifterTextHeightЇЗ€џAddTextQ€џџџ_B_var_LifterTextHeight L exceedsvbCrLfOЅexceeds'н€џџџ_B_var_Option95Є= ShowLiftersмvbOKOnlyѕВ vbCritical+} ErrorNotice[ž _B_var_Error)Ÿ ErrorMsgBoxјЁ€џџџ_B_var_ErrorMsgBoxйƒ vbExclamation…ШLifterDescriptionЭЅCOILКО €џџџ_B_var_COILч# LeftUCSObjP& LeftxAxisPnt—n LeftyAxisPnt | FrontUCSObjb… FrontxAxisPntЗ FrontyAxisPnt@€џActfterh 4Є$Ў(Вthe pa Ј!А'Ў(Ў%%212"%%129x6" COIL INSERT'4. Usua vЎCX9bЎ%%212"%%129x9" COIL INSERT'4the pahџџ8 4Є$Ў(Вthџџр7hџџи7їПа7 Ј!А'ЎPaneh Ј!ЎPanel_Lifters_MS• Ј!А'Ўag i Ј!ЊЎAcDbBlockReference•ЎVerify Lifter ConfigurationЄ$Ў(ВїП6›ьи This is the error final functionџџџџX6Ў%%174( nЎ) vЎ IN 1" RECESS'4џџџџ <џџџџ8џџџџ0<џџџџИ; Ј!ЎPanel_Lifters_MS•Ў%%174( nЎ) vЎ IN 1" RECESS'4џџ 4Є$Ў(ВџџџџџџЎVerify Lifter ConfigurationЄ$Ў(ВџџZъџџџџи(Dimension objects for Lifterster Zъџџџџи(*Horiz dimension variables for the panel CGZъџџџџи((Dimension variables for Lifter locationsџџџџџџШ<и. Update the 'Lifter' block tag in ModelSpace Ј!ЊЎAcDbBlockReference•Ў%%174( nЎ) vЎ IN 1" RECESS'4 Ј!А'Ў 4Є$Ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ