[Composter]

у меня есть список с точками ss2
((948.905 173.748 0.0) (948.905 182.268 0.0) (949.0 187.96 0.0) (970.424
174.941 0.0))
как построить линию через все точки, причем количество точек может быть гораздо больше чем 4?
пробовал (foreach p ss2 (command "._line" p)) не получается.

[Дима_]

Если командными методами то:
(apply 'command (append '("_pline") lst '("")))
где lst список точек.

[Sleekka]

Для построения линии достаточно 2 точек.

[dagget]

Скажите, а возможно импортировать в автокад таблицу с координатами из экселя и отстроить по ней точки автоматически?

[Sleekka]

Да - используя lisp, см. поиск.

[dagget]

Поясните. Что такое lisp и где искать конкретно.

[Sleekka]

autolisp - встроенный в автокад язык прикладного программирования, являющийся по-совместительству расширенными возможностями автокада, для advanced users, с помощью которого можно сделать то, что нельзя сделать штатными средствами автокада, другими словами можно практически все...
Искать на этом сайте и в google.ru

[Dulitman]

Сообщение от dagget Скажите, а возможно импортировать в автокад таблицу с координатами из экселя и отстроить по ней точки автоматически?

Сообщение от Sleekka Да - используя lisp, см. поиск.

Где искать или по какой фразе искать, т.к. просто так ничего не найти

[VVA]

Сообщение от Dulitman по какой фразе искать

Например по этой

Сообщение от Dulitman Где искать

например здесь

[Dulitman]

Сообщение от VVA Например по этой например здесь

Большое спасибо буду разбираться! Просто из Росреестра взял выписку, теперь надо на план наложить, там только XY, а Z везде 0 равен.

[kakt00z]

может и не проще но, по моему, красивее делать полилинии в таких случаях, причем ActiveX-ом
(просто мнение, ссылки не смотрел)

[Dulitman]

Сообщение от kakt00z может и не проще но, по моему, красивее делать полилинии в таких случаях, причем ActiveX-ом (просто мнение, ссылки не смотрел)

Я сейчас с Point Manager разбираюсь. Может кинете ссылку на ActiveX если там проще?

[Disney]

Dulitman, а у тебя исходные данные в каком виде\формате и что ты хочешь получить в конечном виде?
А про ActiveX, это не готовая программа для решения твоей задачи, а метод в программировании, это kakt00z с Дима_ о своем...

[Dulitman]

Сообщение от Disney Dulitman, а у тебя исходные данные в каком виде\формате и что ты хочешь получить в конечном виде? А про ActiveX, это не готовая программа для решения твоей задачи, а метод в программировании, это kakt00z с Дима_ о своем...

Вообщем исходные данные в формате PDF изначально, но я перевёл в doc, xls, txt вообщем в любой. Формат такой №___X___Y, правда координаты через запятую, а не точку представлены, наверное надо через точку каким то образом перебить, а лучше переделать (в Excel например), т.к. сейчас пробовал через Credo_DAT, так вот там как раз точки должны быть везде). А должен получиться контур (отрезками, полилинией без разницы) с подписями точек или без тоже вообщем-то не принципиально, но лучше конечно с подписями

Про точки и запятые я имел ввиду, что сейчас 12345,678, а надо 12345.678

[VVA]

выложи пример файла

Сообщение от Dulitman наверное надо через точку каким то образом перебить

в любом редакторе (том же блокноте) CTRL+H и далее по тексту

[Disney]

Ну вот, когда полностью разобрались, могу посоветовать свою программу Geo_Import , она понимает как txt так и csv(из Excel), в качестве разделителя вообще всё что угодно, и дробную часть понимает, хоть через .(точку), хоть через ,(запятую). Линии(отрезки) правда не строит, но полилинии умеет хоть обычную, хоть 3D.

[Dulitman]

Сообщение от Disney Ну вот, когда полностью разобрались, могу посоветовать свою программу Geo_Import , она понимает как txt так и csv(из Excel), в качестве разделителя вообще всё что угодно, и дробную часть понимает, хоть через .(точку), хоть через ,(запятую). Линии(отрезки) правда не строит, но полилинии умеет хоть обычную, хоть 3D.

Большое спасибо! (Да и вообще хочу ещё раз сказать СПАСИБО всем тем кто откликнулся и тут отписался). Ввёл координаты всё ок Только сначала подумал что программы выдаёт результат в геодезических координатах (так и есть), а мне надо в обычных (X и Y) местами поменять, но как оказалось и в выписке из Росреестра координаты геодезические (сравнил с картинкой/планом).

Сообщение от VVA выложи пример файла в любом редакторе (том же блокноте) CTRL+H и далее по тексту

Вообщем прикрепляю сам файл из Росреестра и выдержку из него в блокноте (я уже переделал её для программы товарища Disney). Файл txt выложил в формате lsp т.к. тут txt не прикрепляет.

[Олег (jr.)]

Под твою конкретную ситуацию можно попробовать
такой вариант

Код:

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

;;================================== <KADASTR.lsp> ================================;;

(defun C:KADASTR(/ ent fn fname i line pts texts tmp x)
  
(defun split  (txt sep)
  (if (not (eq sep txt))
    (if	(setq pos (vl-string-search sep txt 0))
      (cons (substr txt 1 pos)
	    (split (substr txt (+ pos 1 (strlen sep))) sep))
      (list txt)) )
  )

  
  (defun emake-pline (pts)
    (entmake
      (append (list (cons 0  "LWPOLYLINE")
		(cons 100  "AcDbEntity")
		(cons 100  "AcDbPolyline")
		(cons 90 (length pts))
		(cons 70  129))
              (mapcar '(lambda (pt)
			(cons 10 pt)) pts)
      )
    )
  )
  
(setq fname	(getfiled "---  Выбрать файл данных  ---:" (getvar "dwgprefix") "csv;txt" 4) )
(setq fn (open fname "R"))

(while (setq line (read-line fn))
  (setq tmp (split line "\t"))
  (setq pts (append pts (list tmp)))
  )
(close fn)

(setq pts (mapcar '(lambda(x)
		     (list (car x)(distof (vl-string-translate  "," "."(cadr x)) 2)
			   (distof (vl-string-translate  "," "."(last x))2)))
		  pts)
      )
(emake-pline (mapcar 'cdr pts))
(command "_zoom" "_OB" (entlast) "")
(setq texts (mapcar 'car pts))
(setq i -1)
(foreach pt pts
      (setq ent (entmakex
                  (list (cons 0 "TEXT")
                        (cons 10 (cdr pt))
                        (cons 40 2.0 );<-- высота текста
                        (cons 7 (getvar "TEXTSTYLE"))
                        (cons 1 (nth (setq i (1+ i)) texts))
                  )
                )
      )
  )
  (princ)
  )
(princ
  "\n\t\t---Команда на выполнение KADASTR\t---")
(prin1)

;;================================== </KADASTR.lsp> ================================;;

[Dulitman]

Сообщение от Олег (jr.) Под твою конкретную ситуацию можно попробовать такой вариант Код: [Выделить все] ;;================================== <KADASTR.lsp> ================================;; (defun C:KADASTR(/ ent fn fname i line pts texts tmp x) (defun split (txt sep) (if (not (eq sep txt)) (if (setq pos (vl-string-search sep txt 0)) (cons (substr txt 1 pos) (split (substr txt (+ pos 1 (strlen sep))) sep)) (list txt)) ) ) (defun emake-pline (pts) (entmake (append (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 90 (length pts)) (cons 70 129)) (mapcar '(lambda (pt) (cons 10 pt)) pts) ) ) ) (setq fname (getfiled "--- Выбрать файл данных ---:" (getvar "dwgprefix") "csv;txt" 4) ) (setq fn (open fname "R")) (while (setq line (read-line fn)) (setq tmp (split line "\t")) (setq pts (append pts (list tmp))) ) (close fn) (setq pts (mapcar '(lambda(x) (list (car x)(distof (vl-string-translate "," "."(cadr x)) 2) (distof (vl-string-translate "," "."(last x))2))) pts) ) (emake-pline (mapcar 'cdr pts)) (command "_zoom" "_OB" (entlast) "") (setq texts (mapcar 'car pts)) (setq i -1) (foreach pt pts (setq ent (entmakex (list (cons 0 "TEXT") (cons 10 (cdr pt)) (cons 40 2.0 );<-- высота текста (cons 7 (getvar "TEXTSTYLE")) (cons 1 (nth (setq i (1+ i)) texts)) ) ) ) ) (princ) ) (princ "\n\t\t---Команда на выполнение KADASTR\t---") (prin1) ;;================================== </KADASTR.lsp> ================================;;

Спасибо! Уже нанёс, но сейчас твой вариант буду тестить!

Всё работает! Ещё раз спасибо!