Координаты точек из чертежа в таблицу EXCEL

--Форум--Координаты точек из чертежа в таблицу EXCEL

Олег Ершов Профиль Дебютант Сообщений: 1Баллов: 1Регистрация: 22.05.2007	#1 22.05.2007 09:52:13 Имеется ряд точек на чертеже, можно ли вытащить в таблицу номера икоординаты эти точек
E-mail

sapr317 Профиль Завсегдатай Сообщений: 261Баллов: 261Регистрация: 08.11.2006	#2 22.05.2007 17:19:01 А под точками что подразумевается? Примитив Акада "точка" ? А номера точек задаются произвольно или в результате упорядочивания точек по какому-либо признаку?
E-mail

maks Гость	#3 19.08.2007 02:12:36 UUUUUUUU, PERVOE SHTO PRISHLO V BASHKU EXPORT esli atributy blokov 1.resuesh tochku POINT 2.sozdaesh atribut ATTDEF (invisible) naprimer name:1 3.Dlia poriadku sozdaesh iz nee blok BLOCK naprimer name:1 tak vse tocki naprimer name:2, 3, 4... 4.vydeliaesh , delaesh EXPORT v exel. vsio

Purple-Haze

Профиль

Дебютант

Сообщений: 7Баллов: 7Регистрация: 09.09.2007

15.09.2007 12:38:38

помоему разумнее лиспом вывести координаты.. скопировать их в Ексель и пять сек потом там обработать их немного и готово....
если так по блокам точек 100 делать свихнешься))))
--------------

{''Образование есть то, что остается после того, когда забывается все, чему нас учили...''}

E-mail

Чайник Гость	#5 23.10.2007 12:11:14 http://dwg.ru/f/showthread.php?t=14353 но у меня ничего не получается

sapr317

Профиль

Завсегдатай

Сообщений: 261Баллов: 261Регистрация: 08.11.2006

23.10.2007 16:03:06

Могу предложить код для записи меток и координат точек в текстовый файл.
(setq ss(ssget "_all" '((0 . "point")(8 . "Слой1"))
)
)
(setq fil(open "c:\\rez.txt" "w"))
(setq i 0)
(while (< i (sslength ss))
(setq ent (ssname ss i)
lst(entget ent)
num (cdr(assoc 5 lst))
x (nth 1(assoc 10 lst))
y(nth 2(assoc 10 lst))
i (1+ i)
)
(write-line (strcat num " "(rtos x 2 3) " " (rtos y 2 3)) fil)
)
(close fil)

Ну а этот ф-л без проблем откроется и в EXCELе

E-mail

Alt

Гость

23.10.2007 19:14:53

Может и есть такой вопрос, но долго искать:
мне приходится выгружать координаты нарисованных мышью полилиний с точностью 2 знака после запятой, всё получается-округляется (визуально!), НО если забить обратно (или в другое место) выгруженные координаты (2 знака после запятой) руками, то наблюдается некоторое искажение в длинах рёбер и что самое обидное в площадях. приходится пользоваться теми же экселевскими расчётами-формулами, и очень тяжко становится если надо внести изменения в чертёж, куча никому не нужной работы (выгрузил-рассчитал-вставил куда надо), подскажите может есть возможность заставить этого гада (AutoCAD) работать с действительной точностью а не с визуальной?

Алексей Романов

Гость

24.10.2007 06:22:53

Цитата
Alt пишет: мне приходится выгружать координаты нарисованных мышью полилиний с точностью 2 знака после запятой, всё получается-округляется (визуально!)

Каким способом выгружаете и куда? По умолчанию (обычно) Автокад отображает координаты с точностью 4 знака после запятой (в панели свойств и в меню Сервис -> Сведения -> Список). Если мало, поставьте 8 знаков, в меню Формат -> Единицы -> Точность...
Посмотрите координаты точек нарисованных полилиний в панели свойств, если ставить точки мышью без привязки (к объектам, узлам сетки и т.п.), то 2 знака не гарантированы...

rad

Профиль

Редактор

Сообщений: 772Баллов: 772Регистрация: 05.05.2004

24.10.2007 08:51:12

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

E-mail

max-cad

Профиль

Дебютант

Сообщений: 5Баллов: 5Регистрация: 17.10.2007

#10

26.10.2007 22:55:42

Код

(defun c:inexcel (/ *error*)
(vl-load-com)

  (defun *error* (msg)
    (if (= err-number 1)
      (princ)
      (progn
   (alert "У вас проблемы с Excel \nПри следуещем вызове будет открыт новый файл")
   (setq exl-obj nil)
   ))
    (princ)
    )

(if (null exl-obj)
(progn

(setq exl-obj (vlax-create-object "Excel.Application"))
(if (null exl-obj)
  (vlax-create-object "Excel.Application"))

(if (null exl-obj)
  (alert "У вас проблемы с Excel"))


(vlax-put-property exl-obj "Visible" T)
(setq exl-Workbooks(vlax-get-property exl-obj "Workbooks"))
(vlax-invoke-method exl-Workbooks "Add")
(setq i 0)
)
  
  )


(while t
(setq err-number 1)  
(setq point (getpoint "\nУкажите точку : "))

(setq x (nth 0 point)
      y (nth 1 point)
      z (nth 2 point))
  
(setq err-number 2)
(setq i (+ i 1))
(setq a1 (vlax-get-property exl-obj "Range"
      (strcat "A"
         (vl-prin1-to-string i))))

(setq i (+ i 1))      
(setq a2 (vlax-get-property exl-obj "Range"
      (strcat "A"
         (vl-prin1-to-string i))))
  
(setq i (+ i 1))  
(setq a3 (vlax-get-property exl-obj "Range"
      (strcat "A"
         (vl-prin1-to-string i))))
(vlax-put-property a1 "Value2" x)
(vlax-put-property a2 "Value2" y)
(vlax-put-property a3 "Value2" z)
  (setq i (+ i 1))
  )
)

команда inexcel
запускает excel и открывает новый файл
если файл с которым работали не ззакрыт то при повторном вызове продолжает заполнять точки дальше.

E-mail

Корзина