Temat: uszkodzony plik dgn jak go odzyskać

:)
Rysowałem wczoraj 12h i to zniklo a dodatkowo wszystko polecialo na jedna warstwe, o co zobaczylem dzis rano. Pozatym jest to model 3D kosciola i jest bardzo duzo elementow, ktore gdybym probowal na nowo przenosic na nowe warstwy zajelo by mi kilka dni :)

I jeszcze mam pytanko co do tego backupa jak zrobic by przy kolejnych zapisach tworzyly sie nowe pliki anie nadpisywaly starego beckupa???Łukasz Marszałek edytował(a) ten post dnia 04.03.09 o godzinie 15:23

Temat: uszkodzony plik dgn jak go odzyskać

Tu mała procedurka, która pozwoli Ci backupować plik za każdym razem z innym sufixem. Tym sufixem jest data i czas.

Sub BuckupFile()
Dim fileName As String
Dim prefix As String
Dim path As String

path = "c:\tmp\"
fileName = Left(ActiveDesignFile.Name, (Len(ActiveDesignFile.Name) - 4))
sufix = Replace(Replace(Replace(CStr(Now), "-", ""), ":", "."), " ", "_")
CadInputQueue.SendCommand "backup " & path & fileName & "_" & sufix & ".dgn"

End Sub

Mam nadzieje, że wiesz jak odpalić taką procedurkę, jak nie to pisz. Poza tym, możesz sobie tam ustawić ścieżkę do pliku domyslnie ustawilem ją na C:\tmp\

Swój plik możesz mi przesłać na adres:
imie.nazwisko[at]shh.pl - oczywiście moje imie i nazwisko ;)Adrian Baranowski edytował(a) ten post dnia 04.03.09 o godzinie 09:30

Temat: uszkodzony plik dgn jak go odzyskać

Wysłałem:)

Mam nadzieje ze otrzymałes:)