ࡱ> __SRP_0 rout. populates a combobox with the "lDtyp:in  current drawing.It was developed for AutoCAD 2000 and above0Demload: -vbarun;.dv4b!;gjversion 1.00 Copyright5-9 ActiveDwg.m @providWdemonstrat/purpos!~only_mu not be uscritical aplpl s your [if G"thatwill pe2rm  ipntenQ`may!free(1ulizD$owbnAson&+ so longz@sire@ ts of%header rj@1!act!Q"a s-is"KnoclaS, wKH@2 @im@Ield,!@m?@ABDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz|}~acID="{6705909B-45B2-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Module2 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="03017BCA2ACE2ACE2ACE2ACE" DPB="B6B4CE9F32E1E4E2E4E2E4" GC="696B11E212E2121D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0,UserForm1`ڿ`ڿPROJECTwm \PROJECTf C UserForm1=98, 23, 810, 635, , 236, 88, 691, 481, Z Module2=81, 57, 756, 600, Z awingUserForm1UserForm1ThisDrawingThisDrawingUserForm1UserForm10* pHd ACADProject8@ = t  {9( 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-02608C4D0BB4 Dindows\system32\FM20.Do pCompObj aVBFrame5ThisDrawingModule2{q UserForm1 C _VBA_PROJECT dir __SRP_3~__SRP_2_VBA_PROJECTdir^__SRP_6__SRP_1rModule27 __SRP_7@LL#Microsoft :" ] Ob Library/;D1tA00}#0#0r 89CD4EAB-50C5-11D4-B112105A11B3C9POP\VBE\G.exd /.E .`(M ”"vz–ThisDrawingGThi^Drawng 2 HB1%B,B tz"B +Bodule2Go@uBn2@ Š2O@ M!J @User1G@?e@?1M 2 O  =K=(@ bam  *\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{89CD4EAB-50C5-11D4-B112-00105A11B3C9}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   {9vzThisDrawing1j4abdd6d7ThisDrawingtz%Module21k4abdd6d7Module2UserForm11l4abdd6d7UserForm1Kz0 P0XMffA`.MO'G.g#y9Dz_u0'AutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateModule2c ad_LineList UserForm1)showCommandButton1_ClickUserForm_Initialize5centry AcadLineTypei Linetypes ComboBox1'AddItem  AcadDocumentZUserFormNCommandButton1|`    6t vzKzt vzKzxMEPSPSSS<$<<<0{2EDEB2C1-05A4-4C2B-8E98-B54E5B8D096A}{02833A8C-4A77-4071-9D31-06153D6AD81F} @   "velo%% %@!    D(  4p :    * @ JH J : N( >x P P .X "  " 0 ad_LineList= This routine populates a combobox with the linetypes in the. It was developed for AutoCAD 2000 and above.4 Demand load: -vbarun;ad_LineList.dvb!ad_LineList; 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 verificationform3 that this routine will perform as you intended.tiliG This routine may be freely utilized for your own personal use so longis8 as the entire contents of this header remain intact.s"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.( A@r}}o@] " !& "! (B@*%o current drawing.jAttribute VB_Name = "UserForm1" " Bas0{2EDEB2C1-05A4-4C2B-8E98-B54E5B8D096A}{02833A8C-4A77-4071-9D3h6153D6AD81F} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD' ' ad_Lin`eList This routA popu0s a combobox with@ the ltypes in current drawing. It was developVfor AutoCAD 2000 and aboveDemload: -vbarun;,.dvb!;version 1.00Copyright-9 ActMDwg.6 ?@Bprovid+demonstratpurAgs only/mZ not` be uAo:critical applAsRZ your - ifDthat@VHdwill perm T@@_8ten(NJ0may!free(uliz3own1Ason&+ so longz@sire@n tx P P .X "  ad_LineListHbv= This routine populates a combobox with the linetypes in thexJav. It was developed for AutoCAD 2000 and above.4 Demand load: -vbarun;ad_LineList.dvb!ad_LineList; 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 verificationx,x3 that this routine will perform as you intended.x,xG 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' rouVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "ActiveDwg Current Linetypes" ClientHeight = 1260 ClientLeft = 45 ClientTop = 330 ClientWidth = 3015 StartUpPosition = 1 'CenterOwner TypeInfoVer = 2 End  Microsoft Forms 2.0 FormEmbedded Object9qAH,0{5Tahoma(CancelqOuTahoma  }`( 8ComboBox1,8CommandButton1"Module2Module2n intact.J This routine is ptine is solely at your own risk.( B@o current drawing.}} Attribute VB_Name = "Module2" ' ad_Li@neListHThisabilityany parXr task. A5+8solEYFCriC@@ OpyExliSubI() iUserForm1.show E ty fany parXvztz#xME (SLSS<N0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}8(%HxAttribute VB_Name = "ThisDrawing" Bas0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2@Zim@Ied,!@m!NewLayerx PicrU rU H$`$)`py 4Aai`18akLayer _B_var_setItemz (ad_LineList AcadLineTypei LinetypesPickLineU Nea `q8  ` <QAy`1_?`$pt! t >p1xt $(xptT lx"$ x $ xh$t"$ 4Qt[pxld1'Hhx x>hFXt! t t6XH xl&4h0plxhtXH8<4KwLineType PickLineType\`eliability fany p arX@r task. A5+EsolEYFCri@@ ORpyExli@Sub() iUserForm1.show E@ <-u^Zu!= &-u^Zx"8vztz#-u^Z<$<<,<0<4 p<8<@ P Ph . " h xp "$10 HP Z '$  !r ! (B@8(l l A@t Unload Me ad_LineList%e= This routine populates a combobox with the linetypes in therent6 current drawing. It was developed in AutoCAD 2000.f%e version 1.00L%e 7/22/2000C 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.XEnd Subox MsgBox PickLayerx@ Dim PickLineType As String0t# Dim NewLineType As AcadLineType! PickLineType = ComboBox1.Text9 Set NewLineType = ThisDrawing.Linetypes(PickLineType) 4 Demand load: -vbarun;ad_LineList.dvb!ad_LineList;G  Copyright2000 ActiveDwg.comAttribute VB_Name = "UserForm1" " Bas0{E479D1D9-F6FB-11D4-839C-0080C6F93F62}J5J dCreatabliFalse PredeclaIdTru "Expose@Template DerivCu@stomizD' ' ad_LineList This rout popu0s a combobox with the ltypes in current drawing. It was de`velopTAutoCAD 2000.Demand load: -vbarun;P.dvb!;version 1.007/22/A@CopyrightA ActLDwg.5 >@provid@+for.mon stratpures only A-mYB not be umcritical applAsQY your2 0ifDth atTbwill perm S@]ten(CPJ0may!freec(sliz3ownAson&+ so^ngxqire~n t4(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626}{9$*\Rffff*8c3978a002 h(0046$`ed\v $\ $2%e $0 $( $X $80@tt0MErU @prU i A 4  VcxAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |CreatablAFalse PredeclaDIdTru "E xposeTemplateDeriv$eCus`tomiz