[koskos]

Добрый вечер!

Прошу помощи в следующем.

Есть паралелльные размеры, нужно преобразовать в повернутые)

Если поделитесь хитрость, буду благодарен!

[Виkтор]

Меня всю жизнь этот вопрос интересует тоже жду правильный ответ

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

По-моему, впрямую никак. А какова конечная цель?

[Виkтор]

Подозреваю (у меня с этим всегда сложности) при переносе одного из точек параллельного размера, естественно, полка поворачивается, создавая прямой угол. А если создать линейный размер и повернуть его на нужный угол, то при ьам уже точки каждого края независимы от второй. На чертеже иногда удобно чтобы длины каждого края наклонного размера были разными

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

Сообщение от Виkтор длины каждого края наклонного размера

Это что такое?

[koMon]

длина каждой выносной линии

[Oleg T]

Стандартных средств не видно.
При сравнении списков размеров увидел, что они отличаются этим:

Параллельный размер
(70 . 33) (50 . 0.0)
Повернутый размер
(70 . 32) (50 . 5.49778714378214) (100 . "AcDbRotatedDimension"))

Похоже, что пара (50 . X) - угол размерной линии в радианах. Нужен лисп.

[koMon]

Сообщение от Oleg T они отличаются этим

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

заготовка:

Код:

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

 (setq dim_aligned_properties '(StyleName AltSubUnitsFactor AltSubUnitsSuffix AltSuppressLeadingZeros AltSuppressTrailingZeros
								AltSuppressZeroFeet AltSuppressZeroInches AltTextPrefix AltTextSuffix AltTolerancePrecision
								AltToleranceSuppressLeadingZeros AltToleranceSuppressTrailingZeros AltToleranceSuppressZeroFeet
								AltToleranceSuppressZeroInches AltUnits AltUnitsFormat AltUnitsPrecision AltUnitsScale
								Arrowhead1Block Arrowhead1Type Arrowhead2Block Arrowhead2Type ArrowheadSize DecimalSeparator
								DimConstrDesc DimConstrExpression DimConstrForm DimConstrName DimConstrReference DimConstrValue
								DimensionLineColor DimensionLineExtend DimensionLinetype DimensionLineWeight DimLine1Suppress
								DimLine2Suppress DimLineInside DimTxtDirection EntityTransparency ExtensionLineColor
								ExtensionLineExtend ExtensionLineOffset ExtensionLineWeight ExtLine1Linetype ExtLine1Suppress
								ExtLine2Linetype ExtLine2Suppress ExtLineFixedLen ExtLineFixedLenSuppress Fit ForceLineInside
								FractionFormat HorizontalTextPosition Layer LinearScaleFactor Linetype LinetypeScale Lineweight
								Material Normal PlotStyleName PrimaryUnitsPrecision Rotation RoundDistance ScaleFactor
								SubUnitsFactor SubUnitsSuffix SuppressLeadingZeros SuppressTrailingZeros SuppressZeroFeet
								SuppressZeroInches TextColor TextFill TextFillColor TextGap TextHeight TextInside TextInsideAlign
								TextMovement TextOutsideAlign TextOverride TextPrefix TextRotation TextStyle TextSuffix
								ToleranceDisplay ToleranceHeightScale ToleranceJustification ToleranceLowerLimit TolerancePrecision
								ToleranceSuppressLeadingZeros ToleranceSuppressTrailingZeros ToleranceSuppressZeroFeet
								ToleranceSuppressZeroInches ToleranceUpperLimit TrueColor UnitsFormat VerticalTextPosition Visible
					)
)
(setq aligned_dimension_object (vlax-ename->vla-object (setq aligned_dimension_entity (car (entsel)))))
(setq rotated_dimension_duplicate (vla-adddimrotated
										(vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
										(vlax-3d-point (cdr (assoc 13 (entget aligned_dimension_entity))))
										(vlax-3d-point (cdr (assoc 14 (entget aligned_dimension_entity))))
										(vlax-3d-point (cdr (assoc 10 (entget aligned_dimension_entity))))
										(angle (cdr (assoc 14 (entget aligned_dimension_entity))) (cdr (assoc 13 (entget aligned_dimension_entity))))
								   )
)
(foreach property dim_aligned_properties
	(vl-catch-all-apply (read (strcat "vla-put-" (vl-symbol-name property)))
						(list rotated_dimension_duplicate (vl-catch-all-apply (read (strcat "vla-get-" (vl-symbol-name property))) (list aligned_dimension_object)))
	)
)
(vla-delete aligned_dimension_object)

[Виkтор]

Сообщение от Кулик Алексей aka kpblc Это что такое?

Хочется параллельный размер "научить" делать так
То есть поставил параллельный размер - преобразовал в линейный и тягай потом каждую выноску в любую точку. А параллельный в этом случае будет поворачиваться

[doctorraz]

Сообщение от Виkтор То есть поставил параллельный размер - преобразовал в линейный и тягай потом каждую выноску в любую точку.

размер между чем на картинке????? и зачем он ???

[Бим]

Сообщение от Виkтор поставил параллельный размер - преобразовал в линейный и тягай потом каждую выноску в любую точку

И что мешает сразу создать повернутый размер параллельно желаемому размещению и не делать неких загадочных преобразований?

[doctorraz]

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

[bybamag]

Пусть не совсем решение, но, если навести курсор на точку на стрелке, то появится меню, в котором есть возможность принять параллельный размер за базовый и начать строить линейные размеры по наклонной линии

[Виkтор]

Ну это отличный вариант.
Спасибо, добрый человек, лично я буду пользоваться

[Ingpro]

Как можно расположить размерную линию параллельно указанной, например, при простановке размеров раскосов ферм.
Работаю с "чужим" чертежом (предположительно создан в Project Studio CS).
В нём очень правильно проставлены размеры раскосов. В свойствах указаны, как повернутые...
Возможно ли такое сделать в AutoCAD?
А то приходится строить дополнительные линии, чтобы параллельный размер был параллелен линии раскоса.

[sleep]

Сообщение от Ingpro Возможно ли такое сделать в AutoCAD?

В СПДС "наклонным размером" такое можно сделать без дополнительных построений.

[bybamag]

Сообщение от Ingpro Как можно расположить размерную линию параллельно указанной

Есть несколько вариантов:
1 - описан выше, или если нужно несколько размеров, то можно использовать функцию "продолжить", там строятся повёрнутые размеры
2 - сделать линейный размер и повернуть его, используя "опорный угол"
3 - создать ПСК, повернув на нужный угол. Все линейные размеры будут также параллельны осям ПСК

[Ingpro]

Сообщение от sleep В СПДС "наклонным размером" такое можно сделать без дополнительных построений.

В моём СПДС, к сожалению нет такой функции...

Сообщение от bybamag 2 - сделать линейный размер и повернуть его, используя "опорный угол"

Слишком много действий:
измерить угол, проставить линейный размер, повернуть его на нужный угол,
вторая выносная съезжает с точки привязки, её надо присоединить к нужной точке.
Быстрее сделать дополнительный перепендикуляр... Но тоже неудобно...

Сообщение от bybamag 3 - создать ПСК, повернув на нужный угол. Все линейные размеры будут также параллельны осям ПСК *

Крутить ферму, когда много разных углов, тоже нехороший вариант.
Возможно ли с помощью лисп проставить параллельный размер, чтобы размерная линия была параллельна указанной?
Указываешь точки присоединения выносных линий и линию, которой должна быть параллельна размерная линия.

[ытя]

Сообщение от Ingpro проставить параллельный размер, чтобы размерная линия была параллельна указанной

^C^C_UCS;_obj;\_dimlinear;;@;\_ucs;_p;

[Ingpro]

Сообщение от ытя ^C^C_UCS;_obj;\_dimlinear;;@;\_ucs;_p;

Этот макрос работает, спасибо, ытя.
Но выносную линию всё равно надо перемещать в нужную точку...
Иногда текст размера - перевернутый...

[Ingpro]

Сообщение от ытя ^C^C_UCS;_obj;\_dimlinear;;@;\_ucs;_p;

Макрос то правильно ставит размер (текст над размерной линией), то неправильно (текст под размерной линией)...
Как можно подправить макрос, чтобы текст не переворачивался.

[ытя]

Сообщение от Ingpro чтобы текст не переворачивался.

Надо кликать ближе к левому концу отрезка

[Ingpro]

Сообщение от ытя Надо кликать ближе к левому концу отрезка

Спасибо, так получается, главное не запутаться, иногда верх-лево, иногда низ лево...
Ещё вопрос, не всегда после завершения команды курсор возвращается в орто, тут тоже нужно что-то знать?

[ытя]

Сообщение от Ingpro не всегда после завершения команды курсор возвращается в орто

Видимо, в процессе работы макроса произошла отмена команды, поэтому последняя его часть ("..._ucs;_p;"), возвращение предыдущей ПСК, не работает.

[ltnchik1405]

Сообщение от Ingpro А то приходится строить дополнительные линии,

Думаю лучше пользоваться командой ПСК-Объект. Offtop: Писали уже оказывается.

[Ingpro]

В принципе макрос ^C^C_UCS;_obj;\_dimlinear;;@;\_ucs;_p; нормально работает, только иногда происходит сбой...
2 раза enter и курсор возвращается в орто...