Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > как считать координаты окружностей

как считать координаты окружностей

Ответ
Поиск в этой теме
Непрочитано 15.11.2012, 15:45 #1
как считать координаты окружностей
ua3rad
 
Регистрация: 15.11.2012
Сообщений: 16

Всем добрый день!!! Имеется проблема, которую не могу решить. Есть чертеж в котором много окружностей разного диаметра. Мне надо считать центры окружностей и их диаметры. программу буду писать на delphi
Просмотров: 4369
 
Непрочитано 15.11.2012, 15:58
#2
Novich


 
Регистрация: 29.09.2011
Сообщений: 249


А в чем проблема то?
Novich вне форума  
 
Автор темы   Непрочитано 15.11.2012, 16:02
#3
ua3rad


 
Регистрация: 15.11.2012
Сообщений: 16


Как это сделать? С чего начать? Отверстий может быть больше 1000. Решение моей проблемы есть или нет

Последний раз редактировалось ua3rad, 15.11.2012 в 16:11.
ua3rad вне форума  
 
Непрочитано 15.11.2012, 16:48
#4
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от ua3rad Посмотреть сообщение
Как это сделать?
для ночала создайте новый проект в дельфи
gomer вне форума  
 
Непрочитано 15.11.2012, 16:58
#5
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,840


С изучения объектной модели автокада (есть в справке).
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Непрочитано 15.11.2012, 16:58
#6
proteirei


 
Регистрация: 17.04.2008
Сообщений: 154


Не надо делать с помощью дельфи то, что может делать сам автокад.
Сделайте извлечение данных из чертежа по кругам, выберите в итоговой таблице для вывода в результаты координаты Х, У и диаметр (или радиус).
На выхлопе табличная форма, которую можно скинуть сразу в ексель, в четреж, куда угодно и проработать с ней любые нужные вещи.
proteirei вне форума  
 
Непрочитано 15.11.2012, 17:52
#7
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Команда _DATAEXTRACTION не подойдет?
Олег (jr.) вне форума  
 
Автор темы   Непрочитано 15.11.2012, 18:10
#8
ua3rad


 
Регистрация: 15.11.2012
Сообщений: 16


А как сделать извлечение данных из чертежа по кругам
ua3rad вне форума  
 
Непрочитано 15.11.2012, 18:24
#9
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Набери в командной строке _DATAEXTRACTION
и следуй подсказкам чего еще не ясно?
Олег (jr.) вне форума  
 
Автор темы   Непрочитано 15.11.2012, 19:07
#10
ua3rad


 
Регистрация: 15.11.2012
Сообщений: 16


Все понял
ua3rad вне форума  
 
Непрочитано 15.11.2012, 19:23
#11
Олег (jr.)

специалист по околачиванию грушевых деревьев
 
Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813


Попробуй лиспом
Код:
[Выделить все]
(defun dxf (key alist)
  (cdr (assoc key alist))
  )

(defun C:CDXE (/ date entdata csvdata file fname)
;; fixo () 2012 

(setq csvdata nil)
(command "_zoom" "_e")
(setq entdata
       (mapcar 'entget
	       (vl-remove-if
		 'listp
		 (mapcar 'cadr
			 (ssnamex (ssget "_X"
					 (list
					   (cons -4 "<and")
					   (cons 0 "CIRCLE")
					   (cons 410 (getvar 'ctab))
					   (cons -4 "and>")
					   )
					 )
				  )
			 )
		 )
	       )
      )

 
  (setq	csvdata	(mapcar	'(lambda (y)
			   (append (mapcar 'vl-princ-to-string (car y))
				   (list (vl-princ-to-string (cadr y)))))
			(mapcar	'(lambda (x)
				   (list (dxf 10 x) (* 2 (dxf 40 x))))
				entdata)))

  
  (setq csvdata (reverse csvdata))
  
  (if csvdata
    (progn
      ;; составляем имя файла с указанием времени (для удобства пользователя при поиске файла)
  (setq date (menucmd "M=$(edtime,$(getvar,date),MO_DD_YY_HH_MM)"));; формат времени с подчеркиванием в виде разделителя
  
  (setq fname (strcat (getvar "dwgprefix") (strcat "Circles-" date ".csv")));; можно заменить на ".txt"
  
   (if (setq file (open fname "w"))
        (progn
            
            (foreach line csvdata
	      ;; разделитель - пробел :
                (write-line (strcat (car line) "\t"(cadr line) "\t"(caddr line) "\t"(last line)) file)
            )
            (close file)
           )
        )
  )
    )
  (if fname (alert (strcat "Данные сохранены в файле: \n" fname)))
  
 (command "_zoom" "_p")
  (princ)
  )
(princ "\n\t\t---   Для записи окружностей в файл введите: CDXE   ---")
(prin1)
Олег (jr.) вне форума  
 
Автор темы   Непрочитано 16.11.2012, 08:47
#12
ua3rad


 
Регистрация: 15.11.2012
Сообщений: 16


а как создавать лисп и с ним работать. Я этим никогда не пользовался.
мне нужно получить например в текстовом файле следующее:

круг (пробел) координатаХ,координатаУ (пробел) диаметр указываем диаметр

Нужно написать для бабулек, которые не уходят на пенсию

Последний раз редактировалось ua3rad, 16.11.2012 в 13:57.
ua3rad вне форума  
 
Автор темы   Непрочитано 19.11.2012, 09:59
#13
ua3rad


 
Регистрация: 15.11.2012
Сообщений: 16


Олег, у меня к Вам вопрос?
В Вашем лиспе есть строка (strcat "\X" (car line) "\Y" (cadr line) "\D" (last line)) (чуть-чуть переделал)
в ней записано:
Х50.0Y110.25D1.5
X10.25Y20.0D1.5
X30.0Y30.0D1.6

мне нужно
D1.5
Х5000Y11025
X1025Y200
D1.6
X3000Y3000
как это сделать? Может в лисп можно вставлять вставки на pascal
ua3rad вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > как считать координаты окружностей

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как с заданным шагом снять координаты с полилиний в файл? griniland Программирование 8 22.01.2016 11:14
Округление координат, полилиний, центров окружностей, блоков MA2 Программирование 44 15.01.2015 15:19
На какую нагрузку по современным нормам надо считать трубы под авотодорогами 4 категории с щебёночным покрытием? МишаИнженер Поиск литературы, чертежей, моделей и прочих материалов 0 21.09.2012 06:33
Как перевести координаты Модели в координаты Листа? ===AAA=== Программирование 6 24.10.2007 22:09
Где хранятся координаты полки выноски ОТНОСИТЕЛЬНО ТЕКСТА? kp+ Программирование 2 31.07.2006 09:55