ࡱ> t ncumentZT   $.E .`M 1?#xME Root Entry~$V9VBA_ProjectU~$VVBA_Project_Version(VBAU$VO eS !"#$%&'()*+,-./0PTUVWXY  !"#$%&'()+,-./0123456789:;<=>?@ABDEFGHIJKLMNOPQRacID="{E4E5325D-1C0F-11D4-B110-00105A11B3C9}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="B4B62B562D5D315D315D315D31" DPB="B7B5285728592A5A2A5A2A" GC="BAB8255429552955D6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=2, -7PROJECTwm*>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-02608C4D0BB4 Dindows\system32\FM20.DLL#MicrosPoft : ] Ob Libr@ary/;D1?t00h}#0#04 A13A00C1-CBA4-4211-86CF-EFEC41B2835EH.DOCUME~1\WALTERLOCALSTemp\VBE\DL.exd3!.E .`(M "1ThisDrawingGThi@cDrawng 2 HB1¥%B,B ?"B +BCodule1GDoun1@ 2OâO=!HON~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{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{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   @ThisDrawingThisDrawingModule1Module11ThisDrawing2b4abdda54ThisDrawing?%Module12c4abdda54Module1=8΄ O4}ZBӵDlIח@H&')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{7AABBB95-79BE-4C0F-8024-EB6AF271231C}8(%HxAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@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 X%`` e fo@" enti@$ rfor@& @( `*`, of`.rati 0Ps.% 4D 20p6er!a 0    H Hh $ H .  .P 0    *  J J` : N >@ P P .  PX "`hpx  8 >  :` ( .  8 HXp   ,v  "h " 0 @ P `x    D( p Hx     @ 48 Dp H H $H .p           8 P `  h x   , v  "P x    $   ( 8 H`h x  DXH`      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.00# Copyright2000-2009 ActiveDwg.comC This routine is provided for demonstration purposes only and mustC 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 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]ow] t]]] ]8]X#.####2The first test cycles through ALL drawing entities7The selection set will usually take longer, or at least 4 the time will be similar because both methods mustg! visit each drawing entity once.'First we'll iterate through the drawing dStart the timer 8'&',  !:$  , ',e If str  !<  , ','  Stop the timerA@0 8'( ( & ' pl&We'll build the results as we go alongurre Iteration results- > Total objects:  , > Total time:   > >'.Now we'll do a selection set$Start the timer 8'"'*adSS !@%B.0(Rig+4F*+6 Then 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.'.k8Now 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.'.kPNow display the results .A@HoAttribute VB_Name = "Module1" ' ad_Timerr?tive dengths of1;y iteCrf andNonts7Dev0elopb_AutoCAD 2000abovem"load: -vbarun;!;@Bvers<1.00 CopyriPght0-9 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$