Как подгрузить точки из таблицы координат в AutoCAD? (Страница 1 из 2)

Если просто в Автокад, то я раньше пользовался командой script. Правда ексель нужно немножко подправить, дописать функцию сцепить, чтобы плучилось примерно такое:
point 1234.567,9876,543,100.01
point 1354.879,9889,111,100.28
и так далее.Выделяем из екселя каталог, вставляем в блокнот, сохраняем под расширением .scr. В акаде вызываем команду script, и указываем на этот файл.
Немного утомительно, но если пользоваться часто , то всё делаеться очень быстро. Можно прописать функции чтобы экспортировало и номера точек и текст отметок, всё в разных слоях, для удобства обработки и корректировки рисунка.Если подходит то вышлю готовый файл с описанием.

> Незнайка
Конечно проще, но я ещё прописал в екселе функцию послойного разделения отметок точек, их описания и нумерацию. Это было раньше, сейчас пользуюсь Civil'ом или другим сабжем.

Хорошая самоРеклама

> Александр И
Если установить ToolPack, то там тоже есть функция импорта-экспорта точек из текстового файла. Получаеться быстрее.
Utiliti->Point Export

> Игорь Богаченко
а это что не рулит из командной строки?
команды наверняка надо запускать с минусом " -la"

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

да. это простые точки имеющие высоту Z. мне надо снять информацию - XYZ каждой точки, что бы перенести в другую програму

спасибо. сделала из этого лисп. не работает. чего то ему не хватает...(

> kpblc
автокад не понимает команды pt2file. а может, это я чт то не правильно поняла и должна быть другая команда?

Прошу прощения, упустил несколько моментов.

(defun c:pt2file (/ adoc selset file_name file_handle item)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark adoc)
  (if (and (setq selset (ssget "_X" '((0 . "POINT"))))
       (setq file_name (getfiled "File" (vla-get-fullname adoc) "txt" 1))
       ) ;_ end of and
    (progn
      (setq file_handle (open file_name "w"))
      (while (and selset
          (> (sslength selset) 0)
          ) ;_ end of and
    (setq item (ssname selset 0))
    (ssdel item selset)
    (write-line
      (strcat "X : \t"
          (rtos (car (cdr (assoc 10 (entget item)))))
          "\tY : \t"
          (rtos (cadr (cdr (assoc 10 (entget item)))))
          "\tZ : \t"
          (rtos (caddr (cdr (assoc 10 (entget item)))))
          ) ;_ end of strcat
      file_handle
      ) ;_ end of write-line
    ) ;_ end of while
      (close file_handle)
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

> Dina
В Готовых программах есть кое-чего, ну и помимо того :)
На меня тут фыркнули (не администрация!) в свое время за "рекламу". Повтора не хочу, поэтому прошу в почту.
P.S. Молю!!! Ко мне - на ты, меня - один!

> Dina
Не, на такое я не способен. Это ж надо по точкам построить поверхность (а это Land, я так полагаю). А точки зрения (виды) поставить можно уже и штатными средствами када...