[Barti]

Здравствуйте! Есть несколько полилиний (результаты геод. съемок), которые подгружались в Автокад и как правило с помощью функции align разворачивались друг относительно друга по двум контрольным точкам, чтобы потом по ним вычерчивать домики, участки и прочее. Можно ли сделать такую модификацию функции align, чтобы процесс выглядел так: выделяем обе полилинии (исходную и целевую) и указываем не координаты точек, по которым они должны выравниваться, а номера вершин полилиний (просто вводим с клавы)? В моем случае это удобнее просто по той причине, что проще указать номера отмеченные на абрисе, чем что-то искать на чертеже. Знаю, блажь конечно, но если кто знает, как это сделать тем или иным способом то буду очень благодарен

[sertor]

Сообщение от Barti Знаю, блажь конечно, но если

Это точно...
Но если уж такой большой чертеж со множеством точек и выискивать нужные проблематично, то можно воспользоваться командой НАЙТИ (_find). Она работает и с текстами и с атрибутами блоков (если конечно под понятием "номера вершин полилиний" подразумеваются точки съемки).

[skkkk]

А есть ли полная стопроцентная уверенность в том, что

Сообщение от Barti номера отмеченные на абрисе

будут теми же самыми, что и

Сообщение от Barti номера вершин полилиний

???
В любом случае, скорее всего, это уже не модификация функции команды _align, а написание новой функци (команды), возможно, на основе команды _align. И в любом случае это недостижимо штатными средствами Автокада и даже макрокомандами, поэтому теме этой место либо в разделе "Программирование", где по мере желания и возможности форумчане могут помочь и что-то подсказать в написании кода (иногда указать или дать готовое решение), либо в разделе "Поиск исполнителей", где можно на коммерческой основе найти программиста, готового взяться за решение задачи. Первый вариант дешевле, второй - быстрее и надежней. И в любом варианте придется дать более развернутое тех.задание, с пояснениями, с приложенным файлом "как есть" и "как надо".

[Barti]

Уверен, что номера будут теми же самыми. Пока с этим проблем ни разу не возникало.
Насчет того, что тема не в тот раздел... Окей, просто хотел уточнить нету ли, собственно, какого-нибудь готового решения. Спасибо всем за ответы)

[skkkk]

Сообщение от Barti просто хотел уточнить нету ли, собственно, какого-нибудь готового решения

Решение не сложное, поэтому теперь есть. Но не совсем готовое, поскольку нет проверок, обработки ошибок и проч. Для пробы и выявления соответствия понятого требуемому:

Код:

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

 (defun C:ALIGN-VX ( / en0 en1 crv0 crv1 vxnmbr11 vxnmbr12 vxnmbr21 vxnmbr22 pt11 pt12 pt21 pt22)
	(setq en0 (car (entsel "\nУкажите исходную полилинию: ")))
	(initget 7)
	(setq vxnmbr11  (getint "\nВведите номер первой вершины: ")
		  vxnmbr12  (getint "\nВведите номер второй вершины: ")
	)
	(setq en1 (car (entsel "\nУкажите целевую полилинию: ")))
	(initget 7)
	(setq vxnmbr21  (getint "\nВведите номер первой вершины: ")
		  vxnmbr22  (getint "\nВведите номер второй вершины: ")
	)
	(setq crv0 (vlax-ename->vla-object en0)
		  crv1 (vlax-ename->vla-object en1)
		  pt11 (trans (vlax-curve-getPointAtParam crv0 (1- vxnmbr11)) 1 0)
		  pt12 (trans (vlax-curve-getPointAtParam crv0 (1- vxnmbr12)) 1 0)
		  pt21 (trans (vlax-curve-getPointAtParam crv1 (1- vxnmbr21)) 1 0)
		  pt22 (trans (vlax-curve-getPointAtParam crv1 (1- vxnmbr22)) 1 0)
	)
	(command "_ALIGN" en0 "" "_non" pt11 "_non" pt21 "_non" pt12 "_non" pt22 "" "_N")
)

Offtop: P.S.: Попросим модераторов перенести тему в "Программирование"

[Barti]

Это именно то, что требовалось! Спасибо)

[sertor]

Сообщение от Barti В моем случае это удобнее просто по той причине, что проще указать номера отмеченные на абрисе, чем что-то искать на чертеже

Интересно, как Вы в абрисе выполняете нумерацию и потом находите вершины полилиний? Программа написана для выравнивания по этим вершинам (см. скрин)

[Barti]

Сообщение от sertor Интересно, как Вы в абрисе выполняете нумерацию и потом находите вершины полилиний? Программа написана для выравнивания по этим вершинам

Все что снимается с одной точки стояния тахеометра нумеруется как А1, А2 и т.д. Со следующей В1, В2 и т.д. То есть в таком виде координаты хранятся в памяти прибора и так же я их нумерую на абрисе. Если загружать таким образом список координат А1, А2, ... в Автокад в виде полилинии, то нумерация сохраняется: А1 (точка стояния) соответствует 1 вершине полилинии и так далее.

[skkkk]

Сообщение от Barti Это именно то, что требовалось! Спасибо)

Barti, думаю, что появятся вопросы/замечания/предложения. Вдруг захочется выравнивать не только полилинии, но и блоки? Можно при запросе номеров вершин назначить действие, если нажать Enter. Может оказаться более удобным не вводить номера вершин, а взять вершины указанных сегментов полилиний. И так далее... В общем, предлагаю потестировать, высказать мысли, а там я уж и допилить постараюсь по возможности. Удачи!

[trir]

Civil 3d Survey

[Barti]

trir, я немного погуглил, но не понял в чем преимущество Civil (раньше никогда не пользовался). Расскажите, если не сложно. Я пользуюсь для импорта вот этим: http://geodesist.ru/forum/resources/...B2-autocad.14/

[trir]

По идее в Civil 3D, рабочее пространство Survey - содержится все нужные инструменты для обработки геодезических данных, от импорта с прибора, до выдачи готового результата... но с этим не работал, к сожалению

[Barti]

skkkk, ну замечаний никаких нет - все чудесно). Предложение есть одно. Можно сделать так чтобы выравнивались несколько полилиний. То есть, все то же самое, но исходных полилиний несколько (точки выбираются только, к примеру в первой выбранной).

[skkkk]

Так?

Код:

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

 (defun C:ALIGN-VX ( / en0 en1 ss crv0 crv1 vxnmbr11 vxnmbr12 vxnmbr21 vxnmbr22 pt11 pt12 pt21 pt22)
	(vl-load-com)
	(setq en0 (car (entsel "\nУкажите исходную полилинию: "))
		  crv0 (vlax-ename->vla-object en0)
	)
	(initget 7)
	(setq vxnmbr11  (getint "\nВведите номер первой вершины: ")
		  vxnmbr12  (getint "\nВведите номер второй вершины: ")
	)
	(vla-Highlight crv0 :vlax-true)
	(princ "\nУкажите остальные объекты, которые нужно выровнять")
	(setq ss (ssget))
	(if (null ss) (setq ss (ssadd)))
	(ssadd en0 ss)
	(setq en1 (car (entsel "\nУкажите целевую полилинию: ")))
	(initget 7)
	(setq vxnmbr21  (getint "\nВведите номер первой вершины: ")
		  vxnmbr22  (getint "\nВведите номер второй вершины: ")
	)
	(setq crv1 (vlax-ename->vla-object en1)
		  pt11 (trans (vlax-curve-getPointAtParam crv0 (1- vxnmbr11)) 1 0)
		  pt12 (trans (vlax-curve-getPointAtParam crv0 (1- vxnmbr12)) 1 0)
		  pt21 (trans (vlax-curve-getPointAtParam crv1 (1- vxnmbr21)) 1 0)
		  pt22 (trans (vlax-curve-getPointAtParam crv1 (1- vxnmbr22)) 1 0)
	)
	(command "_ALIGN" ss "" "_non" pt11 "_non" pt21 "_non" pt12 "_non" pt22 "" "_N")
)

[Barti]

выдает ошибку. Укажите исходную полилинию: ; ошибка: no function definition:
VLAX-ENAME->VLA-OBJECT

[skkkk]

Странно, почему раньше работало... Видимо были подгружены другие какие-то лиспы.
Постоянно забываю про (vl-load-com).
Исправил в #14.

[Barti]

одна проблема - теперь обязательно чтобы были еще и другие объекты, которые нужно выравнивать. Без них выдает ошибку

[skkkk]

Исправил в #14. Думаю проблема там еще не одна всплывет, я ж говорил:

Сообщение от skkkk нет проверок, обработки ошибок и проч.

Так что, тестируем хорошенько.

[Barti]

Попробовал на нескольких полилиниях - вроде все в порядке. Конечно, время покажет, что там дальше будет, но еще раз спасибо skkkk)