аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ9*aVœЭJThe VBA Project џџџџџџџџ9*aVœЭ9*aVœЭ_VBA_Projectџџџџџџџџ 9*aVœЭ9*aVœЭVBA Project Data"џџџџџџџџџџџџ§џџџ   ўџџџ( !"#$%&')ўџџџ*+,-./01ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Items&џџџџџџџџџџџџ Host Project Item Names0џџџџџџџџ9*aVœЭ9*aVœЭVBA Project Signature,џџџџ Project_Data_CurVer(џџџџџџџџ ўџџџўџџџўџџџ ўџџџўџџџўџџџўџџџўџџџ !"#$%&'()*+ўџџџ-./0123456789ўџџџ;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyўџџџ{|}~€ЭєšЄ&ЎL{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}ИFТŒR:\_CADdev\Bentley\Standard\MS811\Standards\vba\create_3d_Drawing.mvbaЬЉzњ+ID="{A4ED7B45-CA7C-4944-86C3-8C5055F06AF6}" BaseClass=Create_3dHost Project Item List Data8џџџџџџџџџџџџVBAџџџџ 9*aVœЭ9*aVœЭCreate_3d_Drgџџџџџџџџ9*aVœЭ9*aVœЭPROJECTwm џџџџ}PROJECTџџџџџџџџџџџџѓfџџџџџџџџџџџџ#'o џџџџ<CompObjџџџџџџџџa_Drg Module=Module1 Class=Macro1ModalHandler Name="Create_3D_Drawing" HelpContextID="0" VersionCompatible32="393222000" CMG="F7F5016E03768C7A8C7A8C7A8C7A" DPB="7C7E8AF18A778B778B77" GC="0103F7F8F8F8F807" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Create_3d_Drg=150, 150, 1396, 907, , 125, 125, 1371, 882, Module1=0, 0, 0, 0, C Macro1ModalHandler=0, 0, 0, 0, C Create_3d_DrgCreate_3d_DrgModule1Module1Macro1ModalHandlerMacro1ModalHandler6@,rU€€€ џџџџџџџџџџџџ џџџџџџџџt“K*mџџџџrU€€€~~~~~~~~k Щ—vŸ{пoLЋ’pњМљ^V  фVBFrameџџџџџџџџџџџџSModule1џџџџрf __SRP_2џџџџоh__SRP_3џџџџџџџџлБCreate_3d_Drgџџџџ­V Macro1ModalHandler&џџџџџџџџџџџџzŒ _VBA_PROJECTџџџџџџџџџџџџ:Чdirџџџџџџџџџџџџ,O__SRP_0џџџџџџџџЄ__SRP_1џџџџџџџџџџџџJџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ џџџџџџџџ!9Yџџљџџџџџџџџџџџџџџџџџџџџџџџџ9 ! щЩCreate_3D_DrawingModule1 Create_3d_DrgMacro1ModalHandlerяРF /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA iџџџџ ‘љ0П—ŸЯђ9ŽKƒ\‹щщЏ[ 3C:\Apps\Bentley\MS811_SS2\MicroStation\ustation.exeMicroStationDGN aџџџџ‰љ@0РFC:\Windows\SysWOW64\stdole2.tlbstdole yџџџџЁщPс.E р….`ŒM ДC:\Windows\SysWOW64\FM20.DLLMSForms aa‰б`)IА{CцBЎpqНnН х4C:\Users\sforward\AppData\Local\Temp\VBE\MSForms.exd Aaiбp0( BчЯ‰= ЩB(C:\Windows\SysWOW64\scrrun.dll Scripting 9џџџџaЉ€Macro1if_exist createshow3d  KГ€0* pH‚dфCreate_3D_DrawinDgP@ Е = € г+НMJ J< 9s@tdole>stdol@e h%^*\G{000Р20430-C 0046}#2.0#0#C:\Windows\SysWOW64\e2.tlb#OLE AutomatioFn0€MSForms>BSFFr@ms3€ED452EE1-E08F-1 01A-8-02608C4D0BB4EFM20.DLL#Mic€rosoft ‚: €^ Object Librarаy/;D1€„uˆˆ00}#:0‚#€k0Ѕ€ ‡РAB0490229-437B-42E6-AE70-71BD6EBD09E5ˆ6Users\sforward\AppData\Local\Temp\VBE\сU.exd <@"€с.E р….`ŒM ДAЉ @Scrˆipt@ >cripA@ŽingРt РjРA4420B28РE718-11CF-893DРLA0C905€4228}#1зcrrun.dllШ.Ц RuntXime€‚Ь$ƒЮ9У”od ule1GФ”oИЂuИ1 2*HB1Bб2 XB,BкTX!B+B@@ЪьdьgG@€JeaJe_UРГd D`g  л@J2\/  3-ш+ў"b(Ђхс6Ma`_1ModalHandlerhG$ M!:oP1M@ndрlДH n'с‚r M32?/rЏW)АџLЏ"Ьamџ фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{CF9F97BF-39F2-4B8E-835C-8BE9E99DAF5B}#8.0#0#C:\Apps\Bentley\MS811_SS2\MicroStation\ustation.exe#Bentley MicroStation DGN 8.9 Object LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{B0490229-437B-42E6-AE70-71BD6EBD09E5}#2.0#0#C:\Users\sforward\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Дд*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#C:\Windows\SysWOW64\scrrun.dll#Microsoft Scripting Runtime  џџџџџџџџг+НMџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџф9Module10=5209fcd1џџModule1џџкX2 џџCreate_3d_Drg0;5209fcd1џџ5Create_3d_Drgџџ+ў џџ$Macro1ModalHandler0<5209fcd1џџ)$Macro1ModalHandlerџџџL0W џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ”zTѓЧ|DВ Ѕ(ЪTМџџџџ!ч8y-„D“z•ђА<_pџџџџ‚‡ УљБСJЉЙVŽŽЫїЌџџџџџџџџ0€CEџр.a „ џImplementsMicroStationDGN8БVBAїтWin16С~Win32MacГВVBA6­#Create_3D_Drawingѓstdole“`MSFormsC ScriptingŠпModule1b _EvaluateйMacro1еNstr_Standard_Bld^8StdLcnDOActiveWorkspace?ExpandConfigurationVariable@ CadInputQueueжl SendCommandcњ modalHandlerц†Macro1ModalHandler(!AddModalDialogEventsHandlerCџRemoveModalDialogEventsHandler_Ђ CommandStateЙšStartDefaultCommandТяMsgBox—R Create_3d_DrgЫЛHide9zif_existв‘ ExistFileшуFileSystemObjectNUnewfileXTextBox1ІSValueфK DisciplineеˆDiscListsнstr_CADNETpathи— CADNETpath­2SavePthQ FileExistsЌmsgQЕresponse—Ќ createshow3d†Showѕ Run_ClickFNDiscList_ChangeЌмUserForm_Initialize5cAddItem‡  ListIndexїQGeneralj7TextBox1_EnterR7IModalDialogEvents4!IModalDialogEvents_OnDialogClosedћ@ DialogBoxNamel DialogResultwMMsdDialogBoxResult7ї!IModalDialogEvents_OnDialogOpened“ХFileNmэmsdDialogBoxResultOKл7 €џџџOnProjectLoadфa €џџџget_sheetPD €џџџSTDPrintshowл'€џџџgettag2о €џџџCreateshowўјUserFormNLabel1,Run_аLabel2Ž,џџlџџџџџџџџџџџџџџџџџџџџџџџџџџџџ)џџџџџџџџџџџџџџџџџџ џџџџџџџџџџ5џџџџџџџџџџџџ6№,д(џџџџ5Q ф9џLџџ€ЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌўџџџЎЏАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийкўџџџмнўџџџпўџџџстуфхцчшщъыьэюя№ёђѓєѕіїјљњћќ§ўџS<џџџџS<џџџџS<џџџџ<џџf<џџn<џџ<џџ<џџџџџџN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}џџџџx %*€gџџџџџџџџџџџџџџџџџџџџџџџџџџ hИџџџџџџџџџџџџџџџџpџџџџџџџџ”iƒjџџџџџџџџџџ„-Di)ƒlџџџџџџџџАџџџџ„ '% pџџџџџџџџџџџџџџџџџџџџјџџџџџџџџ)”iƒjџџџџџџџџџџ„03_M)ƒlџџџџџџџџ8џџџџ€%€ўџџџџџџџhџџ@џџџџџџџџ%џџџџˆџџ0џџџџџџџџ@џџџџИџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪ.€" € џџџџ€ џџџџ"  € џџџџ€ џџџџ(€ џџџџ€ џџџџ@€ џџџџX€ џџџџ€ "p€ џџџџ€ ˜€ џџџџИ€ џџџџ€ Р€ џџџџр€ џџџџ€ ј€ џџџџ€ џџџџ€ 8€ џџџџ€ џџџџ>X€ џџџџD˜€ џџџџNр€ џџџџ€ H0x€ џџџџ€˜€ џџџџџџџџЈŸ–0oџџh–И ѕ jЖSave Asœ 4!@!B'>UшёЎ 4!F!B'Dр MsgBox "set " + DisciplinelџџџџрMsgBox "set " + newfile >'rрMsgBox "set " + FileNmЖ $(CADNET)7 'JрMsgBox "set " + CADNETpath J D Ж \01_Drgs\ 'LрMsgBox "set " + SavePthЖ0MDL COMMAND MGDSHOOK,fileList_setFilterCmd *.dgn "B@$Ж.MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd L "B@$Ж-MDL COMMAND MGDSHOOK,fileList_setFileNameCmd rЖ.dgn "B@$рB Remove the following line to let the user close the dialog box. t'lkр  Save Asqџџhoџџ`џџџџXџџџџ1ГAttribute VB_Name = "Macro1ModalHandler"D ЄBasЄ0{FCFB3D2A-A0FA-1068-A738-08002B3@371B5} |G lobalмSpacIFalse dCreatablPredecdlaIdЗCE xposeTemplateDeriv–CustPomiz EIe€ments I•DialogEv1 P€(€, SDub_OnClO(ByVal"  BoxФAs„ SЮng, €Result €Msd†ƒ ) р End:$BРOpened!УœWith Ac‚t€SWorksw‘A" IfЬ8!›Save@3" pThenƒ @€nPewfi(B‚e_3d_Drg.TextI1.РL ueТ<€sciplin‹Ь Dis cListЦ @ ' Msg "set " +{Hƒ' Ф#C3Fљ'NmР@€@ CCADNETpaРK= .РЉ@кConfigurationVariœ("$(љ )";@Р/Aя‡\WPBЧЪ:!"\01с*s\џРtуЎ d Ѓ сCadInputQueue.SeРndCommР ‰DL COMMAND MGDSHАOOK,Ё:с1_@/р"terCmd р*.dgn у ћ ("M Dire ctorya " ќ& ФУEС `7? ^tB: І тm " " ' RemoР\the fol€lowing ЂU0to l P!usPer c‚ СdСт‰ box.g"ŠpШ= mN€OKE3с€љn 'B@l aAtЊ„№`дLџџџџg ф9+ўџџˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SPџџџџSџџџџSџџџџSџџџџџџš0{111F3BCB-DEEB-4301-914A-81FEE25495F8}{25B0C070-90DC-4CD4-A9EA-B99D32FD2B1A}џџџџˆ X@џџџџџџџџџџџџџџџџџџџџџџџџџџџџ ” Z€џџџџџџџџџџџџџџџџџџџџџџџџџџџџ” \Рџџџџџџџџџџџџџџџџџџџџџџџџџџџџ” dџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ”€ўџ0џџ(џџџџџџџџџџ%ўџџџџџџџџџXџџ0џџџџџџџџ %џџџџ€@РџџџџџџџџЛџџџџxџџџџџџџџџџџџџџџџРџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`г+НMпўЪ%€ џџџџ"€ џџџџ€ џџџџ € џџџџ8@€ џџџџ"H€ џџџџP€ џџџџ€ џџџџ"X€ "`$ˆ$А$и$$($P$x$ $Ш№x€ ,  P`€ џџџџ€ џџџџ"h€ џџџџpџџџџ˜– 4!@!B'> 4!F!B'DџџA8oџџ8–@oџџ(–€рPopulate the Scale List BoxxЖ01_A FB@^р ListIndex 1 'Ж02_C FB@^р ListIndex 2 Ж03_E FB@^р ListIndex 3 Ж04_G FB@^р ListIndex 4 Ж05_J FB@^р ListIndex 6 Ж06_M FB@^р ListIndex 7 Ж07_P FB@^р ListIndex 8 Ж09_S FB@^р ListIndex 9em "Ж11_U FB@^р ListIndex 5B@^Ж12_V FB@^9јЖ13_W FB@^р р&Set Title value for the Scale List Box b F(`oџџˆ–РoџџxЖ15_Z FB@^џџџџhџџџџEВAttribute VB_Name = "Create_3d_D rg" Bas0{111F3BCB-DEEB-4301-914A-81FEE25495F8}{25B0C070-90DC-4CD4-A9EA-B99D32€FD2B1A} d@GlobalSpacoFalsFe ŠЇablP€redeclaDIdиTru BE`xpose0Templ…Deriv–Custoˆmiz‹D P Sub Run_Click() newfi‚[( Ж.TextBox1.Value‚DisРciplins ! ListCall if_exС€ End@:‰G_ChangeC%Ш K/UserForm_Ini@tializB 'PopuСG th`e Sca@4A# @0 Ц&AddItem "01_(A" ' In dex 1R 2_CE Ш 2в 3_EХR3R 4_GF ˆЂ4 5_J 6 (6_M 7 7_P !8’ 9_S…б9 11_U b5 2_V o51ˆ3_W5_Z'Set Tit…`>vaU forћ@ч== GeneralъSkN%a_Enter TrU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ$б`§џџџџџџџџџџџnrU€€€€~| џџџџџџџџџџџџa     ўџџџўџџџўџџџ !"ўџџџ$%&'ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№ФдИџџџџє, ф9кXџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(<џџ(<џџ6 џџџџ<џџџџџџ<€џџџџ€ x`џџџџџџџџџџџџџџџџџџџџџџ„`”џџџџџџџџHџџ Є&џџџџџџџџpџџ% 8№`џџџџџџџџџџџџџџџџџџџџџџ„ „:џџџџџџџџа%`”HџџџџџџџџHџџ Tџџџџ`џџџџџџџџџџџџџџџџџџџџџџ„xџџџџџџџџ№B@0ƒџџџџџџpџџџџџџџџџџџџџџ%џџџџ€џџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0г+НM$*\Rffff*0=5209fcd1пўЪ9"€ €(H€ џџџџ6`€ џџџџ€ ˜€ џџџџ€И Р€ џџџџ€ >а€ џџџџ€ џџџџ 0 @€ џџџџ P€ џџџџ p€ џџџџ€"ˆ€ ˜€ џџџџЈ€ џџџџР€ џџџџ€и№€ ,(€ џџџџ€ X€ p€ џџџџ ˆ*Ји€ џџџџ ш€ џџџџј€ џџџџ€ џџџџ€ џџџџ" € џџџџ0џџџџ@–рDim ExistFile As String]Ж $(STD_STDS)ђH@  % 'f_exisЖNEWFILE  Жseed\a1_3d_seed.dgn "B@$р MsgBox "Seed Loaded"]ђX &A@*р7 The following statement opens modal dialog "Save As"Ж DIALOG SAVEAS "B@$ &A@, .B@0ЖNew 3D Drawing CreatedA@2 4B@6oџџx–x]ђИэЦ.: 4!@!B'> 4!F!B'D^0P|]Ж $(CADNET)ђHи H % 'Jј J D Ж \01_Drgs\ 'Lр&ExistFile = SavePth + newfile + ".dgn"рMsgBox CADNETpathрMsgBox SavePth L > Ж.dgn :%NœЖ"File exists please check file name'P P$2'R 4B@6dџџAkџџ№oџџш–№ 4B@VoџџШџџџџРџџџџ0ГAttribute VB_Name = "Module1" Sub Macro1() 'Dim ExistFile As SAєng Const str_StandarРd_Bld LД@$(STD_S)МlStdLcnActiveWorkspac`e.ExpFUfigurationVariabl e( eœ CadInputQueue.SendCommC "NEWFILE " +Гp+ "seed\a1_3„d_.dgnJ€uMMsgBox "S Loa8dedw…modalH€0lerёsNew—Ё† ƒAdd DialogEvents‰# >The followi„ngЋatem€€ opens ‚Ь d‚%€OavЧ†M˜„DIALOG @SAVEASRрemoveф'AFDV@zt€ZtartDРefaultУ<CEQAG3D Drтa‚4CreР4Tƒ УdDrg.HideССEnd† @ЃƒЄif_eЁƒЅЯЄcriptM".AЉSysNObjectetА= $Sи nˆewfЛ= ( 'Text‡1.Value DisРciplinAбŒ =СL@Юˆ УQЭCADNETpathЯŽЬƒЬ = -Э+@, S@GP`= ш + He\01В_2s\F'‡€ф= %+ e% ki?$@' @\dЄA< p Ifч3т7" s(— ) en 8msgŒ"“‚Cs please c heck Ђ8n œс`resp •С4У( B8P ElцsQ!Œll|СtaR,If%ІSc[shАow3d!Tk SрJVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Create_3d_Drg Caption = "Create 3D Drawing" ClientHeight = 2775 ClientLeft = 45 ClientTop = 330 ClientWidth = 3435 ShowModal = 0 'False StartUpPosition = 1 'CenterOwner TypeInfoVer = 15 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq(*€€Type New File Name‰{5€ЅTahomas€H $N5€ЅTahomas* €€RUNo” "u€ЅTahomas(*€€Select DisciplineиЇ5€ЅTahomas Q†H€,€„5€ДTahomas(  € џџ}ЋRу ‘ЮуЊKИQDBTahomaа…(ѕ€2HLabel1sдд$х€4TextBox1д{ х€8RuntЪ(ѕ€2HLabel2x1дq$х€ @DiscListд