Vla-put-jogangle

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-put-jogangle vla-object angle)


機能
折り曲げ角度を指定する。


引数
  • vla-object … DimRadialLarge の VLAオブジェクト
  • angle … 径寸法の折り曲げ角度。


戻り値
nil


サンプル
(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)
)

関連事項