[yncas]

Помогите, пожалуйста. Мне дали задание написать программку на VBA для контроля значений линейных размеров. Проблема состоит в том, что я ни как не могу разобраться, в том, как отключить автоматическую корректировку в AutoCAD при изменении размеров самого измеряемого элемента. Возможно есть какойто режим, или системная переменная отвечающая за это? Можно ли разрешить пользователю изменять поле значения размера (Measurement)?

Извините, если я не корректно выражаюсь, я пока ноль в автокаде.
Заранее благодарю за ответ.

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

системную переменную dimassoc поставить в 1 - тогда размеры будут неассоциативными. Для снятия "связки" размеров и примитивов используй команду _dimdisassociate

[yncas]

Подскажите пожалуйста, а как поставить dimassoc в 1

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

Если из-под VBA, то

Код:

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

ThisDrawing.SetVariable "dimassoc", 1

Вроде так.

[yncas]

Мне бы в автокаде. Значение устанавливается с помощью команды или где то в меню?

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

Я понимаю, что кто-то кого-то путает.

<...>Мне дали задание написать программку на VBA <...>

<...>Мне бы в автокаде. <...>

Так что надо в результате?
Если в autocad'e, то _options -> User preferences -> Make new dimensions associative снять галку.

[Кочетков Андрей]

Просто в командной строке набрать dimassoc потом 1.

Но лучше как Крыс сказал: прогаммно снять ассоциацию, а по завершении программы (корректном и не корректном) вернтуть все в зад.

[yncas]

Извините за глупый вопрос, я разобрался.
Подскажите, а можно разрешить изменения значения поля Measurement (значение линейного размера) или можно его изменять каким то другим образом?

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

Нет. Из справки:

Measurement Property Gets the measurement for the dimension. Signature object.Measurement object : Dim3PointAngular, DimAligned, DimAngular, DimDiametric, DimOrdinate, DimRadial, DimRotated The object or objects this property applies to. Measurement : Double; read-only For linear dimensions this is a length, for angular dimensions it is an angle.

Добавлено:
Смотри TextOverride

[yncas]

Сообщение от kpblc Я понимаю, что кто-то кого-то путает. <...>Мне дали задание написать программку на VBA <...> <...>Мне бы в автокаде. <...> Так что надо в результате? Если в autocad'e, то _options -> User preferences -> Make new dimensions associative снять галку.

Извините, просто согласно заданию (если я его правильно понял) я должен с помощью модуля написанного на VBA корректировать размер элемента (проверять его соответствие реальному), но AutoCAD и сам это умеет делать. Наверно я не понимаю задания либо его смысла.

Тема звучит так: Контроль графических объектов (автоматическая корректировка изображения).

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

Гхм... У меня подобных тем - немеряно. И в каждой расшифровки еще листов на 10 печатного текста.
Толкований темы может быть несколько: привести размеры к стандартному виду (то есть снять переопределение); изменить геометрию примитивов в соответствии с проставленными размерами (как опция - установить размеры в "реальное" значение). Полностью задачи не видно. Сильно подозреваю, что на самом деле там третье толкование

[yncas]

kpblc
Большое Вам спасибо за помощь. Я разобрался благодаря Вам в тех вопросах которые меня интересовали. Если это возможно, я был бы очень благодарен за фрагмент кода изменения геометрии примитивов.

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

Если б он был, этот код... Там же все варианты надо предусматривать А это мне нереально сделать. Если для простых примитивов (типа дуги, окружности, отрезка) это в общем-то несложно (по крайней мере теоретически), то для полилиний, например, надо уже капитально подключать голову на предмет анализа.
И это еще не все. Что делать, если в одной опорной точке размера находится 2 или больше примитивов? К которому из них относится этот размер? А если размер оканчивается "где-то там", и продолжение его - "ну это ж очевидно" (маленькое уточнение - очевидно человеку). А если размер заканчивается на нехарактерной точке (например, выровненный размер до касательной к окружности)? Это я еще не упомянул о вариантах немировой системы координат, разномасштабных блоков, внешних ссылок, скрытых xclip'ом примитивов и т.п. В общем, проблем и вопросов лично я тут вижу слишком много, чтобы можно было быстро сбацать что-то рабочее

[yncas]

И на этом спасибо.