Vla-put-jogangle

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

構文: (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)
)