「Vle-write-double」の版間の差分

2023年1月10日 (火) 07:52時点における版

BricsCADのLISP - AutoLISP Home - AutoLISP 目次 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vle-read-double fptr value )

機能: ファイルから「double（浮動小数）64ビット」を読み込む（C++の「double」型と同じ）。

引数

fptr： (open <filename> "rb") で開いたファイルディスクリプタ
value ：ファイルに書き込む浮動小数点(64ビット範囲)

戻り値: 成功した場合は浮動小数点値、そうでない場合は NIL

サンプル

(setq fptr (open "c:\\temp\\bwtest.txt" "wb"))
(vle-write-double fptr 4294967296)
(close fptr)
(setq fptr (open "c:\\temp\\bwtest.txt" "rb"))
(setq dbl (vle-read-double fptr))
(close fptr)
!dbl
4294967296.0

; テキストで "012あ" を書き出してから読み込んで復元する
(setq fptr (open "c:\\temp\\bwtest.txt" "wb"))
(vle-write-double fptr 48)
(vle-write-double fptr 49)
(vle-write-double fptr 50)
(vle-write-double fptr 12354)
(close fptr)
(setq fptr (open "c:\\temp\\bwtest.txt" "rb"))
(setq str "")
(while (setq b (vle-read-double fptr))
  (setq str (strcat str (chr b)))
)
(close fptr)
!str
"012あ"

@@ 11行目: / 11行目: @@
 :* fptr： (open <filename> "rb") で開いたファイルディスクリプタ
 :* value ： ファイルに書き込む浮動小数点(64ビット範囲)
 ; 戻り値