Vla-get-jogangle

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月7日 (木) 18:10時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-jogangle vla-object)


機能
折り曲げ角度を取得する。


引数
  • vla-object … DimRadialLarge の VLAオブジェクト


戻り値
径寸法の折り曲げ角度。 (ラジアン)


サンプル
(vl-load-com)
(defun c:Example_AddDimRadialLarge()
    ;; 折り曲げ半径寸法を作成するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq modelSpace (vla-get-ModelSpace doc))
    
    ;; 円の定義
    (setq center (vlax-3d-point 0 0 0))

    ;; 円を作成
    (setq arc (vla-AddArc modelSpace center 10 (/ PI 3) (/ (* PI 3) 4)))

    ;; 折り曲げ半径寸法の定義
    (setq ptChordPoint (vlax-3d-point 0 10 0)
          ptOverrideCenter (vlax-3d-point -3 -6 0)
          ptJogPoint (vlax-3d-point 0 5 0))

    ;; 折り曲げ半径寸法を作成
    (setq oDimRadialLarge (vla-AddDimRadialLarge modelSpace center ptChordPoint ptOverrideCenter ptJogPoint (/ PI 4)))

    ;; 折り曲げ半径寸法の折り曲げ角度取得
    (setq ang (vla-get-jogangle oDimRadialLarge))
    (alert (strcat "折り曲げ半径寸法の折り曲げ角度は" (rtos ang) ))
    (vla-put-jogangle oDimRadialLarge 1.0472) ; 60度
    (setq ang (vla-get-jogangle oDimRadialLarge))
    (alert (strcat "新しい折り曲げ半径寸法の折り曲げ角度は" (rtos ang)))
    (vla-ZoomExtents acadObj)
)

関連事項