ToleranceHeightScale プロパティ(ActiveX)

寸法値の高さに対する、寸法許容差値の文字高さの相対尺度を指定します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.ToleranceHeightScale

object

タイプ: Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、Dimension、DimOrdinate、DimRadial、DimRadialLarge、DimRotated

このプロパティが適用されるオブジェクト。

プロパティの値

読み込み専用: いいえ

タイプ: 倍精度浮動小数点数型

寸法許容差値の尺度。

注意

このプロパティの初期値は 1.0000 です。

このプロパティは ToleranceDisplay プロパティが acTolNone 以外の値に設定されている場合にのみ使用できます。

DIMTOL[許容差表示]がオンで DIMTM[最小許容差]が DIMTP[最大許容差]に等しくないか、DIMLIM[許容限界表示]がオンの場合、最大および最小許容差値に対してこのプロパティを使用します。

注: このプロパティは、指定された寸法でシステム変数 DIMTFAC[許容差尺度]の値を変更します。

例

VBA:

Sub Example_ToleranceHeightScale()
    ' This example creates an aligned dimension in model space and
    ' turns on the tolerance display for the new dimension.  The height
    ' of the tolerance text can then be adjusted by the user

    Dim dimObj As AcadDimAligned
    Dim newText As AcadTextStyle
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    Dim CurrentScale As Integer
    
    ' Define the dimension
    point1(0) = 5: point1(1) = 5: point1(2) = 0
    point2(0) = 5.5: point2(1) = 5: point2(2) = 0
    location(0) = 5: location(1) = 7: location(2) = 0
    
    ' Create an aligned dimension object in model space
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    
    ' Turn on the tolerance display
    dimObj.ToleranceDisplay = acTolSymmetrical
    
    ThisDrawing.Application.ZoomAll
    
Increase:
    ' Read and display the current tolerance height scale for this dimension
    If MsgBox("The tolerance height scale is currently set to: " & dimObj.ToleranceHeightScale & vbCrLf & _
              "Press OK to increase, or cancel to finish", vbOKCancel) = vbCancel Then
        
        Exit Sub
    End If
    
    ' Increase the tolerance height scale for this dimension
    dimObj.ToleranceHeightScale = dimObj.ToleranceHeightScale + 1
    
    ThisDrawing.Regen acAllViewports
    
    GoTo Increase
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_ToleranceHeightScale()
    ;; This example creates an aligned dimension in model space and
    ;; turns on the tolerance display for the new dimension.  The height
    ;; of the tolerance text can then be adjusted by the user
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Define the dimension
    (setq point1 (vlax-3d-point 5 5 0)
          point2 (vlax-3d-point 5.5 5 0)
          location (vlax-3d-point 5 7 0))
    
    ;; Create an aligned dimension object in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq dimObj (vla-AddDimAligned modelSpace point1 point2 location))
    
    ;; Turn on the tolerance display
    (vla-put-ToleranceDisplay dimObj acTolSymmetrical)
    
    (vla-ZoomAll acadObj)
    (vla-Regen doc acAllViewports)
    
    ;; Read and display the current tolerance height scale for this dimension
    (alert (strcat "The tolerance height scale is currently set to: " (rtos (vla-get-ToleranceHeightScale dimObj) 2)))
    
    ;; Increase the tolerance height scale for this dimension
    (vla-put-ToleranceHeightScale dimObj (1+ (vla-get-ToleranceHeightScale dimObj)))
    
    (vla-Regen doc acAllViewports)
    
    ;; Read and display the current tolerance height scale for this dimension
    (alert (strcat "The tolerance height scale is now set to: " (rtos (vla-get-ToleranceHeightScale dimObj) 2)))
)