[Teftelia]

Приветствую Всех.
Есть ли такая программка, которая в чертеже поменяет цвет размеров согласно масштаба линейных измерений.
Т.е. масштаб 1, можно оставить как есть, 0.5 красным, 0.25 синим

[Teftelia]

Сообщение от poobschatso все всё видят, все всё понимают - тему к чему создавали?

Для проверки хотелось, думал есть готовое

[tsetse]

dim scale overvall?

[Teftelia]

Сообщение от tsetse dim scale overvall?

Что это и как пользоваться?

[tsetse]

Сообщение от Teftelia Что это и как пользоваться?

Масштаба линейных измерений это dim scale overvall? Я просто пользуюсь английской версией.

[Семёныч]

Простейшая программа от "голубого вертолета":

Код:

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

;Изменение цвета текста масштабированного линейного размера
(defun C:OVERL ( / obj lsc dm)
(setq obj (entsel "\nВыберите размер: "))
(if (and obj (= (cdr (assoc 0 (entget (car obj)))) "DIMENSION"))
    (progn
    (setq lsc (vlax-get-property (setq dm (vlax-ename->vla-object (car obj))) 'LinearScaleFactor))
    (if (= lsc 0.5)
        (vlax-put-property dm 'TextColor "1")
    ) ; if
    (if (= lsc 0.25)
        (vlax-put-property dm 'TextColor "5")
    ) ; if
    (if (= lsc 1)
        (princ "\nЭто нормальный размер.")
    ) ; if
    (princ "\nМасштаб линейного размера = ") (princ lsc)
    ) ; progn
    (princ "\nОбъект не выбран.")
) ; if
(princ)
)

[Teftelia]

Семёныч, Круто, а размеры по одному нужно выбирать? Можно ли масштабы добавлять в виде дробей, например 1/1,5 = 0,66666 (бывает пользуюсь таким)

[Семёныч]

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