「Vla-get-jogangle」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-jogangle ''vla-object'') ; 機能 : 折り曲げ角度を取得する。 ; 引数 :* vla-object … DimRadialLarge の VLAオブジ...」)
 
編集の要約なし
 
10行目: 10行目:
; 引数
; 引数
:* vla-object … DimRadialLarge の VLAオブジェクト
:* vla-object … DimRadialLarge の VLAオブジェクト
:* angle …





2016年1月7日 (木) 18:10時点における最新版

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

関連事項