ࡱ> 5  #(%(%(%:%#(%(%(%( %    #(%(%(%:%#(%(%(%( %    #(%(%(%:%#(%(%(%( %    #(%(%(%:%#(%(%(%( %  q l@,-./012346789:;<=?@FJCDE  !"#$%&'()*,-./012345789:;<=>?@ABCDEFGHIJKLMcOQRSTVWXZ\]^_`abhdefgyijklmnopqrstuvwxz{|}~acID="{ECDBE8BC-F7AD-404D-928C-58C8C93F78E7}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} HelpFile="" Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="2123696F6D6F6D6F6D6F6D" DPB="02004AA92AAA2AAA2A" GC="E3E1ABC88DC98DC972" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=UserForm1 00PROJECTwm >PROJECTf44, 44, 621, 587, Z 7, Z , 44, 621, 587, Z UserForm1=44, ThisDrawingThisDrawingModule1Module1rU~}   Qp K*mrU~~~~~~~~~c ?jPk׳F$4  a oli01  n``0li04  n``0li13 n``0lCompObj aVBFrame,ThisDrawing__SRP_4__SRP_5BModule1)+__SRP_2fA Y9   ACADProject ThisDrawingModule1F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ! I0aE1F @u;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD A@0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole44lDc/x!VBE6.DLL 1YP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms aa`}$YNVޖ"6C:\DOCUME~1\WALTER~1.ARB\LOCALS~1\Temp\VBE\MSForms.exd Aaipad_Table  adDataSSYj Ak,_H~UGdA'=zyL$jq#Q /I,KLI#s\ AcadDocument @=9L|K Conn_Mark INSERT DSelect insertion point for table>>G"' GXbPbCMƅ;1UgF D}Cy*6O,HA”ƀdRepeatTopLabels PART LIST STANDARDSetTextStyle2SetTextHeight2 MARK QTY DESCRIPTION8Hl}ATextString   Piece_Marki3DD0* pHd ACADProject8@ = t  RG( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4Dsystem32\FM20.DLL#Microsoft E: ] Ob Library/;D1t00}#0#k0A59247DDW2B5-4@E94-9BAF56BCDE96226DOCUME~1\WALTER~1.ARB\LOCALS@Temp\VBE\U.exd =".E .`M ¢6&¤ThisDrawingGThilDrawng 2 HB1BE,B 4&"B+BoduleT1Go@uB17@ ˜2O QO2&!Hn 4 Zam  *\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 2008 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{59247DD0-02B5-4E94-9B94-AF56BCDE9622}#2.0#0#C:\DOCUME~1\WALTER~1.ARB\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   RG6&ThisDrawing17479b39cfThisDrawing4& n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q<F {0 Panel Information5Tahoma<F{0 Embed Information5Tahoma8F{0 Connection Info5Tahoma8H  }: Table Type( \Type_Panel( \Type_Embed( XType_ConndO n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8F{0 InsertUpperLeft5Tahoma8F{0 InsertLowerLeft5Tahoma8F{1 InsertUpperRight5Tahoma8F{0 InsertLowerRight5TahomaONR KQltBM6(Module116479b39cfModule12& 8ONR KQltBM6(oCompObjpfo[(CompObjYpfUoPCompObjNpONR KQltBM6(ONR KQltBM6(HH   }:  Table Insertion Point R KQDBTahomaD$XInsertUL$XInsertLL$XInsertUR $XInsertLR $ 2 Image1|$ 2 Image2|"$ 2 Image3"$ 2 Image4 n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q8F{1 Entire Drawing5Tahoma8F{0 Selection Only5Tahoma@H  }: What to IncludeR KQDBTahoma`( FJL1UK IO t.E,H01\+ AutoCAD" VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _Evaluate Module1b(ad_TableOfTypeifDatahCadDataSS.AcadSelectionSetadBlock2AcadBlockReference adAttributes adBlockName adNumRowsI adInsertPntadTable AcadTable7adRow)i` SelectionSetsAddrErroClearacSelectionSetAll.Utility1JGetPoint/ ModelSpace_AddTable[DeletexSetColumnWidthRegenerateTableSuppressedIRepeatTopLabels}SetText SetTextStyle2wSetTextHeight22*SetCellAlignmentacMiddleCenter/ InsertRows GetAttributes TextString  AcadDocumentZT   $,rU $`n\l q 0 Pp P . @ H "P Xx 0 . 8 @P  &X@&   )0  6P F  J   ,(:/X \ Z 6X(@ (@ HH`x  Z \ \P 6  b  `  \h $ p   "# #     "#8 #`   "# #  " "#@ #h   <   D F F8 F *      5P "@p   5("    "Hp    @  0 ad_TableB This routine demonstrates the insertion of a Table and populates. Demand load: -vbarun;ad_Table.dvb!ad_Table; version 1.00# Copyright2001-2007 ActiveDwg.comC 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.H]@x]]]]] ]8]P]p])Create a selection set to hold our blocksadDataSS !6%8.If it exists just clear it : B@<k@Set up the selection set filter7= it with block attribute information. Change the variableZ[+FINSERT+o+F (+Get the selection set} >   B@H~x0With the data collected we can set up the table.?Our table will have 3 columns: 'Mark', 'Qty', and 'Description'DOur table will start with just two rows for the Title and the Header`'*%Let the user pick the insertion point@P"Select insertion point for table>> !@%B',UCreate the table. We will create it with 3 columns each with a width of 61 and adjustPS them in the next step. Figure the total width of your table and divide it by your``/ number of columns (3 for us) for this figure.@ , *B !D%F.. : .B@Hnal , *B !D%F..kAWith the table created we can make the columns the widths we need( .B@J( .B@J~v .B@JTPopulating the table cells is unacceptably slow unless we set the following propertyM{V to True. This is because with each update AutoCAD wants to recreate the entire tablevbU from scratch. Try commenting out this line for a test but be sure to save your workBa/ first in case you need to kill the process... .(LP7@\This property repeats the Title and Header rows if the table is resized using the Break grip .(NM{ The title PART LIST .B@PSTANDARD .B@R .B@TM{ X .B@VThe column headersMARK .B@PoldSTANDARD .B@RM{ .B@T X .B@VRQTY .B@PfilSTANDARD .B@RM{ .B@T X .B@VA DESCRIPTION .B@P200STANDARD .B@RM{ .B@T X .B@VC6Table rows are Zero based so our first data row is '2'{'2 "  2 .B@Z "!\'&$ and data to create a sorted list.UBound 2$&!^ .B@P 2 .B@TextSty 2 X .B@VDA 2STANDARD .B@RextHei 2 .B@T8 2 X .B@Vli 2$&!^ .B@P 2$&!^ .B@P 2STANDARD .B@R2 adRo 2 .B@T0 2 X .B@Vei=Now we will add a row for each block and fill in the row with, 1,? the block attribute information. The information is unsortedTe? and so you can add a routine to populate an array first with? the block information, sort the array, and then add the rowsad style settings in the macro 2 '2 " B@H .(Lo  2STANDARD .B@RD452EEUAdd the table text. If Table styles in your drawing are set you could remove the celle maDelete the selection sets :Restore the Table Regeneration and the table will be built8D It was developed for AutoCAD 2007 and above. (Not tested on 2006.)VBE\xMyBlock'()This is the name of the blocks to collect> 'adBlockName' to the Block Reference you want to collect.g XAttribute VB_Name = "Module1" ' ad_Table` have 3Aumns: 'Mark', 'Qtya'DesBt `st B"3x}r2M>>* 3A. W:ec4f eacha`dɀ%61ad!pZ a+m+n5 xp. FiguP_otawi$gRBdi!r4bylRnumbaGQ (3b uls) !dfB r A4adE{ elSpace<h(adV,@@, 3, 18, 66P> :C<.D`Gt07UDe"TA'0d 0makӗ5re n8eed#%S Co lW0, 4 I1t218PS ells IunaccepQy slow `unlesR [hze@lP0ty {True.P becaay2*upBe:e-aT  from 0@at$chryBmmangdlq?da @t !s1-o sF-worksirst1pcase-raXkїc..+T+.RegeneSupprPO, 1^ppHHJif2usB?@k grip"ReTopLabe@%RqXt@?.2b ?yrd#u a@@uPzc"W1^g#nmPacroTp"tQW `-T  , "PART LINSl-aSt 2STANDARDoHeq,12zC Alhign# `3 acMiddleC%#| : ïu q MARK? ( s/ Lwt% 1R?/ / . J"QTY "R|  t0\ PK"DESCRIPTIONO K C" O O O"A";{s are Zero based so our first data row is '2'  adR<= 2!0 'Nwe will6d ^for each block andBin thewith~ 'ttribute inBmation. T2unsortedA_you canutine to populaVrray4R,rtOa,fo8CompObjpCompObjprU )4Qay\`ecause with each update AutoCAD wants to rec<jx6&4&#<H~UGdA'=zyL$jq#Q /I,xQ /I,H~UGdA'=ME(SLSS6"N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} (%H` % %`h8@0RG$*\Rffff*17479b39cf4 xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit 5 adTable.SetTextStyle2 adRow, 0, 0, "STANDARD". adTable.SetTextHeight2 adRow, 0, 0, 1030-;9 adTable.SetCellAlignment adRow, 0, acMiddleCenter5 adTable.SetTextStyle2 adRow, 1, 0, "STANDARD"08F-8 For i = LBound(adAttributes) To UBound(adAttributes)] H < 4B@EEAttribute VB_Name = "Module1" ' ad_Table>>!V`df. tWe%ciuxf Peacha`d0z%61ad!p +m,n5 step. Figup_otb ӯ<.DGtrTisuDeBTB'0d 0maker5re need(SB8tCW0x, 4@J1K218-PsS ells IunaccepQy slow unlesR [he@lpPty%o Tru e.ZbecayR2*upBew0lbOre-at from 0@atchryBdmmang0dl?a pu0e s-o sF!-worksirst1case-ur kc..+T+.Re0gene1SupprPO, ^ГppHHJifRusB?k gHrip"ReTopLabe@%R qXt@?T0tQiP9T & "PART LIScf'aStyle2STA`NDARDRiHfeQ12zCA (Align  - acMiddxleCv c4 ?҃u q MARK? ( s/ F6% 19/ / . J"QTY "v  tU E"DESCRIPTIONO K C" O O O"A"5am@Zero b`>d۱qf?i28 n```<Ofo4CompObjprPN7d'2ad F Ev4@ [,s`#j1E8=1w ipLBoundh/es) To UBound(adAttribut adTable.SetText adRow, 0,$P(0).A+:FINSERT+<.+:F Conn_Mark+<M{ p!* : < >B@r_PEdF J : < >B@HkH'\Z T >'b T!t'XA$X!x$v'f f'htLa hKTFba f#'l0 f'fkKTF" f##L'l f#[A-Z]etSt0 f'f f[A-Z]#eM{'l f$0 f$z'f_PLkKTFPl f [A-Z]#[A-Z] f$z'lM{ f$0 f$z'fA f [A-Z][A-Z]#e'l f$0 f$z'fM{k KTF{ f[A-Z][A-Z]#[A-Z]A f$z'lVBa f$0 f$z'fM{kSF f  f $|pkhn` \ Sa d Z ZM{ d$Z f d$Z d+Z"'bk dVBak benu f \+ZM{ \+ZM{1 \+Z \ '\kX|P Tox. >B@P Z$~'^ Z \$'`ZWo]]]]](]@]`  '"Select insertion point for table>> !%'le.2Determine where the UL corner of the table will be=First, get the insertion point from the form = UL, LL, UR, LRr. !*$+F$+F$+TE !*ea$+F$   +F$+ !*e$ +F$+F$+ !*e$ +F$   +F$+k8  = !%. D B@P  = !%.k= B@= B@ ( (Add the table text The title CONNECTIONS B@ARCHD B@ B@The column headersMARK B@ ARCHD B@ B@QTY B@ARCHD B@ B@The Connection information' d Z Z d$Z d$Z0# d$Z$z d+Z d$Z0#[A-Z]e d$Z$z d+Z d$Z[A-Z]0#e d$Z$ d$Z$z d+Z d$Z [A-Z]0#[A-Z]e d$Z$ d$Z$z d+Z d$Z [A-Z][A-Z]0#e d$Z$ d$Z$z d+Z d$Z[A-Z][A-Z]0#[A-Z]e d$Z$ d$Z$z d+Zk  d$Z B ARCHD B@  B@   B@  d$Z B ARCHD B@  B@   B@  'k d (iX x]](]H]h]]]]]]]0]H]`]x]DataSS !B%F.>+:FINSERT+<+:F Hardware_Mark+< p!* : < >B@rdF J : < >B@Hk'\  >''b !t'$!x$v'f f-'  f'h f  $'j f h  $z'l'f j l'fk f[A-Z]# f$0 f$z'f f [A-Z]#[A-Z]e f$0 f$z'f f [A-Z][A-Z]#e f$0 f$z'f f[A-Z][A-Z]#[A-Z]e f$0 f$z'f f  f ek \ d   d$ f d$ d+'bk( dk b f \+1 \+ \ '\k  >B@P $~'^  \$'`oX]p]]]] ]( ]H  '"Select insertion point for table>> !%'2Determine where the UL corner of the table will be=First, get the insertion point from the form = UL, LL, UR, LR !*$+F$+F$+ !*e$+F$   +F$+ !*e$ +F$+F$+ !*e$ +F$   +F$+k  Q !%. D B@P  Q !%.k@Q B@Q B@ ( ( The title EMBED LIST B@ARCHD B@ B@The column headersMARK B@ARCHD B@ B@QTY B@ ARCHD B@ B@h The hardware information' d   d$ d$[A-Z]0# d$$ d$$z d+ d$ [A-Z]0#[A-Z]e d$$ d$$z d+ d$ [A-Z][A-Z]0#e! d$$ d$$z d+ d$[A-Z][A-Z]0#[A-Z]e d$$ d$$z d+k  d$ B@ ARCHD B@  B@.   B@  d$ B@ ARCHD B@  B@   B@  'k d# (ix` ]  ] ]0 ]P ]h ] ] ] ] ] ] ]0 ]H ]` ]x  On Error Resume NextDataSS !B%F.> DG >B@Hj+:FINSERT+<+:F Piece_Mark+< p!* : < >B@rdF J : < >B@Hk'  >'' !t'h$$!x$v'f f-'  f'h' f  $'j f h  $z'l'f j l'fk f$[A-Z]## f$0 f$z'f f$[A-Z]#e f$00 f$z'f f$ [A-Z]##[A-Z]e f$0 f$z'f f$ [A-Z]#[A-Z]e f$00 f$z'f f$ [A-Z][A-Z]##e f$0 f$z'f* f$ [A-Z][A-Z]#e f$00 f$z'f f$[A-Z][A-Z]##[A-Z]e f$0 f$z'f f$[A-Z][A-Z]#[A-Z]e f$00 f$z'f f  f e@k8  d   d$ f d$ d+z'k dh)k ) f +)1 +)$!x + $!x +  'k  >B@P $~'^  $'` o ]X ]p ] ] ] ] ]( ]@ ]X ]p ] "Select insertion point for table>> !%'  '2Determine where the UL corner of the table will be=First, get the insertion point from the form = UL, LL, UR, LR !* $+F$+F$+ !*e$+F$  +F$+ !*e$ +F$+F$+  !*e$ +F$  +F$+k D !%. D B@P D !%.kx ( (< B@< B@`T B@ The title] PANEL LIST B@ARCHD B@ B@`The column headersMARK B@ARCHD B@ B@QTY B@ ARCHD B@ B@XWEIGHT B@ARCHD B@ B@The panel information''4 For i = 5000 - PanelQty - 10 To UBound(PanelArray) d  ` d$ d$$[A-Z]00# d$$ d$$z d+ d$$[A-Z]0##e( d$$ d$$z d+ d$$ [A-Z]00#[A-Z]e d$$ d$$z d+ d$$ [A-Z]0##[A-Z]e  d$$ d$$z d+ d$$ [A-Z][A-Z]00#e d$$ d$$z d+ d$$ [A-Z][A-Z]0##e d$$ d$$z d+ d$$[A-Z][A-Z]00#[A-Z]e d$$ d$$z d+ d$$[A-Z][A-Z]0##[A-Z]e d$$ d$$z d+k@  B@  d$ B@ ARCHD B@  B@9   B@  d$ B@  d$ ' ARCHD B@  B@   B@ d$ d$  d$$v??.??0 d+"k d$  !%' ! #'  ' $z' '    $' , 'k 1#G'jP"   B@ ARCHD B@  B@   B@  'kH dAdd the panel qty total  B@   B@ ARCHD B@  B@   B@ (ix  " " ]]]]  "G 'j  "G 'j     '  $' ' '_  $  b  'p  $  bN  '@  %    A@  '  'Nk   *N  &     A~     A~ dx     A~ "5     A~ ((k ki0]] X  (  $ +  2  $  + h   $  +0o(p Attribute VB_Name = "UserForm1" " Bas0{641CE335-6A2C-4088-8B9C-DCE6622D3491}{53337540-9785-4AF0-B047-D0BB731B9A2B} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCustomizDP Sub Connection_T() Dim fType(0 To 1) As Integer, fDm  SSAcadSel*8Set5BlockReferxenc<sA Varian@Array((S ngEhCou z(Ii \LBQkBqL)}U?t?hFOi, 0_4; cyP=Qy+ 15!vR!1B ! icytVZJ] 3 ~t> 'Determine wh the UL corn`er ofw ill b&'FirsP0get^romm@G UL, L0URpR QULߞ!F`:`1)"8llcL/"/#. + 6- 18/ / sePKc\UR__- 6 D0(=tL` 8O End If  0Set acTable = ThisDrawing.ModelSpace.Add(StartPoint$, "Hg2, 18, 61)If Erren .Delete&Ov.cColumnWidth 0}1RegeneratewSuppressdedruf'RepeatTop@Labels  ' the Bttext Titl #[TWY"CONNECTIONS"LStyle2ARCHD@Height 12"cBK headersJ$HAMARK# $# 10#8 "QTY   'cConnection informaBRowuBLFor iLBound(G Array) To U (i, 0) <> ""Ϙ Like "0# = R_~*xbw E8lse`xe[A-Z]!2?C)= Left &_"" _""$""96'J'd2)'#]'X"H(!>CallCellValue(ac*,lfY̭j AAlignmen!acMiddleCerE2uR@ 2)v1bh4 V")iݏtCe"}`PZ X+ 1sNvi< q/'FaQ!FunbPriv@ Sub Hardwa(re_"(Dim fType(0a1) As Intr, fData1SSqAcadS?(5BlockRefer8enc2qUAttributesVarian@ Jk( SnghCntGT oSorm` ShowB hFsBool,ea¢i A0_strqK lp2o Lo Len? tmpW_πq On~Resume "q 9sA("s"2 )) 0:5"INS8ERTC!= 2E"u_MarkzInclude.JP^T04lOnScre$({n: P All, #$= RReo&500PPCXAEach42  $= T9E.pE.GetW0#C%prim((0).SMr0bf4In&(G2, "-sq` ?hС*щn(?dE*- a ,C+啤-"#35E&V{jqU ^BAP"0"vçr _0 c2&P>~?B G; ~ 3R- ,vtc T " " OR`͔aGoTo NextHardware End IfhIf hCount > @0 Thend For i =H LB@d(A@rray) U+0~ g 5(i, 0)RA_str n-1-+ 1 i hF[Tru) xr  i#FalseQD iIg"1"=ÈkM:DataSS.Delet} aiSortD_q., 2) ShowTable Draw1MC.)Sub Func tion \ As VarianDt,F2QtyI@nteger%Dim Hgt*InsertP@Staoint(o@9qDou7@.Pe[iPac$AAcadEacRowALongAD /= P:+$ 2=@isOing.Utility.Get*, "S@yct i>Zp0 f@"tn>>"N 'DArmine where the UL corner ofB will bA@G'Firs`2get rom mDUL, L)`URRBf UL.Valu?aIAr(iI3{(0): e1v2kXEvLO_C_I +':- 18 _UR" @+@ 62#[F^Lp# )?$G6f!HS`OelaModelSp@ace.Ado(-E,3`,@3, 81ˆBErr(P ( 2C ` ColumnWidth 0!A)R`wateSuppressed F% RepeatTopLabelsA~ titl;bTa "EMBED LISTj|Style2ARCHD1HeightY12Q c2 headers " 1j"MAR~Ks.'10   "QTYok`oo0e'ht]Uaate= /}y/reaϘĘ

""1Like "[A-Z]0# 6|eftkP2`) & R1!0)C ]s o ïo oco ?e JRsfo ) h BLro i SNo  o #/  q ' / 7>\:?8Qe@J39>CellAlignmeЦacMiddldeC`er5 tBE<-7)' sVDC"V t F 2 H~Dؗn!?k?7kRց!PrivPn Panel_T(2 fTypep, fЕ3ECг aRBlockRef9ncRrA"AttributesdJS)S p eڿWٿpBoolea:i As Integer Dim A_strString!XlposTLocLLen* tmpLeft2 !0Righ 2 ' On Error Resume Next|Set DataSS = Thi sDraw.Selection!s.Add("'")7IfO1.CleafType(0)aQ0: f"INSERT" 512"Piece_Mark6IncludeK.Valu eZrThenf_OnSclreQ6,EE0lse:| acyAll, nd If"pCounttRePanelArray(50`00, 4LF@`Each   B= 0)CpFdFa@+tbut esB.Get>AF CÛvrim(Le.T( In@(1,, "-} ~B*<> 0B = @(OŭAft,1=- 1 ñ= w D- 9"K = &ABE+ErA E7 UCase) Like "[A-Z]##";)& "0" & /2O ,% "0 ( # N3_$'_ B)'4B _5tr, 2)(_55Bc _(F 5 { 6P6 )B?8.7f`" " OB=@rGoToB" wHvİi9LB$A) @ Ue `t#Bi, BڣK#B.+ 1  ]6^TPlI B ip b\Jhsߙ GoQFp1hUOQ4=l'h(1)ew?q3!cl(213%:Q rDte1zSorA|a_{ )|ShowTa|bl%,&  R Sub FunB $QVar iant, Qt>yAD"WQ"Hgž Insert>PpaStaoint({o@Dou 5] Pm Wea`xW @|@ < bÕacaAcadA acRowL[UtilxityS &iB p f堛tq>>qGA0+ 3'Determine where the UL corner of will b )'Firsg`Nromrmp0UL, L0URpRfPUL/ ) w7:BL1)f=& ;DCL/T/+/P) + EsCgUR  - 204oIokof S-? 1 ́e5;2ModelSpacea(, 38, |68IhHht.W@(.e 1UR`6ate" SuppressevpeatTopLabela"U Column@Width 61, 60 acTable.SetColumnWidth 2, 84| 'The titl"e"QTY>("%>>"WEIGH]c@ )? panel infor@mationEacRow = m PACount@M' For i@5000D -C Qty10 To UB d(BArray6)AE LN LIf(i) <> "" @ B, @ UCase ) Like "[A-Z]800# D8= Left, 1) & RAA8A"Elsed###`m2-l#b$$$_f 5]0##_ 0) Q6QC, 3$M*HHX2H7 7CI$ZIbr$BJJ!% ?nE%JJnd@Insert`s78` ߗ{"Z),Q7o|c|c|jCd@CellAlignmec7acMiddleC`erE L 1;=i+l[ԍ Cz<}\lcoo~,`ow@dB i33QEpoOr  "B TrimW3)??.??8k 0E,WDThisDraw.Utility.Real ToSN * 1 50 + acDecimalVu & "#F 1pLen) > 4 tmpWgQ"Hh|#, 4% S'+ g$-zK,"c e!# "1 w( ,,E6pD D㤟2`fJ2c22D0DA92;s &s NтiAdd tӯq`totalEY1Y[J"I0F, *oF@[WwFpWA eRegen erateSuppressed9`Fa@Func Public % Sohrt_CvbQVariant, :_i2Intr, iNumber_sOpaa5 vbdMissGd=B>|iC&  bStepuvarTestV@/F`\<:iR = "J udsGaPRight = vbdMissing Then iUBound(vArray) If iLeft <Rj: iMid (H+H) \ 2HvarTestVal`(8, iSort_ColumnsUCnTkSteNpADo Do While (iK hfI< + 1 Loop4O4> 4f-5I<=Swap_Ele`ments~FNumbers@ 3Z>) +End IfGJ Until _ >,A33M3Call r-, _G@(:D: ?@CQElse %1nA$):eFunctionb Private Sub O(vItems As Variant5iC}"Integer m1K2H,D|impAvTemp()!D9!RegeB ForD = 0 ToK Us iM!Y)a(i2!Next  1  ? !!8@5 +F$+F$+1. !*el$+F$   +F$(6&2&xME @ V 6 "LLPLLLLPL :d0 `|Joo<H80 %@%`, `2 5`d   '@P%`< J`0&8 <% T`,(  @ @ @ @ x`d `@@XRG$*\Rffff*1:47975855*\R1*#198*\R1*#121*\R1*#13d$*\Rffff*1;47975dc8*\R1*#17a*\R1*#192*\R1*#193*\R0*#13*\R1*#193*\R1*#e*\R1*#194*\R1*#8e*\R1*#90*\R1*#be*\R1*#8c 8 P X H` 0` 40 4    *  J JX : N >8 Px P . H p " x  (0H 0x P 8 @  &pB8&     6 FP  JX  ,: \ ZH 6 (@ H(X H(   Zp \ \0 6  ` b      "  @"  "@  " "h h  <    ( "@H h  "   8 < 4 @  `  p    h 0]]8]] Dk]adDataSS !B%F.&Set up the selection set filtersi J : < &B@H_MarkGet the selection set00  &od !t'righIf it exists just clear it0With the data collected we can set up the table.?Our table will have 3 columns: 'Mark', 'Qty', and 'Description']]]]]"Select insertion point for table>> !%'2able>>v 4B@able 2 0B !%.4 D 4B@Pfk 4(@ 2 0B !%.4( 4B@( 4B@' 4(Add the table text The title'<  4B@oThe column headers) it with block attribute information.. Demand load: -vbarun;ad_Table.dvb!ad_Table;rmatSTANDARD 4B@' 4B@ MARK 4B@'. It was developed for AutoCAD 2008 and above. 4B@B@ 4B@ version 1.00# Copyright2001-2007 ActiveDwg.comC 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. ad_TableB This routine demonstrates the insertion of a Table and populatesQTY 4B@d d  B@ 4B@DOur table will start with just two rows for the Title and the Header\'0 d'<  &B@P%Let the user pick the insertion point  4B@ &B@HUCreate the table. We will create it with 3 columns each with a width of 61 and adjust8S them in the next step. Figure the total width of your table and divide it by yourr of t/ number of columns (3 for us) for this figure.ro/ first in case you need to kill the process...s < '<AWith the table created we can make the columns the widths we needTPopulating the table cells is unacceptably slow unless we set the following propertyHV to True. This is because with each update AutoCAD wants to recreate the entire tablePU from scratch. Try commenting out this line for a test but be sure to save your work PART LIST 4B@STANDARD 4B@ is re\This property repeats the Title and Header rows if the table is resized using the Break gripSTANDARD 4B@titleSTANDARD 4B@ DESCRIPTION 4B@6Table rows are Zero based so our first data row is '2'MARK  4B@N  4B@ < d$ 4B@ < 4B@B@ <  4B@ < d$ 4B@ < 4B@ 4 <  4B@9 adTable.SetCellAlignment adRow, 1, acMiddleCenter <STANDARD 4B@d8 <STANDARD 4B@$z 4(table_)Create a selection set to hold our blocks+:FINSERT+<2 adTable.SetText adRow, 0, adAttributes(i, 2)+:F ,+<  Conn_Mark',)This is the name of the blocks to collect5 adTable.SetTextStyle2 adRow, 1, 0, "STANDARD". adTable.SetTextHeight2 adRow, 1, 0, 10ӸAttribute VB_Name = "Module1" ' ad_Table>!V`dc. We%cfA& eachaM`dx%61ad!p +m,next step. Figu]ot`wi$bQ3Bdip5byBkRnumb``colQ (3b us) bfB a4ad#D{elSpace<5(X,`@, 3, 18, 626p> <.DFtRisuDeRB'0 d 0maker5r`e n8eed(B8tCW0, 4wJ1118-PS ells Iun accepQy slow unlLesR "Zhe@lOЈty%o True.Zpbecaxҡ2*ujpBe6wjbOr>e-a from 0@atchIryBmman6gb4la?a 0u0e s-o sF-worBksirst1cXase-r 0kqc..+T+.RegeneSupprPO, ^Pp? oHHJifOҚusB?k grip"ReTopLa|be@%R qXt@?T0tQiP9T & "PART LIScf'aStyle2STANDARfDRiHeѷ12zC (Ali4gn !+>cMiddleCv c4 #Ru q MARK? ( s/ F6% 19?/ / . J"Q|TY "v  t1$  "DESCRIPTIONO O 1pO"NO O O /5amZero b`>d1f?rPN7'2ad FEv4!U,h=BwiLBoXund0f)U_m. ,18adAttributes(i, 0) adTable.SetTextStyle2 adRow"STANDARD"lHeiHght n10^CellAlignmentiacM@iddleCer: 7 1%ݾ1nnn''o2o ރS o8 o eQ8N ip” =Cn + 1adBlockadDataSS.Delete C:Rege@nerateSuppresseBd@Fals End Sub `-1 Ut| , ";p"tL>>QЈDemwh "UL\rn t" 2bA!'Firs*gǔTromɀ= UL, L0URpR f UL.Valua84q@:`b1)r2#UfcL/D/! $/P1G +s1p- 18/ / tUR_a yQgX62: StartPoint(1) = Insep 2 t2) ElseIfhLR.Val$ueTr ThenH 0 - 1 + TableHgt .8 nd If}Set acBhisDrawing.ModelSpace.Add(,;, 2, 18, 61|zErr q/.Delete:{N;Ek7mColumnWidth 0P> 1Rege@nerate@SuppressedDr peatTopLabelsH 'P the tk textH titl;E%T+,"CONNECTIONS"A k.7 Style2 AA ARCHD H eight 12 "cBK headers$HAMARK# $# l10#8 "QTY  'cConnection inf0ormaac!Row:"&For iLBound(Array) To USA pB l(i, @~<0> ""gXLi@ke "0#  = Ra?Mx=bw e[A-Z]!?C)= Left &_"fY"$""96'J#6''@)'#]'Xb_(_(<CalBliVCell{(ac@@p,_6F4_ZSZ]JqVZJJ:! Alig0nmen}e acMiddleC`er%uR_/x 2)h4 V")itCe1wK,BPZs+ 1sNvxi q/'FaP!Sub utbui a panel or connxectP}@RB ing elevBons, andGB6emb)listN f@ayouts H ItUur @ %twofpold:d#vey the(W@with qty!/we?&{6L, &4ns'oF#harldw{sB!@#sa4ach C\OpS`licit C't vb dMiss*= -2 Pri+e Sub cmdCancel_Ck()  Unload4 M lE/ OKG'CV'corr: fun;o draw"= If Type_PA.Va lu~az The nA .Hid/`AZ _p E% E(? @ " H* @'n e CY Exit.A!+If 4,_Initialize3'De r@mine t ( of+;a Dim f!+(0 To@ 1) Asrteger, fDO@%aSSA@cadSelCSe@H On EDrr`lResaNex $=@6XisD`<. s("c"J@5` <  s.AddkSS.ClTea )0:"INSERT҅"= 2"Piece_M#` All, !b,*A@Count <> 0&Yt]! a [Index!QdۀO#1K1Ap D t7+Q1e v9)Q GA T 3`> 1PB(0111 " 1BB 'Rqd8 1p.11ir1]ksgBox "Blocks@ Not FAd.@F_xydx/]/]^3 /]#]Ur Refer^eЀwvsV`arian`Array(bgSnghQ SortqInjShow0hABooGBi A_strqK Len tmpLef" R៿yQ ssso}<<<<9@luden ~qOnScrepA:BB!q1'3#= R;Re&y(5000, 31P Eq.In t#f=)?o.es0xg.xGet03%ЏrHim(esPW.T$2 !'t= P("CUC!Cc1ʡ`f,Like "#" tmpRight = "" A_str`0" & 4pE nd If4Ca se 2:4IfT Like "##" Then< Else 9[A-Z] =C B# [= Left(3, 1)}}" h3?F3+O2)OFCQIF2oF>4ZFC$BG, ?(G ) " Orƈ" ˵GoTo NextConnectioɈSelh@hCoun t > 0FoHr iLBd(Array)Z U (i, 0)[C0 (=+ 1g hF!a` True yB$ i)!FaV!c&I 5@y"1栄3= FeK>bGA(&!aDataSS.D?t#9Sor_=1, 3zaShowTable@-DrawgcReDimN:0) Sub FunX y As Variant,H Qt"Integer"aHgtdAInse8rtPb' eSta@oint(`eo|Dou`!eP;iacBa!Acad% acRow!Longa"!= (/+=Yis)ing.Utility.GDet, " &i p fEt=>>"' 'Determine where the UL corner ofB will bM'Firbs 3get r,omm`%ULH, L0URpR 9 UL.Valu'q>h:!F(0): 8~1"8ZcL/V/$/PG + 6- 18 g/ `* UR_a yWG62ω tLN 8;uS'u60ModelSpace.Ad7(, }08, 61D0)Err(8Vo0SQ8oeo0>m!R ColumnWidth ݠT6q1 !15RR "4G 20åSA TQ5//!= C P"INpSERT=, 2"JMarkbInclude&D.B pTruehcOnScre%DP{ :dgOAll, !Nj $F= Rea;eq500!F`-Each&h d$ = $H= ra ]= .Get`C #K8rim((0):.÷r <8In`M(@b-<2<> ~Tn(B T{-PC3 C+=T-0!f"# 5E& RuRU ^R,aO& "0"vr#_ c2?0V~?B G;2 $~ 3R- 1" " ORD " ۞GogL.;0<,q:ri$LB!\W3c)mUy( F9@2 s  9i2Q_)W~a1fBP- ]LkFxUa% wnt10= "19= ֋ Y:$_DtA{= a_# "Y|= n Sub񑵒/#1x, Qt>yqą$dHgmpcsertP#Staoint>i 'Determine wh the U L corp oFf" wibA#'Firs*get^rommP/UL, L0URpR fdUL ;`x:?1)=' (c,YCL///P)wGz8/ / tURYe Then  StartPoint(0) = Inse8- 162: R1 1) :2 :2)ElseIfLR.Valu2eiTrG + TableHgt 8 nd IfQSet ac!NhisDrawing.ModelSpace.Add(,;, 2, 1`8, 81|zE rr/.DelHete: O;Ek71ColumnWidth 0PAIRege@nerate?Suppressedq peatTopLabelsF '@{ ti tl>HText%@&"EMBED@ LIST"A e.@1 Styl e2D  ARCHD HeightY 12D"cD headers $1,"MARK# $# 10# 8 "QTY?  1deHclaIdTru BExposeTemplateDerivBustomizD2Option /licit ff*0`47972541$*\Rffff*0_479724ae$*\Rffff*0a47972541*\R1*#17a*\R1*#194     8 P BX 8 : , ,H x V . . D8 4 Z   "( 0 J@N acTable version 2.00 4/13/2007$%&< 4/13/2007 - Updated to add AutoCAD tables programmatically2 9/10/2002 - Updated to accept mark nos up to 9993 - Updated to accept blank volume fields& Developed 04/05/2002 by Walter Blair% Copyright2002 Arban & Carosi, Inc.O This module builds a panel or connection table on building elevations, and an( embed list table for embed layouts.' Its purpose on elevations is twofold:> to convey the panel marks, with qty and panel weight, and8˜|. to convey the connection marks, with qty,S Its purpose on embed plans is to convey the hardware marks and qtys on each plan. B@D ThisDrawing.SendCommand "_vbaunload" & vbCr & "acTable.dvb" & vbCr;(c)Arban & Carosi, Inc; Woodbridge, Virginia; (703)491-5121 !B@ oAttribute VB_Name = "Module1" ' acTable8version 2.00|4/13/2007B - Updated to add Aut@oCAD ts programmaticallByO9/10O2 >ccept mark nos DupT9994  s4blank volufields5DevelopO04/05:by Walter BlairCopyr ightt2 Arban & Carosi, 0Inc.This m bui5 a panel or co`nnect ing elevons, 8and(memBbRlist f% ayoutBs? Itu`rpose,( Jtwofold:*ɀ#vey 8the(W@with qty!/|we?&6L,W &4p@fs'oF#hardware{sB!@#s40ach C\OpSExplicit Sub BA^­() UserForm1.showC#jDraw@^.SendCo@]"_vbaunload"xvbC r".dvbIUtility.Prom"(c)P; Woodbridge, Virginia; (703)491-512AE"2 93+87" " 8Or  GoTo NextPanelndrU @n)@+)A 1 + 1  pFC%@TrueE8AA iEK?Fa@rU 9a4\`(loDou`!e@P;iyB(WeAFAt8mpWcDr6&4&#<P&9jI}8¡ ߊzyL$jq#BjۚQL.]xBjۚQL.]P&9jI}8¡ ߊMEhardware informatioacRow@7A%For iLBound(HdArray) TXo U l (i`*) <> ""HcLike "[A-Z]0#+ 2 = L8efts) 8& RaB Q*h?㨡%%ay0%%%"_&[&}H&ơA;-}]}P>umqAL ecrj CellAlign8men`rbacMiddleCertnj~xVd C"VQ VJ e\ w:>,^ Hs+ 1nNdi q5 ?k7kFa@!!FuncsO PrivPn Sub Panel_~}Dim fT`ype(0QOA sptqr, fData1SS pAcad~SlRBlockRefeprencRrA"AttributesVariantJX()SngpCp[tqIn Sorm Show1 pF`Boolea"c i A_strqK lpo Lo Len? tmp?S_\~ On kRespume 1" ]d=hws("s".Cg7T!1K0: "INSERC@""Piece_Mark~Q cludef  sOnSc|re@T)qc:6PAll,> &T$= Re*(50:0PP4"Ea#.Ҍd"0"ƕt~o_2C[2& "0oGlod# / 36)Q_RB ҵ"0" & Right(A_str, 2) ElseIf UCaset) Like "[A-Z]#" THhend  `= Lef"01+#r(q3+p7" " Or" GoTo Nex@tPanelnd If pCount > 0For i%Bd(#Array) -U A (i, |0)@C/)A 1# + 1  pF%@True=E8AA iEK?Fa@@?!II2 B1"1 " 2:ttributes(1).TmSng32y= SDF:AM6ADataSS.DpeletB[BSort0_(E1%, 4fShowTableDraw j# ASubVFunction 6 As Variant, b QtyIntegerDim qBHgthAInsertPb eSta@oin4t(`eo`Dou eP;iyWeG?At8mpWcLe>n zacâAcadgRow!Lo#O%'"=cis/ing.Utilit y.Get#, "SCct i(a5pa! f t>x>>"0 "0=g5+ 3A='DLrmine where the UL corne0r of" w ill b@R'Firs?getrommP UL, L`UR%R"f UL.ValuThI@o#(0): 1~L_P_ +&_jUR"P_- 204o9 otLԃ "?Cℸ00^@<}J)زߍ#@\cO M3?x / x0#A / C}/ * /?Z"a$e Then PanelArray(i, 0) = Left( \, 2) & Righ81)ElseIf UCase) Like "[A-Z]0##"S260#MKK3Knd IftacTable.InsertRows ac0, 18 G SetTexbt 0, @ D Style2"ARCHdD"X HeA 10T CellAl@ignmen)acMiddleCer81 8Gǁ?Cou=CB+EK E@E""`";3"" Or  "Trim3)??.??kq 0BE*XWBThisDrawing.Utility.RealToStr * 150 + "Decim 4tmpWgt" C, 4v @  GVg D-  ,"# /BC A1AH'l2l?e ?e)e`3eg" "@L'Ni 'Add the pA qty total#$4)p-"7RH?Xw^/, :X0WmA eRege@neratebbSuppresserd`FaЇF@unctio Public % Sort_cvb As Variant, _i2Colum"nIntr, iNumber_sOpapal i5 vbdMisspFd=B>Dim iC`c  b0StepuvarTestVFm<:S = "J Bkd(sGa iUp< iA (= (c +D) \ 2q u hh !b=3 giR`" wDo Do @While #( <(   q?S Loopo > R - 1a=! < [!Sw@ap_Ele1Ns0`PA F P b Un{> R $ Call_@a A=:?# =% LES(Y K 585OqG[Pp[riv^ Sub '(vItemWol[oY 1N$2(BT%/VvTepmp()!$R6e1iForE=P_0 To*dsQ (i pirqPsfx`xiLYoop) NextpFor iL = 0 To iColumnsp vItems(i1,)TvTemp(pEnd Sub h !b=3 giR`" wDo Do Whihle #( < '   q?S Loop > R x- 1a! < [!Swap_Eleрs0`PA ? P Un{> R $ Call_@a A=:# =% !LES(QYv < iNumber_Columns, iCnt(Right) Call Sort_Arraxy(v T&~, _ dLefStepEnd8 If9 Fu@nction Private Sub Swap_Elements(vItems As VarliaiInteger,12 NDim iLoop E vTemp() 9 Re =%For%= 0 To &!5) = g(iT2XA#Nexnt's+1+C/')Apj 4= \1\NextForZXp0 To~T0emp(fNEnd Sub )491-5121G"' GX DataSS=9L|K44lDc/x! INSERT Piece_MarkCҋB `ƏYl| Hardware_Mark Conn_Mark "Blocks Not Found.VBE6.DLL   S 88Hl}ATextString -  [(SLSS6"N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} (%H@h % %Xp@@0ײ<$*\Rffff*0a479725414 xpаAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit arTestP{Fp<K@0|*Ղ1pO?ᯄxW|BIh&LtyiJMHZ{lFWJO cmdCancel!-6S` InsertLLInsertURInsertLRYL&i eImage1Image3 Type_Panelȏ[qJ eUserFormAA DnQi9l F3Dynamic ) Q ?F`Frame1Frame2InsertUL Type_Conn Type_EmbedImage4Frame3Image2IncludeSelection IncludeAllcmdOKcmdCancel_Click cmdOK_ClickUserForm_InitializeConnection_TableDrawConnectionTableHardware_TableDrawHardwareTable Panel_TableDrawPanelTable Sort_Array Swap_Elements  v(c)Arban & Carosi, Inc; Woodbridge, Virginia; (703)491-5121Yj Ak,_P&9jI}8¡ ߊzyL$jq#BjۚQL.]KLI#s\ AcadDocument @G"' GX DataSS=9L|K44lDc/x! INSERT Piece_MarkCҋB `ƏYl| Hardware_Mark Conn_Mark "Blocks Not Found.VBE6.DLL q  qS 88Hl}ATextString -  [A-Z]## 0 [A-Z]# 00 [A-Z]##[A-Z] [A-Z]#[A-Z] [A-Z][A-Z]## [A-Z][A-Z]# "[A-Z][A-Z]##[A-Z] [A-Z][A-Z]#[A-Z]     1 q X qi x qk  q  [A-Z][A-Z]00#GsHnEwяXhx DSelect insertion point for table>>bPbCMƅ;1UgF D}Cy*6O,HA”ƀdRepeatTopLabels PANEL LIST ARCHDSetTextStyle2SetTextHeight2 MARK QTY WEIGHT [A-Z]00# [A-Z]0## [A-Z]00#[A-Z] [A-Z]0##[A-Z] [A-Z][A-Z]0## $[A-Z][A-Z]00#[A-Z] $[A-Z][A-Z]0##[A-Z] ??.?? # , 1# ## #[A-Z] CONNECTIONS 0# 0#[A-Z] [A-Z]0# [A-Z]0#[A-Z] [A-Z][A-Z]0# "[A-Z][A-Z]0#[A-Z] EMBED LISTMykFcM  S 88Hl}ATextString -  [A-Z]## 0 [A-Z]# 00-Tl<  -L<,%l 6 <,)@(%l :F}5B@(%l TqP@(%l Lq@(l%lP  -Tl<  -L<,%l 6 <,)@(%l :G}5@(%l TqP@(%l Lq@(l%lP  -Tl<  -L<,%l 6 <,)@(%l :H}5@(%l TqP@(%l Lq@(l%lP  -Tl<  -L<,%l 6 <,,@(%l %l *5$@(%(%:|.%/$@(%(%(| %0l *,@(%l %l *5$@(%(%:|.%/$@(%(%(| %0l *lq dX  */6t pl@ T:$ TqX0 TL<,K.$  ,l=@) d:H d: H(!    c]35HM %dM %@ T)HM %dM %'%'%@ Hp&#(l@<v qp < ,/(%,= `16lql lJp%lM@  `1 5$klM@  `15C l l*1 l~_NM@  :M@  |`16| l~NM@  :M@  |`16| l ~NM@  :M@  |`16| l"~yNM@  :M@  |`16|l#0l$0i k&l(Ll(cxkl(l05kl(3#tkl(/tp  dx k glk&l(%k&l( k&p& < @ X2+l+n+p+r(M`Up$5&(M`Up"5 <,@(H%l T d-Tl % D(t|  . pj/:&%'%$  \'X(!    c]35(%XB@5(%XB@5(%XB@5(!    c]35_(%XB@55(%XkjD(B@6(%XB@5(!    c]35'(%X(B@5(%XB@5(%XB@5(!    c]35'(%X(B@55(%XkjD(B@6(%XB@5EQ99kj@M %$ ( L)l=*) o58  ,+EQ99kj@M %$ ( L)l=*)Q9 (*Q9 (*  * c%,I *#(%(%(%:l.%/#(%(%(%(l %01 *#(%(%(%:l.%/#(%(%(%(l %02 *#(%(%(%:l.%/#(%(%(%(l %0 q l 5ILl 5IcX&@(%l :]@5)@(%l :E}5@(%l Tq @(%l Pq@(l%l   -Tl@  -P@0%l 6 @0)@(%l :F}5L@(%l Tq @(%l Pq@(l%l   -Tl@  -P@0%l 6 @0)@(%l :G}5@(%l Tq @(%l Pq@(l%l   -Tl@  -P@0%l 6 @0)@(%l :H}5@(%l Tq @(%l Pq@(l%l   -Tl@  -P@0%l 6 @02@(%l l */5$@(%(%:|.%/$@(%(%(| %0l *2@(%l l */5$@(%(%:|.%/$@(%(%(| %0l *lq dX  */x pl@*$$@(X4 TP@0h.$  ,l=@) o5M @ D d:H d:H(!    c]35HM %dM %@ T)HM %dM %'%'%@ Hp&#(l@<> qp < ,/(%,= `16lql lJp%lM@  `1 5$klM@  `15C l l*1&M@ :}5NM@  :M@  |`16|&M@ :}5NM@  :M@  |`16|&M@ :}5~NM@  :M@  |`16|&M@ :}5NM@  :M@  |`16|&M@ :}5lNM@  :M@  |`16|&M@ : }5NM@  :M@  |`16|&M@ :!}5ZNM@  :M@  |`16|&M@ :"}5NM@  :M@  |`16|l#0l$01 k&wl(Ll(cxwkl(l0k5kl(3#tkl(/tp  dx k /lk&l(%k&l(8(%,A`#tk&l(/t68(%,A`#tk&l(/t6 k&p& <7 @ X2+l+n+p+r(M`Up$5&(M`Up"5 @,H d}}{\lilj <(fi-3{\(t|./:&%'%$  \'X pj(!    c]35(%XB@5(%XB@5(%XB@5}(!    c]35V(%XB@5,(%XkjDB@6(%XB@5}(!    c]35'(%X(B@5(%XB@5(%XB@5}(!    c]35}'(%X(B@5,(%XkjDB@6(%XB@5FD99@M %$ ( L)l=* ) o5(  ,+FD99@M %$ ( L)l=* )  * c% ,<9 (*<9 (*T9 (*- *#(%(%(%:l.% /#(%(%(%(l % 01 *#(%(%(%:l.% /#(%(%(%(l % 02 *#(%(%(%:l.% /#(%(%(%(l % 03 *#(%(%(%:l.% /#(%(%(%(l % 0 qp l 5ILl 5IcX3&@(%l :]@5'=@(%l T -T:4}D6@(%l Tq@(%l D@q@(l%l  -Tl0  -@0 %l 6 D0  =@(%l T -T:5}D6@(%l Tq@(%l D@q@(l%l  -Tl0  -@0 %l 6 D0  =@(%l T -T:6}D6@(%l Tq@(%l D@q@(l%l  -Tl0  -@0 %l 6 D0  =@(%l T -T:7}D6o@(%l Tq@(%l D@q@(l%l  -Tl0  -@0 %l 6 D0  =@(%l T -T:8}D69 @(%l Tq@(%l D@q@(l%l  -Tl0  -@0 %l 6 D0  =@(%l T -T:9}D6 @(%l Tq@(%l D@q@(l%l  -Tl0  -@0 %l 6 D0  =@(%l T -T::}D6 @(%l Tq@(%l D@q@(l%l  -Tl0  -@0 %l 6 D0  =@(%l T -T:;}D6 @(%l Tq@(%l D@q@(l%l  -Tl0  -@0 %l 6 D0 9l X*2@(%l l */5$@(%(%:|.% /$@(%(%(| % 0l *2@(%l l */5-kD@(%l Up6$@(%(%:|.% /$@(%(%(| % 0l *@(%l :]/@(%l D:\#]/0 @(%l T -T:<]/6D @(%:%l d@(%l ((DB9$  ('>16D l=*1lJC!M@  `15 lJp#kM@  `15l>*#l*1/ l?0Cll *$@(%(%:|.% /$@(%(%(| % 0l *lq dX!9l X*k#l */$@(%(%:|.% /$@(%(%(| % 0l *  */|l@ D $XDT@D0 . l 5IL 9l 5I pVV@l@l $Xpjph$j@l@l $Xg5$ kjpj$h@l@l $Xt5$ khph kjkh hjll  kjpj khph kjkh khkVu$hllll 5$$ljlll 5$$ljlll 5$$hllll 5$/ h,lX$$t zcpX$l@z@l @kzltR5@ zdp*zc<2l@z@l@z@l @%l 5@ zd16 l=*1lJC!M@  `15 lJp#kM@  `15l>*#l*1/lC\l\l *$@(%(L%:,-%.$@(%(L%(, %/l *lqfr dbD'''tk#@*#@l#<*F 2@<6t/@l8h\PdL@<`ttTD. l 5IL 9l 5I pVV@l@l $Xpjph$j@l@l $Xg5$ kjpj$h@l@l $Xt5$ khph kjkh hjll  kjpj khph kjkh khkVu$hllll 5$$ljlll 5$$ljlll 5$$hllll 5$/ h,lX$$t zcpX$l@z@l @kzltR5@ zdp*zc<2l@z@l@z@l @%l 5@ zd]/\L6|@(%:T%l d@(%l (T|(DB9$  ('>16 l?*1lJC!M@  `15 lJp#kM@  `15l@*#l*1/;h 98M %l$ ( )lh=0d)h=39d 0d 1/(%(l%|Bt6|8o붯88M %8M %d 1d 188888 d8<88888888888<88888888888Ch 98M %k#$ ( )lh=0d/)hd 1/(%(l%|Bt6|8o붯88M %8M %d 1d 1/0 l8d h8dPdD h||\L. l 5IL 9l 5I pVV@l@l $Xpjph$j@l@l $Xg5$ kjpj$h@l@l $Xt5$ khph kjkh hjll  kjpj khph kjkh khkVu$hllll 5$$ljlll 5$$ljlll 5$$hllll 5$/ h,lX$$t zcpX$l@z@l @kzltR5@ zdp*zc<2l@z@l@z@l @%l 5@ zd  c]/ 5\LM %dM %H T0LM %dM %'%'%H H6p.#0lHDf qp(D 40(%4W `1 6l 3ql l Jp%l M@  `15$kl M@  `15C ll*1  l ?~eN M@  : M@  `1 6 l ~N M@  :@ M@  `1 6 l A~!N M@  : M@  `1 6 l ~N M@  :@ M@  `1 6 l B~N M@  : M@  `1 6 l ~;N M@  :@ M@  `1 6 l C~N M@  : M@  `1 6 l ~N M@  :@ M@  `1 6l 0l  0Y k.l0L&l0ck&l0l 05k&l03#k&l0/p( &d9 k(Wl k.l0!k.l09(%4W`#k.l0/69(%4W`#k.l0/6 k.p. D$ H X7++++0`Up,6&.0`Up*6Y H4Ld D0$ 0    ) T5qPPL L T5qPP pff@l@l @hpzpx&z@l@l @hc05@\ kzpz&x@l@l @hp05@\ kxpx kzkx7xzll  kzpz kxpx kzkx kxkf@xllll 5@@lzlll 5@@lzlll 5@@xllll 5@L(h@0$tzcpX$l@z@l `kzltR5` zdp*zc\2l@z@l@z@l `%l 5` zd\hzcX l@z@kzltl  zdX$0t`4|<  00 d#HHHH0Hkr0H090M %HM %"$ $ %QxHHHHHH00000090M %HM %"$ $ %Qx<HHHH0Hkr$0H090M %HM %"$ $ %QxH<HHHHH0<0000090M %HM %"$ $ %QxfHHH7 9HM %4"$ $ %Qtt '/(%(%Bt6Ho붯0H0H00M %HM %t 'H HH7 9HM %("$ $ %Qtt '/(%(%Bt6Ho붯0H0H00M %HM %t 'ZH HH7 9HM %)"$ $ %Qtt '/(%(%Bt6Ho붯0H0H00M %HM %tvTt3GvTn3GvT 96  {3GvT3GvT3GvT3GvT3GvT3GvT3GvT3GvT 7  3GvT3GvT3GvT3GvT3GvT3GvT3GvT3GvT3GvT3GvT3GvT3GvT3GvT3GvT3GvT4GvT # 4GvT4GvT)4GvT/4GvT54GvTkHJvT  Select 1st window corner>> Select 2nd window corner>>;4GvTE4GvTJ4GvTQ4GvT4GvT ,4GvTC:\WINDOWS\TEMP\VBE\MSForms.EXD = : 4 :$< 6 :+2lx'X    $   :  $ :  $ :  $ = 'h  A@v    $ $ *  $ *  $A@vh  $ $ *  $ *  $A@vlS(    Z $'@3)   $ :  $ :  $ = '`'  ' fhZZ D 'P"Select insertion point for table>> !V%X'Rf\xTableWidth = 2042Determine where the UL corner of the table will beh0=First, get the insertion point from the form = UL, LL, UR, LR ! 0!b I 2!b= ,!DataSS !d%h.`  D Z isdrawZ$^ +hE$^+hE$^+hC000-0$h+hE$h +hE$h+h+^$^+^E$^ +^E$^+^twd#Mix" `B@%f0""B If Err Then Set DataSS = ThisDrawing.SelectionSets.Add("DataSS")! @!.Ch"$^+rE$^+rE$^+r+^" .!b+$^ +hE$^+hE$^+h" #Z8Z0Z#ZPh# # ^ h !d%f.p#H$R+^E$R+^ 'H HH7 9HM %5"$ $ %Qtt '/(%(%Bt6Ho붯0H0H00M %HM %t 'H HHp0 5qL 5q||cx3(@(%l :]<5\'HHHHHH'@(%l :,}5\ @(%l tq0@(%l pq @(@%l0  -tl `  -p`P%l 6 `P'@(%l :-}5\ @(%l tq0@(%l pq @(@%l0  -tl `  -p`P%l 6 `P'@(%l :.}5\N@(%l tq0@(%l pq @(@%l0  -tl ` E$R+^#$R +^E$R+^E$R+^x#$R +^E$R P +^E$R+^X#$!$x'    b@# ^ h !d%f.p$r ^ h !d%f.p+Draw the horizontal linesDraw the vertical lines$h< +hE$h+hE$h+h+^$r< +^E$esG  ActiveSpacee acModelSpaceErrMsgDrawHardwareTableHardwareHardwareAttributesd HardwareArrayW4hCountPU NextHardwarehFound  HardwareQtyh _B_var_hFound _B_var_pFound;_B_var_TotalPanels_B_var_PanelArrayX ScaleFactor?Q Type_ConnhConnection_TableѼ ConnectionConnectionAttributesConnectionArrayNextConnection7pDrawConnectionTable ConnectionQtyz _B_var_Midr +^E$r+^$^< +^E$^+^E$^+^!`%$^+hE$^ P $ +hE$^+h%$^ +^E$^+^E$^+^+h ^ h !d%f.p$r+^E$r+^E$r+^$h +hE$h+hE$h+h ^ h !d%f.p$$^+hE$^ P  +hE$^+h' The titleZ$$ 'ingBox B@~`&)A single line of alphanumeric characters.VBA object name: AcadText