ࡱ> Root EntryRoot EntryK87 VBA_ProjectK87K87VBA_Project_Version(VBAK87K87   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklnopqrstuvwxyz{|}~acadID="{6CB9FFA3-DF4F-42AE-95D2-E07F1D341FD9}" Document=ThisDrawing/&H00000000 Module=Modul1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="2022165C1A5C1A5C1A5C1A" DPB="4042767977797779" GC="6062569957995766" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Modul1=66, 66, 887, 531, PROJECTwm ;PROJECTThisDrawingmModul1 H ThisDrawingThisDrawingModul1Modul1u0* pHd ACADProject8@ = t  MG( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINNT\system32\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4DFM20.DLL#Microsoft 9" \ Ob Library/;C1sA00}#0#Gj0B1B_VBA_PROJECT dir yCFD3D-C1AB-41A3-A0069@651367A36DOKUME~1\NANCYALOKALTemp\VBE\T.exd + As.debug=DimEElseIfTFor^GoToOnPrintAutoCAD"VBAWin16~Win32MacVBA6#Projekt1Astdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZModul1 rooms_in_ssetsset/.AcadSelectionSetxo AcadEntityie\d[ SelectionSetsAddrSelectOnScreenTypeNameMsgBoxRChrK~Deletexent݉ _B_var_OpenlAcadText~ _B_var_LeftQ TextString Replacef _B_var_Chr\; _B_var_On6hellfUCase5  _B_var_UCasea _B_var_IfP _B_var_elseifqm UserForm1)MSFormsCdObjS DataObjectsj _B_var_entF _B_var_dObjPutInClipboarddesdHPSetTextvbCrLfHandleObjectIDovbTabc9T R $(nxME,<<" d d'X X TB@b TB@^l 6$.$H IACADTEXT2Mic 6$.$H IACADMTEXT2ein X 6!>\P d$@ d d'X B@4al o]]\Attribute VB_Name = "Modul1" Option Explicit Sub des@d() Dim dObj As New DataecZ>sset>Aca0dSel6Se Ben Enti@ty, s$`Orror GoTo hell? X= ThisDrawing. _s.Add("my"2$OnScreen'F1Each 9EIn- cIf UCase(T(ype())IACADTEXT2"D'"ss &*.TextSngvbCrLf5PElse7M7ReplaceS;, "\P", >)Cnd If%N.CzOt2 (sUBPutInClipboard j:C ]D@~te E@ <Cn#L>tBKU0u!= &F 05KTЦ.xME (SLSS<N0{8E75D913-3D21-11D2-85C4-080009A0C626}0(%` % %`h8@|| xpаAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit