[alost]

Здравствуйте!
Возникла проблема есть несколько тысяч объектов из замкнутых полилиний нужно выгрузить координаты всех вершин полилиний в TXT но либо каждый полигон в отдельный файл (методом группового выделения) или все в один но чтобы было разделение между объектами!

[Рyslan]

Не работает эта программа с командой sk

[kerya_z]

нравится идея из #4, но не работает у меня.
работаю coorn, руками параллельно записываю названия точек, которые снимаю, потом сращу файло со столбцом названий и со столбцами координат. Было бы прекрасно, если бы в COORN можно было для каждого ввода (указания объекта или точки) вводть название (с569 например) - и, соответственно, появляется еще один столбец - названий.
спасибо всем тут, полезно для меня

[VVA]

Здесь как минимум 3 программы для экспорта + Point Manager

[kerya_z]

спасибо, посмотрю, просто пока нашел и попробовал это

[Disney]

Сообщение от kerya_z еще один столбец - названий.

попробуй Экспорт координат выбранных объектов из AutoCAD в *.txt, при экспорте, помимо номера и координат, ещё есть возможность добавить описание.

[KSI]

kerya_z, в #3 есть модуль, записывающий координаты точек в файл, при этом перед выбором точки идёт запрос названия точки.
Если не нужны подписи х=, у=, z=, то убрать их из строки:
(setq coord_xyz (strcat "x=" (rtos coord_x) " y=" (rtos coord_y) " z=" (rtos coord_z)))
чтобы стало так:
(setq coord_xyz (strcat (rtos coord_x) (rtos coord_y) (rtos coord_z)))

[kerya_z]

жесть этот ваш автолисп.
пытался я разобрать программы ваши, но пока ниасилел, много вложенных функций и петель, незнакомый синтаксис и вообще я не программер. время поджимает уже, в четыре руки с коллегой замутим, если что.
KSI - работает, но мне нужны не координаты вершин, а координаты середины полилинии, ну или прозвольной точки на полилинии (или просто линии), которую я смотгу указать мышью (getpoint). если использовать прогу COORN с вариантом "УКАЗАТЬ" - получается удобно, но нет возможности каждую снятую точку обозвать.

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

kerya_z, ты уж определись - сначала нужны были координаты вершин, теперь нужны какие-то произвольные точки. Ты попробуй хотелки нормально сформулировать для начала.

[trir]

А ещё можно сделать экспорт в GML ;=)

[kerya_z]

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

и что за GML?

в общем пока проставляю точки в интересующих меня местах, снимаю их с помощью FCOORD из #3, дописал ручной ввод еще одного поля. на данный момент справляюсь. в txt получаю результат такой
"L53 251.1590 43.4460 0"
"L51 245.6590 37.4460 0"
"C351 184.3590 21.3460 180"

процедуру немного ковырнул

(defun point_coord ()
(setq name_point (getstring T "Name point: "))
(setq deg (getstring T "Degree?"))
(setq coord_x (nth 1 (assoc 10 (entget id_prim))))
(setq coord_y (nth 2 (assoc 10 (entget id_prim))))
(setq coord_z (nth 3 (assoc 10 (entget id_prim))))
(setq coord_xyz (strcat name_point " " (rtos coord_x) " " (rtos coord_y) " " deg))
(print coord_xyz id_file)
) ; end defun point_coord

[superkot007]

Сообщение от KSI В текстовый файл координаты X,Y,Z Код: [Выделить все] ;; For AutoCAD R13, R14, R15 ;; Координаты вершин 3DPolyline, LwPolyline и Point в текстовый файл. ;; (defun C:FCOORD () (defun point_coord () (setq name_point (getstring T "Name point: ")) (setq coord_x (nth 1 (assoc 10 (entget id_prim)))) (setq coord_y (nth 2 (assoc 10 (entget id_prim)))) (setq coord_z (nth 3 (assoc 10 (entget id_prim)))) (setq coord_xyz (strcat name_point " x=" (rtos coord_x) " y=" (rtos coord_y) " z=" (rtos coord_z))) (print coord_xyz id_file) ) ; end defun point_coord (defun polyline_coord () (setq name_pline (getstring T "Name polyline: ")) (print name_pline id_file) (while (/= "SEQEND" (cdr (assoc 0 (entget (entnext id_prim))))) (setq id_prim (entnext id_prim)) (setq coord_x (nth 1 (assoc 10 (entget id_prim)))) (setq coord_y (nth 2 (assoc 10 (entget id_prim)))) (setq coord_z (nth 3 (assoc 10 (entget id_prim)))) (setq coord_xyz (strcat "x=" (rtos coord_x) " y=" (rtos coord_y) " z=" (rtos coord_z))) (print coord_xyz id_file) ) (print " " id_file) ) ; end defun polyline_coord (defun lwpolyline_coord () (setq name_pline (getstring T "Name polyline: ")) (print name_pline id_file) (setq vert_kol (cdr (assoc 90 (entget id_prim)))) (setq coord_z (cdr (assoc 38 (entget id_prim)))) (setq f_vert (assoc 10 (entget id_prim))) (setq sp_vert (member f_vert (entget id_prim))) (setq i 1) (while (<= i vert_kol) (setq coord_x (nth 1 (assoc 10 sp_vert))) (setq coord_y (nth 2 (assoc 10 sp_vert))) (setq coord_xyz (strcat "x=" (rtos coord_x) " y=" (rtos coord_y) " z=" (rtos coord_z))) (print coord_xyz id_file) (setq sp_vert (cddr (cddr sp_vert))) (setq i (+ i 1)) ) (print " " id_file) ) ; end defun lwpolyline_coord (setq id_prim (car (entsel))) (while (= id_prim nil) (setq id_prim (car (entsel))) ) (setq id_file (open (getfiled "Select Text File" "C:/" "txt" 1) "a")) (while (/= id_prim nil) (if (= "POINT" (cdr (assoc 0 (entget id_prim)))) (point_coord)) (if (= "POLYLINE" (cdr (assoc 0 (entget id_prim)))) (polyline_coord)) (if (= "LWPOLYLINE" (cdr (assoc 0 (entget id_prim)))) (lwpolyline_coord)) (setq id_prim (car (entsel))) ) (close id_file) )

Добрый вечер!
Помогите, пожалуйста модифицировать данный лисп, чтобы вместо имя точки, линии, полилинии подхватывалось по имени слоя.
вопрос неактуален

[AnnaMokhireva]

Благодарю!!!!!