аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЖџџџџџџџџџџџџџџџџџџџџџџxоиF џџџџщzэzџџџџєжж<$џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџF џџ&<Œџџ<џџ< џџ<џџ<џџ6 џџџџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџG ўџџџ  !"#$%&Ÿ()*+,-./ўџџџD23456789:;<=>?@ABCўџџџEFIўџџџўџџџJKLMNўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџcdfghijklmnopqrМўџџџuvwxўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџID="{F87C7164-C17D-11D4-A7C5-0004AC2474C6}" Document=ThisDrawing/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} HelpFile="" Name="ACADProject" HelpContextID="0" CMG="6260A3541C581C581C581C58" DPB="D7D516E3FE2D74347434074E9C53EBE711" GC="4C4E8D7A77EE78EE78EE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0, 0, 0, C Module1=22, 22, 378, PROJECTwmџџџџџџџџџџџџH>PROJECTџџџџШThisDrawingџџџџџџџџџџџџ1Љ__SRP_4 џџџџџџџџt__SRP_5 џџџџs@Module1 џџџџџџџџВ'__SRP_2џџџџe„__SRP_3џџџџџџџџџџџџbд_VBA_PROJECTџџџџџџџџ2'dirџџџџџџџџџџџџ'$__SRP_0 џџџџ џ __SRP_1џџџџџџџџџџџџnrU€€€€~} џџџџџџџџџџџџ   љљp“K)^џџџџrU€€€€~~~~~~~~~~~~~~~~~~~~~~~~~~5 бEН]њдЈЌ$tЦ  фƒŠa Iџџџџџџёˆa 9џџџџаџџџџџџёљ щProjet1 ACADProject ThisDrawingModule1яРFAC:\Program Files\Fichiers communs\Microsoft Shared\VBA\VBA332.dllVBA )џџџџ Qс(тС”РЦWв…у  Ц& 1C:\Program Files\AutoCAD Architectural 2\ACAD.TLBAutoCAD Iџџџџqс80РFC:\WINNT\System32\STDOLE2.TLBstdoleœд()“ЪбЖ`А‡т5 QџџџџyСHЄ›A9‹CдЇ.Ќ$tЦC:\WINNT\System32\MSForms.TWDMSForms aA‰бXс.E р….`ŒM Д‚ЃПдЇТЌ$tЦC:\TEMP\VBE\MSForms.EXD iA‘бhtest йuŽ!=в…Ф  Ц&Pq|ј}СдЇХЌ$tЦйuŽ!=в…Ф  Ц&Oq|ј}СдЇХЌ$tЦсXh—{ а‰п€_ТћК AcadDocument @ SS7~aЁ!ћбЂШ мcšSelectOnScreenйuŽ!=в…Ф  Ц& VBA332.DLL 1џџџџS И The length of the new Arc is: Delete _dimangular arcobjExample_AddDimAngular…ЙЂЙ(вЖx`А‡т5ˆ%“^чџбЖI`А‡т5йuŽ!=в…Ф  Ц&Q шQ џџџџ SS1 SS2 SS3 SS4 SS5 SS6   Firs В€0* pH‚dф ACADProject8@е = t  J $:( J< rstdole>stdole f%\*\G{00020430-;C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automa0tion^€MSForms>SFErmsh/z€ p€F39419BA4-438B-11D@4-A72EF4€AC2474CF3.TWD#Microsoft E= ` ObА €Library9ЃP0ˆj€P1B5DBD4@4-FA17P81‚›PTEMP\VBE\…&EXЇ&с.E р….`ŒM ДE’‚Тщz‚ThisD€rawing 2Р.Thi€[Dra‚wРng@(HB1Т’јXB,BяTz"B+BCto@dule1 2U„wo@šuBš1P<Ђ$Oэz!HТong. = Јд()“ЪбЖ`А‡т5 Arc seulement Long_arcЖџџџџџџџџ<џџPq|ј}СдЇХЌ$tЦйuŽ!=в…Ф  Ц&Oq|ј}СдЇХЌ$tЦџџџџџџџџџџџџxњˆ6џџџџщzяzџџ#ˆOq|ј}СдЇХЌ$tЦPq|ј}СдЇХЌ$tЦџџЄђђјџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{8E75D913-3D21-11D2-85C4-080009A0C626}J $:"*\Rffff*93a1d7c1bп џџџџаўџџџџџџџџџ(џџџџџџџџџџ$џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ $‚ џџџџўџџџџџўџџџџџџџџџџџ џџ $ƒўџџџџџџџРџџџџџџџџџџџџџџџџџџ $џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh˜@ttџџџџџџџџџџџџџџџџџџџџџџ0MEџџџџџџџџџџўЪџџџџџџџџx­АAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |CreatablA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2ryс.E _dev2Module2Example_Highlight юW[šЪбЖ`А‡т5 Highlight Example The name of this object is   Cotation d'arccmdExtrExcel_Click 1386, Z Z ThisDrawingModule1Module1ThisDrawingThisDrawingModule1Module1џџџџџџ…  +ATTENTION : le fichier Excel n'existe pas !Clear 1џџџџr 0 Impossible d'ouvrir le fichier ' ' ! Calques Worksheets *Impossible d'ouvrir la feuille 'Calques' !CellsAddItem UserForm1DН]њдЈЌ$tЦ  ‘A‘бHtџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџFq|ј}СдЇХЌ$tЦџџџџHq|ј}СдЇХЌ$tЦџџџџџџџџH€XdџЄ1 €џAs=€џDimG€џEndS€џfalse_€џGoTo`€џIfŠ€џOnž€џResumeА€џSubГ€џThenН€џVariant AutoCAD"ј VBAїтWin16С~Win32MacГВProjet1А stdole“`MSFormsC ACADProjectІд ThisDrawingЙ5 €џџџ_Evaluateй AcadDocumentZ Module1btest4Ћsset/. SelectionSetsгAddїrSelectOnScreenЛarcObj_нAcadArc centerPointРŸradiusрVstartAngleInDegreeˆFendAngleInDegreeгхstartAngleInRadianЛendAngleInRadian Z StartAngle|/EndAngle` ApplicationЅ*ZoomAllm$MsgBox—R ArcLengthЅ№€џDeleteИx SendCommandcњdimObjёИ€џAcadDimAngularАЃangVert?e FirstPointЃ „џSecondPointŠ TextPointЮV €џModelSpace_ж €џAddDimAngularРў *Fаў%'рў%џ"$ №џ \ Рўќіџџ6рўаў7ќўќэџќэџќэ$џќэdџџ"$  џ ˜ Qќў4џџKѕѕ: ўNрўрў8џMАў@аў :ўаўћяРў`#Œў4џ №/Œў6рўаўРў 4џ Єѕ4џ 0 tџў‹јў_ xџў˜&Œў џџ ,lŒўћ0/Œўџa+'|ў'Рў'аўѕ:АўNрўрў 6рўаўРўrU€€€ џџџџџџџџ@prU€€€ ЉбџџџџY4љa!џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ<џџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџLџџџџџџџџLџџџџ”џџџџџџџџLџџџџLџџџџџџџџLџџџџLџџџџLџџџџLџџџџLџџџџџџџџLџџџџLџџџџLџџџџLџџџџš"џџџџLџџџџџџџџ<џџ<”џџ<˜џџ<œџџ< џџ<Єџџ<Јџџ<Ќџџ<Аџџ<Дџџ<Иџџ<Мџџ<Рџџ<Фџџ<Шџџ<Ьџџ<аџџ<дџџ<иџџ<мџџ<рџџ<фџџ<шџџ<ьџџ<№џџ<єџџ<јџџ<ќџџ<џџџџџџJ $:$*\Rffff*133a2168e0*\R1*#e5*\R1*#c7*\R1*#5b*\R1*#67*\R1*#68*\R1*#5a*\R1*#59*\R1*#58*\R1*#10b*\R1*#61*\R1*#10a*\R1*#109*\R1*#f1*\R0*#16*\R0*#11*\R1*#f3*\R1*#10d*\R1*#43*\R1*#5b*\R1*#67*\R0*#c*\R1*#68*\R1*#5a*\R1*#59*\R1*#58*\R1*#10b*\R0*#b*\R1*#61*\R1*#10a*\R1*#109*\R1*#f1"*\Rffff*93a1d7c1b*\R0*#16*\R0*#10п џџџџш$ƒџџџџџџ8џџџџџџџџџџџџџџ„ $џџџџ”jЎА<Лw „%ˆtџџџpжN'$`„(џџџџdџџџ џџ`„*x\џџџџџ $`„,џџџџTџџџџџ`„.џџџџLџџџџџ`„0џџџџDџџџџџ`„2џџџџ<џџџџџ$$$$ƒџџџџџџXџџџџџџџџџџџџџџ$ƒџџџџџџџџџџџџџџџџџџџџџџџџ „Eр4џџџ(џџџџ`„Jџџџџ$џџџ џџџџџџ`„L џџџ џџџџџџ`„NИџџџ џџџџџџ Њџџџџ`џџџџџџџџx|ўkџџџџџџџџџџ??„Xƒџџџџџџџџџџџџџџџџџџџџџџџџи0џџшƒџџџџџџ џџџџџџџџџџџџџџ„`„џџџџxџџџ џџџџ@ƒџџџџџџаџџџџџџџџџџџџџџ $@ўџџџџ џџ џџџџƒџџџџџџЈџџџџџџџџџџџџџџ џџƒџџџџџџџџџџџџџџџџџџџџџџHƒџџџџџџpџџџџџџџџџџџџџџџџџџ $ˆџџџџШџџџџџџџџџџџџџџџџшџџџџџџџџџџџџџџџџјаXџџџџи`џџџџЈџџџџџџџџHџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@P@ўџџџџџќўџџ џџ џџџџ@ўџџџџџјўџO џџ џџџџ@ўџџџџџ№ўџџџџ џџџџ@ўџxрўџџ џџ џџџџ@ўџаўџџ џџ џџџџ@ўџ0Рўџџ џџ џџџџ@ўџРАўџџ џџ (@ўџ ўџџ џџ џџџџ01џџџџ`„^А8џџџџџџџ@ўџџџџџўџџ џџ џџ@ўџџџџџŒўџџџџ џџ@ўџџџџџ|ўџџ џџ џџ`џџџџЈџџџџPџџџџ@аўџџ џџ џџџџ@ўџРўџџ џџ џџџџ@ўџАўџџ џџ 8џџџџџџџџЈџџџџАџџџџИџџџџРџџџџШџџџџаџџџџиџџџџрџџџџшџџџџ№џџџџјџџџџшџџџџџџџџџџџџџџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџMEџџџџџџџџџџўЪ?"€€˜€8€А €Ш €и €И €ш €№ €ј € € џџџџ€   *ˆ € џџџџ€ џџџџ€ $@ 0€ џџџџ € џџџџ€ џџџџ€ џџџџи€ џџџџ€ џџџџ&€ џџџџ€ џџџџ€  P p€ џџџџ€ џџџџ `€ $Р€ Jш     №H>p$7Ш0K  P А € џџџџ€ џџџџ 8  @€ џџџџ€ џџџџ€ "&` +Ш  h Ј 8 € џџџџ€ џџџџx€ џџџџџџџџшZъˆZъџџџџ B@"selectZъџџџџ B@"0˜иSщlection de l'objet р l'щcrann moхЎSS0 !% .ngthZъџџџџZъџџџџZъX $!V'(џџџџZъџџџџZъџџџџъџџџџZъџџџџъџџџџї $і ŒZъџџџџъџџџџthZъџџџџ $!4',E $!6'.иrЎ Longueur = ^Ў###0.000$Ў D(v ,Ќz‹ќњ! @Ќ€f@'0 .Ќz‹ќњ! @Ќ€f@'2иConvertion de l'angle in иSщlection de l'objet р l'щcranhisDZъџџџџъџџџџacZъџџџџZъџџџџZъџџџџZъџџџџї ~і Œle $!>'^arcZъџџџџZъџџџџZъxZъџџџџZъџџџџZъџџџџA@: $!>'^arc=Zъџџџџlџџ ZъџџџџZЄЄъџџџџZЄЄъџџџџZЄЄъџџџџZЄЄъџџџџи Define the dimensionЌЄ+HEЌ@Є+HEЌЄ+HЌ№?Є+JEЌ@Є+JEЌЄ+JЌ№?Є+LEЌ@Є+LEЌЄ+LЌ@Є+NEЌ@Є+NEЌЄ+Nи, Create the angular dimension in model spaceomaх H J L N !P%R.DA@:A@:и: This example creates an angular dimension in model space.ZъџџџџZЄЄъџџџџZЄЄъџџџџZЄЄъџџџџZЄЄъџџџџи Define the dimensionЌЄ+HEЌ@Є+HEЌЄ+H Ќ№?Є+JEЌ@Є+JEЌЄ+JЌ№?Є+LEЌ@Є+LEЌЄ+LЌ@Є+NEЌ@Є+NEЌЄ+Nи, Create the angular dimension in model spaceх H J L N !P%R.DA@:lџџ№ZЄЄъџџџџ ~!4',8E75D913-3D21-11D2-85C4-080009A0C626}Fg!:"*\Rffff*93a1d7c1bп џџџџаўџџџџџџџџџ(џџџџџџџџџџ$џџџџHƒўџџџџџџџ`џџџџџџџџџџџџџџ $‚ џџџџўџџџџџўџџџџџџџџџџџ џџ $ƒўџџџџџџџРџџџџџџџџџџџџџџџџџџ $џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh˜@ttџџџџџџџџџџџџџџџџџџџџџџ0MEџџџџџџџџџџўЪџџџџџџџџx­АAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{8E75D913-3D21-11D2-85C4-080009€A0C626} |CreatablA†False МP€redeclaDIdŠTru "E xposeTemplateDeriv$eCus`tomizˆ2 V@h•€g ЙЈ#йпŽТйЊˆLfЏЌ TextPointas}w €џџџ_B_var_point1І• textepointеЈЉ љ ! y ‘ A ‘ё1Qq‘БбёQy™ЙйљџџVcЖџџџџџџџџ<џџPq|ј}СдЇХЌ$tЦйuŽ!=в…Ф  Ц&Oq|ј}СдЇХЌ$tЦџџџџџџџџџџџџxњˆ6џџџџщzяzџџ#ˆOq|ј}СдЇХЌ$tЦPq|ј}СдЇХЌ$tЦџџЄђђјџџџџ4џџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџŽ‘’“”•–—›џџџџџџџџџџџџœЈџџџџ ЁЂЅџџџџџџџџІЇЋЌџџџџџџџџЎАџџџџЏБДГџџџџЖЕЗИКЙЛўџџџСНОПУџџџџ0џџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџE ~!6'. de: $!V'(Є $!Z'LtPoi $!X'Jх \ J L N !P%R.DRЌ№?Є+LEЌ@Є+LEЌЄ+LartPЌ№?Є+LEЌ@Є+LEЌЄ+L х ( J L N !P%R.D+иSecondPoint = arcObj.EndPointиcentrearc = arcObj.CenterџџџџX B@@Gr DB@x%hџџџџxџџџџаžШ jЎ"Position de la ligne de cotation:  !f%h'Nџџџџ€и Retou9Yy™ 1QЉЩщ )AaЁЙйљ9Yy™Йс )QyЁ a4М џџHџ*ќўHџ"$ Фџ ,Qќўxџџ xџў˜KUlxџtџўˆјўJ№ўtџ фm№ўrTџ№ўtџ ьm№ўrLџoTџњz‹ќњ! @Гњ€f@ЖtDџoLџњz‹ќњ! @Гњ€f@Жt<џ№ўtџ јo№ўќ18џUѕѕ:аў NРўРў8џMр€џџџ_B_var_textepoint GetPoint_фЏ €џTextOverride1b€џUpdateвќ _B_var_Formatр Longarcdev|ЮpoliщdwPolylineщ{€џAcadLWPolylineб€џџџ_B_var_AcadLWPolў@Аў '`ў'pў'€ўѕ: ў Аўћяў 6 РўАўў€ўpў`ўРўtџ аРўќіdџРўtџ ЬРўќі$џРўtџ иРўќіџ>ў  *FАў%'Рў%џ"$ №џ \ ўќіџџ6РўАў7ќўќэџќэџШ €џAcadPolylineз^ AcadwPolylineKЈ€џџџ_B_var_Acat point: ŠјфJmЯ“ћ žГЗ "Position de la ligne de cotrne la longueur de l'arcиConvertion de l'angle ,Ќz‹ќњ! @Ќ€f@'0 .Ќz‹ќњ! @Ќ€f@'2и Retourne la longueur de l'arcЎLa longueur de l'arc est de: ^Ў###0.000$ЎA@< $!X'J $!Z'LisžШ jЎ"Position de la ligne de cotation:  !f%h'Nх ( J L N !P%R.DyЎLongueur Dщveloppщe ^Ў###0.000$Ў D(v DB@xїПp B@@lџџXZъџџџџџџџџ(џџџџ@ џџџџH џџџџation: The value is <>ТGшK2№бН€Ш XЭЂюW[šЪбЖ`А‡т5 Longueur Dщveloppщe Longueur Dщveloppщe 1џџџџ” ( ###0.00 La longueur de lylineSh €џџџ_B_var_On6ѓ €џџџ_B_var_Resume4эSS'_ €џџџ_B_var_SSЯѓ _B_var_Error)ŸErroŠNumberЃ- €џ'arc est de:  ###0.000 LongarcdevРд()“ЪбЖ`А‡т5 SS9Ид()“ЪбЖ`А‡т5 SS0 StartAngleEndAngle Objet Arc seulement S1 ќэ$џќэdџџ"$ џ ˜Qќў4џџKѕѕ:аў NРўРџџ_B_var_IfPђClearуЭNextIf[юerreurƒšerreur1у8selfг ERRORHANDLERO DescriptionО err13[ Ќ(LoS2 S3 S4 S5 S6 S7 S9 ў8џMрў@Аў : ўАўћяў`#\ў4џ №/\ў6РўАўў 4џ Єng_arc_devч €џTextInsideѕ€џVerticalTextPosition1џџџџ­ pИfФЄŸIЛxЊ8<Л SE SA SD SS Sk Sr Se S8Ј џџџџ€ ЎObjet Arc seulementA@<џџџџx СЈЎObjet Arc seulementA@<џџџџ џџџџА hџџџџЈ џџџџр џџџџ џџџџ џџџџ8 B@@me selџџџџШ ”!ІЎtype incompatible•bleнЂZъZъшџџџџh ZъАъШseZъръјZъˆZъ ZъИZъа›ЈџџџџЈ ›Ђ ”B@š !џџџџ€ ї $іРџџџџИ џџџџи џџџџ№ ”!ІЎType incompatible•t Arc хЎsel1 !% .err1џџџџр А D(Ў = џџџџ Ў "$ И tџў‹јў_ xџў˜&\ў џџ ,!l\ў SL 1џџџџŒ ˆNumber S'вn €џacOutsideО0џџTџџџџџџџџџџџџ џџџџџџџџ type incompatible Su SQ So SGћ0/\ўџЗ+'€ў'ў'Аўѕ:рўNРўРў 6РўАўў€ў xџў˜§  МHЗ0 јўdџ4џ8џf  ee et er r eee џџ$џtџxџ0 \ўџќўРўАўў€ўpўArc seulementA@<џџџџ и DMsgBox "La longueur de l'arc est de: " & Format(longarc, "###0.000")џџџџ( ZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџъџџџџZъџџџџъџџџџZъџџџџZъџџџџZъџџџџZъџџџџZъџџџџ›Ђа ”B@šGrхЎsel !% .иSщlection de l'objet р l'щcranll B@" СЈ` ї $і Œ $!4',E $!6'.иConvertion de l'angle ,Ќz‹ќњ! @Ќ€f@'0 .Ќz‹ќњ! @Ќ€f@'2 $!>'^и Retourne la longueur de l'arcиDMsgBox "La longueur de l'arc est de: " & Format(longarc, "###0.000") $!V'( $!X'J $!Z'LžШ jЎ"Position de la ligne de cotation:  !f%h'Nх ( J L N !P%R.DnaЎ Longueur = ^Ў###0.000$Ў D(v DB@x А D(ЎJA@:ї $іРќџ B@@›Ј( ”тЄ HQЎ Arc seulementA@<Ў Arc seulementA@< B@@нЂа klџџР нЂИ ЌѕКџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџ $tible sel Long_arc_dev Longueur =  L€patible•t Arc ЎObjec seulementA@<ThхЎsel !% .err1џџџџр `ГAttribute VB_Name = "Module1" Sub Longarcdev() Dim sset As ObjРect .J$2AcadArc4cente rPoinrVariantradius:Double9startAngleInD egree%, XendARgannA ‡ lS‰€—ng dimˆyC€‚Gular‡First—|Secˆond—Tex sel: €Err.Cle…uxз‡CHQ B@@џџџџ˜ џџџџјџџџџ№џџџџјrГAttribute VB_Name = "Module1" Sub Long_arc_dev() Dim sset As€ Object.T$2AcadArc4cente rPoinrVarian:radius:Double9startAngleInD egree%, XendARgaюnA ‡ l„nS€šng dim‡ˆy€ŽGular‡ First—|Second—Tex sel: Err.Cle …7SЬ‚Ю= ThisDrawin g.Selдion€s.Add(’"1"Фt C+'SщФ de ˆl'oРwt р@рщcran 0OnScРc On Р"or GoTo err1 AEFEachђ „ˆIn‘ƒ•СЅPz= .SF:Я|=F EDƒ…C,С'CРonvertР@У6žaA”ЧЩФ= $Ьa^џ  ф*\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Fichiers communs\Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications*\G{C094C1E2-57C6-11D2-85E3-080009A0C626}#1.1#0#C:\Program Files\AutoCAD Architectural 2eet ert ett ebt eb ebi ecb ecbv eeev eev eevs de`ўkevs sel1 sel1ВText Type incompa|ў xџў˜§ +hHa0 јўdџ4џ8џџџ$џtџxџ(ŒўџќўрўаўРў|ўk|ўАўЌўфўдўФўДўk0 \ўџќўРўАўў€ўpў`ўk\ACAD.TLB#Bibliothшque de types AutoCAD 2000И*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE Automationр*\G{39419BA4-438B-11D4-A72E-0004AC2474C6}#2.0#0#C:\WINNT\System32\MSForms.TWD#Microsoft Forms 2.0 Object Libraryд*\G{1B5DBD44-FA17-11D4-A810-0004AC2474C6}#2.0#0#C:\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM ДџџџџџџџџJ $:џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџщzThisDrawing 93a1d7c1b*DџџяzјџџModule1 133a2168e0*Dџџэzџџџџ<$џџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџFq|ј}СдЇХЌ$tЦџџџџHq|ј}СдЇХЌ$tЦџџџџџџџџHџџџџ0џџџџ8€‰—џ49 €џAs€џCase=€џDimG€џEndS€џFalse_€џGoTo`€џIf|€џmeŠ€џOnž€џResumeА€џSubГ€џThenН€џVariantAutoCAD"јVBAїтWin16С~Win32MacГВProjet1Аstdole“`MSFormsC ACADProjectІд ThisDrawingЙ5 €џџџ_Evaluateй AcadDocumentZModule1btest4Ћsset/. SelectionSetsгAddїrSelectOnScreenЛarcObj_нAcadArc centerPointРŸradiusрVstartAngleInDegreeˆFendAngleInDegreeгхstartAngleInRadianЛendAngleInRadian Z StartAngle|/EndAngle` ApplicationЅ*ZoomAllm$MsgBox—R ArcLengthЅ№€џDeleteИx SendCommandcњdimObjёИ€џAcadDimAngularАЃangVert?e FirstPointЃ „џSecondPointŠ TextPointЮV €џModelSpace_ж €џAddDimAngular