Save and make read-only

Is it posible to save a drawing and make it read-only at the same time?

M

 

Hi Marcel

Use a Reactor and this function:

Code:

;
; -- MeSetFileAtt
; Sets the file attributes.
; Arguments [Typ]:
;   Fil = Filename "C:\\Temp\\MyTemp\\Scrap.dwg" [STR]
;   Att = File attributes [INT]
;         - Attributes:
;            0 = Normal
;            1 = Read-only
;            2 = Hidden
;            4 = System
;           32 = Archiv
; Return [Typ]:
;   > True if suceed
; Notes:
;   - Requires ScrRun.dll (WinNT/9x only)
;
(defun MeSetFileAtt (Fil Att / FilObj FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
RetVal (cond
((= (vlax-invoke FilSys 'FileExists Fil) 0) nil)
((setq FilObj (vlax-invoke FilSys 'GetFile Fil))
(vlax-Put FilObj 'Attributes Att)
T
)
)
)
(if FilObj (vlax-release-object FilObj))
(vlax-release-object FilSys)
RetVal
)

Cheers

 

Hello again Juerg,

Thanks for the input..

Again!

Just took a peak at your site.
Swiss german is not realy my prefered language.


M