Vla-angletostring

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-angletostring vla-object Angle Unit Precision)


機能
角度の実数値(倍精度浮動小数点数型)を文字列値に変換する。


引数
  • vla-object … vlaオブジェクト
  • Angle … 角度(倍精度浮動小数点数型)
  • Unit … 角度の単位 AcAngleUnits の列挙型
  • acDegrees : 十進数(度)
  • acDegreeMinuteSeconds : 度/分/秒
  • acGrads : グラジエント
  • acRadians : ラジアン
  • Precision … 角度の精度。 0 から 8 までの整数。


戻り値
角度の値の文字列


サンプル

(defun c:gz-angtos (/ pt1 ang1 str1)
  (vl-load-com)
  (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (setq *util* (vla-get-utility *actdoc*))

  (setq pt1 (vla-getpoint *util* nil "\n基点を指示: "))
  (setq ang1 (vla-getangle *util* pt1 "\n角度を指示: "))
  (setq str1 (vla-AngleToString *util* ang1 acdegrees 3))
  (princ str1)
(princ)
);defun


関連事項