аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџfџџџџџџџџџџџџg&o џџџџ2т CompObjџџџџџџџџ0aVBFrameџџџџџџџџџџџџ+#щˆa Yџџџџ€џџџџ9џџ ƒ€a љ џџџџY ‰ С џџ!сС щ ACADProject ThisDrawingModul1 UserForm1яРF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Aџџџџ iб00РFC:\Windows\SysWOW64\stdole2.tlbRoot Entryџџџџџџџџmёi]lЬ€;VBA_Projectџџџџ `ЧАлкkЬmёi]lЬVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ œВлкkЬ№|wZlЬ# §џџџ"  ўџџџE$!9ўџџџ%&'()*+,-./01ўџџџ345678;:<=>?@ABCDJFGHIўџџџKўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџўџџџ[ ўџџџ  !"#$%&'()*l,-./ўџџџ1ўџџџ3456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ`\]ўџџџ_ўџџџabcdefўџџџhijkўџџџзnopqrstuvwxyzўџџџ|}~€ac#$,‘…бБjР№(6(H9368265E-85FE-11d1-8BE3-0000F8754DA1DProject" HelpContextID="ID="{7B17A9F5-8F9E-408E-BEA7-F662F2995AF4}" Document=ThisDrawing/&H00000000 Module=Modul1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="C7C5DBCC25D456D856D856D856D8" DPB="F4F6E83F386D396D396D" GC="21233D3E3E3E3EC1" PROJECTwmџџџџџџџџ^YPROJECT џџџџThisDrawingџџџџЧэModul1џџџџџџџџ2Ч$ [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00ArU€€€€~~~y џџџџџџџџџџџџџџџџ   A ёa й I (h9 Љ “K*mџџџџrU€€€~~~~~~~~~~~~~[ ЩЭЁ*^Ъ1^DЊд~ИьК фџџџџ џџџџџџџџџџџџ__SRP_2џџџџУА__SRP_3џџџџџџџџџџџџСgUserForm1џџџџ €^ФЏOlЬРъхъXlЬPROJECTlkџџџџџџџџџџџџfstdole 9џџџџaЉ@фМrр'†OКтяŸа г;C:\Program Files\Common Files\Autodesk Shared\acax18deu.tlbAutoCAD џџџџAСPс.E р….`ŒM ДC:\windows\SysWOW64\FM20.DLLMSForms aa‰б`•э Ц€DОzФЭš4C:\Users\BOROWS~1\AppData\Local\Temp\VBE\MSForms.exd Aaiбp User_Dialog П3ђЄM‘^Їƒd?p†€ЪAюPIЛ$ВlŽzSЄт5TЬAЌ_JPІ\рйл™ж[ЌGЈ,yЎТыњТУm0;% mEЃЉhС@pt С{lЏЮŸFЊWJOcmd_DimUnitsEin!ш-ЌЂ6Я€SЊ` њ Ein Aus ‘џџџџџџџџбШШ[qJ—І eР‹UserForm>ф†зXJЕ.='щ ьD F3Dynamic Љџџџџџџџџби"$,‘…бБjР№(6( ImageList1І:5„юˆ9HšЗW–І Л MSComctlLib ‘ џџџџџџџџЙ шcmd_DimUnitsAusUserForm_Initializecmd_DimUnitsEin_Clickcmd_DimUnitsAus_Click L TAlternativeinheit bei BemaпungenVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 915 ClientLeft = 45 ClientTop = 375 ClientWidth = 3660 StartUpPosition = 1 'Fenstermitte TypeInfoVer = 8 End u€ЅTahomaўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9ВqяЭЋџџџџ€ (€CommandButton1 Nu€ЅTahoma (€CommandButton1 Nu€ЅTahoma!C4ээ€~сц"РРРџџяЭЋџџџџ€lt~h( Д/!О6ANFБUHЖVDНUYšbgŸpsžyzš}VЙfjЛt-ЧC4ЩJ<ЪQ9дQ?вVKФ\HЪ[CлZEи\OЦaLзbPбdXмmeЦslЫybвsLрeMцfOшgPрgRхiUьnUѓo[шrZьqZїt^њy`јzbў~~М…sж‡вџџџ '! )%"#,+) $) "& * џџџџљџ№џрџФŽ?ž?џџџџЧџуџсџѓџџlt~h( ПП2=Ќ:DЉSY›AJЇPVЅORЗNYОjnЃnrЃz{ЄgoК}~МТХа/Т-Я.Щ0Ъ1Ю'д.г.о0а2е3е&6У&:Ч';Э"7б%?ц1BЧ)@з/Fй1Eг5Lм?Sн@NРK\н`kЦirЧt~нG[цN`сTcуRcх[jшfwхj{ь|‚П}Ч|‹ъŽ.tlb#OLE Automation0G€ €q>uGoCAjDG‘€ ‡€GE072BCE4-9027-4F86-BAE2-EF119FD0A@0D3}#1G4 07H›gram Files\C`ommon:desk Shared\acax108deuVI 2012 Type Library€Dƒ[MSFormsƒ[MSFЂrms3 €ЁD452EE1-E08F€-101A-8-02608C4 D0BB4ˆPwPFM20.DLL#Microso(ft B @] OFbA…Х&/;Р&1?РhЩnAШn00ш}#0Тn#Р €ž50Ѕ€ …c09ED0E95-C60C-4480-BE7A-14C411CD9A1I‡Users\BOROWS~1\AppData\Local\Te€mp\VBE\Up.exd <@#€с.E р…€.`ŒM ДСе"ТаТ€МТвThisDrBa@YgG€TРЛilDrawingT 2 €HB1н-,B,B ЉЉ*"B+B‚pMo dul1G‚pM Fтd`_l1РAtЃ62Ўя ђ@э №z!ъ  !0G@{СрeрХVЪ2&г/Б/JмЅ#(@ уbsk Shared\acax108deuVI 2012 Type Library€DЬamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For ApplicationsМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation*\G{E072BCE4-9027-4F86-BAE2-EF119FD0A0D3}#1.0#407#C:\Program Files\Common Files\Autodesk Shared\acax18deu.tlb#AutoCAD 2012 Type Libraryо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{09ED0E95-C60C-4480-BE7A-14C411CD9A16}#2.0#0#C:\Users\BOROWS~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџџџџџmОP џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€МThisDrawing015003c96eџџThisDrawingџџЉЉ-џџ Modul1045003c96eџџ Modul1џџ№0џџџџђџџUserForm1075003c96eџџUserForm1џџJм0БџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ­дгќўВ M†{!зl+BЪџџџџ0&hIHADЅ^&ДюЕЁџџџџE=4ž0ZO„ЏуЖVƒoџџџџџџџџ0€02џX+{€џMe VBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`AutoCAD"јMSFormsC ThisDrawingЙ5 €џџџ_Evaluateй Modul1Э Ќ(User_Dialog UserForm1)жShowѕUserForm_Initialize5cCaptionxcmd_DimUnitsEinЏ>PicturePositionCdfmPicturePositionLeftBottomШcmd_DimUnitsAus +cmd_DimUnitsEin_ClickХОDimObjёИ AcadEntityІiDimObj1N­AcadDimAlignedіеDimType0№DimData№*DSet0™AcadSelectionSetЫЩActiveDocumentг\ SelectionSetsгAddїrErroŠClearуЭacSelectionSetAll.ТAltUnitswwUpdateвќcmd_DimUnitsAus_ClickguUserFormN ImageList1c €џџџInitializeгN€џClickŠу AcadDocumentZCount0vNumberЃ-ItemзzAcaЯr €џAcadDimensionowџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџ џџџџџџ џџџџџџ џџџџџџ џџџџџџџџџџџџ 6rU€€€ џџџџџџџџL$`œџџџџџџџџ$A` џџџџџџџџ$`ЄџџџџџџџџnimObjёИAcadrU€€€ ˜ yй Йй A ‰ С ™ щ  9 С a 1YЉйЁЩёџџџџy 4AaiбббЈ§џџ`Iџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8a‰џџџџџџџџџџџџњџџџ` џџџџџџdirџџџџџџџџџџџџmO__SRP_0џџџџ [ __SRP_1џџџџџџџџџџџџ Вџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<I Ёq дддџџџџџџџџџџџџџџџџ @Aa1 вввЈ§џџ`‰џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`W—а lќјxџ:hџ%xџ,€ќcќјxџTџ! QTџPџѕPџ Д Pџ 0ќcќјPџTџ! ”QTџLџѕLџ Д Lџ 0ќcќјLџ00(>xџPџLџTџl єѕ\џЂ:,џѕ@џќАKџџ;џ џ$џ$ 0 $џ и rU€€€ џџџџџџџџ$`§џџџџџџџџџџџn€џClickŠу€џrU€€€€~| Ј H$ў €џџџ$> kН €џMeasuџџ#ˆЖџџ№Ьдџџџџг'€МЉЉџџ#ˆЖџџ№ фtyЋЋ€МJмџџˆЖџџџџџџџџHџџ€ЪAюPIЛ$ВlŽzSЄт5TЬAЌ_JPІ\рйл™ж[ЌGЈ,yЎТыњТУm0;% mEЃЉhС@pt џџџџџџџџџџџџxУm0;% mEЃЉhС@pt €ЪAюPIЛ$ВlŽzSЄџџMEџџџџџџџџџџпџџpџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@SPџџџџSџџџџSџџџџSџџџџ џџ. џџ2 џџ:6"џџџџџџџџLџџџџ*џџџџџџџџLџџџџ”џџџџLџџџџLџџџџLџџџџPџџџџџџџџ”џџџџLџџџџ*LџџџџџџџџLџџџџPџџџџLџџџџ џџ`Pџџџџ`€ <h€ и€ џџџџ Ј А)Иа€ џџџџ!ј€ џџџџИ Ш и @ и€ џџџџ€ ш€ џџџџ€ џџџџ€ N€ N`€ NА"€ џџџџ€ €(€0€8€H*X€ џџџџ€ Dˆа€ :Ш€ј ;@ $ >0€ <8€ € џџџџ x €)ˆ € џџџџ!ј€ џџџџX   0 Ј€ џџџџ€ ш€ џџџџџџџџјрH------------------------------------------------------------------------рH########################################################################BрH##--Die UserForm mit Inhalten fќllen------------------------------------~– џџѕЖ*Alternativeinheit bei Bemaпungen Ein / Aus9 exdqџџР "ѕр+.Picture = ImageList1.ListImages(2).Picturery &9$ЖEin9 џџџџqџџ` (ѕр+.Picture = ImageList1.ListImages(2).Pictureraw &9$ЖAus9 awqџџoџџјрH------------------------------------------------------------------------lsрH########################################################################рH##--Ereignis beim Buttomclick auf ein-----------------------------------Se–@р--Filterung--!!!. ]ђ€]ђа]ЮЌђРdi]ЮЌђјThЌЌ+4FЖ dimensionЌ+6nits dр=-------------------------------------------------------------ts dЩ р3--Grundlagen fќr den Selectionsset Auswahlsatz--!!!!]ђ0эЖAuswahl <%>.88 BЌœэЖAuswahl <!>%@.8kџџ€р5----------------------------------------------------- 8ѕC@D Fаа 4 6C@Hqџџџ ,ўШ Diр Unload Me 8!X џџ( oџџ рH------------------------------------------------------------------------рH########################################################################рH##--Ereignis beim Buttomclick auf aus-----------------------------------–PрOn Error Resume Nextockauf]ђ]ђА]ЮЌђа]ЮЌђЌЌ+4FЖ dimensionЌ+6р=-------------------------------------------------------------ЩШрOn Error Resume Next Selec]ђ@эЖAuswahl <%>.88 BЌœkџџ(р5----------------------------------------------------- 8ѕC@D Fаа 4 6C@HqџџАџ ,ўШ Diџ ,ў 8“э ,.0 DimObЗ 0(Hр Unload Me 8!X џџ( oџџHэ ,.0Each DЗ 0(HSet 0B@JSet Di 0B@JmObjџџџџpџ ,ў 8“џџџџ8 эЖAuswahl <!>%@.8џџџџрр--Filterung--!!!р3--Grundlagen fќr den Selectionsset Auswahlsatz--!!!џџџџшџџџџОДAttribute VB_Name = "UserForm1" " €Bas€0{5435E204-1DCC-4100-AC5F-4A50A65CE016}{9918DBD9-5BD6-47AC-A82C-79AEC2EBFAC2} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹D'-aD '#D%- -Die …я mit Inhalten fќllФen!. PРDРF SubF_Initialize() WiPth M@] .€CaptionС—BAРrnatРUinhe!bei Bemaпung€"Ein / A„usР†End AFcmd_DimJU@s '€.PicturƒImageList1.A‚s(2Ž)…C EPos€-&fmХLef№tBot@xФ 1€џ]'0У '€Mj'ЯNСQ€k€џІ#"JПS?##B --Erei gnis рAm Bu!/click€ auf eiПSЬ--‹SŒE_CЁ УS€tFi!Q`N--!P!! РJ `Obj As AcadEntity)1Eens@ZІType(0)Integer FD€•DVariantB%= 0Ž:!Х€АdimУ  LР#Ÿ68 On Local Error Resbu`НNexр!G`rundlРfС€r d`pSelec!!vssetaqwa@hlsatzi%SOA#%ц` D=Р(}Doc nt.щs.AdXd("€U " †If! <> 0 АThenуgП n@цs* с]If?'г&р@&%B›сУ!.№Clea>aт ac)All,ю ! G?,Ѕ> УƒA MeшІс p.CouaGУ€є 0EachVInІ ‡‚&imр1 ‡Яр Чу1.АX’T #r‘1Upd9^ Б"tЁX'U nloadђ] џq ТEџџ ЏCЂяEыEaќusяE€P,щяEte5gяEяEДЩщEAlаPedFDеBгРџEtaџEmџEў"џEпџEџE~nџEџEџE GџEџEeџџE№/џEџEБ. ‚3@0њA0OvпџE!/џEџ)џEСX:џE џџEZџEџEQesA џEџt™џEџEџEџEе,љEЯTЖт@FxtdF FeExGTЙг4F1.GjG ‚G*045003c96e$*\Rffff*075003c96eп№tдАџџџџЬь€М№џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџš"џџџџџџџџ<џџџџџџџџџџ8 џџџџ`џџџџџџџџx|џkџџџџџџџџџџzz„џџџџƒџџџџџџpџџџџџџџџџџџџџџ%џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@mОP $*\Rffff*045003c96e$*\Rffff*075003c96eпўЪ}€ T€ TX€ TА"  € T(€ T€€ џџџџ€ џџџџ€ и€ "ј€  € (€ .0€ "`€ ˆ€ Ј€ (Ш€ №€ Dј€ @€ <`€ " € <Ш€ € < € `€ <p€ А€ а€ ,и€ 0€ X8€ H€ и€ ,р€ € 0€ P€ X€ `€ џџџџ€ џџџџ€ џџџџ€ p€ H€ Lи€ (€ &0€ @X€ (˜€ Р€ Ш€ 6ш€ 6 € <X€ ˜€ > € Vр€ *8 € h € *p €   € bА €  € :0 € <p € 2А € ш €  € ( € @ € 6H € "€ € 6Ј € р € 8№ € ( € @ € H € ` € h € x € € € (˜ € 4Р € ј €  € 8 € @ € n` € а € и € Nј € VH€  € \Ј€ € (€ Z8€ ˜€ r € "€ F@€ ,ˆ€ 0И€ .ш€ € 68€ 8p€ .Ј€ и€ 4ш€ : € 0`€ € " € Ш€ а€ р€ џџџџ€ џџџџ€ џџџџ€ џџџџџџџџјрN------------------------------------------------------------------------------hІTрN##############################################################################РІTрN##--Hauptprogrammmaske aufrufen-----------------------------------------------ј– B@oџџирN------------------------------------------------------------------------------рN##############################################################################рSub Example_AltUnits()р'--Variablen festlegen--!!!ррр('--Filterung bzgl. Blockauflіsungen--!!!рDim DimObj As AcadDimAlignedрDim DimType(0) As IntegerрDim DimData(0) As Variantр"DimType(0) = 8: DimData(0) = "AF*"рр>'-------------------------------------------------------------рOn Local Error Resume Nextр6'--Grundlagen fќr den Selectionsset Auswahlsatz 1--!!!рDim DSet As AcadSelectionSetр5Set DSet = ActiveDocument.SelectionSets.Add("Rahmen")јрџџџ+' 0&0$=# ()4"% * -!;8973.1 >277;@, A?5џџџїї‡яЧЯупёŸј?ќј?сƒЯуŸ§џџ,х€@cmd_Di  }8N<k#$,‘…бБjР№(6("$,‘…бБjР№(6(!$,‘…бБjР№(6(Иƒo,х€@cmd_DimUnitsEinЇЇ,х€@cmd_DimUnitsAusтЇPх €b €$€ImageList1tsП Ї9368265E-85FE-11d1-8BE3-0000F8754DA131AD-2614-49F2-B0FC-ACA Ein / AusФYl†ЯЋ|ЊРЯ dimensioKГ€0* pH‚dф ACADProject8@е = t  mОP( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\Windows\Sys@WOW64\e2If Err <> 0 Thenр5 Set DSet = ActiveDocument.SelectionSets("Rahmen")рEnd Ifр6'-----------------------------------------------------рOn Error Resume Nextрр& For Each RahmenEnt In DSetр) Set RahmenObj = RahmenEntрR If TypeName(RahmenObj) = "IAcadPolyline" Or "IAcadLWPolyline" ThenрA RahmenObj.GetBoundingBox MinPoint1, MaxPoint1рр% Next BlockEntр End Ifр Next RahmenEntрррEnd SubрSub Example_AltUnits()рA ' This example creates an aligned dimension in model space andрE ' uses AltUnits to toggle the alternate dimension units on and offрр Dim dimObj As AcadDimAlignedр: Dim point1(0 To 2) As Double, point2(0 To 2) As Doubleр" Dim location(0 To 2) As Doubleрр ' Define the dimensionр/ point1(0) = 0: point1(1) = 5: point1(2) = 0р/ point2(0) = 5: point2(1) = 5: point2(2) = 0р5 location(0) = 5: location(1) = 7: location(2) = 0рр7 ' Create an aligned dimension object in model spaceрO Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)р$' ThisDrawing.Application.ZoomAllрр# ' Toggle alternate unit displayрToggle:р\ Select Case MsgBox("Press OK to toggle the display of alternate dimensions", vbOKCancel)р Case vbOKр4 ' Toggle the alternate dimension displayр6 dimObj.AltUnits = False '(dimObj.AltUnits)р, ThisDrawing.Regen acAllViewportsр Case vbCancelр Exit Subр End Selectрр0' ' Display status of alternate units displayр' If dimObj.AltUnits Thenр0' MsgBox "Alternate units display is on."р ' Elseр1' MsgBox "Alternate units display is off."р ' End Ifр'р' GoTo ToggleррEnd Subрр Sub zoll2MM()р!Dim objSelSet As AcadSelectionSetр-Dim groupcode As Variant, datacode As VariantрDim gpd(0) As VariantрDim Gpcode(0) As IntegerррDim iBox As IntegerрhiBox = MsgBox("Zoll in mm = OK" + vbCrLf + "mm in Zoll = Abbruch", vbOKCancel, "Bemassung ќberarbeiten")ррOn Error Resume NextрGThisDrawing.SelectionSets.Item("selDim").Delete 'selection set lіschen,рO'wenn nicht existiert fehler, error resume - nicht schlau aber als bsp gehts...ррUSet objSelSet = ThisDrawing.SelectionSets.Add("selDim") 'neuen selection set erzeugenрр!Gpcode(0) = 0: groupcode = GpcodeрSgpd(0) = "dimension": datacode = gpd 'gruppen code und type fќr bemassung festlegenррkobjSelSet.Select acSelectionSetAll, , , groupcode, datacode 'selection set mit gefilterten elementen fќllenрFor i = 0 To objSelSet.Countр? objSelSet.Item(i).PrimaryUnitsPrecision = acDimPrecisionTwoр& objSelSet.Item(i).AltUnits = Falseр* objSelSet.Item(i).TextColor = acYellowр' objSelSet.Item(i).Measurement = 111р If iBox = 1 Thenр0 objSelSet.Item(i).LinearScaleFactor = 25.4р2 objSelSet.Item(i).UnitsFormat = acDimDecimalр' objSelSet.Item(i).TextSuffix = ""р Elseр- objSelSet.Item(i).LinearScaleFactor = 1р4 objSelSet.Item(i).UnitsFormat = acDimLFractionalр) objSelSet.Item(i).TextSuffix = """"р End Ifр objSelSet.Item(i).UpdateррNextрEnd Subџџџџ џџџџzЗAttribute VB_Name = "Modul1" '-J #JP--Hauptprogrammmaske aufrufen,П Sub User_Dialog()  ‚Form1.Show EИnd €€?J-h)I‘ 'jExample_Al@tUnitsm'€№Variablen festlФegAM!!!Р"ƒРFilterung bzgl.@ BlockРXl іs Dim РObj As Acad@AlipgnedT@ype(0)IntrЧDatfaФ&ntУХ =8 8:СХ €ЋAF>*СЊР @*јcOn Local Error Resbu€ФNexA!@GР@dla€H fќr dMSelectionsset Auswahlsatz 1-і-ƒQ‚=SAУD† Р+AD=@Lti veDoc€nt. s.Add("Rahmen"€Ѕ'If) <>€ 0 Then€€Њ ЄŠсYIfџ?(, 'q& ae`h Each У€Ent In п усI=gpW`!!D!˜(f)™IЁPPolylin€e" Or "B|LW‡Ј'%х† .GetBoundingBox MinPoint1р, MaxCpїE СH#gEЂZхщ1џ‰#у a‚A|@–|` ' Dis ec€ creat€es an aЃs( diрJsрX in model аspac@ЉnAwbŒus`х‡ to@€ggle thР-!„n  ( uсŒ oѓ€ рЅofLр@ !xWс…Ep",(р[oD 2†Dou`•,К "2/ш `”asƒ’ф' DefCŸBF „ЅсH0:Ch1(1С5ЦР=\ 0) I2+2>(*‡dт 7:Ž ц„ ' CТ8ёГ8objр’Œ9$!k€УjThisDrawp-.elSoaбFpKД[(Ѓe,F qH'бYApplicВ.ZoopmAll€Д(oB#a#a"а splдayPTђ:є3P Case MsЁ7("PressH OK,(di" ofP-№jл(s", vbOKCanјcel q 1ВЁя$uІ џ-n’2l“.v2= Falyа '(œ919Rqx acАVieРwportsx$ УГ ќExitд‰QпbBBjp т'8УРstatus;s;џз " V tSтЁѓd " erвš БHon.Сz"EPЯ яЁDяffјPEƒSkUGoTo ѓ#7  6R'РRzoрll2MMТqy`2џ&1‹ѓ&џџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{D70E31AD-2614-49F2-B0FC-ACA781D81F3E}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0mОP пўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{D70E31AD-2614-49F2-B0FC-ACA781€D81F3E} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2l“.v2= Falyа '(œn Rahmen(цzmAџгL‘н4‚[БЂQЬСY)w…лN­мnЛЋy&q ™ џџџџЯP(BОfфG!”†ž95ЂRИеј,•B†=Т…OZа‹р?jjOЊ Ј%§=G'ИfФЄŸIЛxЊ8<Лq јVBE6.DLL Ё џџџџ­ X3@?\I‹џ2Š8# џ , lџ= (џ)$џ џџ$џ $џ$џ lџѕЬ$џТ>џ:,џ% џ$џ$ 0 $џ и  џ  lџ= (џ)$џ џџ l(џќјџ џ D )@џMфў %\џMєў %'џ%',џ%ѕџ H ќcќјџ!џ(џ lџћўFдў%,€5дўl(џxџўˆаўh lxџ=tџ c,џ%tџў› tџ Ќ xџў‹аў9Ќl>xџаў(џ@џh)0*’ \џД-|.’xџtџ$џ џџдўl єѕ\џЂ:,џѕ@џќАKџџ;џ џ$џ$ 0 $џ и  џ , lџ= (џ)$џ џџ$џ $џ$џ lџѕЬ$џТ>џ:,џ% џ$џ$ 0 $џ и  џ  lџ= (џ)$џ џџ l(џќјџ џ D )@џMфў %\џMєў %'џ%',џ%ѕџ H ќcќјџ!џ(џ lџћўFдў%,€5дўl(џxџўˆаўg lxџ=tџ єtџ р tџ Ќ xџў‹аў9Ќl>xџаў(џ@џrїRЁа4M•ЂцCуše7AТЇpg№КK‹bJiЙ ˆEAltUnits’ \џ’xџtџ$џ џџдў84@HH AuswahlpP001Рgroupc Q‹qT‰, dŠLѕpіd/Œ‘GBЄ—T^iQe@‡=V/Z   ђ