[IVaret]

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

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

Выделить любую вершину или середину сегмента, во всплывающем меню выбрать "добавить новую вершину" - не то?

[Хмурый]

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

[Oleg T]

Сообщение от Хмурый Есть программы, которые в местах пересечений разрывают линии. потом можно их объединить

breakall.lsp
https://forum.dwg.ru/showthread.php?t=18696

[IVaret]

Спасибо всем кто ответил.

Задача часто ставится такая:

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

[Oleg T]

Сообщение от IVaret Задача часто ставится такая: нужно на каждом пикете создать точку на линии бровки, кромки, оси дороги, чтоб потом сделать отчет в Excel. В других програмах есть возможность создавать такие точки, а в Автокаде немогу найти быстрого решения. Все танцы с бубнами

Я для своих целей (других) пользуюсь следующим алгоритмом:
1. С помощью программки из ссылки разбиваю ОТРЕЗКИ в точках пересечения.
2. Своим лиспом проставляю точки по полученным отрезкам.

Код:

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

 ;Функция отрисовки точек (point) по конкечным точкам отрезков
;---------------------------------------------------
(defun circle_1 ()
	(setq nab (ssget))
	(setq kol (sslength nab))
	(setq nab1 (ssadd))
	(setq n -1)
	(repeat kol
		(setq n (+ n 1))
		(setq pr (ssname nab n))
		(setq pr_ (cdr (assoc '0 (entget pr))))
		(if (= pr_ "LINE") (ssadd pr nab1))
	)
	(setq nab2 (ssadd))
	(setq kol (sslength nab1))
	(setq n -1)
	(repeat kol
		(setq n (+ n 1))
		(setq pr (ssname nab1 n))
		(setq t1 (cdr (assoc '10 (entget pr))))
		(setq t2 (cdr (assoc '11 (entget pr))))
		(entmake (list '(0 . "POINT") (cons 10 t1)))
		(setq pr (entlast))
		(ssadd pr nab2)
		(entmake (list '(0 . "POINT") (cons 10 t2)))
		(setq pr (entlast))
		(ssadd pr nab2)
	)
	(setq go_ nil)
	(while (/= go_ 1)
		(setq kol (sslength nab2))
		(if (= kol 0)
			(setq go_ 1)
			(progn
				(setq pr (ssname nab2 0))
				(setq t0 (cdr (assoc '10 (entget pr))))
				(ssdel pr nab2)
				(setq n 0)
				(while
					(setq pr (ssname nab2 n))
					(setq ti (cdr (assoc '10 (entget pr))))
					(setq t_i_0 (equal ti t0))
					(if (= t_i_0 T)
						(progn
							(ssdel pr nab2)
							(entdel pr)
						)
						(setq n (+ n 1))
					)
				)
			)
		)
	)
)

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

[Linkshunter]

Сообщение от IVaret на каждом пикете создать точку

гуглите плотнее
https://forum.dwg.ru/showthread.php?...65#post1108065
http://geodesist.ru/threads/v-perese...-tochku.20398/
и т.д.

[koMon]

Сообщение от IVaret на пересечение полилиний добавить вершины

Bobik.fas wa (written as) c:Add_Vertices_to_Intersection

[VVA]

Сообщение от Linkshunter гуглите плотнее https://forum.dwg.ru/showthread.php?...65#post1108065 http://geodesist.ru/threads/v-perese...-tochku.20398/ и т.д.

И еще до кучи Новые команды для работы с полилинией

PL-VFI -вставка вершин в выбранной полилинии в местах пересечения с указанными полилиниями, линиями, дугами