Acet-sys-shift-down

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文

(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)
)

---

関連事項

• Expresstools関数
• acet-sys-lmouse-down
• acet-sys-mmouse-down
• acet-sys-rmouse-down
• acet-sys-control-down
• acet-sys-shift-down