ࡱ>  *\G{000204EF-0K*mrU~~~~~~~~~~Z H2A9KZH  a Y 9Yy9 ThisDrawing ACADProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !`;HA?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\^_`abcdefghijkl  !"#;%&'(*+,-./0123456789:<=>?@ABCDEFGacadID="{96A36C78-C211-4FB4-959E-3A6CA88E438A}" Document=ThisDrawing/&H00000000 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="1715FA15063B193F193F193F193F" DPB="2E2CC30ECD32E533E533E5" GC="4547A823A83BA93BA9C4" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=19, -6, 769, 399, ThisDrawingThisDrawingPROJECTwm&PROJECT|ThisDrawing 3_VBA_PROJECT Wdir$<__SRP_2 ]__SRP_3)F__SRP_0 rU~}  u_stu_enu_cpu_clu_epsu_epeu_cpn1su_cpn1eu_cpn2su_cpn2eu_dffgu_errfu_pru_lperu_perpu_p1u_p2u_vvu_erfgu_aau_bbu_ccu_p3u_p4u_pcu_entnu_layu_lnkdu_colu_pp1u_pp2u_lnkL)KBx"k AcadDocumentufc00002 ufc00002a ufc00002bufb00001ufb00003ufb00004ufb00005ufb00006ufb00007ufl00003ufl00004 @ SSS1l80* pHd ACADProject8@ = t   mB( J< rstdole>stdole h%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\e2.tlb#OLE AutomatXion0tD{xThisDrawingGTJisDrawing 2#(H1kX ,@T-"+AsrU @$`}`A`0)AYq///+++////&&L` ///+++/&<`1//+/&D`am *\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{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}#1.1#0#C:\Program Files\Common Files\Autodesk Shared\acax16jpn.tl__SRP_1b#AutoCAD 2004 000 00000*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation   mB{ThisDrawing09426d20caThisDrawing-k NV 5`,=$NAnd AsCall=DimBDoubleDelseHendif_IfjIntegerxlongObjectOrSetThenToVariant AutoCAD"@ VBA@Win16~@Win32@Mac@VBA6#@ ACADProject@stdole`@ ThisDrawing5@ _Evaluate@ucutlinc'@gpCodW#@f_typ[@f_dat)@sset/.@AcadSelectionSet@sset2V@wclen@scnt+@scnt2+@ddfgI@objEntb@objEntX0@stPoint'@enPoint|2@CrsP;@EpseP@vech@errf1@errf2@errf3@vec13@vec23@vec33@stPoint1g@enPoint1q@stPoint2h@enPoint2q@ii]@xw1}@xw2~@xx1@yy1M@zz1@xx2@yy2N@zz2@xx_@yys_@zz1`@leng}@pp1@pp2@Utility1J@Promptm@ SelectionSets@Addr@SelectOnScreen@GetReal9g@Count0v@MsgBoxR@Itemz@ IntersectWith@ acExtendBoth@ StartPoint@EndPointy@errfH[@bcal3dvc@Sqr(@ ModelSpace_@AddLine8@Deletex@bcalleng@ppi1@ppi2@llen)@lllen@bcalvect@eps&@ppo@erfgY@dlens@xv_@yvt_@bcalperp@ppip@veco4@ierrfS@xvl@yvl@bcalcrsp2@ppi3@ppi4@ffg@ AcadDocumentZ@ufc00002 @IsNull@ss'_@cspa@ ActiveSpacee@ acModelSpace@gcod@ftyp,@fdat@nni^@ufb00001i@ve1V@pp3@pp4@ve2W@ve3X@pw1@pw2@epe@ss1Q@nn1۹@ss2R@pk1@pk2@nn2ܹ@ _B_var_IfP@ufb00006n@finw@_B_var_ufb00006i@ _B_var_errf@ ufc00002a$6@_B_var_ufc00002a/@cpno@ _B_var_Call@ _B_var_finK@ _B_var_cpn<@cpn1@cpn2@ _B_var_cpn2)@Intege6@ _B_var_errf2@ufl00003Hu@_B_var_ufl00003L@eee@layl@lnkC@colH@dffgS@wwwwwwwwwwwwwww{@u_st@u_en@u_cp@u_cl@u_cpn1@u_cpn2@u_dffg@u_errf@ps1F@pe1@@ps2G@pe2A@ ufc00002b%6@_B_var_ufc00002b/@u_eps9@u_epe+@pepl@ _B_var_peplr@ufd_@_B_var_ufb00001i@u_p1J@u_p2K@u_vvM@u_erfg@ll^@l2^@pp^@pep_@ _B_var_vecy@pe^@ _B_var_peR@ps^@ _B_var_ps`@l2e1@lenl}@ _B_var_lenlq@sq%_@len1|@len2|@u_cpn1s@u_cpn1e@u_cpn2s@u_cpn2e@lpe@u_prk@u_lpe@u_pepr@Ul@aX@pc^@ _B_var_pcP@ _B_var_pp]@aa{\@rvcy@ufb00007o@_B_var_ufb00007i@ufb00004l@_B_var_ufb00004i@perpT@ _B_var_perp@lper@ _B_var_lper@sj@u_lper@u_pepr`@u_pert@u_perp@ufb00003k@u_abc@bb\@cc\@abcr@ _B_var_abc/@abc81>@u_p3L@u_p4M@u_pc\@u_aa/@u_bbU@u_cc{@u_a@u_}_@dd\@aa1ur@aa2vr@bb1w@cc1q}@bb2w@cc2r}@di\@ _B_var_di@a1k\@b1\@c1\@a2l\@b2\@c2\@dda@ _B_var_dda@@xc_@ _B_var_xcx@yca_@ _B_var_yc @ufb00005m@intgerCA@ _B_var_xx@ _B_var_yy@m1'^@m2(^@lw'^@ aaaaaaaaaa`@pw^@diimCd@ _B_var_diim@doub @xl1 @yl1@xl2 @yl2@x2_@ _B_var_ss@CosO@Sin@objEnt1@ _B_var_aa#@u_entn@u_lay@u_lnkd@u_col[@_B_var_U@Linetype@color2F@Layer@ufl00004Iu@u_pp1@u_pp2@u_lnkV@linObj4@AcadLinee@ _B_var_set@Tk@ hisDrawing@Update@ Linetypes@cpn1s-@cpn2sR@cpn1e@cpnew@cpnee@cpn2eD@ _B_var_lnkTl@u_cpn1se-@_B_var_u_cpn1set@StringrJ@ _B_var_Epse&@ _B_var_sset2@ _B_var_errf3@<Iay1//++++&LA` 1////++/&L` 1////++/&L` 1////++/&8`I//+/8A ` !;000< `9Qi!//000ni" hi$ qoBU`)gHBM^ SSS2 LINE 000Y00}R0xb(}R)Ҧ,@yU ʨy $gRn0xbo0}R0xbW0f0 NU0D00StartPointEndPoint 000Y00E^0eQR: (000U000}R0xb (pe}RS): :000U000}Rn0xbo0r0h0d0N Nn0}R0xbW0f0 NU0D00 000Y00E^L0wK0NN0~0Y00 NpL0d0K00~0[000VBE6.DLL  0  S  f  F  G  LayerLinetype color acadiso.lin55IQLb- *ɦ G=8,&_2H*F?XNP|qG IwD Delete/  `^  Bu<u!= &̣BCLOx̣BCLOj~-Bu<ME PSLSS  4< 6"<N0{8E75D913-.(^0l0 k{-#<j~-Bu<u!= &̣BCLOx̣BCLOj~-Bu<MEX @[LSS  4>"LPLLLLLPLLLL<\<`>z i  Hi" hi$ i&i<`( (`:0 8P`$Lk8 22i  X i"     ( ix  @i<( i> H i h i$  i.8 (@`h `k  iH ( iJ H i< `Xi @p`^ t``l`8zi i( 8 iN$ `P`H`X< `:FU  %`p  `o|yy` h H `X4   `"@`, `. `0 t@`p hl` P i> Pin$ 0iph( Pir, pit0 i,4i.(8`^TU` 4`8z ``8z``<``L `PXD `k!!iH iJ 8i Xi xi<i> `X,i8$ iN(WW ``4`t ``l 3x( x `d` \` Tr * `)0k8 x(P  ``k&&@iH iJ 8i Xi xi<i> i8$ iN(P`^T``L`PhD`<`4`H,iH  `k&&fiH (iJ Hi hi i<i>( iH$ iN(i  V\ H @0 `X   x`h'kiiJ i, Xi.  ( `)lk i iii @hl @\ @XL ii08i X Hh H`Xh@XPp @< @4 p @0 @, @( @($ @@  @ @ *@ @ @ @ x`(0@( @ @ @ @ @0 @H @ Hx@0@( @H @` @x @ @ @ @ X p xhh x@$ @ @ @ 8 H    8!@ T @ D @ 4 @P!$ @! @ ! @h! @! @! @! @" @! @! @! @X"t @("d @@"T @"D @p"4 @"$ @" @" @" @ @ Hh(p 0$###8@ @# @$ @$ @H$ @`$ @ @x$ @x  0H   %0%%%@H% (@`% @x% @ @%x @%h @X `@&T @ &P @L '& '@& @8' @ @P' @ xh((((@ (D @8(4 @P($ @( @( @( @ @ @( @ )@l 8**h*@*t @*d @*T @*D @4 @0   ( x@|h mB$*\Rffff*09426d20ca*\R1*#121*\R1*#db*\R0*#13*\R1*#11c*\R1*#11d*\R1*#11d*\R1*#3*\R1*#11e*\R0*#14*\R0*#15*\R1*#5c*\R1*#95*\R1*#5e*\R1*#84*\R1*#5f*\R1*#11c*\R1*#11d*\R1*#11e4"  >  H ( 0 @ H X ` h p x  @PX8#  p8@` 7h1  71     0   0 . @  X  h  .+ x                ** 6 .p         D+  (&+x8 @H!` "@#  &G$ P @`%(8%h>c$ `  $$$ x$ p$ H$&  `$&@$ P#`  X `   h  "$H R(      " & & &@ & \h 00(      ( 0 &'p`   " "  &+  &+  &+H  &+p  "  "    /  /    )8  )X  x  )  )         (@ H Ph px  " ,h     " &  "H 0X`h`/p/  X x    0 H +x 1 1  `$ &' /0/P p xPX`" @ $ 0 H ` ,x 0 8Ph    (8@Hx p "     @ 0@H@P//  P":":hV"X &h     ( ` "  0 HX8P08`"" @  ('p ('  xX" &H $H $p $ $  " 8 08p`h&'p // ))  )) H h x  8@" & $ $ $@ $h  "  0 (8@HPX`h&'p // ))( H)h)       ( 0 8 " @ `# H ` x  !!!!  / /!&$H!&$ !1p!1!X#" ! ! " # 8" # " X" h"0#"# " # x" " # "! 8$9" # # " $" % ]@SSS2 !n%z$Hz>'] ]P]H] : ]]]h]X]]`]]0]Hk]k ^+Tk @ D   A* ]]h    Jbg镝Z߂܂BA@xJbg镝: !j%t'"I(1$JbgI (): !jB@l.:Jbg̑I͂ЂƂˆȏ̐IĉBA@x0 8 kdSSS2 !n%p.ic   B@ra\a !v'k\'(  t;'(k "  es'(k (20  s;k "  grkdx L am L %z.,fil ,!'.es ,!'0es$.+f\b$.+fro$0+hp $0+hog B@ B@o]](P , 8 & < k]u_prF߂邽߂̓_  " < 6 :A :+$ +n+ &@'R$PʃxNg߂iQj 'u_p1F̎n_$u_p2F̏I_u_epsFe덷&u_vvFPʃxNgiQj@ó)u_erfgFG[tO@1FG[@ó]]]]]]]$H+f$H+f$J+h$J+h$h$f '^$h$f '`$ ^ ^ ` ` $'P'''N P <  ^ P' ` P''Nk +L](]]$"$  '^$"$  '`] ^ ^ ` ` $'d d < ](]X Jbg8ŏɑIꂽŎȍ~ɑIꂽJbgh SSS1 !n%z$SSS1 !n%z. B@k !'  MbP?'+ 'LINE+SSS1 !n%p.   B@r !v' d( %z. !'. !'0$.+$.+$0+$0+]X] ]X ]p ] ] ]]] ]8]]]]SSS2 !n%z. B@kJbgI(P)F !jB@l$ŏ̑I͂PIĉBA@xkkko +Lo ] ]8kh$ +n]P]h$V$6 R +p^$"+t R]$V$6 R +p$V$6 R +r$V$6 R +r$"+t R < 'b$"$  '^$"$  '`] ^ ^ ` ` $'d]]$ $V '^$ $V '` ^ ^ ` ` $'j$"$V '^$"$V '` ^ ^ ` ` $'l', j b l b k ', j b l b',k j b l b',k ku_stF̎n_aru_enF̏I_ntu_epsFe덷u_u_epeFe덷iKipj@o])u_erfgFG[tO@1FG[@óLJbgʒu𒆐SɎw肳ꂽJbĝQ̍W߂u_cpFJbgʒuu_clFJbg镝Ȃu_stF̎n_'.ku_cpn2eFQ̏I_@ó u_lperF܂ł̋@óFu_perpF̍W@óo͂Ȃ  " $ < > v V 8A8u_cpn1sFP̎n_@óu_enF̏I_u_epsFe덷u_epeFe덷iKipju_cpn1eFP̏I_@óu_cpn2sFQ̎n_@óFVu_dffgF0Fo͂Ȃ@1FPó@2FQó@3FPyтQó@ó2F)u_erfgFG[tO@1FG[@ó 8 :'.] u_p2FP̏I_]]] ]h  " < 6 8A 8u_p1F̎n_u_p2F̏I_u_epsFe덷]X $H$J  P' )u_erfgFG[tO@1FG[@ó]p ] ] ] 'N]h] $J$H  P'+ 8 :]u_p3FQ̎n_$J$H '^ '$J$H '` $ ^ ^ ` ` $'Pu_p4FQ̏I_ ' P < ` u_epsFe덷'N'Nk  < 'Nko̕߂:u_aa,u_bb,u_ccF̕@u_aa*x+u_bb*y=u_cc@ó]@)u_erfgFG[tO@1FG[@ókko&̍WlƋ߂]]0]k++ ,   A$6+T$6+TV@'o] ] T   A$x d$ '^$x d$ '`] :4(u_p,]  " x T < >  :A$$x '^$$x '` ^ ^ ` ` $'$J$H $H$J$H $H  P' H J <    8A_bb*y=      + ƗĽ_߂      +u_p3FQ̎n_iLj] 8_]]]Xu_epsFe덷u_epeFe덷iKipj'u_pcF_@ó Ɩ̌_߂egu_p1FP̎n_u_epeFe덷iKipju_pcF_@ó   <    :A     ')u_erfgFG[tO@1FG[@ó'N H J   < >  8A$$ '^:A$$ '`$$ '^$$ '` ^ ^ ` ` $'kou_p1FP̎n_iju_p2FP̏I_iju_p4FQ̏I_iLj ^ ^ ` ` $'P$$ '^$$ '` ^ ^ ` ` $'`   < ']H P  $+$+'Nkp LƗĽ_߂u_p1FP̎n_iju_p2FP̏I_iju_p3FQ̎n_iLju_p4FQ̏I_iLju_epsFe덷u_epeFe덷iKipju_pcF_@ó)u_erfgFG[tO@1FG[@ó]](]]]0]H]`]x'N H J   < >  8A 8$J$H '^$J$H '` ^ ^ ` ` $'P$H$ '^$H$ '` ^ ^ ` ` $'$J$ '^$J$ '` ^ ^ ` ` $'   < ' P  $+$+'Nkkou_p1F]O̓_u_pcF]Su_aaF]pxixju_p2F]̓_@ó]` S! @f@'$H$ 'F$H$ ' $  $  ' i $  $  ' ͬ$  +J[t$  +Jx]]x]]]wAAF𓾂 !('F}ou_entnF}`IuWFNgu_lnkdF@ó !$'́ !&' u_pp2FI_WW u_layFwF u_colFFԍ , . !%.2  2(&@} (u_pp1Fn_W}o8]  ,+ko`]Wl߂`u_colFFԍ@ót,u_layFw@óleP 0 2($! u_lnkF  2((lino 2B@<wing.M   8$ B J   A* 8 `+Tfk ,B@8A+ f h  "   @ D B J  :A $   f h    8A2 ThisDrawing.Linetypes.Load u_lnk, "acadiso.lin"$_‚܂B !jB@l: MsgBox "_‚܂B"%Attribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2Option /licit  Pub Su b ufc}02() 'JbgŏɑIꂽŎȍ ~  Dim ss1 As AcadSelecYBSe?2cspaLonI eps Do71Pe gc od(0)In tegerG(ftypVarianH&fdat  nn5$objEntObj:A@tPointenpk1(0 0To 2/5pk2wclena ddfgCii5nnBh: ):pp,p,finY4errfXN.`cpn1sYe2=2:df*G(lay(S#[lnkco lOzrror ResuNexdXIf Not IsNull(h.)qs.Item("SSS1")) ThenVajSetBx=f'.D ~tsEnd If?n(252w5)26A9`ve¾acModelC 'ᓀ= 0.001'ep!Á = aLINE4a <Utility.Prompt "'"!(P)F=s.A 1LPMsgBox "  ĉ0jB E"z5 eZs/0oisZ= .StarC [.\{\)*e1 1< ^$``-"GetReal("ͼ:"&&т&@ ():!3'<ׂ7'<ss2D?'tPa1ql12'9q= 89QR)2 % /@Fr!B;&B- 5%0ELrFF4>p 3.oGF]OHp1IoJC(allbr6(@T, pP@p1A,2,4AefinJ3'(_‚Ă(?(RwR, sa($0,GsA_?/, Bb2p2a@2:^P͚zT l 3(., lmay, lnk, col) If dffg = 1 Or,23 ThenobjEnt.Delete2End If')Call ufl04(cpn1se,Z5Z2Z2Z]6NextKxM ss1Nss2 Sub Public ycy2a(u_st As Variant, u_en cp llDoY_T@ps ec %2 W({Integerrrf!D'Jbgʒu𒆐SɎw肳$ ̂Q̍W@߂ 'a.bFCn@enEIDcp&FKclepsF@e덷$e'iKi໗pj,$P@ó& o /2"Q=u2e p0F0F!Ȃ(@1@2)Q3%yтerfg$G[tO"  Dim lpFZCZpep(0 To 2)B5eE1Evejc2l l22xxayylenw'BNenNÇb‡ccpbp@b}p@(, %타&= 0 A u_cl >a kkb1 ^,v , 2 :$ 2ۀ7h =@/ 2#a1o(0):iq(117e73- * l2n1e 2s= + `np n2 *=` +3K0+e -st>,4@ 4^,@= Sqr( * @+ *@  C[  !n1@!5 0& 9!,u_l= 3k 0=< D6R>e|*% b<A1  1 C0ٴ ?q OUpr߇E KsWSH^|, jBpANv/ ll߁6 ` 0#%a!!u_vv}= xv"b!y e3eDF;, Zmu_u_bbGNccY!il̕el_p?ko/k,u_c&c`l @!*x+*y="mm9& C1l9BG "_W*c` dWbWD_R8= C͠h a4) -) !*%J2  )0{TO#`8s1.bag1xaap3!)c4 /0=eepe?O}/0'(dƖ̌X_0afPf@fp3gQ>4GOiFi gjiKipn4 jgjkjmzT@g3abcb_`nc_Pa__P#p: dd7 ddam]=iW!2QK1, b0c0ke=340b}0c0 >rqj >A0i0 = a`* b2?*8 a2 Q. = Abs(ddaD_n10<(i* - =c2=dd7@@Cc !j@1AAA5GB$?2! AA AA`&AyALdBArA~iD;BLCi DxDD_DDEDDc%w{{Q{QmHCmOEPlw?Bf>ck>p=4m?g@pw,oT_? ㅅ4a~3aŅ4(1) - u_Dp3 ll = Sqr( xx * + yy$yy)X =0pw(0_:^::1:m1(4X`4e `2 `lw$E+ m2epsoHIf > Then cK= K{ {Perfg<0(End IfSub Public  uf$b06(?1 As Variant,2 3 :4 _?%u_S@A Doeepe pc4#Integer@z'LF̌_ 'A1F P̎n_i jR2I3QEE4C ;Fe;GiKipcF2@ó @uFG[tO@1 ZDim errfqMcA To 2)]G@ZCgGPPQH _lDeX1Ca $S5"SQ34,`Jpw,d`ma!= 0 mŌ2aF CA)2in 1 lzE 1S a¡ d)?4= w+!(@&A `be7raa'aHp]WlnO̓@x!ASwaaFpxi`Ax cRxxl{ntxl2oy H* 3.14159265 / 180#A"MDY;y1c0-1sCos(aa)a- Sin?Uu!+ ?.""&+ SP@lX2 $olo3!"entn Objecolay@String!lnkdcol"wAPF4i c}`IuWFNgb"p"_!qfpFԍ#u_ !.Layer" inetype opo16b416p") J4, =S 0`2}}~pp1~!:pp}!ynkC6lin AcadL ThisDraw !.Qs.Load!, "aiso. "Set =RModelSpace.AdR#Hp2 tnkr`Updat& rU 0 "y@   A ! i y  Q y 9 Y 9a1Y 4a XWWW K7:%$  Qo 5y1:%$  l=x) x X7:%$  Qo 51:%$  l=t) t X$ lqplpMbP?thHz>t` HHM 4: $  l .$  ,l=x)M %4x Tx lql +'<'\'|: N 6|\<(%x QW W(%B5(%B5(%B5(%B5*4:%$  8 o4t$  l .$  ,l=t)M %4t Tt lqplxp oohp kl+'<'\'|:N 6|\< ooh +'<'\'|:N 6|\<ld,!li%t Q"aa|@6|W W(%B5(%B5(%Bl5(%Bl5GJPYM ``hlY ML`Y$Ml`Y(M`YM` kJp$  l cYM`YM`YM `0Y ML``hPY$Ml`lY(M`YM` kkkk !kkQ&Y(M`0YM`kk&Y(M`YM` f,& x X t X`0 ` k k4x$ ^tY(`0P ,&l0H0$|\<l'V\YM`tl llll kVƃg6