Window 3.1h1 :
- aggiunta gestione flip pezzi per lavorare in prima fase interno invece di esterno - aggiunta cancellazione di tutti i vecchi file risultato in modalità manuale.
This commit is contained in:
+16
-1
@@ -1,4 +1,4 @@
|
||||
-- ManCreateWindow.lua by Egalware s.r.l. 2026/07/27
|
||||
-- ManCreateWindow.lua by Egalware s.r.l. 2026/08/07
|
||||
-- Creazione serramento 3d da descrizione JWD
|
||||
|
||||
require( 'EgtBase')
|
||||
@@ -47,6 +47,21 @@ else
|
||||
if not sOpenFilePath then
|
||||
return
|
||||
end
|
||||
-- backup
|
||||
local sDir, sName, sExt = EgtSplitPath( sOpenFilePath)
|
||||
local sBackDir = sDir .. 'bak\\'
|
||||
if EgtExistsDirectory( sBackDir) then
|
||||
EgtEmptyDirectory( sBackDir)
|
||||
else
|
||||
EgtCreateDirectory( sBackDir)
|
||||
end
|
||||
local vFiles = EgtFindAllFiles( sDir .. '*.*') or {}
|
||||
for i = 1, #vFiles do
|
||||
local sFileToMove = sDir .. vFiles[i]
|
||||
EgtRenameFile( sDir .. vFiles[i], sBackDir .. vFiles[i])
|
||||
end
|
||||
-- copio il file selezionato
|
||||
EgtCopyFile( sBackDir .. sName .. sExt, sOpenFilePath)
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
Reference in New Issue
Block a user