ࡱ> _VBA_PROJECTdir<j__SRP_0 __SRP_1 K*rU@@@~~~~~~ ~~~~<"QsEI8U  a1 aa Root EntryPN~VBA_Project:wPN~VBA_Project_Version(VBA :w0~  F !"#%&'()*+,-./0123456789:;<=>?@ABCDEGH  !"#$%&'()*+,-./0123456789:;=>?@ACDEFGHJLMNOPQRTUVWXYZ[\]^_`abcdeacID="{B11AFB97-B868-4B11-9C39-AEEC5A77B558}" Document=ThisDrawing/&H00000000 Module=Modul1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="3F3D387B48858389838983898389" DPB="7E7C79BC87C4C7C5C7C5C7" GC="BDBFBAF9C639C739C7C6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Modul1=25, 25, 1439, 655, PROJECTwm;PROJECTThisDrawing S__SRP_4 KThisDrawingThisDrawingModul1Modul1rU@@@@~~~r 1 objRotateobjAngle  0 A PssNamexyz6-ȼ#__SRP_5IjModul1 $B__SRP_2 __SRP_3BA ACADProject ThisDrawingModul1F1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA  Po EM-)tԾ;C:\Program Files\Common Files\Autodesk Shared\acax19enu.tlbAutoCAD 1ap0FC:\Windows\system32\stdole2.tlbstdole !TextAutoRotate2 RotateTextUCS58D9I2!~ VBE7.DLLI  TEXT MTEXT ATTDEFPoint3D^PDtx~Fu~yBW"j-B3 Af気"ȔB{ SSCreateSelectionSetImH Nѧ(E9$fA &t 6A &mA  UCSXDIR&m  {fLH8s.Q &tQ};]G·eS:Q N0BJxTro9OȖ: &maOS LxŤ&mQFmmEZGetAttributesRJ@q4&mAo8J_Oم&mQ!(mQ!&mQ!Rotation &SfĤIx8<$f'XErr_ControllAtnQu Startf0* pHd ACADProject8@ = t  4S( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\Windows\sys@tem32\e2.tlb#OLE AutomatXion0tDxThisDrawingGTJisDrawing 2#H1 ,@"+ModPul1GMdtu1?2C737!entQ` TextRotrU@@@8`Xa`!^KP`SSPX` 1a *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications *\G{D5C3CB6F-AA0A-4D45-B02D-CF2974EFD4BE}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax19enu.tlb#AutoCAD 2014 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation4SThisDrawing1653fcbaf8#ThisDrawing Modul11Z53fcbb38& Modul1380QG*g4N%_~$4KsUW+HH@ AutoCAD" VBAWin16~Win32Win64xMacVBA6#VBA7# ACADProjectstdole` ThisDrawing5 _Evaluate Modul1(TextAutoRotate2SS'_AcadSelectionSetFltTypessFltDataobjTextjAcadText~objMText AcadMText  objMLeader0 AcadMLeader objATText/AcadAttributeReference^count0vAttsOobjAngle+objEntX0 AcadEntityiPtMinPtMaxЎucsAngleѦ transWinkel&lUCSX$fPI^ Err_ControllAtnQu StartUndoMarkl(CreateSelectionSetHKClearSelectOnScreen Exit_HereSS  Err_ControlSS GetVariable~Utility1JAngleFromXAxis(Point3DrfunPIۨ AcadAttribute+Rotatione (RotateTextUCSAcadBlockReference GetAttributes ContentTypeYacMTextContentQ` TextRotation TextJustifyacAttachmentPointTopLeft\oacAttachmentPointBottomRight<acAttachmentPointTopCenter4acAttachmentPointTopRightacAttachmentPointBottomLeftacAttachmentPointMiddleLeft"acAttachmentPointMiddleRightsacAttachmentPointMiddleCenteracAttachmentPointBottomCenter$)TextLeftAttachmentType"nacAttachmentBottomLineacAttachmentBottomOfTopLine-acAttachmentBottomOfBottomgacAttachmentBottomOfTop9~acAttachmentMiddlehacAttachmentMiddleOfBottomDacAttachmentMiddleOfTophacAttachmentTopOfTop3TextRightAttachmentTypeDeletex Exit_Herei EndUndoMark*Erro objRotate AlignmentI RotationPoint% objTextTypeTextTypeXttTextv ttAttribute3ttMTexttrMTextAttribute) ttMLAttributemttAttributeReferenceacAlignmentLeft93acAlignmentAlignedqacAlignmentFit<InsertionPointTextAlignmentPointoRotateAttachmentPoint!acAlignmentTopRight4GacAlignmentCenter acAlignmentTopCenterRacAlignmentRightacAlignmentTopLeftacAlignmentMiddle)acAlignmentBottomRightyacAlignmentBottomCenteracAlignmentBottomLeftdacAlignmentMiddleLeftacAlignmentMiddleRightacAlignmentMiddleCenter{ AcadDocumentZ_B_var_CreateSelectionSet ssName< objSelSet! objSelCol:AcadSelectionSets SelectionSetsItemzAddr_B_var_Point3DfxoylzqretVal; _B_var_funPIlH'  #  $   <@ HX `p x        < ` KKKb rU@@@xb   rU@@@8 A q  ` Q rU@@@~x,q q a !"$%(@ Q Q 1aQAQ!Q%QA P gg  g*qtgZgAgSgpAgSgpAgSgpAgSgpAgSgpAgSgpAgSgAgSg g(gg2  g,@?g v g  g*ZXgp xp p  hpZp hnpgK~gpgg.P8ggX0v g"X X!&gXU g88 n`g>`Upp pU pX gX"gXU"g$8 `g>`Upp pU"pX gX#>gX$hg0hqn 8g.@hV%g8( n`g>`Upp pU%pg ~X gX&4 gXU&g,?( g$`g`rHz>`?Hz>c2`rHz>c`?Hz>2&" g"`gg?g  g?g  g?Rg g?g g? g?g g? g g?R g g ? gggXg? g`P g? g`P g?V g`P g? g`P g? P g? g`P g? g`P g?P g`gghg? gp g? gp g?" gp g?Z gp g?z  g? gp g? gp g? gpgggX ggnX'ggX0ggZg{g$pppg  g$pppg v g{ 0(+'\ ''+'\'XhP@,p8Hip<gg0ZU*g+g2PDg8q8(ggg+Tg4X)U+ggwH<P, Hi  aS "a  Z &o)objRotate.Alignment = acAlignmentTopRight KT    (d  (k KT    (AdX  (Ak@ KT  0  (d  (k K2ȯxME  (08@h0, 4 8 < @0Jrx<> LLL PL"LLPPLPLPLLPLPL<(<0<8<@    $ >    0 0@.`8p>    , $"p $         < @ H X ` p x    $         <  ` h x     $          >(  h  p                      0  8 H P  $X  h p  $x   "                 ( 0  8 @ H P h        8 H  P `  h  p                 ( 8 @@               ( 0@ HX ` 0 0  00 8 HX `px         0(X `p x           ( B 0 @H 0P`2p84   B   2 8 @PW Dreht Texte um deren Einsetzpunkt um sie von links lesbar zu machen aufs aktuelle BKS.K Weiters wird der Einsetzpunkt auf den jeweils gegenberliegenden gendert.]X]x]]]]8]X]x]]]]]]](]@]XX$Z'V "B@\+.F+0 ) Frage nach den zu bearbeitenden Objekten$^.*SPS< Selectionset erstellen, Benutzer fragen und Filter anwenden *B@`1SP . 0 *B@bd *!BGdjfP get the X direction vectorSQUCSXDIR "%h'T get the angle in radians$n T "!j%l'P P'Rd p P 'Rk H * H H0 H.2oN 2!t P 'FoN 2 FA@v HeoN H.6oN 6!t'F 6 FA@v H8ehN H!z'D B D B$D.> >!t P 'FhN > FA@v BhN HehN H.:hN :!| ~ :!'F F VHz> F? VHz>  F VHz>  F V?Hz>  F V :(iN :!iN KT  :( KT  :( KT  :( KT  :( KT6objMLeader.TextJustify = acAttachmentPointMiddleCenter KT  :( KT  :( KT  :( KT  :(nX :!iN KT  :( KT  :( KT  :( KT  :( KT6objMLeader.TextLeftAttachmentType = acAttachmentMiddle KT  :( KT  :( KT  :(nP :!iN KT  :( KT  :( KT  :( KT  :( KT7objMLeader.TextRightAttachmentType = acAttachmentMiddle KT  :( KT  :( KT  :(nHobjMLeader.Evaluatek kd R H(tk Hd *B@ "B@|X B@`f B@`dpohp]](]@]`  ' 0e ' e '  e ! 'd 'kk$Z'V F VHz> F? VHz>  F VHz>  F V?Hz>   K K KT ! K K KT !'S !'n KT !' KT !'n`  V B@   ! KT  ( KT  ( KT  ( KT  ( KT9objRotate.AttachmentPoint = acAttachmentPointMiddleCenter KT  ( KT  ( KT  ( KT  (n  (d ! KT  ( KT  ( KT  ( KT***** Sonderfall *****)objRotate.Alignment = acAlignmentTopRight KT)objRotate.Alignment = acAlignmentTopRight KT Sonderfall)objRotate.Alignment = acAlignmentTopRight KT    (d  (k KT    (dX  (k@ KT    (d  (k KT  ( KT)objRotate.Alignment = acAlignmentTopRight KT  ( KT  ( KT  ( KT  (n@ ! K K KT  (S  (nkkoSS]H]h "!.   !   %B@y`kXP  %. .^i ]` +F +F + 'ni Attribute VB_Name = "Modul1" ' Dreht Texum deren Einsetzpunkt *sie von links lesbar zu mach\aufs aktuelle BKS.Weiters wirdW U3n jeweils gegen@berli dVgentMPublic SubAutoRotate2()  Dim SS As AcadSelectionSetFltTyp es(7)In t7rDataVarianobj1M LeaiM AT !HRefcecount%LonNg s ]AnghHDoT.ENityPtMinA@axRucsF transW elM#UCSX[ H#I Orror GoTo Err_ControlPI4 * Atn(1@ThisDrawing.StartUndoMark0)-4: @"C -' Frage n„bearban Objekt enF?Resu=`N#`A= xCreiA'V  tAn, Benutzer fn u@nd Fil 0anweA S.Cl # OnSXcreA,E R CIf.Cy=0 0 T!#Xxit_H~SSB\ '`t the X dirC vokF=` ^Gettble("DIR6"dG a`ra:ds F}K Util.€FromXAxis(Point3D(0, A), D ! ! ajɆ%XElsO2}fun`-  9IfbF EMDIn3C 8Of ̂Or :  !S@ = +#.@ ! aa* , l!)Q  !  . 9  @kI Blockfr_ts@[ m./t,q 1 9UBPvDd(s) pe0 Step -1K aT|=(r-A53l-OP Ro-4@Rt$$ 4.xenacD a,/C2> >/ 2@ + 0.01 A><= 1|.5AIP<9-{> !*y2 @  + e Caseh.Jusxtif=Ba6cP,NmBXTopLefԭo< BottomRigh/`CP eant?y_op? t?R)_QMiddle _ 'OK   )On 1 J% objMLeader.TextJustify = acAttachmentPointTopC!er CasepBottomRight:R*LefNEnd SelecA= `C4Typec~Lin}9 Ƀ+Of.HOfC2|%H2#ɭI:H^W7IAlmMiddlܐ'H "G"h@6 5Gl_ #N _Y _5K_Y CB? .3#\A,! EE!-h%EE 7 $F F/ c,t%xht+#Ѐ^8? I{Oe_tOk)#ra#8e. ],ࡏ#He)s ?PzO#Ev`aluatvUIf9ElsPEnt.Rot ation(transWinkelNa Exit_HereSS:3SS.D ThisDrawing.Und`oMarks Sub0rr_C@ontrolErr.CleaResume *OJSSrq PublTicQ eUCS(@ As Acadity,AngleIqDoe) Dim AlignIntegVarian$PPIqsRIf 1Of t Is 1 Then&Y= tt!#e 1ribute1b v_ dM_2dRefP*nc =C.r&LttMLA?7-FV ( / 2 + 0.01 A  <= 1.5 IOr,0-{> !*y%'  )tType Case ttAttribute, 0ReferencTText vSelect objRotate.Aligpnmen`4-ac%Left, ed FiMQwionPoi nt = Inpsert`GEls 0dÂ?2End ttML<.LQ1Ze , PIF46Ifh%k@A Then ^ԗttach\> TopKExG2cI'NBottomRighC@ert+ -3)sMiddle/ +6q/ /(C/'? DIy 0 #0d6_@lb i0&_ǿu /////uK@[jǂ/Ѵ %ElC7CQ/bB5n sPoр8 M$Z'* Sonderfall O O ? .c?/kϖQ0'7_1T!{%q1]pOy C O: /,DIfp3GomG  2&) $Wq##s/,,OQCܻ[A d*qo;;nmentTopC`er Case acAligBottomRightvobjRotate.f = Lef zEnd Selec  b f w, ed FiM9InsertionPointoxCElse Text . -2If Sub Public FuncA4 CreoZ@4Set(OpAal ssName As S tring@>"SS")AAcadI 7Dim @N Col >sC0CA = ThisDraw $. ! For Each"InC If.B:=z 0=Varian`dc;retVal(0 To 2 #e) x: 51y= >z#^DZȼ#px~Fu~yBW"j-B3 Af気xAf気x~Fu~yBME(SLSS6"N0{6A221957-2D85-42A7-8E19-BE33950D1DEB}  0%@p%"%Hx@x((84S$*\Rffff*1653fcbaf8`xAttribute VB_Name = "ThisDrawing" Bas0{6A221957-2D85-42A7-8E19-BE33950D1DEB} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2