Vla-get-horizontaltextposition

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月16日 (土) 21:49時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-horizontaltextposition ''vla-object'') ; 機能 : 寸法値の水平方向の位置合わせを取得する。 ; 引数 :* vla-object...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-horizontaltextposition vla-object)


機能
寸法値の水平方向の位置合わせを取得する。


引数
  • vla-object … VLAオブジェクト(Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimRotated)


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


  • 注: このプロパティは、指定された寸法でシステム変数 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番目の寸法補助線の横に変更")
)

関連事項