ࡱ> t ncumentZT   $.E .`M 1?#xME Root EntryP*7@9VBA_ProjectUP*7@VBA_Project_Version(VBAU`'7@O eS !"#$%&'()*+,-./0PTUVWXY  !"#$%&'()+,-./0123456789:;<=>?@ABDEFGHIJKLMNOPQRacadID="{E4E5325D-1C0F-11D4-B110-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="05079AF9A65CAA5CAA5CAA5CAA" DPB="6466FB5A05B806B806B8" GC="C3C15C3FBA40BA4045" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=2, -7, PROJECTwm*>PROJECTThisDrawingCModule1 C$_VBA_PROJECTW dirB0* pHd ACADProject8@ = t  @( J< rstdole>stdole f%\*\755, 735, Z DrawingModule1Module1G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\StdOle2.Tlb#OLE Automation^MSFo@rms>SFErmHs3DD452EE1-E08F-101A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft : ] Ob Library/;D~1t00}#0#h0 A13A00C1-CBA4-4211-86CF-EFEC41B2835EH.DOCUME~1\WALTERLOCALSTemp\VBE\DL.exd3!.E .`PM D1ThisDrawi ngGThi@cDrawng* 2  HB1¥%B,B ?"B+BCoduPle1GDou1@ 2ODO=!HA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA 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{A13A00C1-CBA4-4211-86CF-EFEC41B2835E}#2.0#0#C:\DOCUME~1\WALTER~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   @ThisDrawingThisDrawingModule1Module11ThisDrawing0R44e6c414ThisDrawing?%Module10S44e6c414Module1=8+iNƁNHo$ˀJ'ttH&')AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule1bad_Timer['adEnt}~ AcadEntityissTimeq  iterateTimeFssStartxssEndU iterateStart iterateEndssCounto iterateCountG ResultStr]=adSS$AcadSelectionSetfTypeifDatahCTimerX ModelSpace_ PaperSpace$vbCrLf SelectionSetsAddracSelectionSetAll.DeletexMsgBoxR ObjectName AcadDo(SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626}8(%HxAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2For_IfbInjIntegerOnResumeThen AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _Evaluate Module1b ad_VerifyDimsx adDimension7 AcadDimensionowadSS$AcadSelectionSetfTypeifDatahCadOverRideCountEH SelectionSetsAddrErroClearacSelectionSetAll. TextOverride1b TextColorKacYellow Application*UpdateMsgBoxRDeletexad_VerifyDimsResetColor GetVariable~ AcadDocumentZ ColoracRed Color2FrU @nxrU yQ4aV` -P -XacRed ad_DimColor SetVariable?R_B_var_AcadDimension KDimensionLineColorErU~| A  1  9 rU $`n  19 Y ) I q  A q  .(,$ , ,l(=h),( o5q.(,$ , ,l(=h),( h D P:4 dP:4)4M %PM %'%'%h Hlhx ?x T x  %x %x x ,$ d, , h D P:4 >P:4)4M %PM %'%'%h Hlhl l TxtensionLineColor|acEnt߸ AcadEntityiadEnt}~acdent adDimStyleJ AcadDimStyleW currDimStyle)ActiveDimStyle8Z DimStyleseCopyFromItemz _B_var_On6(ad_Timer[' DimensionEossTimeq  iterateTimeFssStartxssEndU iterateStart iterateEndssCounto iterateCountGTimerX _B_var_ForjL ModelSpace_ Highlight_ PaperSpace$resultur ResultStr]=vbCrLfiterationcountRound iterationendģiterationstartCount0viterateΛ_B_var_iterateя_B_var_iterationcountY _B_var_IfPsscoun>  ObjectNameT   $1?#Dr1?#<pG̸u!= &AM{O!xAM{O!pG̸ME  acRed $DimensionLineColor $ExtensionLineColor  l ,$ d, , h D P:4 >P:4)4M %PM124 140 11()`5 6a %'%'%h Hlhl Pl T l(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} ( ,$ d, , h X,$ l,=p,1(:%,$ 0, Pl(=t),(lt=[,$ , V% % % cV,t X,1(:%,$ 0, Pl(=t),(lt=[,$ ,V,t X,lp=[,$ ,  hx4 Ptlp,(kcTicket_Typical_.375 to 12(x`58դ c DimClrD DimClrE DimClrT <acTicket_Cumulative_.375 to 12ad_Timer $I%H0h % %8p@@tt8@$*\Rffff*04407f94ac4xAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@Globa )Qa teration results-  Total objects:  Total time: ,SelSpacFalse dCreatablPredeHclaIdTru BExposeTempl! yK j8p$!$ Q[xV k$p$ x>!$ Q[x k$p$ xw j((8Bth\*#*#k$#*#*#*#oh#*#*#*1 2 jXp&. $  , l=  1=xME(<<2< < o X4%`3xr` e fo@" enti@$ rfor@& @( `*`, of`.rati 0Ps.% 4Autop6er!a 0    H Hh $ H .  .P 0    *  J J0 : N > PP P .  ( "08@HP`px  8 > :0 (p .  (@ P `x ,v  "8 `x"   0HP `  D@ HH     @ 4 D@ H H $ .@ p           0  8 H ` h ,x v  " H ` h p $       08 H  D(H0x      ad_TimerA This routine demonstrates a simple timer function. In this caseB we compare the elapsed time for selecting drawing entities and performing a simple task.A In the process this also demonstrates the relative strengths of( entity iteration and selection sets.' Developed for AutoCAD 2000 and above.* Demand load: -vbarun;ad_Timer!ad_Timer; version 1.00C This routine is provided for demonstration purposes only and mustC not be used for critical applications without your verification3 that this routine will perform as you intended.G This routine may be freely utilized for your own personal use so long8 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.]@]`]x]]]]] ]8]X2The first test cycles through ALL drawing entities7The selection set will usually take longer, or at least4 the time will be similar because both methods must! visit each drawing entity once.'First we'll iterate through the drawingStart the timer 8'&',  !: , ',   !< , ', Stop the timer 8'( ( & ' &We'll build the results as we go along Iteration results- > Total objects:  , > Total time:   > >'.Now we'll do a selection setStart the timer 8'"'*adSS !@%B.0+4F*+6 D 4 6 0B@H  0 * '*  0B@FStop the timer 8'$ $ " '  .Selection Set results- > Total objects:  * > Total time:   > >'.   .The iteration took     seconds longer.'.d .The selection set took     seconds longer.'.k0Now display the results .A@H9=========================================================-The next test cycles through all LINE objects>The iteration method will usually take longer because it stillA must visit each and every drawing entity to see if it is a lineB object while the selection set method collects only line objects and ignores everything else.'First we'll iterate through the drawingStart the timer 8'&',  !: !JAcDbLine , ',k   !< !JAcDbLine , ',k Stop the timer 8'( ( & ' %Well build the results as we go along Iteration results- > Total objects:  , > Total time:   > >'.Now we'll do a selection setStart the timer 8'"'*adSS !@%B.0+4FLINE+6 D 4 6 0B@H  0 * '*  0B@FStop the timer 8'$ $ " '  .Selection Set results- > Total objects:  * > Total time:   > >'.   .The iteration took     seconds longer.'.d .The selection set took     seconds longer.'.kHNow display the results .A@Ho# Copyright2000-2006 ActiveDwg.comAttribute VB_Name = "Module1" ' ad_Timerr?tive dengths of1;y iteCrf andNonts7Dev0elopb_AutoCAD 2000abovem"load: -vbarun;!;@Bvers<1.00 CopyriPght0-6 AveDwg>. ׀vidRopurpos@Xonly-Pmust not be uAi 8cr@ccal applicaAz@s with your -ifÄDthatCbE will r asA intenG(KJ0may!free(liz#3ownAson&+ {lon>g|u@co tA{%header remaibn!act!Q"@as-is"KnclaC, wH@2 ied6,!@mS"N&>0:=@"*0SS. acAll, "tA & O=$`W.D@t.%\%Xa$Q!& n ## "#& ##b#d O#0١ IfE2%>ppSn0"UC-atooky.R-&seRVr. El =7pa\ v>2pIP 2displ11MsgBox7t ==V= n l 0t lkPh LINE Bwe_kTkh gst h xhryisee iQ 8a l`2 ws.Add(" J")ffType(0): fData "LI8NE"",D ac MAll,  E,>2For PEachEInss + 1Nex:D]teop EndtӁss -&ResultStFr& _ U"o rs-" & vbCrLf Total objs: n?1H A*If iterate >9Then ;" took*AM&seconds longer.ElscAL5sŜ ss-0wIf4Now dispplayDfAMsgBox=C Sub fÄDthatCcEwill s P@ inten(#MJ0may!free(liz3ownAson &+ |long}v@cotA|%heade8r rj@p!act!Q"as-is"KnclaC, wH@2 aied,!@m3S"M>0f:=@"*`!SDS. acAll, "dA o& O=$PW.Dp@t.%L%tXa$Q!& ## "#& ###d O#0 Ivf52%>p`Snw0"UC-tXooky.R-&sepRV. ElA =7pa \ f>2%I 2dixsplЎ11M sgBox7 === nl `t \k@h LINE BweOkDkhgst h hh5QeТy ise(e iQ a l2 whiARKt colqF/! Bigno `pAp ;`_уMpeAptpdgzp@1r.O\AcDbL" 1OsbTxH !D'tyuV t B 5#$ y QEBq r7=9wwltwwr!sw6ww {w5 EB2w߱o1 2,l *#opoh#*#*1 2&'0'@' M@ 6@0`T,($ H8Ac 5Ala( XxHP@0k5 AcDbLine LINE`ect Library*\G{B309B0AE-33DE-11n set 'Start the timer@ ss= THCount = 0Set adSSThisDrawing.Selection>s.AdHd("J")ffType(0): fData "LINE"",D ac MAlll, E,>2For EachEInDss + 1Nex:D]$teop Endtss -&Resul0tStr& _ "o rs-" & vbCrLf Total objs: n1H A*If iterhate >9THhen ;" took/*AM&seconds lo nger.ElscALsŜtss-0wIf4Now displayDfAMsgBox=C Sub 8XZ2Z\2ZHZt^ AsCase=DimBDoubleCEachDElseEElseIfGEndHendifQexplicitSFalseUFor_GoTo`IfcInkIntegerlIsNothingonoptionOrpublicredimresumeSetThenToTrueVariant AutoCAD" VBAWin16~Win32MacProject1  stdole`MSFormsC ACADProject ThisDrawing5 _Evaluate AcadDocumentZ Module1bTestMassProperties~objEntX0 Acad3DSolidvarPickstrMassProperties varPropertyintI\Utility1J GetEntityvbCr$ErroMsgBoxRVolumeCentroidg Highlight_UpdateCGStart)| CGLineEndCGLinec CGLineStart NSpacerchar)LineLenթstrlen LineLen -1l_B_var_LineLen -15 LineLen - 1Z7Command]_B_var_CommandXapointObj AcadPointPlocation-DefineKthe'CreateM ModelSpace_AddPoint  SetVariable?RCGPoint  CGLocationsMassProperties strWeight#strPanelWeightQu SolidWeightCGj PanelWeightCG PanelSelectedA5RetVal; RealToStringValueKunit precisionPanVol& acDecimal PanWeightK PanelWeight_B_var_RealToString! valueAsStr2acDefaultUnitsE SendCommandccalB}_B_var_SendCommandD_B_var_CGPointModelSelection'AcadSelectionSetelemX9PaperSelectionâ SelectionSetsAddrClearacSelectionSetAll.ent݉ EntityNamex BlockNameBBlockObjAttributesS GetAttributes TextString  BlockMatchcI` AttributeList6p NewAttributeCount0v PaperSpace$ ActiveSpacee acPaperSpacen1 acModelSpace Application*BlockObjDimStartIv DimOriginGetPoint/_B_var_GetPointDimAngle DimObjAcadDimRotatedm AddDimRotated8point1point2rotAngleZoomAllm$ DimLocationDimEnd-DimLocLoc`_B_var_DimOr  $'"ie PanelSelected.Update  (xtl #'pl !( ThiHZ NextZZ, command("Line" "CGLineStart, CGLineEnd")A@@ LineLen = Len(CGLineStart)' CGLineStart = varProperty & ","# CGLineStart [LineLen - 1] = " "UZPDSIZE B@f NextoiK strMassProperties = strMassProperties & vbCr & " " & varProperty(` version 1.10is% Copyright2000 Arban & Carosi, Inc.& Developed 04/28/2000 by Walter BlairInc. 4/28/2000 4/28/20001997, ? dimensions the CG from user defined points, and dimensionspWeight: ,  #'p End Withp0x  $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.hUn-Highlight the solidH 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.AxZZhh B@  B@J !AcDbBlockReference p$(    $! !f !f $(  'hhh !B@8p ! Panel_WeightF $(g/ MsgBox strPanelWeight, , "Panel Properties"( !AcDbBlockReference( ! Panel_Weightht & aE ,'P$+  DimAngle = 90  $+$++8 h ,'8 v!4'CG 0 X 0  PZ(Vert dimension location h%+ h%+ $A@0$A@0  A@0p !4'H ,  8 6 !b%.4odelH* 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 +82(This offsets the dimline from the objectG Save the current layer and change to DefPoints layer. This is so the L'6%This specifies a horizontal dimension _view _front B@Z`ZZ+E+E++E+E++E+E+   UCS1 ! %.   ("q StartStr = "DimStart:" & vbCrLf & DimStart(0) & vbCrLf & DimStart(1) & vbCrLf & DimStart(2) & vbCrLf & vbCrLfg EndStr = "DimEnd:" & vbCrLf & DimEnd(0) & vbCrLf & DimEnd(1) & vbCrLf & DimEnd(2) & vbCrLf & vbCrLfn 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%.DZh !4'Poin> DimVAngle = 90 'This specifies a vertical dimensionjectZ Z (RsZ !R.Z \ (RZ DefPoints %X.\0 z#'|pA First, select the two horizontal dimension points on the part:  (ate  ! block ! Dim1StartZ Dim1OriginwDim1EndÓ Dim1Locationt DimH1Startc DimH1Origin'DimH1Endb? Dim1AngleYDimH1Obj&s DimHAngleb DimHLocationt^DimHObj DimH2StartzDimHEnd0V DimH21Startn DimH2Origin%DimH2Obj8 DimVLocationm DimV1Start DimVAngleDimV1Objm DimV2Start7DimV2Obj3 ActiveLayer>layerObj~ AcadLayer Layers CurrentLayerzU WorkLayer  _B_var_SetItemz PanelLength Panel_Weight6 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 objectO DimVAngle = DimVAngle * 3.141592 / 180# 'Convert DimVAngle to radiansd 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 nPane'naE'nne nif Ph0h hhCX9'vr `, #This is max weight for (2)CX9's 4 "This is max weight for (2)CX2'saECX2'v n l0 #This is max weight for (4)CX2'sCX9'vaECX2'vhHh@8' Now locate and dimension the liftersh$z +z6(This offsets the dimline from the object'6%This specifies a horizontal dimension   z 6 !b%.|   z 6 !b%.~ nZZZZZZZZZZ$,$< 0.Be sure to get a positive value for the Lengthing ,'a ,' <' 'hH <'  ,'z$z +z0(This offsets the dimline from the object   z 6 !b%. ' ' ' ' ' nz $ ~n? +   z 6 !b%.'6%This specifies a horizontal dimension   z 6 !b%.~   z 6 !b%.h$ ~9v? +   z 6 !b%.$ ~9v? ~㥛 ? +ZH#ZZP#$ ~n? +#$ ~9v? ~㥛 ? +x# n +Now test to be sure Panel Lifters will work X #!This is the max load for (4)CX9's0# B@'Get the actual panel thickness#  HQ#@HQHQHQHQ  F`F$g ( F`F$g!@HQ y F`F$ggHQP y F`F$gg@HQ h F`F$gg b F`F$gFk X F`F$gg Z (RF@HQ rX F`FgF p F`F$gF N  F J !b%.P.Mod) 5/30/00. Add dimensioning for CG point. ( F`F$gg Jz! @f@'J2Convert 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.'styshw0*$+int(H*@** ,' ,'$ +PanelLenghtb_B_var_PanelLenghtĐ PanelLenghth_B_var_PanelLenghthTE _B_var_IfP LifterQty3_B_var_LifterQty<PanelWgtPanelQty LifterPart-'_B_var_LifterPart DimLLocationDimL1ObjܺDimL2Objz DimL1Start[S DimL21Startq DimL2Startj DimL3StartǀDimL3ObjF DimL4Start}DimL4Obj  DimL5Start3DimL5ObjDimL2: _B_var_DimL2 DimL6StartDimL5:_B_var_DimLLocationaPanelThicknessForm&|̿C ̿fro$CompObjaVBFrame;PanelThicknessForm&q__SRP_6F __SRP_7rU@'    !b%. Verify Lifter Configuration'Use ( n) v's'  $ +@'    !b%.   F`F$g@)* ThisDrawing.ActiveSpace = acModelSpace  & 2 Special Lifter Notice$0'*ter No0+ H'F$F +F2(This offsets the dimline from the object`,+*  ! !AcDbBlockReference ! Panel_Weight !' |$( !B@8h))  !bifter' !'lSpahh Elseh() ! Panel_Lifters 4$( vCX2h vCX9b  ! !AcDbBlockReference ! Panel_Weight !' |$(hx' ! Panel_Lifters !' n$) : )MX %Mh %'x%'% H lxT k&p& xT  X  jHHXBtpel *#*#*#k&#*#*#*#op#*#*#P*1 2P ohop,l *#ohop#*#*1 2,l *#opoh#*#*1 2&'0'@' M@ 6@0 j8p$!$ Q[,x(Hx l0/9 k$p$ x(!$ Q[$x x l0/ lection Set results-   S 8 &The iteratioateDerivBustomizD2$Hk$p$ x i j((8Bth\*#*#k$#*#*#*#oh#*#*#*1 2 jXp&. $ n took seconds longer. .The selection set took W[` , l= ) :)MX %Mh %'x%'% H lx k&p& x  X  jHHXBtpel *#*#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 Object9q,F{05"5Tahoma,F{05.5"5Tahoma,F{06"5Tahoma,F{06.5"5Tahoma,F{07"5Tahoma,F{07.5"5Tahoma,F{0t8"5Tahoma,F{0t8.5"5Tahoma,F{0t9"5Tahoma,F{0t>9"5Tahoma,F{0<5"5TahomaP,;Specify the Actual Panel Thickness (Round Up to Next 1/2"):@Arial(OKOuTahoma(CancelOuTahoma  }D$LOption5"$LOption55" $LOption6" $LOption65"$LOption7"$LOption75 $LOption8 q$LOption85 $ LOption9 g ( L Option9Plus ( L Option5Less""( 2t Label1$ 4 cmdOK{( 8 cmdCancelssg *#k&#*#*#*#op#*#*#P*1 2P ohop,l *#ohop#*#*_B_var_DimL6Start3DimL6Obj1test4PanelPrintHeaderPanelThickness  UserForm1)ShowPanelThicknessForm,_B_var_PanelThicknessFormUserFormNOption5Option55eOption6Option65eOption7Option75eOption8Option85eOption9 Option9Plus 1 Option5Less&Label1,cmdOK'CommandButton1| Label1_Click cmdOK_ClickJobNameJobNo JobNote JobNameBoxaQJobNoBox> JobNoteBox|Hide9z PanelJobNamejClickOption95f ifOption95 RCommandButton1_Click cmdCancelcmdCancel_Click\ShowErr _B_var_Select'E _B_var_goto8<FinishUpD; _B_var_GoDimWeightErrorY_B_var_DimWeightErrort WeightError+vbcrlf_=ExitSub* _B_var_Exit LifterMsgLifter! _B_var_LifterotextObj`AcadText~ LifterTextObjinsertionPointheight|LifterTextInsnessForm  Use ( ) 'slAFalse PredeclaDIdTru "E xposeTemplateDeriv$eCus`tomiz2dhxTD4$$Hl\Lk [8Z̞ [8Z̞ [8Z~̞ [8 acaddimrotated AcadDimRotated AcadDimension(%%%%212%%%%129x6 COIL INSERT'4 vCX9b%%%%212%%%%129x9 COIL INSERT'4h&hp&hh&`&-$(8&X&p.-$(kX.ZZZZZZ! 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 +L1(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 DUCSFront ! %.@ !F(H !F(J @ (" vCX2*02 ,'L@2$ +$ + 2H2%%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 modelZZZ('Used to update the Lifter block stringsed ad_VerifyDimsfoD 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 fZZZZ("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 !AcDbBlockReferencet endp  !bLiertionPoint LifterTextHgtIlLifterTextPoint3LifterTextHeightAddTextQ_B_var_LifterTextHeight L exceedsvbCrLfOexceeds'_B_var_Option95= ShowLiftersvbOKOnly vbCritical+} ErrorNotice[ _B_var_Error) ErrorMsgBox_B_var_ErrorMsgBoxك vbExclamationLifterDescriptionͥCOIL _B_var_COIL# LeftUCSObjP& LeftxAxisPntn LeftyAxisPnt | FrontUCSObjb FrontxAxisPnt FrontyAxisPnt@Actfterh 4$(the pa !'(%%212"%%129x6" COIL INSERT'4. Usua vCX9b%%212"%%129x9" COIL INSERT'4the pah8 4$(th7h77 !'Paneh !Panel_Lifters_MS !'ag i !AcDbBlockReferenceVerify Lifter Configuration$(6 This is the error final functionX6%%174( n) v IN 1" RECESS'4 <80<; !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$