• Andrey
  • Восстановленный участник
  • На форуме с 19 сентября 2001г.
  • Сообщений: 129
  • Спасибо: 0

Тема: Простановка радиусов

есть такой код:

Sub DimRadial(x1, y1, x2, y2, lenl)
    Dim dimObj As AcadDimRadial
    Dim center(0 To 2) As Double
    Dim chordPoint(0 To 2) As Double
    Dim leaderLen As Integer
    center(0) = x1: center(1) = y1: center(2) = 0#
    chordPoint(0) = x2: chordPoint(1) = y2: chordPoint(2) = 0#
    leaderLen = lenl
    ''location(0) = x1 : location(1) = y1: location(2) = 0
    Set dimObj = ThisDrawing.ModelSpace.AddDimRadial(center, chordPoint, leaderLen)
      dimObj.Update
End Sub

числовое значение размера проставляется на размерной линии, надо сделать,что бы значение размера просталялось на полочке,буду благодарен за помощь, моежт у кого есть уже готовый код подобной процедуры,пришлите пожалуйста.

  • Misha
  • Восстановленный участник
  • На форуме с 27 мая 2004г.
  • Сообщений: 14
  • Спасибо: 0

Re: Простановка радиусов

добавь в код:
dimObj.VerticalTextPosition = acJIS

  • Andrey
  • Восстановленный участник
  • На форуме с 19 сентября 2001г.
  • Сообщений: 129
  • Спасибо: 0

Re: Простановка радиусов

Misha, не могли бы вы привести полный код процедуры, потому как я уже пробовал менять это свойство, но для AddDimRadial это как то не работает, покрайней мере у меня,хотя может быть я чего то не учел.заранее спасибо.

  • Misha
  • Восстановленный участник
  • На форуме с 27 мая 2004г.
  • Сообщений: 14
  • Спасибо: 0

Re: Простановка радиусов

Полный код процедуры:

Sub DimRadial()
    Dim dimObj As AcadDimRadial
    Dim center(0 To 2) As Double
    Dim chordPoint(0 To 2) As Double
    Dim leaderLen As Integer
    center(0) = 0: center(1) = 0: center(2) = 0#
    chordPoint(0) = 10: chordPoint(1) = 10: chordPoint(2) = 0#
    leaderLen = 2
    Set dimObj = ThisDrawing.ModelSpace.AddDimRadial(center, chordPoint, leaderLen)
    dimObj.VerticalTextPosition = acJIS
      dimObj.Update
End Sub

  • Andrey
  • Восстановленный участник
  • На форуме с 19 сентября 2001г.
  • Сообщений: 129
  • Спасибо: 0

Re: Простановка радиусов

Misha , вы хотите сказать что при выполнении этого кода  у вас размер проставляется на отдельной полочке расположенной горизонтально,если да то каккие переменные акада нужно изменить, что бы у меня было тоже, поскольку размер, как проставлялся на размерной линии так и сейчас делается также как и раньше.

  • Misha
  • Восстановленный участник
  • На форуме с 27 мая 2004г.
  • Сообщений: 14
  • Спасибо: 0

Re: Простановка радиусов

Да - размер проставляется на горизонт. полочке.
К проекту подключены станд. библиотеки: VBA, Autocad 2005 Type library, OLE automation.
Опции Autocad по умолчанию.

  • Andrey
  • Восстановленный участник
  • На форуме с 19 сентября 2001г.
  • Сообщений: 129
  • Спасибо: 0

Re: Простановка радиусов

ну что ж буду искать причину, почему у меня не выходит так как надо.