Изменение Стиля Измерения На Основе Значения

#autocad #autolisp

Вопрос:

Пожалуйста, помогите мне с небольшой проблемой.

У меня есть запрос на измерение некоторых 2D-объектов, как показано на рисунке ниже. Существуют сотни подобных файлов с одним объектом на файл. Моя проблема возникает при определении размеров объектов с огромными различиями между ними. У одних 500-600 мм, у других может быть 12000 мм. Поскольку высота текста везде одинакового размера, текст станет чрезвычайно маленьким по сравнению с длиной объекта, что сделает его неясным. Я хочу избежать постоянного изменения стиля размеров, и мне интересно, существует ли процедура, которая в принципе может выполнять поиск строки «ОБЩАЯ ДЛИНА:XXX», а затем устанавливать высоту размерного текста = значение длины / 40 (это приемлемый коэффициент для любой длины).

У меня уже есть функция со всеми установленными переменными, только высоту текста/стрелок нужно вычислять на основе длины объекта, как указано выше.

(сайт defun C:и компания dsq()(команда «dimclrt» «7» «» )(команда «dimasz» «1» «» )(команда «dimtxt» «1» «» )(команда «dimclrd» «1» «» )(команда «dimclre» «1» «» )(команда «dimscale» «1» «» )(команда «dimdec» «0» «» )(команда «dimtvp» «0.7» «» )(команда «dimtih» «выкл» «» )(команда «dimtoh» «выкл» «» )(команда «dimexo» «0» «» )(команда «dimexe» «0.8» «» )(команда «dimcen» «2» «» )(команда «dimtofl» «О» «» )(команда «dimtfill» «0» «» )(princ расположено))

введите описание изображения здесь