Acet-ss-drag-rotate

提供:GizmoLabs - だいたい CAD LISP なサイト
2023年11月22日 (水) 06:49時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (acet-ss-drag-rotate ''ss'' ''pt'' [ ''prompt'' ] [ ''highlight'' [ ''cursor'' ]]) ; 機能 : 選択セットをドラッグして回転角度を変更する。 ; 引数 :* ss … ドラッグする選択セット。 :* pt … 基点の座標リスト。 :* prompt … ドラッグを開始する前に表示するメッセージの文字列。 :* highlight … T or nil。 指定した場合ドラッグ中に pt から現在のカーソル…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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


関連事項