Vla-adddimradiallarge

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

構文: (vla-adddimradiallarge vla-object Center ChordPoint OverrideCenter JogPoint JogAngle)

機能: 円弧、円、ポリラインの円弧セグメントに折り曲げ半径寸法を作成する。

引数

vla-object … VLAオブジェクト（Block、ModelSpace、PaperSpace）
Center … 円弧、円、またはポリラインの円弧セグメントの中心を指定する 3D WCS 座標。
ChordPoint … 円弧の弦の点を指定する 3D WCS 座標。
OverrideCenter … 中心点の優先位置またはピックした点を示す 3D WCS 座標。
JogPoint … 折り曲げ位置またはピックした点を示す 3D WCS 座標。
JogAngle … 折り曲げ角度の値。

戻り値: 新しく作成される折り曲げ半寸法の VLA オブジェクト

Memo

Center は、寸法を記入する円弧、円、またはポリラインの円弧セグメントの中心。
OverrideCenter は、寸法の基点。

サンプル

(vl-load-com)
(defun c:Example_AddDimAngular()
(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 ptTextPosition (vlax-3d-point 0 6 0))
    (vla-put-TextPosition oDimRadialLarge ptTextPosition)
    
    (vla-ZoomExtents acadObj)
)