topic Re: autolisp code to read/write file of 32 bit integer int32 in Visual LISP, AutoLISP and General Customization Forum

autolisp code to read/write file of 32 bit integer int32

GeryKnee — Fri, 21 Feb 2025 23:19:53 GMT

Hello everybody

a) About a list of 64 bit integer numbers (int64) , i want to store them to an existant binary file (no need creation) :

(defun Store64 ( an64BitNumList FileName / )

;an64BitNumList is type List and includes integers

;FileName is the path (type string) in witch the numbers will be stored

........

)

b) A Restore function that reads those stored values:

(defun Restore64 ( FileName / RET )

;FileName is the path (type string) in witch the numbers are stored

;RET is the retuned int64 stored values
.......
RET

)

Thanks,

Gery

Re: autolisp code to read/write file of 32 bit integer int32

Sea-Haven — Sat, 22 Feb 2025 03:08:07 GMT

Did you google write Binary files lisp.

Re: autolisp code to read/write file of 32 bit integer int32

daniel_cadext — Sat, 22 Feb 2025 12:52:31 GMT

I think you have to read as a byte array, then pack the integers

Re: autolisp code to read/write file of 32 bit integer int32

komondormrex — Sat, 22 Feb 2025 20:42:59 GMT

@GeryKnee

hey there,

@GeryKnee wrote:
...to store them to an existant binary file (no need creation) ...

what is this binary file?

Re: autolisp code to read/write file of 32 bit integer int32

GeryKnee — Sat, 22 Feb 2025 21:47:28 GMT

;using the WriteBinaryStream ::::

(defun LM:WriteBinaryStream ( filename data
/
ADOStream result
)
(setq result
(vl-catch-all-apply
(function
(lambda ( )
(setq ADOStream (vlax-create-object "ADODB.Stream"))
(vlax-put-property ADOStream 'type 1)
(vlax-invoke ADOStream 'open)
(vlax-invoke-method ADOStream 'write data)
(vlax-invoke ADOStream 'savetofile filename 2)
)
)
)
)
(if ADOStream (vlax-release-object ADOStream))
(if (not (vl-catch-all-error-p result))
file
)
)

(defun c:test ( /
filename
aDataVar
)
(setq filename "C:/test.bin")
(princ (vl-file-size filename))
(princ)
(setq aDataVar 123456789 )
(LM:WriteBinaryStream
aDataVar
filename
)
(princ "\nSTORED TO DISK ")
(princ "\n")
(princ (vl-file-size filename))
(princ)
)

;;; after TEST called test.bin filesize 0 (data not writed)

Re: autolisp code to read/write file of 32 bit integer int32

vladimir_michl — Sat, 22 Feb 2025 21:54:09 GMT

Maybe

(vlax-invoke ADOstream 'Close)

And you will probably need to encode the bytestream for int64.

Vladimir Michl, www.arkance.world - www.cadforum.cz