Acet-sys-control-down

提供：GizmoLabs - だいたい CAD LISP なサイト
AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター
構文
(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)
)

関連事項

「https://wiki.gz-labs.net/index.php?title=Acet-sys-control-down&oldid=13834」から取得