Vla-get-arcendparam

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年5月4日 (月) 13:29時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-arcstartparam ''vla-object'') ; 機能 : 円弧の終了パラメータを取得する。 ; 引数 :* vla-object … DimArcLength ...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-arcstartparam vla-object)


機能
円弧の終了パラメータを取得する。


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


戻り値
円弧の現在の終了パラメータ。


サンプル
(vl-load-com)
(defun c:Example_get_arcpoint()
    ;; 円弧と円弧寸法を作成して円弧寸法の点を返す
    (setq cadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument cadObj))
  
    (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 arcPoint (vlax-3d-point 0 15 0)
          startPoint (vla-get-StartPoint arc)
          endPoint (vla-get-EndPoint arc))
  
    ;; 弧長寸法をモデルに作成
    (setq dimArcLength (vla-AddDimArc modelSpace center startPoint endPoint arcPoint))
    (vla-ZoomExtents cadObj)

    (vla-get-arcstartparam dimArcLength)
    (vla-get-arcendparam dimArcLength)
)



関連事項