Помогу бесплатно разработать любую программу на autolisp.

да,все срабатывает как положено, судя по всему был вопрос в конкретном файле.
Спасибо,а может еще есть лисп который не объединяет все в один слой?

--- Сообщения объединены, 27 апр 2016, Оригинальное время сообщения: 27 апр 2016 ---

вроде нашел то что нужно,если это еще кому-то интересно
http://www.cadtutor.net/forum/showt...ers-and-blocks&p=286035&viewfull=1#post286035
пост #52 отVVA
sergtor спасибо за помошь

 

Создать слой и переместить в него выбранные объекты с назначением цвета
_команда для запуска obj2layer

 

Германup, вечер а может и день добрый. У меня такой вопрос, почему при работе с лиспом GEO_OTKL постоянно отключается объектная привязка, AutoCAD 2013 стоит. Объясните пожалуйста в чем ошибка? Спасибо за внимание.

 

Это мой лисп, написан в детстве очень корява, работает как попало. Когда-нибудь перепишу с 0, идеи есть но времени нет :-(

 

Адрей, как я понял, программа устанавливает какие то свои привязки. В процессе работы Вы включаете другие привязки, но программа после одной отработки с вашими привязками, сбрасывает их и снова устанавливает свои привязки?
Осмелюсь предположить, что в программе нужно настройку привязок вынести за пределы цикла. Если дело в этом, то Disney мог бы это поправить за пару минут. Кроме него сие сделать больше никто не сможет.
А пока, суть да дело, используйте "ручной" выбор привязки для каждого обрабатываемого вами объекта.

 

Требуется сместить текст на ближайшую вершину ближайшей полилинии т.е. чтоб текст переместился точкой привязки на ближайшую вершину.Кто может помочь?Фрагмент файла прикрепляю.
P/S: для чего нужно: робур "сносит" текст на ось(смещение и т.д.,куда душе угодно), превращая в специфическую фиксированную точку в 3д модели, привязываясь к ручке текста, а этот текст набит вручную как попало, и его много, вручную перетаскивать долго очень.

 

...или на точку, тогда функционал существенно расширяется,и точки можно автоматически вставить в вершины полилинии.

 

SOYZNIK, название темы не отвечает времени. Можно подумать, но при определенных условиях.

 

Раскрыть Спойлер Свернуть Спойлер

SVP, дак это собственно и не ваша тема))

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

не проще ли как нибудь пойти от обратного, и проименовать сами вершины?
таких лиспов довольно много, есть из чего выбрать и по необходимость докрутить до желаемого.

 

Согласен. Нежелание получения прямого решения конкретной задачи, заход от обратного, т.е. через ж..., будут служить источником прогресса и причиной существования данной ветки.

 

SVP, компромиссы в решениях, на мой взгляд, наиболее эффективный подход к реализации своих идей.
т.к. соотношение количества времени и качества итогового, в данном случае будет максимальным.
к тому же поиск наипростейшего решения, ключ к успеху.

я приведу пример по данному случаю.
от обратного.

- есть полилиния вершины которой представляют собой наблюдаемые пункты, с хаотичными названиями, расположенными так же хаотично, но примерно в районе именной вершины;
- задача, сделать так, что бы в координатах конкретной вершины оказался нужный текст;
- и решение.
любо создаем дополнительное текстовое поле, куда через пробел вписываем по очереди имена вершин, либо лиспом "натыкиваем" так же поочереди, уже существующий текст; после чего создается список по этим данным в нужном нам порядке; и дальше просто поочередно из этого списка вытаскивается значение и приставляется к соответствующей вершине.
старый текст по желанию удаляется.

но вы можете переть на пролом)

 

...проблема именно в "по очереди-в ручном режиме", если в частном случае (для чего мне это понадобилось) на 1 операцию текст-вершина я буду тратить 1секунду, то на весь файл требуется времени примерно 13 часов.

 

а откуда взялся этот текст? кто и как его создавал?

 

SOYZNIK, последовательно экспорт (можно использовать в качестве номера или отметки ближайший текст) затем импорт не подойдет?

 

Благодарю, не знал про ближайший текст , подскажите как при импорте настроить расстояние от точки вставки до точки привязки текста(сделать в 0,сейчас оно 2.7839)?

...в правильном направлении думаете,но вариантов нет этот текст - результат ручной работы другого человека(далек он от автоматизированного проектирования, и это не лечится), который мне нужно отредактировать и использовать для своих целей

 

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

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

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

 

Если быть точным, то 46800.

 

...точно, сам не догадался,величина то постоянная относительно точки/вершины

с этим повезло, текст более-менее в радиусе вершин, и отличен по свойствам(цвет,слой) так что норм. все получилось.Ушло около получаса времени вместе с беглой проверкой результата, всем спасибо!!!

около того

 

Может плохо икал на форуме, может руки кривые....
Нужна такая примочка: поиск точки, у которой рядом нет отметки, то же самое, поиск текста, отображающего отметку, но у которого нет рядом точки с такой высотой, и третий вариант - у точки есть отметка, но они находятся в разных слоях.
Собственно дело в чем: у одного серьезного заказчика требования такие, чтобы пикеты и отметки их высоты находились в одном слое, и количество точек совпадало с количеством текстов ее отметки.
Вот один раз из более 4000 тысяч точек потерял 2 подписи отметки, видимо когда разреживал пикеты с отметками, текст удалил или переместил в слой скрытых пикетов, а точка осталась в своем слое. А сегодня аналогичный случай, правда с 1100 точками. Также самое, три текста перенес, а точки остались. Часа два искал, и нашел две. А третью нашел еще через пару часов, но текст оказался в другом слое (похоже от невнимательности вручную создал текст не в том слое, или от невнимательности каким-то образом перенес этот текст в другой слой... В общем намучился...
Если такое уже есть на форуме, ткните пожалуйста носом, у самого не получилось найти.

 

--- Сообщения объединены, 28 авг 2016, Оригинальное время сообщения: 28 авг 2016 ---

Ничего необычного, ситуация штатная.

Лучше стараться все изначально делать безошибочно.

Если просто подписать, то
МенюГЕО>Геодезия>Проставить отметку точки
Затем весь текст отметок кидаем в нужный слой, перед этим подправив его положение.
Полагаю, с количеством десятичных знаков проблем не будет.

Если же точки в чертеж импортируются, то все настраивается при импорте в том же Geo_Import (слои точек, номеров точек, отметок, примечаний).
Сначала импортируем в разные слои, чтобы лишние тексты не мешались, а потом включаем слой с отметками, выделяем все тексты в этом слое (рулит SelSim), переназначаем этим текстам слой.