「Acet-sys-control-down」の版間の差分
編集の要約なし |
編集の要約なし |
||
| (同じ利用者による、間の1版が非表示) | |||
| 20行目: | 20行目: | ||
<pre class="brush:autolisp;"> | <pre class="brush:autolisp;"> | ||
(acet-sys-control-down) | ; 移動（CTRLでコピーに） | ||
(defun C:mx (/ ss p1 p2) | |||
(setq ss (ssget)) | |||
(setq p1 (getpoint "\n基点 : ")) | |||
(setq p2 (getpoint p1 "\n移動先（CTRLキー押しながら = コピー） : ")) | |||
(if (acet-sys-control-down) | |||
(command "_.COPY" ss "" p1 p2) | |||
(command "_.Move" ss "" p1 p2) | |||
) | |||
(princ) | |||
) | |||
</pre> | </pre> | ||
2025年6月7日 (土) 12:00時点における最新版
- 構文
- (acet-sys-control-down)
- 機能
- CTRLキーが押されたかどうかを確認する。
- 引数
-
- なし
- 戻り値
- CTRLキーが押された直後であれば T、そうでなければ nil を返す。
- サンプル
; 移動（CTRLでコピーに）
(defun C:mx (/ ss p1 p2)
(setq ss (ssget))
(setq p1 (getpoint "\n基点 : "))
(setq p2 (getpoint p1 "\n移動先（CTRLキー押しながら = コピー） : "))
(if (acet-sys-control-down)
(command "_.COPY" ss "" p1 p2)
(command "_.Move" ss "" p1 p2)
)
(princ)
)
関連事項