ࡱ> sDrawing SetPDFCreatorF /C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Q y`aE1F @u=C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.tlbAutoCAD Iqp0FC:\WINDOWS\system32\stdole2.tlbstdole iYj Ak,_HE;H5*zyL$jq#Z9MwQDKLI#s\ AcadDocumentAcadDocument_BeginCommandAcadDocument_BeginClose @ PLOT . -6?N~^W .pdf  <Title> WScript.Shell REG_SZ xHKEY_CURRENT_USER\SOFTWARE\PDFCreator\Printing\StandardTitleRegWriteVBE6.DLL A x A Root Entryp3 <%VBA_ProjectPFiVp3 <VBA_Project_Version(VBAPFiVPFiV    "#$%'()*+,-./0123456789:;<=>?@ABCDEFGHJKMNOPQRSTUVWXYZ\]^_`abcdefghijklmnopqrstuvwxyz{|}~acID="{8377D09B-C6B5-4DA8-A8CF-967CFAE06A42}" Document=ThisDrawing/&H00000000 Name="SetPDFCreator" HelpContextID="0" VersionCompatible32="393222000" CMG="B7B5AE44B2443848384838483848" DPB="4143585D595D595D" GC="CBC9D2685D695D69A2" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=66, 87, 755, 563, Z Z ThisDrawingThisDrawingPROJECTwm&PROJECTwThisDrawing [_VBA_PROJECT&dir!=__SRP_2 L__SRP_3I__SRP_0 rU~}   CommandNamel%^*K*mrU~~~~~~~~b )d!~?A(97 e Q  Projekt1 ACADProject Thi A  *90* pHd SetPDFCr@eator@T@ = +x I J< rstdole>std@olerh%^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\sys@tem32\e2.tlb#OLE AutomatXion0ud  ThisDrawingGhisD@rawnPg 2Q#H1-5 ,@{*"+BAam *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\GEMEIN~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Programme\Gemeinsame Dateien\Autodesk Shared\acax17enu.tlb#AutoCAD 2008 Type Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation IdThisDrawing8449a50870ThisDrawing{  }?BFR@M` !( AutoCAD" VBAWin16~Win32MacVBA6#Projekt1A stdole` ACADProject ThisDrawing5 _Evaluate AcadDocumentZ SetPDFCreatorYAcadDocument_BeginCommandC; CommandNameh_Pltf GetVariable~SendKeysN SetVariable?Rwcs.TypFileNamejFullNameО ActiveLayout\wscn CreateObjectRegWrite!>AcadDocument_BeginClose[h BeginCommandL5 BeginClose _B_var_Midp _B_var_Error) _B_var_wsc<  rU @(`$A` nG_SZ'(<HKEY_CURRENT_USER\SOFTWARE\PDrU 0@ aa )Ai A !  a4a)`!` I\W0l Cx lx0*K\$ X$ lXi(>\FH :$ d P>F:`1`/X6H("'H( (: ]@6H( C` H HN :8d!:8%`@d @08c dx`t8 \XH(0   44PSub\l8 d{#<HE;H5*ܕzyL$jq#Z9MwQDxZ9MwQDHE;H5*ME__SRP_1yP[LSS>"LN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C} P(%H `oxi  % %`&t `(d `*` 6` `& `( `*8H`x,.2@\ hell@X @(H me@X8 @@( @p @ @ @ @ @ @ @0 @ @0 @ 8@I$*\Rffff*8449a50870*\R0*#f*\R1*#b8*\R0*#10*\R0*#144""  , @PX` hLp *  R!h p " x "  R X hx8&Plot wird aufgerufen, ndere PDF-TitleSetz PLOT]]] !, !,. $- !.!.pdf'*&  G�'�*j��� �WScript.Shell�$�2�.�0���REG_SZ'�(��<�HKEY_CURRENT_USER\SOFTWARE\PDFCreator\Printing\StandardTitle �* �( �0B@4�������k���o������������PDF-Title wird zurckgesetzt������]�8��]�P��]�h����<Title>�'�*�� �WScript.Shell�$�2�.�0����REG_SZ'�(���<�HKEY_CURRENT_USER\SOFTWARE\PDFCreator\Printing\StandardTitle �* �( �0B@4�������o���������Attribut�e VB_Nam�e = "Thi�sDrawing" Bas�0{7AABBB�95-79BE-�4C0F-802�4-EB6AF271231C} |@GlobalSpacFalse dCreatablPredeHcla�Id�Tru BExposeTemplateDerivBustomizD2P Su�b AcadDo�cument_B�eginComm�and(ByVa l As Sng) �'Plot wi�rd aufge�rufen, �ndere PD@F-TitliIf"PLOT"� Then Dim wcs �.@Object Typ Varian File DC@On Loc*E�rror Resa�3 Nex@ F = Mid(Ȅ.Fulp, 1, In�6".")� - 1) & "-"@Act_Layout.'@ .pdf@�>$<> "; H$"<H>@ SeRsc�eB�("WScrip�t.Shell"�^FPREG_SZwsc.RegWri"HK�EY_CURRE�NT_USER\�SOFTWAREF\@dor\�n"t�\St@zard"",F', � End IfcYASub\l(ŀCzur�ckgesetzDt:~R`L_)_)_)L(���������������������������������������������������������������������������������������������������������������������������������������������������������������������������