ࡱ> ~__SRP_0 i%__SRP_1n__SRP_2 yR__SRP_3CtW80 x  0   0   0 `  0   0   0 h  Root EntryƳq+VBA_ProjectJ޿ƳqVBA_Project_Version(VBAS޿`   b j!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]_vdca|fgelkhmnopqrst`^wuz{}x  !"#$%&')*+,-./0123456789:;=?@ABDEFGHIJKLMNOPQRSTID="{CD819139-4ADF-4FC7-B9B6-563EBAE11E4D}" Document=ThisDrawing/&H00000000 Module=UtilObj Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="2B2909338537853785378537" DPB="A3A181BBF8BCF8BCF8" GC="1B193943B044B0444F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=44, 44, 433, 518, C UtilObj=66, 66, 645, 540, Z PROJECTwm >PROJECTThisDrawing __SRP_4>__SRP_5 <ButilObj "y_VBA_PROJECTdir `rU~}  y pThisDrawingThisDrawingUtilObjUtilObj\0* pHd ACADProject8@ = t  n=( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^MSForms>BSFEr@ms3DD452EE1-E08F-1 01A-8-02608C4D0BB4DFM20.DLL#Microsoft 9" \ Ob Library/;C1sA00}#0#0r 7A03CB88-31AD-4CBF-A0C1-D73321E2.A-@OP\VBE\G.exd /.E .`(M AB"XBThisDrawingGThi^Drawng 2 HB1B,B "B +ButilUcGui@Opbj@ A2ObO;!H<jxX#<k)UJOBŎ2Pu!= &E^ L]xE^ L]k)UJOBŎ2PME(SLSS6"N0{8E75D913-3D21-11D2-85C4-080009A0C626} (%H` % %`h8@tt0n=$*\Rffff*043ac075e34 xAttribute VB_Name = "ThisDrawing" Bas0{8E75D913-3D21-11D2-85C4-080009A0C626} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTemplateDerivBustomizD2 dt  0)t$ tt lt>N'''8 *#h tt ,lh*FX 2ht6X8pllx k?'''8ll*#h *#lp*FX 2h6X8*'''8ll*FX 6X8K0xlpHhtX8     0        _rU @nrU  ) Q 4y a am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#D:\AutoCAD_2000i\ACAD.TLB#AutoCAD 2000 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{7A03CB88-31AD-4CBF-A0C1-D73321E2D0BA}#2.0#0#C:\WINDOWS\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   n=XThisDrawing043ac075e3ThisDrawingutilObj053d7110feutilObj;b8({EG\͗ix Dy HM As=DimDElseHendifRFalse^GoTo_IflLBoundObjectResumeSubThenTrueUBoundAutoCAD"VBAWin16~Win32MacVBA6# ACADProjectstdole`MSFormsC ThisDrawing5 _EvaluateutilObjgPopulateVObj1d AcadCircle,centerW;radiusV ModelSpace_ AddCircleObj2eAcadLineeP1^P2^AddLine8Obj3fAcadRaylP3^P4^AddRay0ZoomAllm$ SSmethodsjnewSSetRAcadSelectionSet SelectionSetsAddrssObjsLCount0v AcadEntityii`ItemzAddItemsStatus+ClearRegen acActiveViewportrNDeletexMsgQvbCr$ ObjectNameMsgBoxRSelectOnScreen Highlight_ SelSetGetssObject Application*Update SelSetMove:\EntCopynVCopyƿMove>yColor2FacRedSelSetUnhighlightB SelSetDeletes SelSetFilteroGpCodeAGpData acByLayerModevFilTypeFilDataacSelectionSetAll.acGreenbGroups CollectionW AcadGroupsA AcadGroup6 SendCommandcInitializeUserInputkKeyWds&cUtility1JPgGetPoint/Erro Description  vbTextCompare QuInputIGetInputeGetAngleRPromptmvbLfT% GetCornery GetDistance( GetEntity returnObjG6 AcadObjectRETRYNE EntityNamexExample_GetIntegerޛ returnInt GetIntegervbCrLfExample_GetKeyword- kwordListJ returnString GetKeyword2DExample_GetOrientationZretOrientationGetOrientationExample_GetReal returnRealK7GetReal9gExample_GetString_ GetStringNoNullExample_GetSubEntity PickedPointr TransMatrix ContextDatawHasContextDataL NOT_ENTITYTRYAGAIN GetSubEntity>IIfzVarTypepvbEmpty˜TypeName vbOKCancelx? vbInformationnvbOK%Example_AngleFromXAxisBvpt1kpt2lretAnglerJAngleFromXAxislineObjmExample_AngleToReal^angAsStr{Unit angAsReal acDegrees AngleToRealVacDegreeMinuteSecondsʈacGrads MExample_AngleToString]angAsRadrs precision angAsString AngleToStringExample_CreateTypedArrayK splineObj AcadSplineڜstartTanendTan fitPointsCreateTypedArrayvbDoubleb AddSplineExample_DistanceToReal  distAsString/> distAsReal]8 acScientificDistanceToReal+ acDecimal acEngineeringacArchitecturalW acFractional)Example_PolarPointTpolarPntHbasePntyvAngleAdistance' PolarPointKExample_RealToString valueAsStr2 valueAsReal RealToStringExample_TranslateCoordinatesucsObj*qAcadUCS|OriginFxAxisPnt6yAxisPnt;DUserCoordinateSystems ActiveUCS viewportObjxn AcadViewportActiveViewport  UCSIconOnGUCSIconAtOrigin:pointWCSQpointUCSTranslateCoordinates$acWorldacUCS  GetWebFileW AcadUtilitypURLFilNamMain,InputBox Trim@LaunchBrowserDialogAIsURL GetRemoteFile DocumentsNumber- IsRemoteFileD AcadDocumentZacCyanpKWlistgChrStrwasenteredLanotherXw_B_var_anotherzpTmatrix? HasContxtm%Contxt_ _B_var_On6of _B_var_IfPeiseK+rndif _B_var_GoTo8<MatrixncnTextMvbCvb_vmvbTabc9YlObjectIDoHandleThe'Entityxo _B_var_LBound objectid_+ GetSubEntityx܋AngleR̜AngleS͜ _B_var_unitPrech_DistS6\DistR5\convertswinchI-9.I%YBB1%By,)/)y.&'9'y 1 Y I ! ```tT7( %0% `L`, h`Y > % p`l >@ % j`%`\ ~` > % j% *0 ,hP r% ` P` ` >H % `   `@ ` >` % j%  `  % % x ` `x`T   ` ``t \   ` `l T`z`xX x ` 8   xX %`h `` p ` !`x  ` `t \   ` +  ` `  `` *d ,H   `T8 @  %`p `` ` ` `t`p`^   `c` D ` `x Xp``x`p`l`p`t0%H`h (0 `n$%X *d( `x as`d `h `X `H `,P (@ `8 `@`4h `D h`P( ` `&& x xH  `  (0`@*0 `, ^b D` 68 ` `h` H   8 @  x,%0(p`l   0P  ` pp  x  8 h( %P@@`@(( @$ X8`@ @  @ D@ p @p PH h08 @  8 @ H@ @ @ @| hxl @\ L @< , @   @ @ h( @ @  @ @ | @l @\ HL @< @, ( p@ @ @ (@   @  8`|%%` ^bX0@ @0 p(@`H, 0( @@$   @ @ @ @ @ p @@   `\  (8`@  p@ @| @l @\ L @< , @ 0@ X@ @ @ ` @ @ @ @ @| l @\  L @< P, @ h P@  @ +Pn=$*\Rffff*053d7110fe 6" # *8# Ph# R# R$ Rh$ N$ % % "0% (82*@x$7 ! 2*2*=  @HX2*h2*=    " 8% "(  Pp x   "8 @HX` "(   " @%0"8  `4p    "  "   ,( Xh  " px "  22  X`p    " "  $  8"Hp  " x  " 8 @  P  ` p   " 8x      @ " X  '   H/H! `  >.   $h  *x    C      .\  ` " x  2* "3@ 6:h  . &:  & " H%  2* &4X Z!  " P%  2 $ " @  " X%` h p =x  $   (     H " `%@&+:)2H( 0 " h%8'0,*@( x " p%HP2*`(3<: &.,:(X ` " x%":( h " %84-4<X0-`4< 8 "% 3 $(8@ Xp D,x86  " % 2*2*8= 6p "L (& "%  ,0Fp@ h "%HPH&X `0h"=  "%P X:Wx / h@ ( "%  **F(  "%80HXp2*6x`(  "% ."= 0 "%D<D<F= 4I  &/(:` X "%PXhP p|x& `"08@ *+X  lh" 6$ B8 @ .X ** X&x Example 7-2.]@]`]+F+F+' ]p]]]+*F+*F+*+,F+,F+, * , !"%..&]@]`]+4F+4F+4+6F+6F+6 4 6 !"%8.0A@:o Example 7-3.] newSelSet !B%D.> !"!H FH]X L !"!H L !"%N L2F( F >B@PR >B@T newSSet.Erase X B@VR newSelSet !B%NB@Z|R >!H ] L >!H \ ^ L >%N!`'\8SelectionSet contains: \A@bdSelectionSet is emptyA@bko Example 7-4.] newSelSet !B%D.> >B@d >! contains  >!H itemsA@b >B@f Example 7-5.te Example 7-6.ie Example 7-7. t Example 7-8..  Example 7-9.P Example 7-10.cto(](]H]h newSelSet !B%N.> >B@f !lB@n ^'\ j > \ ^ j!`'\ jThe SelectionSet contains: \A@b >B@fo(]] newSelSet !B%N.> >B@f !lB@n]]8+*F+*F+*+,F+,F+,]p j > j%t.r * , rB@v z r(x jo]0 newSelSet !B%N.> >B@f !lB@n >! will be deletedA@b >B@f newSelSet !B%NB@Zo]]>+ +]]0 ' ' ']H newSelSet !B%D.>    >B@H]h j >  j(x jo]] !. New_Group %D._Group  B@o]H planA planB'  !B@]`  !User input is a keyword   !!' Keyword is: A@bdError: !A@bk B@Tdkpoh]]+F+F+ Angle? !%'Angle from base point:   !B@Angle? !%'Angle:   !B@oP Example 7-12.1]`]x+F+F+  2nd Corner? !%'o Example 7-13.2]] +F+F+  Distance? !%' Distance:  !B@o Example 7-14.3]@ ph   !B@:  B@TF| !A@bd  (xF B@nxkPHo@Input integer: !%'r o]x ] ]  was entered.A@b. Example 7-18.7] !%'A@boKeyword !%'leA@  !B@ywplanA planB planC'o prom !%'o`  Example 7-15.4]( ]@ +F+F+0  Orientation? !%'Orientation from base point:   !B@+ Orientation? !%'t: Orientation:   !B@rLf o0 Example 7-17.6 Example 7-16.5 Input Real: !%'Real:  was entered, ^Input another...A@bb e  was entered, ^Input another...A@bed was]  !B@xt: ' ' was entered,  !B@enInput text without spaces: !%'trino] ]` ] ] +*F+*F+*+,F+,F+, * , !% 'T * , !"%...o]x ] 45'   !%'S! @']]H  radians =  A@b448*o] ] ' '    !%('o]]]] ]  =   (inches)A@bunits. J' 8'-3 7/8"'   !%D'ox]x]]X ]p S! @' ' *   !%X',o]X]]]0'(\X@'    !%`'  (inches) =  A@bA@b H' X=$,$ Y=$,$ Z=$,A@bo]]0]po+hF+hF+h] -?+F -?+F+ *   !%',  (p Input point: !%'*bj UCS: $,, $,, $, WCS: $*, $*, $*A@b] !.]   Enter URL of File to download, ^or WEB to use your browser...Download from URL $' $G|j WEB X dP  %Syntax error: URL is not valid.A@b k k    B@d`  !l!B@ !Loading error: Invalid as DWG. ^ !A@bk   %  downloaded from  ^ A@b  is not a downloaded file.A@bkh ` oX ]` 6  (xF" B@n065`2  was entered.A@b0(.Input any text : !%'' ' was entered.  !B@ Exit DH:If E3> `-8hen!;Ms`s S ngG?3<A= & vbCr &&i).@HTAgDBox "yPrntainps: "@E>l1" |em8pty`1q6IfReturP71Rs7-37r5On@Screen8tIY SAtB8Sue%Ҕ&`co# i1sDKHlFa4pGetVE ! C i)P%6eUetedTet.T}JD}7-71\FilYGprC@(0͚&G pDataVarisw= 625!!ByLayaˑ+~p @Type, DaԵta As Variant FilType = GpCodeTDaT TM|PacSelectionSe0tAll: Dim newS2Acad Z$$= ThisDr@awing. +s@.Add("(erl2")=9+ , , 4ssObj\LEntityFor Each Ind!.Col= acGreenNext End Sub  'Example 7-8. Groups(lQ,R0a g" D= G [N8ew_ [gnd Comma6("-  :9:InitializeUserInput >KeyWdsq=Str4D= "planA AB" &Uti lr. 1,  COn ErrpResumen nCXP!PGetPoi0nt _CA(, "er @ word (1r,1):N If%E @D ]p(,.Descrip,I %"W iW is a key"R vbTV are)0 "ub6-4bN2$$bMsg Box "#is1@" & c ElsDe8#VIf rr.Clearc E X="P(0)" Y1vg^ _10G}@n8glei^D&`DoXubl$P(0o8 2)-= 0: P(15!_`C 0AP`T"?fP[Pro mpt "B f base pa^i5$vbL$,.Bb aew01i0Corner0 ~00t02`S a  C?U,aW$ E& ")2 ,/j12)Distanc+t)?h-++BK+]#Q?quG+#zz13 s9#;xC//"q$fxMain:c7y!2b , Pdb<> ZPRM: ExitRMH`Cyan:qUpdatWQS NamЄnqByLayer: .)'XGoT\o 4Integ;<a߃d%%"i0s0"]j"`wasD ered4vbCranother...$0:q 1;;5t+KWl`<S‰CO. Ot 0@a0Chr-T/?4 6<$B, C:>_gv >$$6Oria S yyNNN NANNN "za +z c C_Ly.XIX--7Reali6,7{7RT?/?@s /?/?/?--ӢEct">0]%18et#=iT6`S9ChrStr = ThisDrawing.Utility.GetD(False, "Input text witho0spaces: ")  Prompt "'" & & was entered,avbLfF$TDruany<*ES>?.JEnd Sub  'sExample 7-19. ub>(Dim Object As q P Variant, Matrix ContcnTe Sng On Error Resume N Main:/D*, P%L, "If <> 0enCF.Clear: ExitM @4Type()@vbEyL;= "n0ot aAY."J nested w_G UBound&+ 1" level(s)IĭMsgBox 6Name(e)is3&` vbCr!"pLayeP).BB ColoBHandle`gCCID @wSeldion Point:DX=P(0* Y1Z2pCwe4GoTo`miVz20zAngleF@XAxi"szP1(_o 2)avDoublveIb{2C#AcadLin("M  A!e9: @1= 5B`= 0 !2(2(Set|̿@ModelS.Ad"(P1E)c cb'&cE&Xradsx`>FormatNumber(c* 180 / 3.1415 9,1 degr,ee <15%c, acDX #SBq$# !'*72-? _nPrec1Ixger"!Un`j4 b=265b=, 6=MinuteSecondsSomdy.ToR<, A@- eRt`VS O23FCreate`dArr O5Li u5 In4DWG. d Descrip6I'3(,!EJ,")3wa$`8jY h DSa @T&OV0 S# at Selection Point: X =  X=  Y=  Z=  X=  Y=  Z= a primary Entity planA planB NEnter Point or Keyword (planA, planB): .User input is a keyword Keyword is:  Error:  , Y=ObjectID Handle .The Entity's  0   0   0   0   0   0   0 P  0   0 V`rU~| !C  iCC!E DYD!JJyEEF!FFEFyG H H  HIII0  0   pTTT4:,%TM< %L$ L PlL: (<%l:(%l:|(l%lL<8L$ L l/8L6rU~| #@HH^CD,H5I   i 0Handle is Its Handle is    pThe angle in radians between the X axis and the line is  ,AngleFromXAxis Example Handle:   Nested   levels. GetSubEntityx &a SubEntity nested   level(s) "a primary Entity.  level(s). Selection Pol4 8L|L<0   0 H  0  0  0  0 p  0   0   0  0   0   0   0 8  0  0   0 p  0   Lt$ lt=xtL''''pM(@:HN88 *#h *FX 1p/h6 X8#pMH@X X:( ]35Xlp px lpx tk+'''8:HNXX 6X8Kllpx xc'''8lp *#h*# *#ll*# *# *#*FX 2 h6X86'H%llt$anA planB planC  ,Keyword (planA, B, C: ,Keyword <planA, B, C:> Orientation?  :Orientation from base point:    Orientation: GetRealGetOrientation Input Real: Input another...!|L<DT<TK*mrU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\ %8/NCj&<  a   xhXDH&($ @ |lL, lL, \L,0   0   0   0 8  0  0   0 p  0   0        WInteger Example  was entered,  was entered. GetKeyword "pl ACADProject ThisDrawingutilObjF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA ! I0W &D:\AutoCAD_2000i\ACAD.TLBAutoCAD Ai@0FC:\WINDOWS\SYSTEM\stdole2.tlbstdole AP.E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms  1q`z1L3!кC:\WINDOWS\TEMP\VBE\MSForms.exd   qpPopulate SSmethodsSelectOnScreen SelSetGet SelSetMoveSelSetUnhighlight SelSetDelete SelSetFilterGroupsInitializeUserInputGetAngle GetCorner GetDistance GetEntityExample_GetIntegerExample_GetKeywordExample_GetOrientationExample_GetRealExample_GetStringExample_GetSubEntityExample_AngleFromXAxisExample_AngleToRealExample_AngleToStringExample_CreateTypedArrayExample_DistanceToRealExample_PolarPointExample_RealToStringExample_TranslateCoordinates GetWebFile u!= &k)UJOBŎ2Pu!= &E^ L]Xh{ _ AcadDocument @(x`5%^I`5()`5()`5()`5u!= &u!= &  Select an objectW[`5Jm fĤIx8< Good Bye. "GetEntity Example Color Update (The object type is: EntityNameVBE6.DLL RealToString  S  GetInteger Input integer:   "Enter another.... 0The integer entered was $GetInteger Example  was entered,  was entered. GetKeyword "planA planB planC Input any text: ,Keyword (planA, B, C: ,Keyword <planA, B, C:> Orientation?  :Orientation from base point:    Orientation: GetRealGetOrientation Input Real: Input another... GetString 6Input text without spaces:  ' ' was entered, ' was entered.0 Use the mouse to click on an entity in the current drawing after dismissing this dialog box.  does not  does  :The object you chose was an:    :Your point of selection was:  ,  This object  X= (have nested objects. pYou have not selected an entity. Press OK to try again. 3    O  dEnter text (a space or <enter> terminates input):  Object:  90 0The string entered was ' "GetString Example LEnter text (<enter> terminates input): NEnter text (<enter> terminates input):  0Input any text <Enter>:  Angle? .Angle from base point:  Angle:  GetSubEntity No Yes PolarPoint *Selection Point: X =  Y =  Z = Nested objects:      an Entity a SubEntity  is ( its. ,DistanceToReal Example 8'-3 7/8" :17.5 in scientific format is (RealToString Example 417.5 in decimal format is  <17.5 in engineering format is  @17.5 in architectural format is  :17.5 in fractional format is   (inches)=   ( Input point:  New_UCS2  WCS: X_CreateTypedArrayCreateTypedArray()`5W[`5  radians =   degrees = GetSubEntity_Layer Layer:  Layer Color:  2nd Corner?  2nd Point:  , <Enter URL of File to download, :or WEB to use your browser... "Download from URL  WEB AutoCAD Browser OK Bhttp://www.mcs.net/~djec/plan_sys ACADBROWSER >Syntax error: URL is not valid.  downloaded to  8Click OK to load as drawing.C`k-F >Loading error: Invalid as DWG. " dow  50 *50 grads converts to  AngleToString  =  ( inches) :0.785398163397448 radians =   degrees  radians =  45 degrees =   radians  CreateTypedArray()`5DistanceToReal 1'-5 1/2" ,1'-5 1/2" converts to  0 in architectural unrU $`$`$`$`$!`$I`$q`$`$`$ `$ `$9 `$a `$ `$`$`$`$)`$Q`$y`$`$`$ `$1`$Y`$`$`$`$`$!`  0   0   0   0   0 P  0   int:  ObjectID:  ObjectID: &at Selection Point:  (inches)  not a SubEntity.AngleFromXAxis radians AngleToReal 45 .45 degrees converts to   radians. &AngleAsReal Example 45d0' 0" Z45 degrees, 0 minutes, 0 seconds converts to#Cx'lxFd%t$ t 0tK/4:D$%'d%t$ t \4Tt o454T.0 tt ,l0%/0t$0t$ t <>01,t*'' '&l,*F4 64 <C'' ''0 tt ,l0*F4 /0t64  ttHt\'L'l':(d%T4: (%T 64 lLG00xT,4 0t4 lL0   0   0   0 H  0  0  0  0 p  0   0   4TK3'0%HXhx@$ @ p@$, @@ l,@w @@H@HH^CD,H5I#(*#$ *1D2($'''xM0 @ #( *#$lD*#  *# *F xW:: :xW|l:\L:< ,: xW::xW:| l:\ L:<,: :(%h:(|%h\L:<,(%h 2($ 6B |lL, lL, \L,T8 xhXDH&($ @ |lL, lL, \L,0   0   0   0 8  0  0   0 p  0   0        Wnloaded from  4 is not a downloaded file. T    ,http://www.pearson.com error: Invalid as DWG. " downloaded from  4 is not a downloaded file. T