аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_2џџџџџџџџџџџџўџџџь__SRP_3џџџџџџџџџџџџўџџџD__SRP_0џџџџџџџџџџџџўџџџY__SRP_1џџџџџџџџџџџџўџџџіџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $џџџџЫ1?џџ#ˆЖџџ№ФдџџџџЫ1?џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ CTЇыХ€9VBA_Projectџџџџ § ŸUАП CTЇыХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџРžЈŸUАП вQЇыХO§џџџ eS§џџџ !"#$%&'()*+,-./ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPўџџџџџџџџџџџTUVWXYўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ- ўџџџ !"#$%&'()*+,.ўџџџ/0123456789:;<=>?@ABўџџџDEFGHIJKLMNOPQSўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacadID="{E4E5325D-1C0F-11D4-B110-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="FFFD60E1A0231927192719271927" DPB="8B8914A4A1A5A1A5A1" GC="17158838984825492549DA" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=-11PROJECTwmџџџџџџџџџџџџR>PROJECTџџџџгThisDrawingџџџџCхModule1 џџџџџџџџˆ"_VBA_PROJECTџџџџџџџџџџџџЯ dirџџџџџџџџџџџџj__SRP_4џџџџџџџџџџџџўџџџ__SRP_5џџџџџџџџџџџџўџџџ@fВ€0* pH‚dф ACADProject8@е = t  дˆ9( J< rstdole>stdole f%\*\G{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@ ›ТŠ2OuO(=!HТectяРЬ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џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1ThisDrawing2J44e5c428џџThisDrawingџџ?%џџModule12K44e5c428џџModule1џџ=uџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ, -2, 570, 610, Z DrawingModule1Module1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŽ%0y5KКХƒЋоRšџџџџE#aЁ>‚ОLЊ%nвйЭ•~џџџџџџџџH€01џ0+AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_EvaluateйModule1bad_DimCGm PartSelectedtП Acad3DSolid—оvarPickёCGPoint  AcadPointPх HoldDimPt1h\ HoldDimPt2i\ DimH1StartйcDimH1Obj&sAcadDimRotatedm DimH2StartzDimH2ObjФ8 DimHLocationt^ DimHAngleјbDimEnd-… CurrentLayerzU AcadLayerз  WorkLayer я PartLengthЅпUtility1J GetEntityˆvbCr$ErroŠMsgBox—R ActiveLayer„>Layers‚й SetVariable?R ModelSpace_жAddPoint CentroidgнGetPoint/А AddDimRotated8гMove>y ApplicationЅ*Updateвќ AcadDocumentZџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExpThisDrawingThisDrawingModule1Module1HoseTempla€teDeriv’BustomizD2tЄў6Œўlўy/(|ў%рўўЎŒў(8ў%єўўЎlўћœ\ўBtЄў6Œўlў єў§Tџ рў§Dџ(|ў%(8ў%єўўА(|ў%(8ў%рўўА єў§Ьў/((ў%(|ў%ЬўўЎŒў(8ўћ”lў%ЬўўА6ŒўlўєыtФў6HўmФўќэЬўќэДўќэєў ў"$   ў  QHў№ў ў6HўmФўќэЬўќэДўќэрў ў"$   ў rU€€€€~} ˜ љ 9 q™ 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} |Creatab QHўмў ўќэTџќэєў№ў ˆќэDџќэрўмў ˆ Tџ§єў Dџ§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџХЦЧШўџџџЪўџџџЬЭЮЯабвгдежзийклўџџџнопрстуфхўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрў ў"$ d ў € ўTМlyTTљс‘еееџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXљсџбЖI`А‡т5 Select Dimension Point>> CoordinatlA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2ThisDrawingThisDrawingModule1Module1џџўџџџџџџџџџџџ џџ$ƒўџџџџџџџpџџџџџџџџџџџџџџ џџ$џџџџ€ъ``џџџџџџџџџџџџ|џ@џџџџe  Ад()“ЪбЖ`А‡т5 DimStart: DimEnd: DimLocation: Pick Panel Model>>  _ucs _froneШœџџџџiƒўџџџџџџџџџџџџџџџџџ џџџџiƒўџџџџџџџt; _view _front; '_ucs _front; '_view _front; SendCommand UCS1@’еЄжєбЂШ мcš Panel Properties Panel Weight:   'Select 1st Horizontal Dimension Point>> 'Select 2nd Horizontal Dimension Point>> %Select 1st Vertical Dimension Point>> %Select 2nd Vertical Dimension Point>> DefPoints§РЯЩЯкбЂТ мcš CX9 CX2 UserForm1PanelThiW[šЪбЖ`А‡т5џџџџџџџџџџ џџџџ€`џџџџџџџџџџџџшƒўџџџџџџџрџџџџџџџџџџџџџџ‚ Њџџџџўџџџhџџўџџџџџџџџџџџ$ƒўџџџџџџџ˜џџџџџџџџџџџџџџ$џџџџˆј@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџРџџџџј АВДЖИКPјˆxџџџ џџ @ўџhџџџ џџ џџ8§@ўџXџџџ џџ џџџџиHџџџ џџ џџHРЊмВИ ј8џџџ џџр џџџџXџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџм `џџџџ8€џџџџџџџџџџџџ`џџџџџџџџ0џџџџџџџџ@pxаШџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ!"( 0 € џџџџ" *( -˜H -8И -HЈ -X -ШP -XР -hx -€а - А Ар ј ˆ€ џџџџџџџџH`lЉжжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ\љсЩзззџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`љссиииџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџdљс йййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhљс!кккџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџlљсAлллџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџkџ?P єы~"$ў €џџplџџh ФЏ•џџџџъЌ@'Є ВЏbи ДЏbк ЖЏbв Ќ@'Є ФЏbx rU€€€ џџџџџџџџ@prU€€€ !Iqџџџџљ4™aСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџVcЊB@мœ АЏbаџџџџЄ'ЄЄ 'ЄЌ@'Єџџ ИЏb'ЄџџЌ@'Єџџ ФЏbџџ џџЌ@'Є ФЏbЌ@'Є ФЏbЌ@'ЄЄ'ЄЄ'Є КЏb МЏbЄ'Є ОЏbЌ@'Є O РЏb True тЏbџџ0Ќ@'ЄЌ!@'ЄЌ#@'Єџџџџhџџ№aEЄ'Єpt€lџџаlџџШЄ'Є ЊB@мtion95џџџџЈtБAttribute VB_Name = "PanelThicknessForm"D ЄBasЄ0{3D8E6006-90DD-11D4-839C-0080C6F@93F62}J5FF0J dCre atabliFalse „PredeclaIdЗTru "Expo se@TemplateDeriv–Custom4iz‹DP Sub cmdCa€ncel_Clšр() ЃP†5‘ Џ.Hid]End' /OK №дАџџџџ'o1=џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ"<џџ,<џџ:џџџџџџр џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP„ „џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџX20%`„џџџџџџџџ џџE3 „ џџџџџџџџof t%`„$џџџџџџџџ џџe th`„&џџџџџџџџ џџ`„(џџџџџџџџ џџ „*џџџџџџџџј%`„.џџџџџџџџ џџoint „0џџџџџџџџ0 Z=0%`„2џџџџџџџџ џџџџџџ`„4џџџџџџџџџџ pla`„6џџџџџџџџ џџnd C „8џџџџџџџџ˜oint % „<џџџџџџџџИ use %`„>џџџџџџџџџџion џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪi€ € € L€ Nh€ LИ€ B€ JP€ > € 4р€ €  € 8€ *@€ p€ Jx€ JШ€ :€ NX€ >Ј€ Pш€ P8€ .ˆ€ И€Р€ џџџџ"Ш€ џџџџ€,а€&€0(€ џџџџ€:X€˜€ џџџџ€8 €6и€€€& €0H€"x€ џџџџ€ €Ј€А€ џџџџИ€ џџџџ€ (Р ш,ј( $0 X`h€ џџџџ€ Np€ <Р 0€ џџџџ€ (@h€˜€ џџџџ€ И€ Hа@ @X  ˜ LЈ ј   8 € џџџџ€ @ € `` € \Р € b € ^ˆ € `ш € dH € `А € d € .x Ј А И Ш и Hр 4($`$ˆАШрш€ џџџџ№€ џџџџџџџџр ad_DimCGррE This routine locates and dimensions the CG of a selected solid. The,,рG more important functions of this example is to demonstrate the useрF and placement of dimensioning. The VBA dimension object 'Definingјр< Points' are placed at WCS Z=0 and so must be relocated.џџџџџџрD This routine places the dimensions and CG point on the 'defpoints'џџџџџџр8 layer and uses the current UCS and dimension style.џџр. Demand load: -vbarun;ad_DimCG.dvb!ad_DimCG;рр version 1.00рр# 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.Chaр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.рЭџџ(–]ђ@р'object selected for processing]ђ`р(dummy var for selection]ђxр("the centroid of the selected solid]ђ˜р(,Temporary dim holders for AcadDimRotated BugЃVœЮв]ђА]ђШр(*Horiz dimension variables for the panel CG]ђрр((Horiz dimension objects for the panel CG]ђ]ђ]ђ8р(Horiz dimension location]ђPр("Horiz dimension angle. Usually = 0]ђhр(Set to the panel CG]ђ€]ђ ]ђРЩ0р" Select the 3D Solid to process. !@ѕ   DЖPick Panel Model>> C@B FœЖThat is not an Acad3DSolidA@HŒл |џџkџџˆqџџ€рG Save the current layer and change to DefPoints layer. This is so theр6 CG dimensions will be visible, but will not plot. theэ !J.8siэЖ DefPoints %L.<to < (Jion р! Place a point entity at the CGЖPDMODEЌ" B@NЖPDSIZEЌ B@Nэ !T !P%R. > р Add dimensionsрA First, select the two horizontal dimension points on the part:аЖ'Select 1st Horizontal Dimension Point>> !@%V'(аЖ'Select 2nd Horizontal Dimension Point>> !@%V'. !T'6œvЌ$(Ќ$. œр,.Be sure to get a positive value for the Length$Ќ$(Ќ$. '>bиdFЌ$.Ќ$( '>kџџАр Dimension the CG ZўрY AcadDimRotated wants to place the dimension at y=0 because the CG returns a 2d VariantрV array(I think). Also, AcadDimRotated places the DimObject based on the WCS, not$р[ the current UCS. But we need the UCS oriented to match the shape we're dimensioning,XЖрX Which isset so the front is on the Front UCS. So, for WCS XYZ = Front UCS XZY forрZ 3d point input. To relocate the DimObject to the correct WCS 'Y' plane, we save theр^ correct dimensions in the 'HoldDimPt' variable and change the DimStart(1)(correspondingion рY to WCS 'Y') to '0' and let the AcadDimRotated draw the dimension where it wants toр^ anyway. We then move the dimension object to the correct 'Y' plane. Finally, we restore firр' the proper DimArray to DimStart.ў ('$ .'&ЌЌ+(ЌЌ+. ('2Ќ$2Ќ Ќ+2р2(This offsets the dimline from the objectЌ'4р%This specifies a horizontal dimension!dэ ( 6 2 4 !P%X.*Aэ . 6 2 4 !P%X.0Upda ( $ *B@Z ` . & 0B@ZўчХ $'( &'. !\B@^oџџшџџџџ№џџџџИAttribute VB_Name = "Module1" ' ad_Dim CG0SЃ‹ PРSe„A‚sрLad3DS…u'$usEСCРLc8essтvсva@rPick @V8ariŠAf'dрummy Р" у 3)'CGЂ!AcЌadƒh';c@:аroidЃ:eЬ›ƒ !G Hold€Pt"1ѓ'TeСŸarђya“ hРРqA@Rotрd BЎu L` Ц 2Ш УmH1StР+tрHorizhЂ@#€Dl@ta,paneŽl Й‚ ObjA л,"%' У7sBW Ж2э+22kLAб?р9‘ЎтЖŠ?AnІg€ЭHDo We …Na. UsШual€…=  Ї5 `E тUQ 'pSet @s"gC}ОLBС Ё-‚GWorkљAkLenxgth"ƒЃЃO n Err№CReФsu Nexp;A ЧГ?c9Bj3D #9P 7д7 KЁW@Y@}isDraw9.UtrF#.GetEьntБGЩ>,Б8!;€€bCr & "<PB'0ˆel>> g@ˆ11Ifс „nЧMsgBox8 "Tё_pJбdan‡™DXExitaIѓgсIfѓБQ гqЄave‚ux'zcfh  Рo Р„BCsў вq‡а 0ƒ “ ‘‘("jР„vis@ible, а˜ уBa plo1bA 1#§J!=jѓy"ё"Ыбbs(" "tY}?…PЁІ‘]pЁ Pџё–žУŒ`QxСŸУщ№‚Y@DMO€DE", 34ŸёœSIZ’ƒР'УYK "#SpP .AЪdу[( '.CД[АГ`їOs3First,t]"twoџYАR}p——S›uœёtў:3 №?ЅW+ Д11 а(, "T610ЅТS—S гД ‚>>БфRП Пt 2пРHП№ЇПС/=JyfГ P8!“e(0) К>сNH# ёОn№*Д'BРqupCgрNDa рŸitip4v№alueaJУq.л!TK=ЂЇ-Ћ7рElse:R šG џ“–“БE?У ToЁYBЯ ŒnwА…@Йo> 2О""7!С‘ТbecaБ”cТturС€бa 2d ф‰array(I!ink)€˜lsќo,тK№€ХPqёёЫbas№Љ€qPЪ^,‘Д‡QˆУ.P„tР we nePСбФP€p1Эatc‚h shapeА>'ж р]5Іp WhbiРissаN Дfrа+ O$ Fђ5P.рc,"БдXY†ZEЦ XZYБ9‡ 3dа"€КPВpuњt€ToЦжв а%RŠoрбc“к'Y'ЁЖnАTАs”[ЧcДНf s`b@~єš'СigвВЗ5^he(ТŠ(1)(’sponОd0 Qp)Q~ш'0'BlpБ ь$dpsві whe`0jЅ&ЗЛwayш. Wтhn0є„iз‡ГœV. Fi№Ыly Фe|Б restore ' the proper DimArray to,Start. œHol‚dxPt1 =6ЌH1: 82828ЃjX(1)>03&LocatxionL i5(†2N + 25и 'This offsets шdimline fromobjectIAng leR‹!specifies a horizontˆal 'ensU SetƒObj€!>Drawing.ModelS€pace.AdЄRotated(‹_ƒp,End‚ЎH…rƒK)‹22Ќ2?ƒЖТ`Т%@@.veѓC5u, ‡‚У#A С"їG EF 2G У:@G’‚ DУ TApp„liУ‰.UpdРR €5 Sub ’‚ DƒУ TAppliУ‰.UpdРR €5 Sub €€ˆ€ џџџџ8€ џџџџ€ (@ `,5h  $+h ˜  € џџџџ€ Np€ < -H (€ џџџџ€ (( 9H99(9€ џџџџ€ р € H@5рates!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ь Dim1StartZ Dim1OriginоwDim1EndУ“ Dim1Locationt DimH1Startйc DimH1Origin'юDimH1Endb? Dim1AngleYDi@5  и L.X/ 48€ џџџџ€ F€ `а:€ \0;€ bР=€ ^;€ `№;€ dP<€ `И<€ d(>€ .= А9 И9Р9: ˜ H/0:4Р$6№ $6`p9: а9 (:€ џџџџШ'X€ џџџџџџџџ(Hии .• h <'PZъџџџџСxи" Select the 3D Solid tЬ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{C0F16B64-59CA-11D4-839C-0080C6F93F62}#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 43988d9d5*Dџџ=џџџџЪkџџ8XџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџZ2хфдБZГЩџџџџ\2хфдБZГЩџџџџџџџџHџџџџБZГЩџџџџџџџџ€AWџV €џAs€џCase=€џDimB€џDoubleD€џElseE€џElseIfG€џEndH€џendifQ€џexplicitS€џFalseU€џFor_€џGoTo`€џIfk€џintegerŒ€џoptionœ€џredimЅ€џSetГ€џThenД€џToЕ€џTrueН€џVariantAutoCAD"јVBAїтWin16С~Win32MacГВProject1 stdole“`MSFormsC ACADProjectІд ThisDrawingЙ5 €џџџ_Evaluateй AcadDocumentZModule1bTestMassPropertiesљ~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_DimOriginbЯutilObjЂg€џCreateTypedArrayœЪstartTan зvbDoubleЯb vbVariantZA€џEndPointдy €џCoordino process.ЎThat is not an Acad3DSolidA@0uџџшhџџрnџџиZъџџџџи Updated 5/25/00ЎPDMODEЄ" B@fї $і54Œ " ,Ў  $'"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иии 8/3/2000и% 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ъ8h ‚!4'фPoinи> DimVAngle = 90 'This specifies a vertical dimensionjectџџџџˆZър Z (RsZъх !R.Z \ (RZџџџџˆџџџџхЎ DefPoints %mH1Obj&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Ё PanelLenghtbŸ€џџџ_B_var_PanelLenghtФ PanelLenghthЖќ€џџџ_B_var_PanelLenghthTE €џџџ_B_var_IfPђ LifterQtyX.\џџџџ0 zЎ#'|џџџџpџџџџиA First, select the two horizontal dimension points on the part: Т (Рate ї Јі !ОŒ block Ј!Ў 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Œ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€џџџ_B_var_DimL6Start3DimL6Obj1—test4ЋPanelPrintHeader‘„PanelThickness Ј UserForm1)жShowѕPanelThPanelThicknessForm&џџџџрр|ŽЬП€ЭC ŽЬПfџџџџџџџџџџџџмroџџџџЫ$CompObjџџџџџџџџЩaVBFrameџџџџџџџџџџџџФ;PanelThicknessForm&џџџџџџџџџџџџўџџџv__SRP_6џџџџџџџџџџџџўџџџF __SRP_7џџџџџџџџџџџџўџџџŠЎ's. Ў'Please consult Production for guidance.'њstyshwџџџџ0*Є$фЄ+int(џџџџH*џџџџ@*џџџџ€* ,' ,'Є$Є Є+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 !ЦB@8hџџ() Ј!Ў Panel_Lifters• 4Є$Ў(В vЎCX2•h vЎCX9bї Јі !ОŒ Ј!-If O€ption5L€аС„} Then1?є4.@E€Ѕ‡ dвж5%’6d65Š-Њ6Ѕ6’7Є7Њ7Ѕ7’8Є8Њ8Ѕ8’9Є9P–9_CQ9I: Е`9]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} |CreatabicknessForm,Ъ€џџџ_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|‹LifterTextInsertionPointр LifterTextHgtIlLifterTextPoint3дLifterTextHeightЇЗ€џAddTextQ€џџџ_B_var_LifterTextHeightcknessForm  Use ( ) 'slA†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ГЩ~Ьž tomizˆ2ЊЎAcDbBlockReference• Ј!Ў Panel_Weight• Ј!А'Ў |Є$Ў(Вhџџx' Ј!Ў Panel_Lifters• Ј!А'Ў nЄ$Ў(ВЎ%%%%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ъ(и(dummy var for selectionteZъџџџџи(.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 stringsedZъ8и'object selected for processingи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ъh и("the centroid of the selected solidZъџџџџи('Vert dimension objects for the panel CG fZъџџџџZъџџџџZъџџџџZъpи("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. Us 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@€џActiveViewportп €џUCSIconAtOriginˆ: €џUCSIconOnGБ DimZLocation|цDimZ1ObjšЕ DimZ1Start„Р DimZAngle…ћually = 90Zъ€и((Horiz dimension objects for the panel CGZъџџџџи((Z-Axis dimension object for the panel CGCGџџџџр+hї Јі !bŒ dimen Ј!ЊЎAcDbBlockReference•t endpї Јі !bŒLifterh 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ъџџџџи((Dimensioџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ