[Малявка]

Здравствуйте! Несколько раз сталкивалась с ситуацией, когда, работая со сторонним чертежом, не могла правильно отрисовать свои примитивы: привязка капризничала. Увеличивая зум, убеждалась, что некоторые горизонтальные и вертикальные линии таковыми не являются: обычная неряшливость чертёжника. Да и у самой иногда такое бывало.

Просьба: напишите, пожалуйста, макрос, чтобы он такие вот неправильные линии (или полилинии) перекидывал в новый слой, допустим, "NOT_ORTO". Или макрос, определяющий неправильное соединение концов линий (с зазором, с перехлёстом, с примыканием).

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

Спасибо.

p.s. А может есть уже готовое решение? Подскажите, буду признательна.

[sberbull]

Здравствуйте! Подскажите пожалуйста где в коде исправить цвет слоя _NOT_ORTO на фиолетовый вместо красного? А то у меня красный цвет используется для других элементов...

[AlexCondor]

sberbull, В конце там ищите: (entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") (cons 2 "_NOT_ORTO") '(70 . 0) (cons 62 6)))
Но заметьте, что работать будет только для вновь создаваемого слоя. Если таковой уже существует надо править в свойствах.

[sberbull]

AlexCondor, спасибо！