「Acet-sys-shift-down」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (acet-sys-shift-down) ; 機能 : Shiftキーが押されたかどうかを確認する。 ; 引数 :* なし ; 戻り値 : Shiftキーが押された直後であれば T、そうでなければ nil を返す。 ; サンプル <pre class="brush:autolisp;"> (acet-sys-shift-down) nil </pre> ----- 関連事項 * Expresstools関数 * acet-sys-lmouse-down * acet-sys-mmouse-down * acet-sys-rmouse-down * acet-sys-control-…」) |
編集の要約なし |
||
| 20行目: | 20行目: | ||
<pre class="brush:autolisp;"> | <pre class="brush:autolisp;"> | ||
(acet-sys-shift-down) | (defun C:mx (/ ss p1 p2) | ||
; 水平移動（X座標方向に） | |||
(setq ss (ssget)) | |||
(setq p1 (getpoint "\n基点 : ")) | |||
(setq p2 (getpoint "\n移動先水平位置を指示（SHIFTキー押しながら = 垂直位置） : ")) | |||
(if (acet-sys-shift-down) | |||
(command "_.Move" ss "" p1 ".x" p1 p2) ; shift-down | |||
(command "_.Move" ss "" p1 ".x" p2 p1) ; not shift-down | |||
) | |||
(princ) | |||
) | |||
</pre> | </pre> | ||
2025年6月7日 (土) 11:17時点における版
- 構文
- (acet-sys-shift-down)
- 機能
- Shiftキーが押されたかどうかを確認する。
- 引数
-
- なし
- 戻り値
- Shiftキーが押された直後であれば T、そうでなければ nil を返す。
- サンプル
(defun C:mx (/ ss p1 p2)
; 水平移動（X座標方向に）
(setq ss (ssget))
(setq p1 (getpoint "\n基点 : "))
(setq p2 (getpoint "\n移動先水平位置を指示（SHIFTキー押しながら = 垂直位置） : "))
(if (acet-sys-shift-down)
(command "_.Move" ss "" p1 ".x" p1 p2) ; shift-down
(command "_.Move" ss "" p1 ".x" p2 p1) ; not shift-down
)
(princ)
)
関連事項