Acet-sys-shift-down

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

構文

(acet-sys-shift-down)

機能

Shiftキーが押されたかどうかを確認する。

引数

• なし

戻り値

Shiftキーが押された直後であれば T、そうでなければ nil を返す。

サンプル

; 移動（SHIFTでコピーに）
(defun C:mx (/ ss p1 p2)
  (setq ss (ssget))
  (setq p1 (getpoint "\n基点 : "))
  (setq p2 (getpoint p1 "\n移動先（SHIFTキー押しながら = コピー） : "))

  (if (acet-sys-shift-down)
    (command "_.COPY" ss "" p1 p2)
    (command "_.Move" ss "" p1 p2)
  )
(princ)
)

---

関連事項

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