аЯрЁБс>ўџ ўџџџ'џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџuнThisDrawing073d6f12beџџThisDrawingџџСхњџџDimensions183d6f1697џџ”Dimensionsџџ‡>А:џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЎіг(Е›AІБллSЭџџџџ?bю—-ЉKДveЁ1ОО“џџџџџџџџH€LSџќ/=€џdimP€џexplicitˆObject‹€џoptionБTextПWidthAutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsCRoot Entryџџџџџџџџ@!œtŽС@1VBA_Projectџџџџ ЎСGУqП@!œtŽСVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ рЉћGУqП@­7@Сr§џџџx h c !"#$%&*§џџџ)m+,-./012345ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџiўџџџџџџџџџџџџџџџnoўџџџџџџџџџџџstuvyџџџџўџџџz|џџџџ„џџџџџџџџџџџџўџџџўџџџ^ ўџџџ  !"#$%&'(ˆ*+,-./012ўџџџ456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]_ўџџџ`abcdefghijkltnўџџџpqrsўџџџўџџџvwxyz{|}~€ID="{056B416F-46F3-450C-8B88-69BC5B2369F1}" Document=ThisDrawing/&H00000000 Module=Dimensions Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0103C8C8CCC8CCC8CCC8CC" DPB="3634FFC801C837C937C937" GC="6B69A207D608D60829" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Dimensions=98,PROJECTwmџџџџџџџџџџџџ GPROJECTџџџџвThisDrawing џџџџuЮDimensionsџџџџџџџџџџџџ‚E 34, 742, 403, Z ThisDrawingThisDrawingDimensionsDimensionrU€€€€~} џџџџџџџџџџџџ џџџџ A p“K*mџџџџrU€€€~~~~~~~~~~~~[ Щ(9&kвЬM‡оFn_хq  фџџџџƒŠa ‘ џџџџџџщ_VBA_PROJECTџџџџџџџџџџџџ3Kdirџџџџџџџџџџџџ)~__SRP_4 џџџџo__SRP_5џџџџџџџџmB__SRP_0 џџџџ В__SRP_1џџџџџџџџџџџџ j__SRP_2џџџџџџџџџџџџўџџџš__SRP_3џџџџџџџџџџџџўџџџъџџџџџџџџџџџџџџџџџџџџџџ1  с ACADProject ThisDrawingChap12_Examples DimensionsяРF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA Qџџџџ y 0тС”РЦWв…у  Ц& 'C:\Program Files\AutoCAD 2000i\ACAD.TLBAutoCAD qџџџџ™ё@0РFc:\windows\SYSTEM\StdOle2.Tlbstdole AddLeader1 aџџџџ‰бPс.E р….`ŒM ДC:\WINDOWS\SYSTEM\FM20.DLLMSForms aa‰Щ`Шi–ИђGЃH$ЛЗŠc:\windows\TEMP\VBE\MSForms.exd 9aaЩpAddDim3PointAngularEditDim3PointAngular AddDimAlignedAddDimAligned2 AddDimAngularAddDimDiametricAddDimDiametric2AddDimDiametric3AddDimOrdinate AddDimRadial AddDimRotatedAddDimRotated2 AddLeader2 AddToleranceAddToleranceVars йuŽ!=в…Ф  Ц&ChCŸСrZ@šнq­#ЙyйuŽ!=в…Ф  Ц&4„>ЁъЪA„ћбO^ќ}CсXh—{ а‰п€_ТћК AcadDocument @…ЙЂЙ(вЖx`А‡т5ˆ%“^чџбЖI`А‡т5рд()“ЪбЖ`А‡т5йuŽ!=в…Ф  Ц&Ід()“ЪбЖ`А‡т5EditDimAlignedEditDimDiametricЊд()“ЪбЖ`А‡т5 юW[šЪбЖ`А‡т5Ад()“ЪбЖ`А‡т5zВ€0* pH‚dф ACADProject8@е = t  1o=( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#c:\windows\SYSTEM\StdOle2.Tlb#OLE AutoРmation^€MSFo@rms>SFErmHs3€DD452EE1-E08F-101A-8-02608C4D0BB4DC:\WINDOWSDFM20.DLL#Mic€rosoft ‚9" €\ ObЌ Library/њ;C1€„sˆAˆ00}#0‚#G€j0rРAB89669 C8-1E647F2-A348-24BB1FB70198APX€WP\VBE\DO.exd`7€с.E р….`PŒM ДЁ‚œDТuн‚žT@hisDraРugG€Thi@fDra‚wРng Š2 €HB‚1ТЈњBE,B Сх"B+B РDimens€sGЋС€mРЌn$i5СL 2V Я!А:‘Я!‡>!@У!ТЬ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#C:\Program Files\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-02№дШџџџџ&Њ: uн‡>џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ,џџџџџџџџџџџџџџ $џџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@<џџ<џџ*<џџ@<џџJ< N<џџ^<џџd<џџl<џџt<џџx<џџˆp`џџџџџџџџџџџџџџџџџџџџџџ8„ LX`џџџџџџџџџџџџџ@џџџџџџџџџџl„ ˜˜`џџџџџџџџџџџџџ@џџџџџџџџџџz„ \0`џџџџџџџџџџџџџџџџџџџџџџ„€ „џџџџxџџџ% „џџџџ`џџџH’0 „ џџџџџџџџ € 8 „ (џџџИ€   „"џџџџ џџџ№’и „(џџџџАўџџ `„6џџџџЌўџџџџ b8`џџџџџџџџџџџџџџџџџџџџџџ „ „џџџџџџџџˆ% „џџџџџџџџРЈ „ џџџџџџџџјр „"џџџџџџџџ0 jh `џџџџџџџџџџџџфў@џџџџџџџџџџ Ў„ „џџџџxџџџ% „џџџџ`џџџШ’А „ џџџџDџџџ’ш „"џџџџ(џџџ8’ `„6џџџџшўџџџџ €˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџџџџџА % „џџџџџџџџша „џџџџџџџџ  „ џџџџџџџџX@ „"џџџџџџџџx †€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџxџџџ№% „џџџџ`џџџ(’ „ џџџџDџџџ`’H`„Pџџџџ8џџџџџ Œџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџxџџџи% „џџџџ`џџџ ’ј „ џџџџDџџџH ’0 `„Pџџџџ8џџџџџ`„6P џџџџџP 8џџџџи@0Јxџџџџpџџџџџџџџ˜И˜џџџџџџџџ8АXP рџџџџџџџџџџџџ`(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџ@ўџџџџ џџ џџ@ўџџџџ џџ џџP € Ѕ„ „џџџџџџџџи % „џџџџџџџџ ј  „ џџџџџџџџH 0 `„`џџџџџџџџџџ rXџџџџџџџџџџџџџџџџџџџџџџџџџџџџ„ „џџџџџџџџР % „fџџџџџџџџј р `„Pџџџџџџџџџџ „hџџџџџџџџH 0 p 8мўџџџџ џџџџ@ўџиўџ/џџ џџџџУ„ „џџџџxџџџЈ % „џџџџ`џџџр ’Ш  „ џџџџDџџџ ’  „"џџџџ(џџџP ’8 `„nА џџџџџxpџџџџџџџџџџџџ0иј˜џџџџџџџџџџџџџџџџ€HџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАџџџџ  „"(џџџpX`„nџџџџџ`„6рўџџџџ r8 `џџџџџџџџџџџџ8џ@џџџџџџџџџџ П„ „џџџџxџџџ % „wџџџџtџџџ $% „hџџџџ\џџџX’ @`„zџџџџVџџџџџА8 `џџџџџџџџџџџџџ@џџџџџџџџџџ а„ „џџџџxџџџа % „wџџџџtџџџ№$% „hџџџџ\џџџ(’ `„zџџџџVџџџџџ „"џџџџ<џџџx’``„dџџџџ4џџџџџ`„€џџџџ,џџџџџ˜8 `џџџџџџџџџџџџџџџџџџџџџџ ш„ „џџџџџџџџ(%`„dџџџџџџџџџџ „hџџџџџџџџX@ „Šџџџџџџџџx8 `џџџџџџџџџџџџџџџџџџџџџџ і„ „џџџџџџџџ№(%`„dџџџџџџџџџџ „hџџџџџџџџ@( „Šџџџџџџџџx`@”ŽџџџџџџџџLџџ@”џџџџџџџџLџџџџџџH `џџџџџџџџџџџџџџџџџџџџџџ„џџџџpџџџџhџџџџX€ Јxиpp џџџџ@џџџџџџџџИџџџџџџџџ€ џџџџАP ˜h А –@`џџџџџџџџџџџџџџџџџџџџџџF„џџџџHџџџџАИџџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ€№€ џџџџ€ 6ј€ 0€ *P€ џџџџ€ P€€ Rа€ R(€ R€€ Nи€ (€ џџџџ€ H€ џџџџ" р€€€Р€ €@€ џџџџ2P2ˆ2Р2ј€ џџџџ$0X€ џџџџ€ `€ џџџџ" €`€h€0€x€ˆ€ џџџџ2*˜2*а2*2*@€ џџџџ$Ox€ џџџџ€ €Ј А2*а .0 @P€ џџџџ€ x€ џџџџ" №€p€x€ˆ€˜€ џџџџ2Ј2р2 Pp€ џџџџ€ ј€ џџџџ" X€ˆ€€ €А€ џџџџ2*Р2*ј2*0 Fh€ џџџџ€ˆ2*А ш€ Bј(@ Xh€ џџџџ€ € џџџџ" `€ˆ€€ €А€Р€ џџџџ2а22@2x$Аи€ џџџџ€ Ј€ џџџџ" h€р€ш€ј€€ џџџџ2*2*H€ @ˆЈ€ џџџџ€ € џџџџ" x€А€И€Ш€и€ џџџџ2*р2* P  @X € џџџџ€x € 2*   @и ј     ( € џџџџ€ p€ џџџџ" €€Ш €а €р €№ € џџџџ2ј 20 h  p  € Jx € F0 € џџџџ€ @€ џџџџ" Р€А €И €Ш €а € џџџџ2р 2 P  X x € џџџџ€ ˜ € џџџџ" Ш€€ €ˆ €˜ €Ј €И € џџџџ2*Р 2*ј 2*0  h p $I И € џџџџ€ $р € џџџџ"h€€€€(€ џџџџ2*02*h2* € "p и€ џџџџ р Cш€ џџџџ€ Ш € џџџџ"Р €€€ €0€ џџџџ2*82*p2*Ј р€ џџџџ€ш€ј€2*@X€ џџџџ :` C€ € џџџџ€  € џџџџ"а€А€И€Р€а€ џџџџ8р22P ˆЈ€ џџџџ€ А€ џџџџ"Ј€Ш€а€и€ш€ј€€ џџџџ8 2X2 Шш€ џџџџ€ џџџџџџџџи–]ђ@]ЌЌђ`]ЌЌђ˜]ЌЌђа]ЌЌђЌЌ+FЌЌ+FЌЌ+LibЌЌ+FЌЌ+FЌЌ+с.E ЌЌ+ FЌЌ+ FЌЌ+ јЌЌ+"FЌЌ+"FЌЌ+"э    " !$%.oџџ]ђј]ЌЌђ]ЌЌђP]ЌЌђРЌЌ+FЌЌ+FЌЌ+ЌЌ+FЌЌ+FЌЌ+ЌЌ+ FЌЌ+ FЌЌ+ ЌЌ+"FЌЌ+"FЌЌ+"э    " !$%.]ђј]ђџ 6ўЌЌД{ЎGсz”?•ЌЌ+F 6Ќ+FЌЌ+  (:э  !$%..( !0B@2џ 6ўШoџџ8–p–@–]ђp]ЌЌђ]ЌЌђШ]ЌЌђЌЌ+FЌЌ+FЌЌ+Ќ Ќ+ FЌЌ+ FЌЌ+ ЌЌ+"FЌЌ+"FЌЌ+"э   " !$%>.oџџ–X–˜]ђx]ЌЌђ˜]ЌЌђа]ЌЌђЌЌ+FЌЌ+FЌЌ+Ќ Ќ+ FЌЌ+ FЌЌ+ ЌЌ+"FЌЌ+"FЌЌ+"э   " !$%>.]ђ@џ 6ўЌЌ Д{ЎGсz„?• 6Ќ+ FЌЌ+ FЌЌ+   (Dр; ThisDrawing.Application.ZoomCenter Center, magnification Ќ !0B@Fџ 6ўШoџџр Example 11-10.]ђ˜]ЌЌђИ]ЌЌђ№]ЌЌђ(]ЌЌђ`ЌЌ+FЌЌ+FЌЌ+ЌЌ+FЌЌ+FЌЌ+ЌЌ+ FЌЌ+ FЌЌ+ ЌЌ+"FЌЌ+"FЌЌ+"э    " !$%H.oџџЈ]ђи]ЌЌђј]ЌЌђ0]ђhЌЌ+FЌЌ+FЌЌ+ЌЌ+ FЌЌ+ FЌЌ+ Ќ'Pэ   P !$%L.oџџР]ђР]ЌЌђр]ЌЌђ ]ђP ЌЌ+FЌЌ+FЌЌ+ЌЌ+ FЌЌ+ FЌЌ+ Ќ'Pэ   P !$%L.]ђh џ 6ўЌЌДš™™™™™Й?•ЌЌ+ F 6Ќ+ FЌЌ+ э   P !$%L. V B@T B@Xџ 6ўШoџџ(џџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€ates a d3PointAngular object in model spaceDand chang;thHe dp lq cr to red using %– propeјrtyX&Ž‰FObj As Axcad€ T‡€\leV€&ex(0 To 2)Doubl„\-Fir st., Se0cond‡5Tex•!ƒ' DeЦfˆnewГƒE `)@|0: Щ1уаР8= 0УI6 ј2: ˆB‹  >йA1: C‚4ЫЩуHDA6: GТJуE.' CЂB‰˜IQRЃSet‘‹=BКD(raw€Ÿ.€ЮelЂSА.AdЮ(HYі,ШLŠƒ,4гвApтaх.Zo`omAllAхУмRead СЬdisplay cur0rentвЭƒDMs€gBox "TЕkИforР%`yusЅ ly s`"to:а " &p#.Р`ьƒ§gCТz@ ГzЃBdр&…Рsp XacR edC‰%Regen ac€$VieРwportsЃЃ|' ?&(ƒ?&/&now%mЉ`*" () Б< EрЁАЁ( Жџџџџџџџџ<џџе}О $—XMšŸє*t}–sйuŽ!=в…Ф  Ц&~^‚жьЖрNџjЃ!mлџџџџџџџџџџџџxњˆ6џџџџuнСхџџ#ˆ~^‚жьЖрNџjЃ!mле}О $—XMšŸє*t}–sџџЄђђџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{р? VBA reference says Integer, actually functions as a Boolean.,рD QuickInfo for the UseXAxis parameter (XorYaxis) indicates a Long,.]ђР ]ЌЌђр ]ЌЌђ ]ђP ЌЌ+FЌЌ+FЌЌ+ЌЌ+ FЌЌ+ FЌЌ+ Ќ'`э   ` !$%\.oџџPр Example 11-14.]ђЈ ]ЌЌђШ ]ђ ]ЌЌђ ЌЌ+fFЌЌ+fFЌЌ+fЌЌ+hFЌЌ+hFЌЌ+hЌ'Pэ f h P !$%b.oџџh]ђ ]ЌЌђА ]ЌЌђш ]ЌЌђ ]ђX ЌЌ+FЌЌ+FЌЌ+ЌЌ+ FЌЌ+ FЌЌ+ ЌЌ+"FЌЌ+"FЌЌ+"Ќ‡'n nДz‹ќњ! @ЌД'nэ   " n !$%j.oџџш –Xр Example 11-17.р Example 11-16 (variation).kRef]ђш]ђ]ЌЌђ(]ђ`ЌЌ+hFЌЌ+hFЌЌ+hЌЌ+hFЌЌ+hFЌЌ+hЌЌ+hFЌЌ+hFЌЌ+h |'zэА.vэ h v z !$%~.oџџ€ ]ђИ]ђи]ЌЌђј]ђ0ЌЌ+hFЌЌ+hFЌЌ+hЌЌ+hFЌЌ+hFЌЌ+hЌЌ+hFЌЌ+hFЌЌ+h ‚'z]ЌЌђH]ђ€]ђ˜ЌЌ+"FЌЌ+"FЌЌ+"Ж Annotation'dЌ'€э " € d !$%„.vэ h v z !$%~.oџџШ–€]ђ№]ђ]ЌЌђ(]ЌЌђ`Ж0{\Fgdt;j}%%v001 - A Simple Feature Control Frame'dЌЌ+hFЌЌ+hFЌЌ+hЌЌ+ŠFЌЌ+ŠFЌЌ+Šэ d h Š !$%†.oџџАр Example 11-20.]ђи]ђј]ЌЌђ]ЌЌђH]Ж {\Fgdt;j}ђ€]Ж%%vђ˜ Ž  Ж$001 - A Simple Feature Control Frame 'dЌЌ+hFЌЌ+hFЌЌ+hЌЌ+ŠFЌЌ+ŠFЌЌ+Šэ d h Š !$%†.oџџpЭџџhр/ VBA for AutoCAD 2002: Writing AutoCAD Macrosр Jeffrey E. Clarkр# Copyright 2002 Prentice Hall PTRрJ This software may be freely copied and used so long as this disclaimer,рK together with the above copyright notice, are included in all copies andрL any accompanying documentation. These example programs are made availableрK "as-is" without any explicit or implied warranty. Neither the author norрG publisher warrant that these programs are error free or will operateр without interruption.р Example 11-2.р Example 11-3.р Example 11-4.р Example 11-7.р Example 11-8.–0–8–˜џџџџx–Иџџџџ№!–ир Example 11-unnumbered.р Example 11-unnumbered.џџџџир Example 11-12.џџџџЈџџџџ(–h р LdrTyp = acLineWithArrowџџџџр Example 11-19.џџџџ]ЌЌђ€џџџџШџџџџУЕAttribute VB_Name = "Dimensions" Opt$ Explicit @ ' ИA for AutoCAD 2002: Writing*MacrosbJeffrey E. Clark*CopyrightA Prentice H€all PTRoThis software ma y be Oely copied€ and us so lo…as t6disclaдr,ttogether with€e aboLve$FnoB, 6includБ€+in J7s7ƒ&any accomp€~docu€ taœ. These example proАgram€‚cd€=vailable'"as-is"б‚Mout€3yƒО: €Иi#w„ra€nty. Necƒ€fi authnorƒ&publdis‚uarwaŽty€IŠEerrTAwiР_ope8ratФ%СJС#inВt€ up7…gED7 11-2.Su b Add€’3PBo€ Angu@}(() @ Р Object Asp AcaN Ч €Vtx(0 To ф2)С Do@5€%EP1Z2ZtTe\xtUC!E )@Ч7д: „10†€&8= 0 $A6:6 € 1‚ 2(J0 8@2( 2о( „' €Pƒ Рл„ SetХV=ŸisDrawРЅ.ModelS`pace.‘fУ,Л `2`b 6Ek р9p=3f=EditпŸ=Ÿ=d+Ÿ=UA2Ÿ=Ÿ=_СM$.".Ÿ=1ч81ы8р! Ÿ=`QDŸ= і Ÿ=Ÿ=P‰=ajуHatPуs М_POINъT'ia9SРJс–F ‡idB7-6 Step -0.|02ƒaЅ;i+iiу„.€leVрertex  C' яс €^т(ФС 3!Ы%dApсЌуЖZoрomExtрбиBNр„ i зa4LŸAlignedяšžd#B.1:Xџ[œ™нe“5’u-P2QLл`с9ЗIР/PПIЁSџсMђB0уYЯ*ŸIS“I•P1ПH ПH pgunnumbeјredMIХDAОgп4o№ jg2OИпЃOLВoso _Cџoo)Гdo,b,oПoo_B–|П@Д@51{і9Ѓ@@1Ѓ10 Тo`? V( &д?8LАine2B<№?PTEwБЈ<! GЏYЄYš№дЕ16 Step @0.1 P2(0) = 3T: P1(i(2(0 Set O bjectZThisDrawing.ModelSpace.AddDimDiametric(P1,Њ, LenLd r)L ?Regen (acActiveViewport-v.DeleteDNext i End Sub 'бExample 11-10.  –Ordiрnate(„,€ThРAs Aca]ƒ2P1(0 T o €‡Doubl„A‚2™XorYaxi€.s Iєnttr,ƒ-Вr1И1(‚Н€5=і „На2‚Ъ џ4'зЦEEkРI†WWQuickInfo for the UseXAС7parС|er (F indic\s a Long,УhVBA reference sayЦF, actually Шfun@ƒonР€BooleanBtЭy2ЬyRadiažlZyƒaAqCegіrYrCА Q€• ƒ…џСyРm„…q„Ъ{Чуƒ„Aц(IФ"= 2ƒПЇzD#Ѓ@s(si4 ,єot :d;,ceЮ1й+\˜ltTР}љРAngRotЭ3ЃэЅl0Їlh1j*ЅlШ §2‹фa9Ё Уb9Ч)5Ф= 135ƒ&* 3.141592 / ь18d~?:ed­ b1хewPb, У )xЄ6 (varia tion)i?p'Сaп+_Nап+п+п+bсЪT?рЎтEПJa3б+40>9/+6_ ї2яGDЯУSѕ{\Fgdt;j€}%%v001pA SiвиFeature ConРtrol FСТTџ/qЯ3K’I№"0KўD’_Џщ0рG;1 тЏDVaќrs_‚Д"А/‘^§ врy3LчфEst gtPиosi‘1 V"v5VeвАrtical = "%%v" † (TextИgtPosition + gtVeФ+ "001 - A Simple Feature Control FramBeЄP(0)˜1 : P(12 0nD!2: D! !Set Objec–ThisDrawing.ModelSpace.AddTolerance(С, P, D) End Sub }%%v001 - A Si7Feature Control Fra\meDm€x1Р{(B~B }РA2: ўDCBIw`eUС,, €gDodVar~sUedAy]sdXst gtPosiAЦЉЧe\ХVerрticalС€lDЪt+@F + "xa:Фz?"рСГ PtText(0) = 0:* p1 p28 РAngRotД135 "4* 3.141592 / 180JSe€t ObjecvThisDrawing.ModelSpace.A ddDim^ated(P1, PІ2Ђ, ^)N- i As SIleForЮ To 4 Step 0.0І1УP2№3xє2(vi tX.ExtLine 2Poin_P2‡% eApplication.Zo„om€entsN€Г i End Sub  '€1Examp€le 11-.  €ƒLeade0r1()C•'0 00215€Œn€T needs BlockRef,( Mt9,€‚lerance if„ n€нNullƒI‡СOУ8QAcadУщGAn@ eEУ GHP(0Y8)DoubХ`LdrTypAInteјgerУ C@՘`EŸ(Щ_P(3A2Љf(4A4A5A1„”P(6AAq(7?AB#Р~C„ = acS€fneNoрArrowCCІD9= Noth€’3GDG= —ЌƒL(PsAЈK, ƒ@Њщz2уzwith Mэџ)Пp_8l_8€.4_8ї_8T8apWРN8сcс џ…™aRрРiRЅa'ЁRStrF=eWidџР+E Nb’#WЁNУЧi! " = "ТKТ‚Ю"ƒ6C = ЄЈA/ƒ RзNb@(у, џЂ `} ~$ЄСПW~ПWф 4•ToФ‹љW!•ј409OVfБ4яbрD`–DcC")=П2eСр‡*a`р, Dџ‰dЧ†VarsџЕ2?2Ccy3L`Tzst gtPиosis…"vЁ5Vertpul1o д:ˆ+P+ќ "$-Mј: DzkŽ~ ўџфўџ/џџ џџџџџџџџфџџ џџH"`"ƒдџџџџџџˆџџџџџџџџџџџџџџ џџ@$ШџџџџџџџџџџџџџџџџА ` џџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџА˜џџџџџџџџџџџџџџџџ˜јџџџџџџџџџџџџџџџџџџџџџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp 8џџџџ\џџџxџџ@$p0џџџ џџ @ўџ џџџ џџ @$@џџџ џџ џџџџ@ўџџџџ џџ џџџџ@$џџџ џџ џџƒдџџџџџџ!џџџџџџџџџџџџџџџџџџИ$Tџџџ џџ џџР% „џџџџxџџџ0џџџџƒдџџџџџџhџџџџџџџџџџџџџџџџџџш$Dџџџ џџ џџџџ`%X@џџџ џџ џџ@ўџ<џџџ џџ џџ џџџџXџџџџџ `%@џџџ џџ  „кџџџџHџџџР%@0џџџ џџ 8@ўџ џџџ џџ џџџџР%џџџ џџ е„ „џџџџџџџџx&0џџџџ4џ@џџџџџџџџџџ „ џџ&џџџџ0џџџџј%џџџџ&р&(8џџџ џџ P'4џџџ џџ џџџџи%џџџџ@&џџџџH&џџџџP&џџџџX& И`џџџџџџџџџџџџџџџџџџџџџџџџ„џџџџџџџџ &џџџџЈ&ƒдџџџџџџј џџџџџџџџџџџџџџH(HџџџџџџџџџџџџXаш(џџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ#џџџџш(Јџџџџџџџџџџџџ`№ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$џџџџш(ј( џџџџџџџџџџџџџџџџџџџџPџџџџџџџџџџџџиџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ%џџџџј(џџџџx$*иа.8#џџџџџџџџА%а €#Ј(џџџџџџџџџџџџџџџџџџџџј"џџџџИџџџџˆџџџџџџџџи'џџџџ˜"џџџџџџџџџџџџџџџџџџџџш*џџџџp%аР№hИ р*X'˜'P,-h&Р#P(x*р&џџџџ(ƒдџџџџџџџџџџџџџџџџџџџџџџџџр*А"`џџџџџџџџџџџџџџџџџџџџџџ" „џџџџИ*(4џџџ џџ џџ@ўџ$џџџ џџ џџџџ в8#`џџџџџџџџџџџџ џ@џџџџџџџџџџ# „ џџр*џџџџј(џџџџР*џџџџШ*џџџџа*(+8`џџџџџџџџџџџџџџџџџџџџџџс„џџџџџџџџ˜*А+x`џџџџџџџџџџџџєў@џџџџџџџџџџ„џџџџА+8 џџџ џџ џџџџџџ4џџџ џџ џџА+џџџџџџџџ *`-˜аџџџџџџџџџџџџЈИ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ М8!`џџџџџџџџџџџџџ@џџџџџџџџџџ! ј„ џџ`-ИDџџџ џџ џџ@ўџ4џџџ џџ џџ@ўџ$џџџ џџ џџ`- џџџ џџ џџ`- „xџџџˆ!`-8`џџџџџџџџџџџџџџџџџџџџџџа„џџџџџџџџ*џџџџP-џџџџ˜џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџА/џџџ џџ`„f<џџџџџ Ў8џџџџџџџџџџџџџџџџџџџџџџџџџџ („џџџџџџџџшџџџџџџџџџџџџџџџџшиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€+џџџџџџџџЈ0<џџџ џџ „џџџџјџџџџџџџџИ*џџџџ0(џџџџџџџџџџџџџџџџрџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ(" №-€8€@€P€p€ џџџџ2*€2*И2*№2*(€ џџџџ$K` € џџџџ" Р;€ј=X> 0>€ џџџџ€и;€р;€№;€<€ џџџџ2* <2*X<2*<2*Ш<€ џџџџ$K=€ џџџџ1>1x>1>Р=+=€ џџџџ€ 8=€Ј> (? ш=2*X=€ 4№> А=1>а= А>(=€ џџџџ"D€8D€@D€PD€pD€ џџџџ2*€D2*ИD2*№D2*(E€ џџџџ$K`E€ џџџџ€јN€F F2*0F hF1xFF  FАF€ џџџџ"А:€Ј€А€Р€а€ џџџџ2*р2* 2*(. BP p € џџџџ"PJ€hJ€L€ L€АL€ џџџџ2*РL2*јL2*0M BhM€ џџџџ€(LˆM2*ЈM рM€ B N+ШK (N€J€ џџџџ" h €x €€ € €  €А € џџџџ2*h.2*Р 2*ј 2*0 $K€ Ј € џџџџ" €А €И €Ш €и € џџџџ2*Ј.2*р   <p  € џџџџ" ШF€рF€шF€јF€G€ џџџџ2*G2*HG€G <ˆG€ џџџџ€АGјG2*(H <иGH ИG ШGЈG€ џџџџ" pH€ˆH€H€ H€АH€ џџџџ2*ИH2*№H(I <0I€ џџџџ€PI J =аI№I J JЈI€ џџџџ"  € HP0€ Bp/€˜ €А €  €Р € џџџџ2*ш.2*Ш   = @ € џџџџ" Р/€P €X €H €h € џџџџ2*и/2*x А  <И и € џџџџ"<0/€р €ш €ј € € € џџџџ2* 2* 02*0 X ` $EИ р € џџџџ"DXN€ˆJ€J€ J€АJ€РJ€ џџџџ2*ШJ2*K2*8K pKxK$E˜K€ џџџџ€HJpL2*№M L8N HNРK€ џџџџ"FP?€˜?€ ?€Ј?€И?€ џџџџ2*Р?2*ј?2*0@ h@€ џџџџ p@ Ax@˜@€ џџџџ" @€Р@€Ш@€а@€р@€ џџџџ2*ш@2* A2*XA A€ џџџџ€˜A€ЈA€АA2*ИA№AB€ џџџџ =B A0BPB€ џџџџ"и:€№:€ј:€;€;€ џџџџ8`B2* ;2*X; <;А;€ џџџџ" ЈB€РB€ШB€аB€рB€аC€шC€ џџџџ8№B2*(C2*`C <˜CИC€ џџџџ€ џџџџџџџџOZЄЄ ъџџџџZъџџџџZЄЄъџџџџZЄЄъџџџџZЄЄъџџџџZЄЄъџџџџЄЄ+кEЄЄ+кEЄЄ+к№?ЄЄЄ+оEЄЄ+оEЄЄ+о№?ЄЄЄ+рEЄЄ+рEЄЄ+р+ох к м о р !(%*.lџџРZъџџџџZЄЄъџџџџЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄ'шEЄ'ъЄх ш ъ ж !(%<.ЄЄ +жEЄЄ +жEЄЄ +жЄЄ+жEЄЄ+жEЄЄ+жи,000208ЄЄ€#и,000208ЄЄЄ'TZъџџџџZъџџџџЄ'ЈЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄЄ+жEЄЄ+жEЌј?Є+жZъџџџџZъџџџџЄ'‚ј"и,000208ЄЄ*+жEЄЄ++жEЄЄ,+жЄЄЄ+РEЄЄ+РEЄЄ+Р.и5 ThisDrawing.ActiveViewport.direction = NewDirectionЄи ZoomAllZъџџџџъџџџџlџџxZъџџџџZЄЄъџџџџЄЄ+жEЄЄ+жEЄЄ+ж  јЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жх ж !(%J.lџџ0ZъџџџџZЄЄъџџџџZъџџџџ[ъџџџџЄ-Ќn†№љ! @ЄД'ž'ќх Р T ž Ђ !(%^.lџџ8Є'TZъџџџџZъџџџџZъџџџџZъџџџџZЄЄъџџџџZъџџџџZъџџџџ r'hЎValue for Data'pИи, 000208 mode needs comment (enum)ЄЎ Tag for Data'nх f h j ж n p !(%t.lџџhZъџџџџZЄЄъџџџџZъџџџџhи,000208Eх Р T !(%|.lџџ8Zъ(ZЄЄъZЄЄъXЄЄъ  ZЄЄъ ЄЄ+EЄЄ+EЄЄ+ЄЄ+кEЄЄ+кEЄЄ+кЄЄ+мEЄЄ+мEЄЄ+мЄЄ+EЄЄ+EЄЄ+х  к м  !(%Œ.ЎPrompt for Data'jlџџиZъ˜ZЄЄъZЄЄъ`ZЄЄъаЄЄ+кEЄЄ+кEЄЄ+кЄЄ Є+мEЄЄ+мEЄЄ+мЄЄх к м  !(%š.lџџј Zъ@ZЄЄъHZЄЄъH%ZЄЄъ`ZЄЄъРЄЄ+кEЄЄ+кEЄЄ+кЄЄ+мEЄЄ+мEЄЄ+мЄ+ЄЄ+EЄЄ+EЄЄ+Eии,000401Eх  к м  !(%Ђ.lџџИ Zъ`$ZЄЄъp ZЄЄъи Zъ  ЄЄ+мEЄЄ+мEЄЄ+мЄЄ'и,000401ЄЄи. Create the diametric dimension in model spaceх к м  !(%Ў.lџџ ZъРZЄЄъ˜ZЄЄъ ZъHЄЄ+мEЄЄ+мEЄЄ+мЄ'"hи,000401Є+х к м " !(%К.lџџpZъј ZъX ZЄЄъx ZЄЄъ!ЄЄ+жEЄЄ+жEЄЄ+жEЄ'х Р ж  !(%Ф.lџџиZъH ZЄЄъ˜ZЄЄъ` ZЄЄъ@ZъА ЄЄ+кEЄЄ+кEЄЄ+кЄ+Є‡'& &Ќz‹ќњ! @ЄД'&'Ъи, Create the rotated dimension in model spaceх к м  & !(%Ь.lџџЈЄ'TZъџџџџZЄЄъџџџџZЄЄъџџџџZъџџџџЄЄ+.EЄЄ+.EЄЄ+.p%и,000214 8х Р . в !(%и.Ќр?'вZЄЄъџџџџlџџHZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџЎEscher'0Є'2Џ'4х 2 0 4 !(%ц.ZЄЄъџџџџZъџџџџх Р T !(%|Є26(outer 6 B@ь B@ю2шА%и,000215 - is lџџ№хЈ.Tи4 The leader is not attached to any annotation objectи in this example.ZъџџџџZЄЄъџџџџZъџџџџZъџџџџЄЄ+жEЄЄ+жEЄЄ+жјЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+ж ў'8х ж T 8 !(%.lџџZъџџџџZЄЄ ъџџџџЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жЄЄ+жEЄ Є +жх ж !(%.lџџ€ZъџџџџZъџџџџZЄЄъџџџџZЄЄъџџџџЄЄ+мEЄЄ+мEЄЄ+м˜'и,000215@ZЄЄъџџџџZЄЄъџџџџZъџџџџх к м !(%.lџџиA Circle object to the new block, and uses the newly created blockиH to create a rectangular array of block references using AddMInsertBlockZъџџџџZъџџџџЄЄ+кEЄЄ+кEЄЄ+кЄЄ+мEЄЄ+мEЄЄ+мЌр?'Tх кЎCBlock !"%$.€х к TЎCBlock %"%|.и and the AddMInsertBlock methodх мЎCBlockЄЄЄЄЄЄЄЄ !(%& .Ў=A rectangular array has been created from the original block.A@lџџ(ZъџџџџZЄЄъџџџџЄ(Є+жEЄFЄ+жEЄЄ+жЄ2Є+жEЄFЄ+жEЄЄ+жЄ<Є+жEЄFЄ+жEЄЄ+жЄ(Є +жEЄ<Є +жEЄЄ +жЄ2Є +жEЄ<Є +жEЄЄ+жЄ<Є+жEЄ<Є+жEЄЄ+жх ж !(%0. !ŽB@,и'и,000215s beenlџџаZъџџџџZъџџџџZЄЄъџџџџZъџџџџZъџџџџЄЄ+жEЄЄ+жEЄЄ+жZЄЄъџџџџЄ'‚Ии,000215xt StrZъџџџџZъџџџџ ў'8х ж ‚ f !(%:.llџџˆZъџџџџZЄЄъџџџџх Š !(%B.  (DlџџpZЄЄъџџџџЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ +жEЄЄ +жEЄЄ +жЄЄ +жEЄЄ +жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жZЄЄъџџџџЄЄ+˜ЄЄ+˜ЄЄ+˜ЄЄ+˜ЄЄ+˜ЄЄ+˜ЄЄ+˜ЄЄ+˜ B@Rи better see the polyface meshи6 ThisDrawing.ActiveViewport.direction = NewDirectionЄи ZoomAlllџџ`ZъџџџџZъџџџџZЄЄъџџџџЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЎ D:/AutoCAD_2000/sample/watch.jpg'HЄЄ +жEЄЄ +жEЄЄ +жЄЄ+жEЄЄ+жEЄЄ+жх ж !(%X.lџџ`и9 This example uses the "downtown.jpg" found in the sampleи; directory. If you do not have this image, or it is locatedи; in a different directory, insert a valid path and filenameи" for the imageName variable below.ZЄЄъџџџџЄ'ЈZъџџџџZъџџџџZъџџџџСru›ruЄ'&hх H ж Ј & !(%f.Ўbox'І HЎ could not be found.A@uџџР hџџИ lџџА Є'œZъџџџџZЄЄъџџџџZЄЄъџџџџЄЄ+мEЄЄ+кEЄЄ+мЄЄ+жEЄЄ+жEЄЄ+жЄ+и,000216Є+х к м !(%t.lџџ@ ZЄЄъџџџџZЄЄъџџџџZъџџџџZъџџџџZъџџџџхЄ$x!Є$x! !(%Є2xЎShape file not found.A@Є'žЌz‹ќњ! @'Ђх ж œ ž Ђ !(%^Є2x HЎ not found.A@ Zъџџџџ x !(%€' ЄЄ$(DlџџXи= Load the shape file containing the shape you wish to create.и) Note: Replace the ltypeshp.shx file nameи) with a valid shape file for your system.СrЎ$d:/AutoCAD_2000/Support/ltypeshp.shx B@ˆ ZъџџџџZъџџџџZЄЄъџџџџZъџџџџ-и,000216iansЄ'&и+ in radiansЄЄ+мEЄЄ+мEЄЄ+мЄuџџа›rШЄЄ+жEЄЄ+жEЄЄ+жlџџ€ZъџџџџZЄЄъџџџџZЄЄъџџџџZЄЄъџџџџZЄЄъџџџџЄЄ+кEЄЄ+кEЄЄ+кЄЄЄ+оEЄЄ+оEЄЄ+оЄи,0002160ZЄЄъџџџџZЄЄъџџџџЄЄ+рEЄЄ+рEЄЄ+р+ох к м о р !(%š.lџџXи Create the splineZъџџџџZЄЄъџџџџZЄЄъџџџџP,и,000216ВEх f ж М !(%М.Ќ @Є+АEЄЄ+АEЄЄ+АВЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄ Є+жEЄЄ+жEЄЄ+жх ж А В !(%Њ.lџџXZъџџџџZъџџџџZъџџџџZЄЄъџџџџZъџџџџЎ Hello, World.'fЄЄ+жEЄЄ+жEЄЄ+жЌр?'fи& Create the text object in model spaceх f ж f !(%Д.ZъџџџџlџџZъџџџџZъџџџџZЄЄъџџџџZЄЄъџџџџ*и,000216ature x*и,000216ЄЄ+МEЄЄ+МEЄЄ+Мlџџ@>ZъџџџџЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ +жEЄ Є +жEЄЄ +жи! to fill the outline of the traceЎFILLMODEЄ B@Цх ж !(%Ш.Рlџџј;ZъџџџџZЄЄъџџџџZЄЄъџџџџЄЄ+мEЄЄ+мEЄЄ+мх к м !(%в.lџџ:џџџџјMх ж ˜ !(%P.ЄЄ+мEЄЄ+мEЄЄ+мЄџџџџ02иA NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1и9 ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewportЄЄ-+жEЄЄ.+жEЄЄ/+жЄџџџџx1ЄЄ'+жEЄЄ(+жEЄЄ)+жџџџџ(2аи,000208ZъџџџџZъџџџџъџџџџZЄЄ/ъџџџџЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ +жEЄЄ +жEЄЄ +жЄЄ +жEЄЄ +жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЌр?Є+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЌј?Є+жЄЄ+жEЄЄ+жEЄЄ +жЄЄ!+жEЄЄ"+жEЄЄ#+жЄЄ$+жEЄЄ%+жEЄЄ&+жЄЄ'+жEЄЄ(+жEЄЄ)+жЄЄ*+жEЄЄ++жEЄЄ,+жЄЄ-+жEЄЄ.+жEЄЄ/+жЄ'шEЄ'ъх ш ъ ж !(%<.lџџ`.ЄЄ +жEЄЄ +жEЌр?Є+жe.Add3џџџџH/џџџџ€5Є'fЄЄ+жEЄЄ+жEЄЄ+жџџP5ЄЄ+РEЄЄ+РEЄЄ+Р~~џџџџˆ5и7 MsgBox "A Dim3PointAngular object has been created."~џџџџ5(и,000401џџЄЌn†№љ! @ЄД'ЂЄЄ+EЄЄ+EЄЄ+Єџџџџ˜5ЄЄ+EЄЄ+EЄЄ+џџџџи5ЄЄ+кEЄЄ+кEЄЄ+кџџџџА5ЄЄ+кEЄЄ+кEЄЄ+кOrdi608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Libraryф*\G{B89669C8-1E8F-47F2-A348-24BB1FB7198A}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџ1o=џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџnaџџџџX5џџџџ 5Аи,/000401 angle to radian conversion needs commentgLeи,<VBA reference says Integer, actually functions as a Boolean!џџџџ 4№и,000401ЄЄ+РEЄЄ+РEЄЄ+РRadialџџџџа5ЄЄ+EЄЄ+EЄЄ+и,AQuickInfo for the UseXAxis parameter (XorYaxis) indicates a Long,џџџџ˜5ЄЄ+мEЄЄ+мEЄЄ+мЄџџџџр5ЄЄ+РEЄЄ+РEЄЄ+РЄЄ+РEЄЄ+РEЄЄ+Р.AddCiџџџџˆ5ЎNote'А:и и,:000215 AnnObj needs BlockRef, Mtext, Tolerance if not Nullџџџџ€5ЄЄ+жEЄЄ+жEЄЄ+ж+жЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жЄЄ+жEЄ Є +жЄЄ+жEЄЄ+жEЄЄ+жЄЄ +жEЄ Є +жEЄЄ+жР#и,-000215 z-coordinate appears to have no effectџџџџh5ZЄЄъџџџџZъџџџџP(и,000215ff noZъџџџџЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ+EЄЄ+EЄЄ+х ж T 8 !(%.ZъџџџџZъџџџџZъџџџџЎ Annotation'fЄЄ'и,0002157) = 4ZЄЄъџџџџ ў'8ZъџџџџZЄЄъџџџџZъџџџџх  ‚ f !(%:.TЄЄ+жEЄЄ+жEЄЄ+жxt((teЄЄ+жEЄЄ+жEЄЄ+жZъџџџџЄЄ+VEЄЄ+VEЄЄ+VЄ'‚Ў Annotation'fх f V f !(%Д.Tх ж T 8 !(%.lџџ4X'и,000215 with MTextZЄЄъџџџџЎ Hello, World.'fЌр?'fџџџџИ3(+и,000216t2 As џџџџ:ЎDoris J. Clark'fЄЄ+жEЄЄ+жEЄЄ+ж HЎ could not be found.A@р&и,000215 be foЄЄ+кEЄЄ+кEЄЄ+кrror" џџџџ(:џџџџ:ЄЄUserForm1џџџџ`ЖЬЌQžП ŸEФQžПfџџџџџџџџџџџџФ&oџџџџўџџџCompObjџџџџџџџџТaVBFrameџџџџџџџџџџџџН Module1џџџџџџџџџџџџўџџџЎ__SRP_6џџџџџџџџџџџџўџџџd__SRP_7џџџџџџџџџџџџўџџџe+ŠEЄЄ+ŠEЄЄ+Šџџџџˆ:ЎPDMODEЄ# B@ЦЈ(и,000215Є# џџџџи: B@Rр*и,000216иD ThisDrawing.Regen True 'not required with updateи% Dim NewDirection(0 To 2) As DoubleиB NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1и: ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewporth&и,4000216 more interesting figure (vector equilibrium)?џџџџ9и,000216ЄЄ+кEЄЄ+кEЄЄ+мџџџџР;ши,000216џџџџи;Ќр?Є+ВEЄЄ+ВEЄЄ+ВЄЄ+жEЄЄ+жEЄЄ+жиЖџџџџ@;ЎThis is a Feature Control Frame'fЄЄ+кEЄЄ+кEЄЄ+кLine((џџџџ ;х І ж Ј & !(%’.ŠelSpџџџџ(;џџџџа:џџџџи:џџџџџџџџа:Ии,000401џџџџ№:џџџџШ:8и,000409Zъ`ZъиZЄЄъPZЄЄъиЄЄ+жEЄЄ+жEЄЄ+жЄЄ+МEЄЄ+МEЄЄ+Мх f ж М !(%М.lџџа9џџџџШ9р и-000404ZъZЄЄъЈZЄЄъ ЄЄъˆ ZЄЄъА ЄЄ+EЄЄ+EЄЄ+ЄЄ+кEЄЄ+кEЄЄ+кЄЄ+мEЄЄ+мEЄЄ+мЄЄ+EЄЄ+EЄЄ+х  к м  !(%Œ8E75D913-3D21-11D2-85C4-080009A0C626}Pъ8"*\Rffff*5389f521cп џџџџаўџџџџџџџџџ(џџџџџџџџџџ$џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ $‚ џџџџўџџџџџўџџџџџџџџџџџ $ƒўџџџџџџџРџџџџџџџџџџџџџџ $џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh˜@ttџџџџџџџџџџџџџџџџџџџџџџ0MEџџџџџџџџџџўЪ€€ џџџџџџџџХџџxџџџџpТАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |CreatablA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2O@ption /licit VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 3165 ClientLeft = 45 ClientTop = 390 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq }t ЯPOINTKўxo€џџџ_B_var_xЂPtModeUPtSizeŸ“PdSizeu thosdrawingc€џџџ_B_var_thosdrawingђD€џџџ_B_var_i Ђ €џџџ_B_var_ForjLreal €џZoomCenterЫ| €џџџ_B_var_IfPђ€џVisibleЖгPtЙ^ €џSendCommandcњAddToleranceVars=  gtPosition,х€џџџ_B_var_gtPositionWS €џџџ_B_var_Constg gtVerticalА€џџџ_B_var_gtVerticalw ftVerticalEditDim3PointAngular2ќkAddDimDiametric2F:€џDeleteИxAddDimDiametric3G: €џџ0,0 PDSIZEVisible _DDEDIT {\Fgdt;j}%%v01AddToleranceVars {\Fgdt;j} %%v $001 - A Simple Feature Control FrameEditDim3PointAngular2AddDimDiametric2AddDimDiametric3Њд()“ЪбЖ`А‡т5AddDimRotated2 ExtLine2PointAddDimAligned2Ід()“ЪбЖ`А‡т5 0{\Fgdt;j}%%v001 - A Simple Feature Control Framed)“ЪбЖ`А‡т5AddDimRotated2 ExtLine2PointAddDimAligned2Ід()“ЪбЖ`А‡т ThisDrawingЙ5 €џџџ_EvaluateйChap12_Examples;МAddDim3PointAngular„ѓAcadDim3PointAngularц#AngVtxwдP1–^P2—^PtTextžC ModelSpace_жEditDim3PointAngularЎ$PtЙ^ ACAD_POINTKў SetVariable?RAddPoint  ApplicationЅ* ZoomExtentsћ+MsgBox—Ri`VisibleЖг AngleVertexќ EditDim3PointAngular2ќk AddDimAligned‚ЇAcadDsimAlignedіеAddDimAligned2zМ ExtLine2PointъТ ZoomCenterЫ| AddDimAngularЁъЪA„ћбO^ќ}Cџџџџџџџџџџџџx4„>ЁъЪA„ћбO^ќ}CChCŸСrZ@šнq­#ЙyџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626} џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџ0ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ џџџџўџџџ˜џџўџџџџџџџџџџџ %џџ.lџџx:џџџџ`:и Define new vertex pointsЄЄ+E фЄ+EЄЄ+ЎVertex at 7,0,0A@g the  („ !ŽB@ф !ŽB@фџџџџ<Џ (фZъШ х  !(%B.х  !(%B.ЎPDSIZEЌ{ЎGсzД? B@Цe ZъџџџџЎPDMODEЄ" B@ЦџџџџА=х м !(%B.х к !(%B.ZъА ї фіРex at и MsgBox "Vertex changed to 8,0,0"џџџџ€>и- Update the angle using the new vertex p‚ƒ„…†‡Š‰ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџОПРСўџџџУўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@ttџџџџџџџџџџџџџџџџџџџџџџ81o=$*\Rffff*073d6f12beпџџџџ4ўЪ€€ џџџџџџџџЭџџxџџџџpџџџџаАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |@GlobalЮSpac’False dCreatablPredeHclaIdАTru BExposeTempla€teDeriv’BustomizD2OptionExtLine2PointЂюW[šЪбЖ`А‡т5Жд()“ЪбЖ`А‡т5 Annotationw /licit      %єыѕ `џІєыѕ `џІєыѕ `џІєыѕ`џІєыѕ`џІєыѕ`џІєыѕ`џІ єѕHџЂ єѕHџЂ єѕHџЂ єѕHџЂ єѕHџЂ єѕHџЂ єѕHџЂ єѕHџЂ9 џHџM$џ %`џM4џ %Dџ"$ DMesh3! Add3DMesh4" €џџџ_B_var_Set AngleBegDegY‡ AngleEndDegœ› AngleEndRadух AngleBegRad бPointєž PointText'ИAngVtxwдPtTextžCTextPtqw €џџџ_B_var_dimObj[3Pt1kХPt2lХPtChrd1ТОPtChrd2УОLenLdrамPtChrdA2PtChrd11”l€џџџ_B_var_PtChrd11DPtOrig–ЊPtLedrJXAxis=Ў €џџџ_B_var_XAxis*rXorYaxisp6DimLocРЊAngRotVОObject5ЧLRratio€яAxisgcAxisMjŸPatNam#œPatTyp ПAssoct8ЪLoopOTslLdrTypЄ+ˆEЄЄ+ˆ MsgBoЄЄ+ŠEЄЄ+ŠEЄЄ+Šји6 Create the new Dim3PointAngular object in model spaceх „ † ˆ Š !(%Œ.€ !ŽB@,и. Read and display current dimension line colorЎ>The dimension line color for this object is currently set to: €!оA@и Change the dimension line color ‚ €(о р B@№и. Read and display current dimension line colorЎ8The dimension line coloointsї фіЄЄЌ{ЎGсz”?ŽџџџџH?р и,:000215 AnnObj needs BlockRef, Mtext, Tolerance if not NullZъаZъ№ZЄЄъ Zъ`ЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+ж .'8хЈ.Tх ж T 8 !(%.lџџ(>xи,000215 with MTextZъИZъаZЄЄъшZъXЄЄ+жEЄЄ+жEЄЄ+жЕŽAnnObjёAnnTxtц1€џџџ_B_var_AcadText$VObjextЪ1 €џџџ_B_var_ObjectjЉInsrtPЁИFactrS]ЛImgNamˆЪFactorэК€џџџ_B_var_MTextObjЧV AddLeader1[ AddLeader2 [Object2ФLAnnote†PtextWg AddLeader3 [ €џџџ_B_var_PtextD+ €џџџ_B_var_P2?ѓ €џџџ_B_var_AnnObjšŽTxt†лPtxtmх €џџџ_B_var_PtxtšJ €џџџ_B_var_Text€џџџ_B_var_rotationAngleO €џџџ_B_var_imageNameїе€џџџ_B_var_insertionPoint=E€џџџ_B_var_scalefactor 3€ЄЄ+жEЄЄ+жEЄЄ+жЄЄ+жEЄЄ+жEЄЄ+ж ў'8ZЄЄъ ZъZъ(ЄЄ+EЄЄ+EЄЄ+Ў Annotation'fЄ'‚х  ‚ f !(%:.Tх ж T 8 !(%.lџџp<џџџџh<Ў0{\Fgdt;j}%%v001 - A Simple Feature Control Frame'fџџџџpBџџџџ˜Bри,000409ZъPZъpZЄЄъˆZЄЄъш   Ў$001 - A Simple Feature Control Frame 'fЄЄ+жEЄЄ+жEЄЄ+жЄЄ+МEЄЄ+МEЄЄ+Мх f ж М !(%М.lџџAZЎ%%vъџџџџZЎ {\Fgdt;j}ъ ZЎ%%vъИџџџџPAh&и-000416ЎPDSIZEЌ{ЎGсzД? B@ЦZъ˜ZЄЄъАZЄЄърЄЄъpZЄЄъ ЄЄ+EЄЄ+EЄЄ+ЄЄ+кEЄЄ+кEЄЄ+кЄЄ+мEЄЄ+мEЄЄ+мЄЄ+EЄЄ+EЄЄ+х  к м  !(%Œ.х м !(%B.х  !(%B. !ŽB@фЎVertex at 7,0,0A@и Define new vertex pointsZъHї фіЄЄЌ{ЎGсz”?ŽЄЄ+E фЄ+EЄЄ+  („х  !(%B. !ŽB@фї фіРlџџШ@џџџџ(AџџџџшFИи-000413ZъxZЄЄъРZЄЄъZъxЄЄ+кEЄЄ+кEЄЄ+кЄЄ+мEЄЄ+мEЄЄ+мЄ'х к м  !(%Ў.lџџрEZъШ B@фPtї фіРwing.Mх к м  !(%Ў.ї фіЄЄЌš™™™™™Й?Ž% ц B@№ЄЄ+мE фЄ+мEЄЄ+мџџџџ(Eџџџџ`Hри-000413ZъШZЄЄърZЄЄъ8ZъhЄЄ+кEЄЄ+кEЄЄ+кЄЄ+мEЄЄ+мEЄЄ+џ_B_var_PtaѓAddDimRotated2F €џExtLine2PointъТAddDimAligned2zМ dimObjectq €џџџ_B_var_ObjextsЌtText Џ€џacSplineWithArrowєL€џacSplineNoArrowОЕџџTе џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $@€1Р Dџ (Q џxџDџ xџ Є\Ќx`xџHџ`џDџ џ0 ќЦР#  0 ќЦ(+  0 ќЦ r for this object is now set to: €!оЎ (Red)A@lџџџџџџВAttribute VB_Name = "Module1" Option Explicit Sub