Vla-put-horizontaltextposition

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

構文: (vla-put-horizontaltextposition vla-object position)

機能: 寸法値の水平方向の位置合わせを指定する。

引数

vla-object … VLAオブジェクト（Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimRotated）
position … acDimHorizontalJustification 列挙型

acHorzCentered: 寸法値は、寸法補助線の間の寸法線に沿って中央に記入される。
acFirstExtensionLine: 寸法値は、最初の寸法補助線の横。
acSecondExtensionLine: 寸法値は、2 番目の寸法補助線の横。
acOverFirstExtension: 寸法値は、最初の寸法補助線上で寸法補助線に沿って記入される。
acOverSecondExtension: 寸法値は、2 番目の寸法補助線上で寸法補助線に沿って記入される。

戻り値: nil

注: このプロパティは、指定された寸法でシステム変数 DIMJUST[寸法値水平位置]の値を変更する。

サンプル

(vl-load-com)
(defun c:Example_HorizontalTextPosition()
    ;; 長さ寸法を作成して水平位置合わせを変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; 寸法の定義
    (setq point1 (vlax-3d-point 5 5 0)
          point2 (vlax-3d-point 9 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)

    ;; 現在値の読み込み
    (cond
        ((= (vla-get-HorizontalTextPosition dimObj) acHorzCentered) (setq CurrentValue "中央"))
        ((= (vla-get-HorizontalTextPosition dimObj) acFirstExtensionLine) (setq CurrentValue "最初の寸法補助線の横"))
        ((= (vla-get-HorizontalTextPosition dimObj) acSecondExtensionLine) (setq CurrentValue "2 番目の寸法補助線の横"))
        ((= (vla-get-HorizontalTextPosition dimObj) acOverFirstExtension) (setq CurrentValue "最初の寸法補助線上"))
        ((= (vla-get-HorizontalTextPosition dimObj) acOverSecondExtension) (setq CurrentValue "2番目の寸法補助線上"))
    )
    
    (alert (strcat "現在の寸法の水平位置： " CurrentValue))

    ;; 
    (vla-put-HorizontalTextPosition dimObj acFirstExtensionLine)
    (vla-Regen doc acAllViewports)
    (alert "水平位置を最初の寸法補助線の横に変更")
   
    ;; Force the alignment of the dimension text to the second extension line
    (vla-put-HorizontalTextPosition dimObj acSecondExtensionLine)
    (vla-Regen doc acAllViewports)
    (alert "水平位置を2番目の寸法補助線の横に変更")
)