аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ__SRP_2џџџџџџџџџџџџўџџџь__SRP_3џџџџџџџџџџџџўџџџD__SRP_0џџџџџџџџџџџџўџџџY__SRP_1џџџџџџџџџџџџўџџџіџџTџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $џџџџЫ1?џџ#ˆЖџџ№ФдџџџџЫ1?џџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџафтоVЩ€9VBA_Projectџџџџ § ŸUАПафтоVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџРžЈŸUАПpњсоVЩO§џџџ eS§џџџ !"#$%&'()*+,-./ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPўџџџџџџџџџџџTUVWXYўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ- ўџџџ !"#$%&'()*+,.ўџџџ/0123456789:;<=>?@ABўџџџDEFGHIJKLMNOPQSўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџacID="{E4E5325D-1C0F-11D4-B110-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="17158812881E2A222A222A222A22" DPB="BDBF22F86E9F6F9F6F9F" GC="6361FCA6A3A7A3A75C" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=-11, PROJECTwmџџџџџџџџџџџџR>PROJECTџџџџбThisDrawingџџџџCхModule1 џџџџџџџџ"_VBA_PROJECTџџџџџџџџџџџџЯ dirџџџџџџџџџџџџr__SRP_4џџџџџџџџџџџџўџџџ__SRP_5џџџџџџџџџџџџўџџџ@nВ€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-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft ‚: €] Ob­ Libr@ary/;D1?€„€tˆ€ˆ€00h}#0‚€#€04€r€ B309B0AE-33DE-11D4 -B7C480C6F93F62PРOP\VBE\с„G.EXD /€с.E р….`ŒM ДEС™Т”Т1Т–ThisDrawingG‚€Thi€^€DrawР ng 2 Ђ€HB1Ё`%B,QB ?"B+Bƒ‚odule1Gе„‚o@ЅuBЅ1@ ТŠM2OmO=!HТРЬ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{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2009 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џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1ThisDrawing0c4abdd1aaџџThisDrawingџџ?%џџModule10d4abdd1aaџџModule1џџ=mџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ-2, 570, 610, Z DrawingModule1Module1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџі(‹H"ƒлCИyкuЩПџџџџЂ4њёЋ№O•б^ZЉџџџџџџџџ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{7AABBB95-79BE-4C0F-8024-EB6AF271231C}џџџџ8€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@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 №дАџџџџ'g1=џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ<џџ"<џџ,<џџ:џџџџџџр џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP„ „џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXР%`„џџџџџџџџ џџs „ џџџџџџџџof t%`„$џџџџџџџџ џџe th`„&џџџџџџџџ џџ`„(џџџџџџџџ џџ „*џџџџџџџџј%`„.џџџџџџџџ џџoint „0џџџџџџџџ0 Z=0%`„2џџџџџџџџ џџџџџџ`„4џџџџџџџџџџ pla`„6џџџџџџџџ џџnd C „8џџџџџџџџ˜oint % „<џџџџџџџџИ use %`„>џџџџџџџџџџion џџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪi€ € € PА€ H€ L`€ BА€ Jј€ >H€ 4ˆ€ Р€ Ш€ р€ *ш€ € J € Jp€ :Р€ N€ >P€ P€ Pр€ .0€ `€h€ џџџџ"p€ џџџџ€,x€&Ј€0а€ џџџџ€:€@€ џџџџ€8H€6€€И€Р€&Ш€0№€" € џџџџ€H€P€X€ џџџџ`€ џџџџ€ (h , а $и € џџџџ€ N€ <hЈИ и€ џџџџ€ (ш(@€ џџџџ€ `€ Hx@Р@  @ LP    Р р € џџџџ€ ш € ` € \h € bШ € ^0 € ` € d№ € `X € dИ € . P X ` p € Hˆ 4а $$0Xpˆ€ џџџџ˜Ј€ џџџџџџџџр ad_DimCGррA important function 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;|W…рр version 1.00 Wрр# CopyrightЉ2000-2009 ActiveDwg.comќшxррC This routine is provided for demonstration purposes only and mustxluxрC not be used for critical applications without your verificationƒєpƒр3 that this routine will perform as you intended.ƒєsƒрG This routine may be freely utilized for your own personal use so long{р8 as the entire contents of this header remain intact.xр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. рЭџџ8–]ђ@р'object selected for processingisа]ђ`р(dummy var for selectionto]ђxр("the centroid of the selected solid]ђ˜р(,Temporary dim holders for AcadDimRotated Bug &]ђА]ђШр(*Horiz dimension variables for the panel CG]ђрр((Horiz dimension objects for the panel CGd ]ђ]ђ]ђ8р(Horiz dimension location]ђPр("Horiz dimension angle. Usually = 0]ђhр(Set to the panel CG@ "]ђ€]ђ ]ђРЩ@р" 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 thezр6 CG dimensions will be visible, but will not plot.э !J.8эЖ DefPoints %L.< < (Jр! 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Ќ$(Ќ$. œр,.Be sure to get a positive value for the LengthЌ$(Ќ$. '>dFЌ$.Ќ$( '>kџџРр Dimension the CGр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 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)(correspondingр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р' the proper DimArray to DimStart. ('$ .'&ЌЌ+(ЌЌ+. ('2Ќ$2Ќ Ќ+2р2(This offsets the dimline from the objectЌ'4р%This specifies a horizontal dimensionэ ( 6 2 4 !P%X.*э . 6 2 4 !P%X.0 ( $ *B@Z . & 0B@Z $'( &'. !\B@^oџџјрI This routine locates and dimensions the CG of a selected solid. Anotherџџџџјџџџџ“ИAttribute VB_Name = "Module1" ' ad_Dim CG06tdexample oto demZŒtro_useCA}place€t>Šing. TVBA  obj“ 'Defin€$Point€s' are (d at WCS Z=0rso must be фreƒ~d.Š‹/ƒƒ‹S‹p2 oBnc'defs‚'…Blayer‚6ƒ€q"curre€‘UE"* styDleƒ@Dem load: -v@barun;…п.аdvb!;€57verl 1.00ХCopyrightЉ2000"-9 A€fve€Dwg.com Š<@iprovid1€zforШkСtpurpos@ŠonlоyТ6Q€€ @„T @;d critical applA…s with€ your ™Р-if„DthРjŽEЇwill p„erРm asA2 xenР(mmaТy!freeР(Иliz3ТownёAson€&+@ДРМngФСН€ii€Pcont€sFГh(ead€uriin1!act!‰Q"a s-is"‚KnAРclaРПРS, wРH @Z€аlieьd,Ф!@m€<€Эit@ыeliab ilityТWan y parРXu taskсry џ€v(„ E)€ рwс"3€,І!ri   $OpBwEx6it€ Pub€7 Subfˆ() N >ЃРŠ PРS %„AsрLad3DжSA…'$usEСCсРLcessтvсvarPick с@Variс‰Af€'dummy РЯ" у )'CGЂ!АAcadƒh';Bc@:roidЃ:e‡Œ›ƒ G Hold€ˆPt1ѓ'TeЁŸШarya“ hРРqGA@RotрdИ Bu L` Ц 2Ш mH1StƒР+tHorizhЂ;@#€Dl@ta,pa8nelрИ‚ ObnjA ,"%' У7sлBW 2э+22kўLбр9‘ЎтЖŠ?˜Ang€ЭHDo W.e…Na. Usual€…= з Ї `EрсUQР 'Set @s"ѕgCОLBС Ё-‚aGWorkљAkLрength"ƒЃЃOn Err№CResu€Nexp;A Г?c9Bj3D п#9P д7 KЁW@Yv@isDraw9.UtrF#.GeАtEntБGЩ>,Б8!;€bCr & "œ> ˆ11Ifс С|nЧMsgBрox "Tё_pJбdan™DXExiЮtaIgсIfѓБЧQ гЄave‚ux™'zch  Рo Р„љBCs вq‡а 0ƒ{ “ q‘("jР„visible, А˜npka plo1bїA 1#J!=jѓy"ёG"Ыbs(" "џtY}…0ЁІ‘]PЁќ Pё–рУŒ`QxЁŸУщ№‚Y@DMODE", 3Ц4ŸœSIZ’ƒŸРУYK "#SpP (.Adу[( '.C_Д[АГ`їOs3F`irst,t]"tќwoYАR}p——S›ћuœёt:3 №?ЅW+ Д1C1 (, "T61_0ЅТSS ГД ‚>~>БфRП Пt| 2РHП№ЇПС/=?JyfГ P8!“e(0ш) >сNH# ёРЖвn№*'BРqupCgрNa рŸitiСp4valueaJoУq.!TK=ЂЇ-ƒЋ7Else:R џšG “–“БE?УП TЁY"Я ŒnwА…}@ЙoТ""7!С‘Тb8ecaБ”cТtu‚r`бa 2d ф‰array(BIink)€˜lјso,тK№€ХPуqёЫbas№Љ€qНPЪ,‘Д‡QˆУ.P„€t we neP?СбФP€p1Эatch shape}А'ж р]5Іp WФhiРissаNИ frа+ск$ 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тhn mo„iзГœV. F2i№Ыly Ф0ьzБestore ' the proper DimArray to,Start.„ œHoldx Pt1 =6H1ы: 82828jXш(1)>03&LocatiožnL i5(2N! + 25и 'This of@fsets шdimline fromobjectIAngleR‹!specifies a horizontalb 'ensU SФetƒObj€!>Drawing.ModelSpa ce.AdЄRoРtated(_ƒpЂ,End‚H…rыƒK)‹22Ќ2ƒЖ‚'Я`Т%@@.veC5uќ, ‡‚У#A С"G E§F 2G У:@G’‚ DУ TAppli!У‰.UpdРR €5 Sub ub ’‚ 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џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ