I’m using the following function to save a project:
[RoutineDef, SaveProject,
[VarDef, file, [FileNameAsk, “.ZBR”, “OrthoProj”]]
[if, [StrLength, file] > 0,
[VarDef, filePath, “”] [VarDef, fileName, “”] [VarDef, fileExtension, “”]
[RoutineCall, FileNameSplit, file, filePath, fileName, fileExtension]
[FileNameSetNext, file]
[IClick, “Document:Save As”]
[VarDef, current3DTool]
[RoutineCall, Tool3DGetCurrentNumber, current3DTool]
[if, current3DTool > -1,
[FileNameSetNext, [StrMerge, filePath, fileName, “.ZTL”]]
[IClick, “Tool:Save As”]
]
]
]
The intent is to save both the document and the currently active 3D tool. It uses a couple of custom routines, but I believe what they do is fairly obvious from context.
When a use this on a Mac, I encounter a small difficulty; the save dialog comes up with a “.” appended at the end of the default file name, so if I hit save without typing anything, the document is saved as “OrthoProj…ZBR”. But other than that it works.
On the PC, the extra period does not appear, but hitting Save actually reports an error, saying something like:
Improper file name:
C:\Documents and Settings\Ken\Desktop\VIEWS\VIEWS\delete
To add even more confusion, the path that is given by this error message seems to remain constant, regardless of where on the disk I actually try to save the document. I’ve also encountered some other odd windows behavior, which I won’t go into…
This is a real problem for me, so any suggestions would be most appreciated.
Thanks,
Ken