Vla-get-angleformat

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

構文: (vla-get-angleformat vla-object)

機能: 角度寸法の単位形式を取得します。

引数

vla-object … Dim3PointAngular、DimAngular の VLAオブジェクト

戻り値

acAngleUnits 列挙型

acDegrees … 度
acDegreeMinuteSeconds … 度/分/秒
acGrads … グラジエント
acRadians … ラジアン

サンプル

(vl-load-com)
(defun c:Example_AngleFormat()
    ;; Dim3PointAngular 図形をモデルに作成して角度のフォーマットを変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; Dim3PointAngular 図形の設定
    (setq AngleVertex (vlax-3d-point 0 0 0)
          FirstPoint (vlax-3d-point 2 2 0)
          SecondPoint (vlax-3d-point 1 4 0)
          TextPoint (vlax-3d-point 6 6 0))

    ;; Dim3PointAngular 図形の作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq DimPointAngularObj (vla-AddDim3PointAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint))
    (vla-ZoomAll acadObj)

    ;; 角度フォーマットを変更
    (vla-put-AngleFormat DimPointAngularObj acDegreeMinuteSeconds)
    (vla-Regen doc acAllViewports)
    (alert "Dim3PointAngular 図形のフォーマットを 度/分/秒に設定。")
    
    (vla-put-AngleFormat DimPointAngularObj acGrads)
    (vla-Regen doc acAllViewports)
    (alert "Dim3PointAngular 図形のフォーマットを グラジエントに設定。")

    (vla-put-AngleFormat DimPointAngularObj acRadians)
    (vla-Regen doc acAllViewports)
    (alert "Dim3PointAngular 図形のフォーマットを ラジアンに設定。")

    (setq x (vla-get-AngleFormat DimPointAngularObj)))
    (if (= x acDegrees)
      (alert "結果、度 になりました")
      (alert "結果、度 以外になりました")
    )
)