Acet-sys-control-down

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年6月7日 (土) 12:00時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)
)

関連事項