[ut2010]

Надо проставить линейный размер в Autocad средствами VBA, нашел только паралельный, неужели никак?

[Кулик Алексей aka kpblc]

См. AddDimAligned и AddDimRotated

[vasilyis]

Вы, кажется не на ту ветку подсели. На форуме существует независимая ветка по программированию, где вплотную обсуждаются вопросы программного решения проблем.
Добавлено:
Немного не успел.

[ut2010]

Спасибо, все получилось.
Привожу код:

Код:

[Выделить все]

Sub Example_AddDimRotated()
  
    Dim returnPnt, returnPnt1 As Variant
        returnPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
        returnPnt1 = ThisDrawing.Utility.GetPoint(, "Enter a point2: ")
        
    Dim location(0 To 2) As Double
    Dim rotAngle As Double
    
    ' Define the dimension
  
    location(0) = 0#: location(1) = 0#: location(2) = 0#
    rotAngle = 90
    rotAngle = rotAngle * 3.141592 / 180#       ' covert to Radians
    
    ' Create the rotated dimension in model space
    Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(returnPnt, returnPnt1, location, rotAngle)
    ZoomAll
    
End Sub

[Солидворкер]

Сообщение от vasilyis Вы, кажется не на ту ветку подсели. На форуме существует независимая ветка по программированию, где вплотную обсуждаются вопросы программного решения проблем. Добавлено: Немного не успел.

Переместил в программирование