Gz:bitcode?

提供:GizmoLabs - だいたい CAD LISP なサイト
2024年11月10日 (日) 03:48時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(gz:bitcode? bit num)


機能
num に bit のビットコードが含まれているかをチェックする。


引数
  • bit = 含まれているかチェックする bit値の整数
  • num = ビットコード和の整数


戻り値
ビットコード和(num) に bit が含まれていれば T、それ以外は nil


サンプル
(setq n (+ 1 2 4 8 128))
(gz:bitcode? n 16)
nil

(setq n (+ 1 2 4 8 16 128))
(gz:bitcode? n 16)
T

; Oスナップで四半円点がオフだったらオンにする
(setq osm (getvar "osmode"))
(if (not (gz:bitcode? osm 16)) (+ osm 16))


関連事項