Vla-get-angleformat

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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 "結果、度 以外になりました")
    )
)

関連事項