Acet-ss-drag-rotate

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(acet-ss-drag-rotate ss pt [ prompt ] [ highlight [ cursor ]])


機能
選択セットをドラッグして回転角度を変更する。


引数
  • ss … ドラッグする選択セット。
  • pt … 基点の座標リスト。
  • prompt … ドラッグを開始する前に表示するメッセージの文字列。
  • highlight … T or nil。 指定した場合ドラッグ中に pt から現在のカーソル位置までラバーバンド線が表示される。このパラメータを nil にするとスクリーンの色の補色でラバーバンド線が表示され、nil 以外にするとハイライト表示された線が表示される。
  • cursor … ドラッグ中に表示するカーソルの形 (0=クロスヘア、1=カーソルなし、2=ターゲット) の整数。


戻り値
実数または nil。 選択した角度のラジアン値。ドラッグが中止された場合は nil。


注意

  • この関数は選択セットを回転しないが、結果がどのようになるかを確認しながら、回転角度を選択することができる。
  • BricsCADに搭載の関数は cursor 引数はない。


サンプル
(acet-ss-drag-rotate (ssget) (getvar "lastpoint") "回す?:" T)
1.5707963267949


関連事項