ࡱ> __SRP_0p__SRP_1 u0`dDPCWΝ?`ˋF3p#MZb^{I?l/MRoot Entry`×%.VBA_Projectm`×%VBA_Project_Version(VBA Xm`×% + !"#$%&'()*,-.  !"#$%&'()*+,./012345678:;<=>?@ABCDEFGHIJKLMNOPQRSVUWXYZ[\]^_`abcdefghijklmnprsuvwxyz{|}~acID="{00000000-0000-0000-0000-000000000000}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=EPASwmm HelpFile="" Name="EPASWMMExport" HelpContextID="0" Description="Export polylines to apeswmm" VersionCompatible32="393222000" CMG="6567C9764BDF4FDF4FDB53DB53" DPB="CAC86611D62ED62E29D2D72E7240D17C16338E128DA7EC44DEC160E23556CF9227F1C67B05" GC="2F2D83BC8D44F345F345F3" [Host ExUserForm1Xm`×%PROJECTwmT\PROJECTftender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C UserForm1=0, 0, 0, 0, C, 22, 29, 1448, 692, Z EPASwmm=0, 0, 0, 0, C rU~~~~w a  Export polylines to apeswmm A a 1 ( q 8\s to apK*mo CompObj aVBFrame3ThisDrawingUserForm1 __SRP_4 __SRP_5EPASwmmt__SRP_2q__SRP_3og_VBA_PROJECT9 dir-rU~~~~~~~~~~c YBx_'   a    A q a Y11  EPASWMMExport ThisDrawing UserForm1EPASwmmF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA I q0aE1F @u;C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlbAutoCAD Ai@0FC:\WINDOWS\system32\stdole2.tlbstdole YP.E .`M C:\WINDOWS\system32\FM20.DLLMSForms aa`~ŶLM; 2C:\DOCUME~1\SVANKR~1\LOCALS~1\Temp\VBE\MSForms.exd AaipExportToEPASWMM Z)s|E}3 %ݷEO%S\y-C;~bMsMJ < _<H-}$ԥȏ[qJ eUserForm]ڝFXrEt F3Dynamic  {lFWJOCommandButton1!-6S` "-?@Label1ҋB `TextBox1CommandButton1_Click Label1_ClickTextBox1_ChangeUserForm_ActivateUserForm_Click L D:\test.inpҋB ` *\G0* pHd EPASWMMExportH, polylines to apeswmm@6@xport lylines&t awmE9=+   CJ %<9stdolTe>swdalQm h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\system32\22.tlb#OLE Automation0MSForms>PSFFrqs$3ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#Microso(ft : ^ Object Library/;D1:@@00}#0@# 50 AB6C5897E-C5E4-4C1D-98FF-884DCDB ED81C6DOCUME~1\S VANKRLOCALSTem@p\VBE\T.8exd X  B425 500 0.5 0  (Print #1, "[SUBAREAS]"iPrint #1, ";;Subcatchment N-Imperv N-Perv S-Imperv S-Perv PctZero RouteTo PctRouted "iPrint #1, ";;-------------- ---------- ---------- ---------- ---------- ---------- ---------- ----------"^Print #1, "1 0.01 0.1 0.05 0.05 25 OUTLET " Print #1, [Polygons]6;;Subcatchment X-Coord Y-Coord 6;;-------------- ------------------ ------------------ D  D$!F'& D$!F'()MsgBox (UBound(polylines(j).Coordinates)) D$!F 'H MsgBox (x)_ ( D$%L'J D X  $J$>X  B B$J$>X  ( '( ( H DVFile created successfully.A@6 B@NooPo D:\test.inp <(dooAttribute VB_Name = "UserForm1" " Bas0{BA8B80FE-C829-4369-90E2-98EC7409798F}{4D62A316-0073-4DB0-B34A-0BB83C880981} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCustomizDP Sub CommandButton1_Click() Dim polylines() As AcadL WP enti4tyEdbpt Point coordin GdbVariaiG0~0.HidLA)On Error Resu@NexoC A ThisDrawing.Util@+.Get%C* /, *, vbCrLf & "Select P;: @AIf <> 0 ThenD@&@.ClearNMsgBox ""CStr(i)EA s sBed.", , "E! C%ionL#GoTo3dEnd If G/TypeOf? Iw4ReA3ve@o niDD?@*t@8={G!E DF(D_ is not an lwpy1." aFi + 1 Loohp URl5!!en$:cHB(Nfn_4G C= Tedxt:1.CO0pen  Outpua#dq nt #1 <[SUBCATCHM`ENTS];;;$TotalaPcnt.C&CurbBSnow1¯Ra`!age& let A`Imperv@ WidthASlop"LengBPack!1- r --&-.-$4" iUBound(ENs$N'2#wMwag*l R+ .!(, 2)A vbHTab25d 500#0.DD! iRF 'G"PAREAP;;Subc@atchmeV N-;N-P<( SSPc`tZero!te ,`d z_Q_\t1 90.05|0.Pu OUTLET#N  "[]gons?"X-C;!s) Y.4H;;7E/91jQx-?1e51|=X_j). B~s6L5(6'`8Zx` (:):/ 26xDD $@:BAjC& "-?t(0), 3j>>1AHt(1s7qon i >X= xr?jCl@fvFicAsuccessfullyVv᧗Show[1x7Auv Label s_Change/Q0 _Acti5Ex "D:\test.inpP1 S-Perv PctZero RouteTo PctRouted "iPrinME (SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}@(%H@0CJxAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2oVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Export Plines to EPA SWMM" ClientHeight = 1335 ClientLeft = 45 ClientTop = 435 ClientWidth = 4620 StartUpPosition = 1 'CenterOwner TypeInfoVer = 3 End  Microsoft Forms 2.0 FormEmbedded Object9q@;pׅ ]cB (Select Polylines uTahomamH,&{5Tahomam( Save Path:yl{5Tahomam+\IIG>+  }3 ,@CommandButton1esE$4TextBox1E(2<Label1x14DED-BFF9-4E824B689421}{AADE583E-CB04660-B6AB-A83407B7D6AF} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustohmizDP Sub CommandButton1_Click () Dim polylines() As AcadLWP entity EdbptA Point c@oordinGdbVaria5iG0~.H idLA)On Error Resu@NexoC A ThisDrawing.UtiBl@+.GetC* /, *, vbCrLf & "Select P9