аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЬamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax16deu.tlb#AutoCAD 2004-TypenbibliothekМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object LibraryRoot Entryџџџџџџџџp_­мХ€,VBA_Projectџџџџ 6M†ЌмХp_­мХVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ ЇO†ЌмХ ЇO†ЌмХ§џџџ1 ўџџџ  ўџџџ$!"#2%&'()*+,-.ўџџџ05ўџџџ34>6789:;ўџџџџџџџџџџџ?@ABўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ ўџџџ ўџџџ ўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJўџџџLMNOPQRSTUVўџџџXYўџџџ[\]^_`abcdefghijklmnopqrstўџџџvwўџџџyz{|}~€acadID="{3AD18B64-199C-46C6-9F79-BD4C26F93B52}" Document=ThisDrawing/&H00000000 Module=Modul1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmAttribute Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="787A896F8D6F8D6F8D6F8D" DPB="8A887B6B8C6C8C6C8C" GC="9C9E6D9D6DAE6EAE6E51" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0,frmAttributeџџџџ ЇO†ЌмХ ЇO†ЌмХPROJECTwmџџџџџџџџџџџџ bPROJECTџџџџfџџџџџџџџџџџџЏЖ C Modul1=35, 32, 595, 387, frmAttribute=243, 62, 803, 417, , 70, 82, 630, 437, C ThisDrawingThisDrawingModul1Modul1frmAttributefrmAttributerU€€€€~~~~~~~~o џџџџџџџџџџџџ    I1 Щ 9  ( й8 сH Yo џџџџЌЄCompObjџџџџ џџџџЊaVBFrameџџџџџџџџџџџџЅ'ThisDrawingџџџџџџџџџџџџ‘Ц__SRP_2џџџџџџџџџџџџŒ__SRP_3џџџџŠBModul1џџџџџџџџ/ш__SRP_5 џџџџxF__SRP_4џџџџџџџџџџџџufrmAttribute џџџџ'__SRP_7џџџџZЂ__SRP_6џџџџџџџџџџџџWЕ_VBA_PROJECTџџџџџџџџџџџџ“dirџџџџџџџџџџџџKЦ__SRP_0џџџџ__SRP_1џџџџ џџџџ V9 X с9 h 9 xT“K*mџџџџrU€€€~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ щ1iЭA§тЃN˜ш“bVsd фџџџџƒŠe џџџџџџ A ЩџџџџРџџџџЁСџџ)ƒA aџџџџБйџџa)IiIProjekt1 ACADProject ThisDrawingModul1 UserForm1 frmAttributeяРF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ‰џџџџ Б`…Ž§;цH“A<‹/`k=C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax16deu.tlbAutoCAD џџџџЉ1p0РF  C:\WINDOWS\system32\stdole2.tlbstdole Ёџџџџ Q€с.E р….`ŒM ДC:\WINDOWS\System32\FM20.DLLMSForms ССщ1 5i№ЇBN•J ‰RaЇ 2C:\DOKUME~1\Wilfried\LOKALE~1\Temp\VBE\MSForms.exd ЁСЩ1 ™9<†(N˜Uю0Щќ[Šh§Ј‚€l'G–caС=guйuŽ!=в…Ф  Ц&wЪW•EшLœIзІƒрЌD ьL)мйKБBx"Ёвk AcadDocument @ini_acad MyAttEditС{lЏЮŸFЊWJO MySelSetЖдlqoBИ UЏ`Шв)gЏсHB‘Mђ р^„ИfФЄŸIЛxЊ8<Л (Nehme nur das erste!–ЬвІ,@ИyU ЪЈyте PCœ™™ЖЧIўš$й%EАцБшVмЯћ ВB€ЎNЂГe\'вхЮ34Ё„KЏWоDуињ3КНO_HЉa79Ÿ‰ œtsћWєEЎ;ї№MШžђШ[qJ—І eР‹UserForm–U ы‚ЧuFЄ`оЈ<Кдš F3Dynamic  џџџџџџџџЉ UserForm_ClickVBE6.DLL I џџџџ­ TextBox1 I џџџџ 0 MyAttEdit (defun c: T (/) (vla-runmacro(vlax-get-acad-object) " "))qGээ IЁќ…wD Ist kein Block INSERTі )З}LЇ}O%ЖРвХЏџpеaIВfu=„›§Ц‹ЖЋh-ЬOœїeзпŸ/ 9вРзт @— ьљЇkiа2в‹BьЮž Њ`ѓ ComboBox1!ш-ЌЂ6Я€SЊ` њ Yџџџџџџџџ10в‹BьЮž Њ`ѓCommandButton1ћьУёрiJВ„|ѓыIЮТ 1џџџџџџџџЉ @ComboBox1_ClickUserForm_Initialize T4ro(v8t-ac 2Block hat keine AttributeУh№ˆG”ƒФ (щЋŸ3в‹BьЮž Њ`ѓюЈ—J‹EЏqЗч 0ЋЬѕвЙИHЋC“8cutХђЭ{/БONЃ?ќГ118Œ ўŠє|BU2}МЕшmlѕа8K”- ]–ОK2 ЙџџџџџџџџЉ € T4re8pOx@ZмKŸšO“ЩІ# К!ХХђBИуŸЈwlOˆЫѕХS­QD–ъ+џbvИD“ЙЊоˆaщE‚Ъ Ћ@ЈКЁАЊФUBЖ+ъl7ˆ‚3˜гНT 3G›DБкПВД' YџџџџџџџџЉ р T48; TagStringв‹BьЮž Њ`ѓTextStringХЈ|˜ЎSA ^MГ pko_. &QЈKЛjе№ЦЋ'‰CommandButton1_Click T48еЎFНъˆ§GДDпГ|~ т‡0„|4еJ˜ъ ѓHГ–#=ћќњ hЇ8+3qЕРG?,2qЯ”ЊЇLабљџџџџбр &&T48;   ТВ€0* pH‚dф ACADProject8@е = t  1ќЬD( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE Automation0€MSForms>SFFrms3 €ED452EE1-E08F€-101A-8-02608C4 D0BB4ESEFM20.DLL#Microso(ft ‚: €^ ObЎ Libra ry/;D1€„uˆˆ00}t#0‚#€k04Ѓ€ …РAF069350C-42A7-4E16-954A-2089815261A7ˆ6DOKUME~1\Wilfried\LOKALATemp\VBE\„T.exd <Р!€с.E р….`PŒM ДAЇBЂDТћ+BЄThisDrawi ngG€T@i€kDrawing* 2 € HB1‚ЎђB,B hФ"B+B‚ВModPul1G‚ВMР‹dtu€В1€КC2NЯЕ€ŸЭU !ЪвfrmAttributeGŠРf€=mA€бЂt@ib@ tг6BЩ 2к o9Љo оc ((brU€€€ џџџџџџџџT$ *\G{F069350C-42A7-4E16-954A-2089815261A7}#2.0#0#C:\DOKUME~1\Wilfried\LOKALE~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџџџџџ1ќЬDџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџћ+ThisDrawing2I44ccf865џџThisDrawingџџhФђџџ Modul14x44ccfc35џџ Modul1џџU џџџџ0џџџџЕџџfrmAttributeCo44cd01aeџџ1frmAttributeџџоџџџџ09џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџМ1eЗЗ@ŠHy™2џ0˜џџџџс›єЕэЌKЕШ{Щ™ЭS9џџџџ+Ѕ#пЬJGИП ŠTГџџџџџџџџ0€uŽџ№6 €џAs=€џDimC€џEachD€џelseE€џElseIfG€џendT€џFor^€џGoTo_€џIfb€џIn{€џMe…€џNot‰€џOn€џPreserve•€џpublic›€џReDim€џresumeЄ€џSetЉ€џstaticЏ€џSubВ€џthenГ€џToЗ€џUBoundМ€џVariant AutoCAD"ј VBAїтWin16С~Win32MacГВVBA6­#Projekt1вA stdole“` ACADProjectІд ThisDrawingЙ5 €џ_Evaluateй AcadDocumentZ Modul1Эini6Ÿ €џ_B_var_SubН’Ќ(ini_acadЅyvlst_cmd Н vlst_Befehlђ‰ChrK~ €џSendCommandcњ vlst_BefelL)€џ_B_var_vlst_BefelЖ—€џ_B_var_vlst_Befehlгk Ќ(MyAttEdit  frmAttributelЪ€џ_B_var_frmAttribute Showѕ UserForm1)жMSFormsCUserFormNUserForm_ClickлјMySelsetr€џAcadSelectionSetЫЩ Ќ(ogac_MySelset*” €џџџ_B_var_on6ѓ €џџџ_B_var_Set €џSelectionSetsгItemзzErroŠNumberЃ- €џџџ_B_var_IfPђAddїr€џAddItemsЙв€џSelectOnScreenЛClearуЭCount0v €џџџ_B_var_ElseIfqm€џUtility1J€џPromptm _B_str_Chrm# Ќ(ogac_BlockRefЅ€џAcadBlockReference˜­ ogacmyselsetњќ€џџџ_B_var_ogacmyselset6€џClickŠу olac_Entityƒ €џAcadEntityІi€џџџg^€џџџ_B_var_gЂ €џEntityType†acBlock€џџџ_B_var_acBlock FTypei €џџџ_B_var_FType•ЬFDatahC €џџџ_B_var_FDataU vlin_FTypeеё vlva_FDataТ№UserForm_Initialize5c ComboBox1'иTextBox1ІSCommandButton1|дvgst_AttributTagЗ €џџџInitializeгN€џџџ_B_var_vgst_AttributTag§Zvgst_AttributValuep€џџџ_B_var_ogac_BlockRef‚№ €џHasAttributes№­€џCaptionxolac_Attribute.а€џAcadAttributeReferenceЗ^olac_Й olac_Attributн›olva_Attribute* €џGetAttributesСд €џџџ_B_var_forjLolac_Attributeinѕ\€џAddItem‡  €џTagStringŸБ €џListIndexїQComboBox1_ChangeaComboBox1_ClickŽ€џChangeЃЧ€џџџ_B_var_GetAttributes_Ј€џџџ_B_var_AcadAttributeReferenceў9 €џAcadAttribute+ѕtmpый€џџџ_B_var_AcadAttributeЩШ olva_AttributхЃolva_AttributCol($olva_AttributeColТN€џџџ_B_var_olva_AttributeColߘ€џџџ_B_var_olva_Attribute:Ї vlin_AnzahlF €џџџ_B_var_redim•В AttributValue›В€џџџ_B_var_AttributValue9†olva_AttributTagstringKЖ €џџџ_B_var_tmpќ– €џTextString CommandButton1_ClickфСvlin_iGя €џџџ_B_var_UBoundлdvgst_;€џUpdateвќ vlin_OldIndexПg€џџџutColд4 €џџџ_B_var_utColљџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 1 џџџџџџ 8џџџџџџџџџџџџџџ 6€ adAttributeReferenceЗ^olac_Й olac_Attributн›olva_Attribute* €џGetAttributesСд €џџџ_B_var_forjLolac_Attributeinѕ\€џAddItem‡  €џTagStringŸБ €џListIndexїQComboBox1_ChangeaComboBox1_ClickŽ€џChangeЃЧ€џџџ_B_var_GetAttributes_Ј€џџџ_B_var_AcadAttributeReferenceў9 €џAcadAttribute+ѕ фдЁг3ћ+оџџˆЖџџџџџџџџPџџеЎFНъˆ§GДDпГ|~ “ЙЊоˆaщE‚Ъ Ћ@Јњ3КНO_HЉa79Ÿ‰ т‡0„|4еJ˜ъ ѓHГ–џџџџџџџџџџџџxт‡0„|4еJ˜ъ ѓHГ–еЎFНъˆ§GДDпГ|~ џџMEџџџџџџџџџџпџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ SPџџџџSџџџџSџџџџSџџџџ>"џџџџ”џџџџLџџџџLџџџџLџџџџџџџџLџџџџš џџџџLџџџџ џџџџ<<џџ<џџџџџџš0{DEAAB993-6188-45E9-82CA-0DAB8D40A812}{BA33FA03-4FBD-485F-A961-37399F89080D}`Ј€ўџ0џџ(џџџџџџџџџџ%ўџџџџџџџџџXџџ0џџџџџџџџ %iƒўџџџџџџџџџџџџџџџџџ €€iƒўџџџџџџџџџџџџџџџџџ аƒўџџџџџџџ№џџџџџџџџџџџџџџ%‚ 0џџџџўџџџ џџўџџџџџџџџџџџ`œџџџџџџџџ$A` џџџџџџџџ$`ЄџџџџџџџџnrU€€€  ШI Q!ЉёyQЩ I!љ щ ЉџџџџЉ<Ё9бббž§џџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@йСй гггџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Dсс дддЈ§џџ`IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH9 Aa џџџџџџџџџџџџњџџџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`W—№А7tџxџ ”xџ lltџўЫP‰чŠ8;/tџxџA`џxџ xџ `џќ"Š8žpџ ”pџ h)xџpџ5`џ0`џxџ xџ `џUўЫPŽxџ5`џџА$: tџxџpџ`џдJPџTџ ”Tџ llPџ<џLџ Lџ <џќ"Š8;/Pџ)TџLџ5<џ<џ"X <џќі\џєZџŠ8єќЫфўc8џ­(kZџчŠ8žFџ%Zџ§“@\џўЏ<џџC5<џ Zџd8џ{ "X Єl§œTџ $  Tџtд,lџ\џPџTџLџ<џ„4Xџ"X kXџУ,:Hџ%,€-(џ"X (џќі\џ\џlџў‰џ- kZџєЉpZџ+'џlџџ=(џџ џ аџ6(џџѕkZџє­ч8ў€#lџџA(џ`#џkZџє­чŠ8;/џ5(џ kZџєЦ +lџџA(џ§ўџџ ”џ h/џџ5(џ ((џџ џ џ5(џ lџўŒџSA|44(џ$џlџ\џџџ(џџ<DHHrU€€€ џџџџџџџџ $`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџn% ˆџџџџ`џџџџџџџџШџkџџџџџџџџЄ” iƒўџџџџџџџџџџџџџџџџџ "€ш4џџ˜@џџџџџџџџiƒўџџџџџџџџџџџџџџџџџ €џџџџџџџџ"€–џџџџ8џџР@џџџџџџџџшџџџџџџџџˆ€р(џџџџ`„Цџџџџ\џџџ џџџџџџŒŠ–drР`„Фџџџџlџџџ џџ Жр`џџџџџџџџр`џkџџџџeœ œ€iƒўџџџџџџџџџџџџџџџџџ џџџџ м(`џџџџџџџџpџkџџџџe œ`„оџџџџZџџџџџџџџџ`„Цџџџџ\џџџ џџџџџџ  џџџџџџџџџџџџџџџџџџџџhџџџџ8Pџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(XџџџџрџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџHˆ@ўџ@Tџџџ џџ @@ўџџџџџPџџџџџ @ўџџџџџLџџџ џџ @ўџџџџџ<џџџ џџ @ўџ˜:џџџџџ Аp @ўџџџџџ8џџџџ (˜ €`„Фџџџџlџџџ џџџџџџ@ўџј(џџџ џџ џџџџ@ўџџџџ џџ @ўџџџџџџџџ џџ џџџџ˜ @џџџџdœŠ–Œџџ@ўџ@ўџџџџџXџџџ џџ @ўџhHџџџ џџ @џџџџŒŠ–xр@ўџ˜xџџџ џџ Ш˜ dt`„ЮџџџџZџџџџџдLdtџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџ€ Аџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџ@ўџџџџџtџџџџџ PARA@ўџџџџџpџџџ џџ ="IA@ўџџџџџ`џџџ џџ iacaџџџџџџџџџџџџџџџџџџџџШџџџџџџџџ0џџџџџџџџџџџџџџџџШџџџџџџџџџџџџx(€џџџџhPџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџАџџџџџџџџџџџџџџџџ8И@ўџџџџџ8џџџ џџ ol@ўџ`(џџџ џџ n: a@ўџџџџџ$џџџ џџ 0pt@ўџи џџџџџ ; fo№А pt; ">@ўџџџџџџџџџџ .List‚9@?7MerkЯ@Т C= “‚ EndСV ŽZmandButјtonШ[AFS‚z0olvaz_Vaprian€Р Clolб‚-iA oLиetzP’w€omBe eintr~a€]#'Oј8d„€„des Block s hol€,u %:фGnТ ъС= ogac_bRe f.GetХesQBForЃUi 0€ To UBoР Ў(O< ( э (c%~)ТOуi  ф"N`VDт+UpdРlUnloadРF!ЖCUserm_Initialiўzрv#zJЪ<ў@ iahbD&A I f Notь+HaТsч+ Theу2!^a#’рЛЂ1 hatd k Ee &рАEтЌ`,M,р)_9r EˆachЫ3 Inю57Т*9Щ=ƒ1„+ 1І vAddIttemk . Љу>†RЮeс'€Р`3vekЏ™уЂM)- 1gLЕGфaa")}ШOЦР4‹1Ч2! `' ersџ!zAЁ xD FЌ?п 'сƒ‚Ђ€0цёNќIfт1zQPШ/nџџџџ€џџџџъГAttribute VB_Name = "frmИ" ŒBasŒ0{DEAAB993-6188-45E9-82CA-0DAB8D40A812}{BA33FA03-4FBD-485F-A961-37399F8@9080D} dG lobalŽSpacoFalse ŠCreatablPredec$laIdзTru BExpose0№tдШџџџџ Џћ+U џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџHџџџџџџџџџџџџџџџџџџџџџџџџ<џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@8џџ@> џџџџ0џџfџџџџš"џџџџPџџџџLџџџџPџџџџLџџџџџџџџLџџџџLџџџџџџџџPџџџџLџџџџ џџpLџџџџš"џџџџ 0@ХrРaЊ.AddNIfЬ1GoTo 0SCvl H=vlIF@†INSERT@кA?Jе.CleaTУйOnScьre@Ф‡,xХƒ!УD ount€ј F`Exit тAС Ec z4> 1K*Љ3UtilF.Prompt cR0)`^"Neh=nur das ersјte!Є)* "5НhP=ЫBрJЧ.cT сR`7+' Weўnˆa‘ƒ  &BF” # цfrm&Ѕ.Sрhow 1ca%ІƒŸ!‚!Ist k@ ‚а шsNSERTЌ+† „ † BB@VМ€р6 Erzeugt in AutoCAD einen Befehl zum Aufruf des Makrosџџџџџџџџ ГAttribute VB_Name = "Modul1" Option Explicit Pub$ ogac_MySelset As Aca’dec^Se RBlockRefRerence Sub ini_aE() ' Erzeugt AutoCAD einen Befehl zumfruf des Makros DimР vlst_&™Sпngcmdk‡ '+€1richten  ‰%‹y—Edit'€ (defun c:" &ŠA& " (/) (vla-r€unmacro@x-get-y-obj) ""!"")) Ch`r$(13€=ThisDrawing.SendCРommand=€I E€Sub : АM^А”olтEntityfCKin_FTy pe(0)In tegerEva@_FDataDV`arian~CNO@rror ReФsu@•NexР.S@‡Ь= 3l†‘s,("B™Р "Ф=If‡r.NumbeРr <> 0@ХkУРЊ.AddNIfЬ1GoTo І0Cvl H= vlIF@†INSE RT„ŒJЮ.CleaTE УвOnSиcre@Н‡,xХ‡ƒ!D ount€ёС FExit ТƒЦE@юT> 1K*Љ3UtilF.Pr ompt cR0)!`^"Neh=nur das er№ste!Є)* {"5hP=ЫBрJЧ.їcTсR`7”?&Ž€ g#у Сfrm&Ÿ.Sрhow 1ƒс"ЦƒIst k@‡ ЂPhqџџџџX`<фjxьћ+hФџџ#ˆЖџџџџџџџџ<џџh§Ј‚€l'G–caС=guйuŽ!=в…Ф  Ц&wЪW•EшLœIзІƒрЌDџџџџџџџџџџџџxwЪW•EшLœIзІƒрЌDh§Ј‚€l'G–caС=guџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} џџџџ €ўџџџџџџџ(џџџџџџџџџџ%џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh8@||џџџџџџџџџџџџџџџџџџџџџџ01ќЬD$*\Rffff*2I44ccf865пџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2Option /licit VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmAttribute Caption = "UserForm1" ClientHeight = 3120 ClientLeft = 45 ClientTop = 435 ClientWidth = 4710 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 5 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqA€H€,,5€ЅTahoma€H€,{5€ЅTahoma(€Фndern {u€ЅTahoma  }t ˆƒ(х €8ComboBox1NEЇ$х€4TextBox1E,х€8CommandButton1 Ќ]