[Isuma]

Собственно, у меня объект, начерченный полилинией. Длины сегментов 1678,535 и 1421,213. Есть ли какой-нибудь лисп, который единовременно изменит длины с определённым округлением, то есть, сделает их 1700 и 1400 соответственно?
И ещё вопрос: можно ли настроить команду Соединить таким образом, чтобы точность поиска сопрягаемых узлов было равна определённому диапазону: чтобы линии, находящиеся на расстоянии друг от друга соединялись в полилинию?

Пока самый приемлемый выход из этого я нашёл следующий:
1. Включить динамический ввод с поставленной галочкой напротив "Включить ввод размеров, где возможно".
2. Каждую из линий дёргать за ручку, нажимать Tab и вводить конечную длину.
3. Уменьшать все объекты в 100 раз.
4. В настройках автонанесения зависимостей включить только Совпадение. поставить точность 1. Выполнить автонанесение.
5. Увеличить в 100 раз. Удалить зависимости.
6. Соединить в полилинию.

Но вопрос в том: можно ли редактировать всё скопом, округлять?

[sbi]

Сообщение от Isuma голову на плечах ещё никто не отменял, но экономить время тоже нужно.

Голова на плечах вещь нужная, но в средние века некоторым ее сносили за не надобностью.В масштабе 1:100, если это чертеж, лучше корректировать размеры.
Можно и для Вашего желания или хотения откорректировать и ввод точек в Exel, VBА, Lisp...и тд

[Isuma]

Сообщение от sbi В масштабе 1:100, если это чертеж, лучше корректировать размеры

И площади на глазок тоже считать.
По-моему, мы далеко от темы ушли.
По факту: реально работающего лиспа с округлением значений не до ОДНОЙ целой, а до скольки угодно я не нашёл.
К тому же, вариант с координатами точек не всегда подходит:для линий под углом возникают проблемы.

Неужели за всё это время не написано ни одного лиспа для корректировки длин линий с округлением значений? или это невозможно?

[357]

Сообщение от Isuma или это невозможно?

Может быть и возможно, но на каждую дезигнерскую глупость лисп не напишешь.
)))

[swell{d}]

у меня есть скрипт на vba, но я хз будет ли он работать в акаде. по идее должен

[Isuma]

с 2009 автокада vba не работают.

[sbi]

Isuma Поиск по форуму " VBA AutoCAD" http://www.google.ru/cse?cx=partner-...010&gsc.page=1
Кроме того, любая площадь считается с учётом погрешности измерений .

[Isuma]

Спасибо, полезно.

В скрипта в dvb нет? только код?

[swell{d}]

В блокнот его и "сохранить как"

[Isuma]

Сообщение от swell{d} В блокнот его и "сохранить как"

ну допустим, расширение я изменил, только что от этого поменялось? всё равно загрузить его нельзя. пишет, что недопустимый формат.

[Valery Brelovsky]

Сообщение от Isuma Неужели за всё это время не написано ни одного лиспа для корректировки длин линий с округлением значений? или это невозможно?

Эта проблема не озвучивалась ранее и от сюда и обходимость написания лиспа не возникала.
Соласен с постом 23 нельзя на каждую глупость писать лисп.
Если это фигура то изменение длин приведёт к не вязке в углах. Кроме прочего это кординаты начала и конца линии и какие кординаты в этом случае редактировать.
Часто работаю с чертежами в котрых аналогичный благан в двумерном чертеже концы линий имеют разную высоту. Нужно было посчитать дины разводки труб для полива. Беру отрезок по плану метров 20 автокад даёт 200 метров сразу не дошло, Псмотрел чертёж в аксонометрии а там море линий начинающиеся на уровне отметок топографии и опускающиеся до нуля по высоте. В том же поекте открытый первый эттаж. при замене тротуара у здания отметки тротуара даны выше пола на 30 см. Даже при стенах такого не делают. И много других глупостей. И концы линий стыкуют на глаз, вроде как объектные привязки не существуют в природе. Могу по этому вопросу только посочуствовать нет панацеи от глупости.

[Isuma]

Что-то я так и не допёр как этот макрос запустить... объясните как сделать, будьте добры.

Сообщение от Valery Brelovsky Соласен с постом 23 нельзя на каждую глупость писать лисп.

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

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

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

Ты пытаешься бороться не с глупостью, а с ее последствиями.

[swell{d}]

Сообщение от Isuma всё равно загрузить его нельзя. пишет, что недопустимый формат

к сожалению, я не пользуюсь автокадом и не знаю, как Вам помочь ещё

[Isuma]

Сообщение от Кулик Алексей aka kpblc Ты пытаешься бороться не с глупостью, а с ее последствиями.

тогда лиспы надо писать не на глупости, а на их последствия. будем к словам цепляться?

[Valery Brelovsky]

Сообщение от Isuma Собственно, у меня объект, начерченный полилинией. Длины сегментов 1678,535 и 1421,213. Есть ли какой-нибудь лисп, который единовременно изменит длины с определённым округлением, то есть, сделает их 1700 и 1400 соответственно?

Вот есть прямоугольник с катетами 300 и 500 а гипотенуза 583,095. Как в этой ситуации нужно округрять.

Сообщение от Isuma И ещё вопрос: можно ли настроить команду Соединить таким образом, чтобы точность поиска сопрягаемых узлов было равна определённому диапазону: чтобы линии, находящиеся на расстоянии друг от друга соединялись в полилинию?

А это макрос который соеденяет линии с зазором 10
объеденяет линии преобразуя в полилинию и само собой полилинии.

^C^C(defun c:mypljoin( / selset _pedit) (if (setq selset (ssget "_:L" '((0^M;. "ARC,*LINE")))) (progn (setq _pedit (getvar "PEDITACCEPT")) (setvar^M;"PEDITACCEPT" 1) (command "_.pedit" "_m" selset "" "_j" 10.0 "") (setvar^M;"PEDITACCEPT" _pedit))));mypljoin;

Автор Кулик Алексей aka kpblc

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

Тогда уж так, наверное:

Код:

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

(defun c:mypljoin( / selset _pedit) (if (setq selset (ssget "_:L" '((0 . "ARC,*LINE")))) (progn (setq _pedit (getvar "PEDITACCEPT")) (setvar "PEDITACCEPT" 1) (command "_.pedit" "_m" selset "" "_j" 10.0 "") (setvar "PEDITACCEPT" _pedit))));mypljoin;

(^M; лишние)

[Isuma]

Сообщение от Valery Brelovsky А это макрос который соеденяет линии с зазором 10 объеденяет линии преобразуя в полилинию и само собой полилинии.

он изменяет длины линий при этом?

Сообщение от Valery Brelovsky Вот есть прямоугольник с катетами 300 и 500 а гипотенуза 583,095. Как в этой ситуации нужно округрять.

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

[Лиспер]

Сообщение от Isuma он изменяет длины линий при этом?

Так подумай...
Было два отрезка: (558377.35 230930.50 0) - (558444.20 231018.84 0) и (558378.72 230922.81 0) - (558468.72 230892.81 0)
Длины соответственно: 110.78 и 94.87; Суммарная - 205,65
После объединения получаем полилинию с вершинами
(558444.0 231019.0) (558373.0 230925.0) (558469.0 230893.0) общей длиной уже 218,95
И чего теперь делать будем?

[Isuma]

Да, я уже проверил. изменяет. видимо использует Фаску, а потом Соединить.

Но лисп неплохой, спасибо, кстати! в хозяйстве будет полезен)

[Лиспер]

Не "видимо", а использует. И не "Фаску", а команду _.pedit. А так все правильно...