「Gz:bitcode?」の版間の差分
(ページの作成:「{{GZLIB}} ; 構文 : (gz:bitcode? ''bit'' ''num'') ; 機能 : num に bit のビットコードが含まれているかをチェックする。 ; 引数 :* bit = 含まれているかチェックする bit値の整数 ;* num = ビットコード和の整数 ; 戻り値 : ビットコード和(num) に bit が含まれていれば T、それ以外は nil ; サンプル <pre class="brush:autolisp;"> (setq n (+ 1 2 4 8 128)) (gz:bitcode? n 16) nil (setq n (+…」) |
編集の要約なし |
||
| 15行目: | 15行目: | ||
; 戻り値 | ; 戻り値 | ||
: ビットコード和(num) に bit が含まれていれば T、それ以外は nil | : ビットコード和(num) に bit が含まれていれば T、それ以外は nil | ||
| 28行目: | 29行目: | ||
; Oスナップで四半円点がオフだったらオンにする | ; Oスナップで四半円点がオフだったらオンにする | ||
(setq osm ( | (setq osm (getvar "osmode")) | ||
(if (not (gz:bitcode? osm 16)) (+ osm 16)) | (if (not (gz:bitcode? osm 16)) (+ osm 16)) | ||
</pre> | </pre> | ||
2024年11月10日 (日) 03:48時点における最新版
- 構文
- (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))
関連事項