• На форуме с 2 сентября 2008г.
  • Сообщений: 47
  • Спасибо: 1

Тема: Параметры стиля размера

Как не добавляя размер, получить параметры стиля размера?

Ответ от Sari (изменено: Sari, 12 мая 2009г. 09:35:16)

  • Sari
  • Sari
  • Участник
  • На форуме с 24 ноября 2008г.
  • Сообщений: 71
  • Спасибо: 2

Re: Параметры стиля размера

Переформулируйте вопрос или опишите подробнее.
О каком стиле и размере идет речь?

Ответ от VadimR (изменено: Vadim, 12 мая 2009г. 12:43:06)

  • На форуме с 2 сентября 2008г.
  • Сообщений: 47
  • Спасибо: 1

Re: Параметры стиля размера

Привет, Sari !
стиль размера <-> Dimension Style

Как не добавляя Dimension, получить параметры текущего Dimension Style?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Параметры стиля размера

Какого стиля и какие параметры?

Вот пример из Help'а для текущего стиля:

Dim newDimStyle As AcadDimStyle
    Dim currDimStyle As AcadDimStyle

    ' Return current dimension style of active document
    Set currDimStyle = ThisDrawing.ActiveDimStyle
    
    Dim D_Name As String
    D_Name = currDimStyle.Name
    MsgBox D_Name

Получаем параметр Name.

  • На форуме с 2 сентября 2008г.
  • Сообщений: 47
  • Спасибо: 1

Re: Параметры стиля размера

Например, ExtensionLineOffset

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Параметры стиля размера

Vadim пишет:

Например, ExtensionLineOffset

В объектной модели AutoCAD (или в программном интерфейсе AutoCAD)  это свойство относится не к размерному стилю, а к объекту_размеру.

Sub Example_ExtensionLineOffset()
    ' This example creates a Dim3PointAngular object in model space
    ' and changes the offset of the extension lines using the
    ' ExtensionLineOffset property
    
    Dim DimPointAngularObj As AcadDim3PointAngular
    Dim AngleVertex(0 To 2) As Double
    Dim FirstPoint(0 To 2) As Double, SecondPoint(0 To 2) As Double
    Dim TextPoint(0 To 2) As Double
    
    ' Define the new Dim3PointAngular object
    AngleVertex(0) = 0: AngleVertex(1) = 0: AngleVertex(2) = 0
    FirstPoint(0) = 2: FirstPoint(1) = 2: FirstPoint(2) = 0
    SecondPoint(0) = 1: SecondPoint(1) = 4: SecondPoint(2) = 0
    TextPoint(0) = 6: TextPoint(1) = 6: TextPoint(2) = 0

    ' Create the new Dim3PointAngular object in model space
    Set DimPointAngularObj = ThisDrawing.ModelSpace.AddDim3PointAngular(AngleVertex, FirstPoint, SecondPoint, TextPoint)
    ThisDrawing.Application.ZoomAll

    ' Read and display current offset of the extension lines from the control points
    MsgBox "The extension lines are currently offset " & DimPointAngularObj.ExtensionLineOffset & " units"

    ' Change the extension lines offset distance from the control points
    DimPointAngularObj.ExtensionLineOffset = 1.5
        
    ' Read and display current offset of the extension lines from the control points
    MsgBox "The extension lines are now offset " & DimPointAngularObj.ExtensionLineOffset & " units"
    
End Sub