Vla-put-fitのソースを表示

{{AutoLISP}}
; 構文
: (vla-put-fit ''vla-object'' ''acDimFit'')


; 機能
: 寸法補助線間で使用できるスペースに基づいた、寸法値および矢印を寸法補助線の配置を取得する。


; 引数
:* vla-object … 寸法のVLAオブジェクト （Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、DimRadial、DimRadialLarge、DimRotated）
:* acDimFit … acDimFit 列挙型
::* acTextAndArrows: 寸法補助線の内側に寸法値と矢印を配置。
::* acArrowsOnly: 寸法補助線の内側に矢印のみ配置。寸法値は矢印の外側に配置。
::* acTextOnly: 寸法補助線の内側に寸法値のみ配置。矢印は寸法補助線の外側に配置。
::* acBestFit: 寸法値と矢印をその空間内で最もフィットする位置に配置。
:::* 寸法値と矢印の両方を配置する空間が存在する場合は、両方を寸法補助線の間に配置。
:::* 寸法値のみを配置できる空間が存在する場合は、寸法補助線の間に寸法値を配置して矢印を外側に配置。
:::* 矢印のみを配置できる空間が存在する場合は、寸法補助線の間に矢印を配置して寸法値を外側に配置。
:::* 寸法値も矢印も配置できない場合は、両方を寸法補助線の外側に配置。


; 戻り値
: nil


# MEMO … 初期値は acBestFit 。
# Fit プロパティは、寸法補助線で寸法値と矢印をフィットさせるための領域がない場合に、それらを移動するためのプライオリティを設定する。
# 注: このプロパティは、指定された寸法でシステム変数 DIMATFIT[寸法値矢印フィット]の値を変更する。


; サンプル
<pre class="brush:autolisp;">
(vl-load-com)
(defun c:Example_Fit()
    ;; モデル空間に寸法を作成して、テキストフィットを
    ;; 順番に作成するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; 寸法の定義
    (setq point1 (vlax-3d-point 5 5 0)
          point2 (vlax-3d-point 6 5 0)
          location (vlax-3d-point 5 7 0))
    
    ;; 寸法をモデルに作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq dimObj (vla-AddDimAligned modelSpace point1 point2 location))
    (vla-ZoomAll acadObj)
    
    ;; 現在の寸法線のフィット情報を表示。
    (setq CurrentFit (vla-get-Fit dimObj))
    (cond
        ((= acTextAndArrows CurrentFit)(setq CurrentFit "Text and Arrows"))
        ((= acArrowsOnly CurrentFit)(setq CurrentFit "Arrows Only"))
        ((= acTextOnly CurrentFit)(setq CurrentFit "Text Only"))
        ((= acBestFit CurrentFit)(setq CurrentFit "Best Fit"))
                                    (setq CurrentFit (itoa CurrentFit))
    )
    
    (alert (strcat "現在の寸法フィット設定は : " CurrentFit))

    ;; 矢印のフィットだけ変更
    (vla-put-Fit dimObj acArrowsOnly)
    (vla-Regen doc acAllViewports)
    (alert "The dimension fit has been changed to arrows only")
    
    ;; 文字のフィットだけ変更
    (vla-put-Fit dimObj acTextOnly)
    (vla-Regen doc acAllViewports)
    (alert "The dimension fit has been changed to text only")
)
</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-fit]]
* [[vla-put-fit]]


[[Category:AutoLISP]]