Определение координат

Определение координат · 14.10.2005, 14:05

Подскажите пожалуйста название команды определяющей координаты на ген. плане, для построения плана сетей трубопроводов?

Apelsinov · 14.10.2005, 14:26

координаты указанной точки - команда _.ID
Хотя не понятно как это поможет вам в построении плана сетей трубопроводов.

MIP · 14.10.2005, 14:47

>>Ирма
Дополняя пост Apelsinov!

Цитата:

для построения плана сетей трубопроводов

Нужно не определять, а вводить координаты вершин при построении сети, а подсказку по координатам можно увидеть в "лотке" окна Автокада (см. картинку). Главное чтобы, система координат была выставлена правильно, тогда и координаты в Автокаде можно будет наблюдать и вводить реальные, т.е. соответствующие генплану. Команда _.ID позволяет только получить координаты точек (вершин) уже построенных (вычерченых) в чертеже объектов, в том числе и сетей или просто любой указанной точки.
Или Я Вас не правильно понял Ирма?
[ATTACH]1129287203.jpg[/ATTACH]

Ирма · 14.10.2005, 15:27

Я имею в виду команду которая показывает координату точки на г.п, соответствующую координатной сетке данного ген.плана.

Ирма · 14.10.2005, 15:31

Я смогу выставить координаты на плане сети трубопровода ( на г.п), на углах поворота итд...

MIP · 14.10.2005, 16:44

Цитата:

Я имею в виду команду которая показывает координату точки на г.п, соответствующую координатной сетке данного ген.плана.

1. Нужно знать к какому типу относится сетка координат Вашего генплана. Для генпланов обычно применяется четыре типа подписывания (получения) и соответственно ввода координат:
а) классический - «Б» и «А»,
б) «западный» - «X= » и «Y= »,
в) еще один «западный», но с «перевернутыми» координатами,
г) «Пользовательский» (например, X1= и Y1=).
2. Следуя из первого без специального софта или утилит на Лиспе получить коррдинаты по типам "а", "в", и "г" невозможно, т.к. чистый автокад этого не поддерживает.
3. Если сетка разбита по типу "б", т.е кординаты "X" и "Y" то достаточно создать в Автокаде пользовательскую систему координат с началом совпадающим сначалом системы координат генплана и повернутой по осям согласно направлению разбивики координатной сетки генплана. Создание пользовательской системы координат в этом случае лучше произвести по трем точкам .

Цитата:

3точки
Задание новой ПСК с помощью начальной точки и положительных направлений осей X и Y. Направление оси Z определяется по правилу правой руки. Подробнее о правиле правой руки см. раздел Мировая и пользовательская системы координат в 3М пространстве документа Руководство пользователя) Данный способ задания ПСК является универсальным.
Новое начало координат <0,0,0>: Указать точку (1)
Точка на положительном луче оси X <текущая>: Указать точку (2)
Точка на положительном луче оси Y в плоскости XY ПСК <текущая>: Указать точку (3)
Первая введенная точка считается точкой начала новой ПСК. Вторая точка задает положительное направление оси X. Третья точка задает положительное направление оси Y. Таким образом, указанные точки определяют положительную полуплоскость XY ПСК.

После этого Вы сможете получать и вводить координаты согласно координатам сетки генплана. Как получить координаты точки описано в предыдущих постах, ввод координат при отрисовке производиться в командной строке или используя объектную привязку.

Ирма · 14.10.2005, 17:24

Ладно, объясню всю ситуацию. На старом компе была выставленна команда, которую я просто нажимала и показывала точку на плане координата которой мне необходима. Компу было все равно к какому типу относится координ. сетка. Были разные планы в основном в классическом, или перевернутом виде. Но я просто ее нажимала и все без каких либо заморочек. Ох уж этот автоCAD :roll:

MIP · 14.10.2005, 17:49

Теперь все понятно! У Вас на кнопке "висела" не стандартная команда Автокада а специально кем-то разработанная, которая позволяла получать координаты в нужном Вам виде. Вам просто нужно спросить у того кто настраивал Вам старую машину как перенсти настройки Автокада с нее на новую машину, о переносе настроек Автокада см. здесь . http://dwg.ru/forum/viewtopic.php?t=4973
http://dwg.ru/forum/viewtopic.php?t=3989
http://dwg.ru/forum/viewtopic.php?t=3989
http://dwg.ru/forum/viewtopic.php?t=295
еще рекоменду поискать по сайту, о переносе настроек тем было много.

Ирма · 14.10.2005, 18:00

Видимо это была экспресс команда! У меня нет возможности посоветоваться с челом настраившим мой комп. И как теперь быть, откуда можно взять эту команду?

Barbi · 15.10.2005, 21:48

Цитата:

И как теперь быть, откуда можно взять эту команду?

Теперь только у меня. Приезжайте, все координатки проставим. :wink:
[ATTACH]1129398488.gif[/ATTACH]

{Smirnoff} · 16.10.2005, 02:06

>Ирма

Ну такого типа как у Barbi состряпать несложно:

Код:

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

(defun c:ordi(/ fPt oldEcho *error*)

  (defun *error*(msg)
      (setvar "CMDECHO" oldEcho)
    (princ)
    ); end of *error*
  
  (setq oldEcho(getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (if
    (setq fPt(getpoint "\nSpecify point >> "))
    (progn
      (command "_.dimordinate" fPt "_t"
	       (strcat
		 "X=" (rtos(car fPt)2(getvar "DIMDEC"))
		 "\\X"
		 "Y=" (rtos(cadr fPt)2(getvar "DIMDEC"))
		 ); end strcat
	       pause
	       ); end command
      (setvar "CMDECHO" oldEcho)
      ); end progn
    ); end if
  (princ)
  ); end of c:ordi

[ATTACH]1129413993.dwg[/ATTACH]

Только у неё очевидно на основе _LEADER сделано или просто линии и текст, а я использовал _DIMORDINATE c текстом в оверрайде.

ShaggyDoc · 16.10.2005, 09:03

В такой простенькой программе самое сложное - учитывать, что "Х=" или "Y=" должно для конкретного населенного пункта проставляться с учетом направления осей координат местной системы координат.

Обычно в гедодезии осью X называется ось, направленная на север. Но не всегда. В некоторых городах буквой X обозначают ось, направленную на восток.

В момент работы программа должна знать какая именно ось сейчас называется Х. Ну и ввод точки нужно зациклить, так как обычно надо указывать много точек.

Огурец · 16.10.2005, 09:44

Уважаемые коллеги!
Между прочем, в нашем родном ACADе осьY мировой системы координат направлена на север, в чём легко убедиться, устанавливая в рендере Distant Light.

bernata · 16.10.2005, 11:10

Уважаемые господа!

По работе иногда приходится проставить в течении часа координаты более 1000 точек на генплане. Считаю что оптимальный вариант для решения подобной задачи и многих других геодезических, картографических и генплановских задач - использовать приложение к ACad`у "EZYsurf". Есть конечно свои трудности в эксплуатации.
Но лучше выходной потерять и разобраться, а потом за 5 минут всё сделать.
Приложение это старое но почему-то о нём совсем мало кто знает.
Небуду описывать всех прелестей программы, сам ещё не до конца разобрался.
http://dwg.ru/dwl/index.php?id=394
С удовольствием помогу всем заинтересовавшимся.

P/S Спасибо огромное господину Smirnoff. Всё гениальное просто.

bernata · 16.10.2005, 12:06

"Позиция не найдена"
!!!
"Размещение материалов коммерческой направленности (демо-, триал версии) допускается только на платной основе"
Теперь понятно почему про EZYsurf никто ничего не пишет.
Теперь остается только сослаться на

http://www.ezysurf.com/

{Smirnoff} · 16.10.2005, 12:41

Я немного усовершенствовал. По совету ShaggyDoc ввел опцию для "неправильных" городов (наверное г. Засранск

) и сделал указание точек в цикле для ускорения процесса. Выход по правой кнопке мыши:

Код:

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

(defun c:ordi(/ fPt oldEcho oldDir Xord Yord *error*)

  (defun *error*(msg)
      (setvar "CMDECHO" oldEcho)
    (princ)
    ); end of *error*
  
  (if(not ordi:Dir)(setq ordi:Dir "Nord"))
  (setq oldEcho(getvar "CMDECHO")
	oldDir ordi:Dir)
  (initget "East Nord")
  (setq ordi:Dir(getkword
		  (strcat
		    "\nSpecify X-axis direction [Nord/East] <"ordi:Dir"> :"))
	fPt T
	); end setq
  (if(null ordi:Dir)(setq ordi:Dir oldDir))
  (setvar "CMDECHO" 0)
  (while fPt
  (if
    (setq fPt(getpoint "\nSpecify point or Right Click to Quit >> "))
    (progn
      (if(= ordi:Dir "Nord")
	 (setq Xord(rtos(car fPt)2(getvar "DIMDEC"))
	       Yord(rtos(cadr fPt)2(getvar "DIMDEC"))
	       ); end setq
	 (setq Xord(rtos(cadr fPt)2(getvar "DIMDEC"))
	       Yord(rtos(car fPt)2(getvar "DIMDEC"))
	       ); end setq
	); end if
      (command "_.dimordinate" fPt "_t"
	       (strcat
		 "X=" Xord "\\X" "Y=" Yord
		 ); end strcat
	       pause
	       ); end command
      ); end progn
    ); end if
    ); end while
  (setvar "CMDECHO" oldEcho)
  (princ)
  ); end of c:ordi

У меня сейчас жена с генпланами мучается в Microstation 7.1. Отрисовывает их в файле со снятыми через GPS точками по наброскам топографов на листочках A4. Вот это действительно ж**а. В этом Microstation 7.1 чертить - лучше повеситься, столько лишних телодвижений по сравнению с AutoCAD. :?

ShaggyDoc · 17.10.2005, 07:01

Цитата:

Сообщение от {Smirnoff}

ввел опцию для "неправильных" городов (наверное г. Засранск

)

"Неправильных" населенных пунктов много. Например, Ленинград (как в С.-П незнаю), Иркутск.

Вот исходник программы, используемой Barbi. Напрямую применить нельзя - используются библиотечные функции. Привожу для примера концептуального подхода.

Код:

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

(defun START
             (/ start_pnt txt_x txt_y x x_north y)
  (ru-app-begin)
  (setq x_north (ru-conv-str-to-bool
                  (ru-ini-read-default NIL "Setup" "X_axis_North" "1")
                ) ;_ end of ru-conv-str-to-bool
  ) ;_ end of setq
  (while
    (setq start_pnt
           (ru-get-point-or-exit "Укажи точку для выноски координат" nil)
    ) ;_ end of setq
     (setq x (rtos (ru-conv-unit-to-meter (car start_pnt)) 2 2)
           y (rtos (ru-conv-unit-to-meter (cadr start_pnt)) 2 2)
     ) ;_ end of setq
     (if x_north
       (setq txt_x (strcat "X=" y)
             txt_y (strcat "Y=" x)
       ) ;_ end of setq
       (setq txt_y (strcat "Y=" y)
             txt_x (strcat "X=" x)
       ) ;_ end of setq
     ) ;_ end of if
     (ru-draw-leader-and-two-string txt_x txt_y start_pnt)
  ) ;_ end of While
  (ru-app-end)
  (princ)
) ;_ end of defun
(START)

Здесь (ru-app-begin) и (ru-app-end) запоминают и воссстанавливают окружение. При этом в каждой программе не переопределяется *error* не запоминаются переменные и пр.)

Направление осей берется из INI-файла. Есть и глобальный INI, но в каталоге может быть свой INI с настройками, отличающимися от глобальных. На одном компьютере могут разрабатываться проекты для разных городов, могут быть и разные настройки, в частности эта.

Постоянный запрос направления через getkword быстро "достанет".

ru-get-point-or-exit позволяет ввести точку с опцией выхода по умолчанию. Нештатный выход не допустит. Координаты всегда возвращаются в WCS. Для этой программы это особенно важно, так как чертить топографию и все на топооснове нужно именно в мировой системе.

ru-conv-unit-to-meter - конвертирует текущие единицы в метры. Рисунок может быть в разных единицах, координаты в геодезии - в метрах.

ru-draw-leader-and-two-string - рисует выноску и две строки. При этом строки разворачиваются в правильном направлении, полочка делается нужной длины, устанавливаются требуемые веса линий и текста и прочее.

Leader и размер не используются из-за непредсказуемости их поведения и влияния настроек стилей. В данной программе выноска и надписи должны быть нарисованы точно там, где указано. Чертежи генплана и сетей бывают очень насыщенными и всякие прыжки и вольности недопустимы.

Вот такие маленькие программки (как бы они не были написаны) очень эффективны. Определение координат точек по нарисованному плану на бумаге всегда было сложным делом и им занимались самые подготовленные геодезисты и генпланисты. А в программе - два клика мышкой.

Есть и вариант с указанием на объект и построением ведомости координат в табличной форме - сразу определяются координаты, длины сегментов, азимуты, площадь
[ATTACH]1129518069.gif[/ATTACH]

Ирма · 17.10.2005, 09:28

Всем большое спасибо.

bernata · 23.10.2005, 10:25

EZYsurf & EZYextra (LISP collection)

cadware1@yandex.ru
password: help

Alex79 · 03.11.2010, 06:50

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

Disney · 03.11.2010, 10:26

Цитата:

Сообщение от Alex79

Можно ли сделать так чтобы указывать из какой системы брать координаты но вставлять текст с координатами в мировой системе?

Не совсем понятно, устанавливай любую систему координат, а уже в ней проставляй координаты.

[IMG]http://s002.***********/i200/1011/d5/206eefc4d757.gif[/IMG]

Код:

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

(defun c:geo_koord_leader (/ pod_z koord y x z xyz)
  (vl-load-com)
  (setvar "DIMZIN" 0)
  (initget "Да Нет Lf Ytn _ Y N Y N")
  (setq
    pod_z (getkword "\nПодписывать Z [Да/Нет] <Нет>? : ")
  )
  (while (and
	   (setq koord (getpoint "\nТочка <Выход>"))
	 )
    (setq
      y	(strcat "Y=" (rtos (nth 0 koord) 2 ))
      x	(strcat "X=" (rtos (nth 1 koord) 2 ))
      z	(if
	  (= pod_z "Y")
	   (strcat "Z=" (rtos (nth 2 koord) 2 ))
	   ""
	)
    )
    (VL-cmdf "_leader" "none" koord pause "" x y z "")
  )
)
(princ "Вызов фукции: geo_koord_leader")

Код:

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

(defun c:math_koord_leader (/ pod_z koord y x z xyz)
  (vl-load-com)
  (setvar "DIMZIN" 0)
  (initget "Да Нет Lf Ytn _ Y N Y N")
  (setq
    pod_z (getkword "\nПодписывать Z [Да/Нет] <Нет>? : ")
  )
  (while (and
	   (setq koord (getpoint "\nТочка <Выход>"))
	 )
    (setq
      x	(strcat "X=" (rtos (nth 0 koord) 2))
      y	(strcat "Y=" (rtos (nth 1 koord) 2))
      z	(if
	  (= pod_z "Y")
	   (strcat "Z=" (rtos (nth 2 koord) 2))
	   ""
	)
    )
    (VL-cmdf "_leader" "none" koord pause "" x y z "")
  )
)
(princ "Вызов фукции: math_koord_leader")

PSG · 22.03.2011, 13:48

А можно усовершенствовать программку geo_koord_leader - Вывод не абсолютных координат, а относительных с вводом базовой точки (с относительными координатами)?

Disney · 22.03.2011, 16:43

PSG, в моём предыдущем посте посмотри внимательно спойлер смотреть

PSG · 23.03.2011, 09:38

Это все понятно, но если необходимая точка (начало координат) на чертеже имеет отличные от 0 координаты (например Х=6000, У=9000), хотелось бы чтобы была возможность ввода нужных координат точки, относительно которых определялись бы остальные координаты точек.

Disney · 23.03.2011, 10:47

Цитата:

Сообщение от PSG

Это все понятно

видимо не до конца...

Цитата:

Сообщение от PSG

если необходимая точка (начало координат) на чертеже имеет отличные от 0 координаты (например Х=6000, У=9000)

Два раза устанавливаем начало ПСК:

первый раз, тыкаем там где будет Х=6000, У=9000, соответственно там становиться X=0, Y=0
второй раз, вводим где будет начало координат в ручную, соответственно вводим точку -6000,-9000

PSG · 23.03.2011, 11:29

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

Disney · 23.03.2011, 14:14

Цитата:

Сообщение от PSG

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

Легко:

Код:

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

 (defun c:geo_koord_leader
       (/ pod_z dim_fac koord y x z xyz)
  (vl-load-com)
  (setvar "DIMZIN" 0)
  (initget "Да Нет Lf Ytn _ Y N Y N")
  (setq
    pod_z   (getkword
	      "\nПодписывать Z [Да/Нет] <Нет>? : "
	    )
    dim_fac (getvar 'DIMLFAC)

  )
  (while
    (and
      (setq koord (getpoint "\nТочка <Выход>"))
    )
     (setq
       y (strcat "\nY="
		 (rtos
		   (* (car koord) dim_fac)
		   2
		 )
	 )
       x (strcat "\nX="
		 (rtos (* (cadr koord) dim_fac) 2)
	 )
       z (if
	   (= pod_z "Y")
	    (strcat
	      "\nZ="
	      (rtos (* (caddr koord) dim_fac) 2)
	    )
	    ""
	 )
     )
     (VL-cmdf "_leader"
	      "none"
	      koord
	      pause
	      ""
	      (strcat x y z)
	      ""
     )
  )
)
(princ "Вызов фукции: geo_koord_leader")

PSG · 23.03.2011, 14:53

Возможно я не правильно выражаю свои мысли, но это не то что хотелось бы, может рисунок поможет

Disney · 23.03.2011, 18:31

Цитата:

Сообщение от PSG

Возможно я не правильно выражаю свои мысли, но это не то что хотелось бы

Третий закон Грида: "Машинная программа выполняет то, что вы ей приказали делать, а не то, что бы вы хотели, чтобы она делала."

Установи текущим нужный размерный стиль.

PSG · 24.03.2011, 10:07

Я устанавливаю размерный стиль, но все равно ... Может я не правильно создаю сам размерный стиль?

Disney · 24.03.2011, 16:19

Цитата:

Сообщение от PSG

Может я не правильно создаю сам размерный стиль?

Нет, вроде всё правильно.

Цитата:

Сообщение от PSG

но все равно ...

А ты точно код из поста #27 используешь?

PSG · 24.03.2011, 17:02

Спасибо большое, Disney, за участие. У меня все получилось, решение - задаю начальные координаты в два раза больше, чем нужно и все получается.

Dulitman · 05.05.2011, 14:30

О! Вроде бы нашёл, что искал

Правда у меня координата X и Y перепутаны

А их надо вынести X=значение [подчёркивание] Y=значение. Но самое главное, как коды вводить в AutoCAD? Подкиньте пожалуйста инструкцию

PSG · 05.05.2011, 14:46

Инструкции к сожалению нет, в размерном стиле выноску делаешь по своему усмотрению, при вводе начальных координат поменяй Х, Y местами

Dulitman · 05.05.2011, 15:10

Такс разобрался как данные вводить (создаёшь файл *.lsp и т.д.)

Вообщем вот этот код допустим

Код:

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

 (defun c:geo_koord_leader (/ pod_z koord y x z xyz)
  (vl-load-com)
  (setvar "DIMZIN" 0)
  (initget "Да Нет Lf Ytn _ Y N Y N")
  (setq
    pod_z (getkword "\nПодписывать Z [Да/Нет] <Нет>? : ")
  )
  (while (and
	   (setq koord (getpoint "\nТочка <Выход>"))
	 )
    (setq
      y	(strcat "Y=" (rtos (nth 0 koord) 2 ))
      x	(strcat "X=" (rtos (nth 1 koord) 2 ))
      z	(if
	  (= pod_z "Y")
	   (strcat "Z=" (rtos (nth 2 koord) 2 ))
	   ""
	)
    )
    (VL-cmdf "_leader" "none" koord pause "" x y z "")
  )
)
(princ "Вызов фукции: geo_koord_leader")

Как значения чертой разделить? + округлить значения координат до двух знаков после запятой? А ещё AutoCAD 2004 в котором я работаю

Ау! Кто-нибудь!!!

Disney · 06.05.2011, 08:06

Цитата:

Сообщение от Dulitman

Как значения чертой разделить?

К сожалению ни как, точнее у меня не получилось, либо вместо выноски использовать мультивыноску, но в 2004, её кажись не было.

Цитата:

Сообщение от Dulitman

округлить значения координат до двух знаков после запятой?

Установи требуемую тебе точность в Диалоговом окне "Единицы чертежа", и заодно проверь системную переменную DIMZIN, отвечающею, за подавление нулей в значениях, заданных в основных единицах измерения.

Dulitman · 06.05.2011, 10:01

Большое спасибо!!! Округляет отлично

Только вот не подчёркивает сцуко, ни снизу ни по середине

Grigarash · 25.01.2012, 07:35

Отличная вещь
а можно ли тепер переделать чтобы координаты писались на МУЛЬТИВЫНОСКЕ

Нефтепроводчик · 27.01.2012, 01:16

Grigarash, посмотри в этой теме. Я как раз делал на основе мультивыносок.

Grigarash · 30.01.2012, 01:51

и последнее пожелание:
Хотелось бы чтоб в этом коде еще был и запрос на "МЕНЯТЬ X и и Y"

Нефтепроводчик · 30.01.2012, 11:24

Цитата:

Сообщение от Grigarash

и последнее пожелание:
Хотелось бы чтоб в этом коде еще был и запрос на "МЕНЯТЬ X и и Y"

В программе можно самому задать нужные подписи координат. Перед вводом второй точки выбрать: Подписи -> Задать -> ... И ввести Х и У как надо.
Хотя в целом не представляет особого труда добавить помимо уже существующих АБ,NE, XY еще и тип YX.
Строительные координаты

timoshetc · 24.08.2012, 11:35

у меня не округляет! в чем м.б. ошибка??

VVA · 26.08.2012, 14:17

Геодезические координаты на мультивыноски, Подписывает геодезические координаты XY, Z по желанию
координаты в мультивыноске
Пожалуйста, дополните готовый LISP
Как получить геодезическую таблицу?
координаты

baaba · 26.08.2012, 16:29

Цитата:

Сообщение от Ирма

Подскажите пожалуйста название команды определяющей координаты на ген. плане, для построения плана сетей трубопроводов?

http://forum.dwg.ru/showpost.php?p=463675&postcount=18

boretskiy.a · 27.02.2014, 17:09

Возможно ли вместо текста привязать блок "piket" к любой точке линии с автоматичесой нумерацией пикетов (атрибут блока NN), и простановкой высоты Z (атрибут блока Н). Если поможете, заранее благодарен.

14.10.2005, 14:05	1 \|	#1
Определение координат Ирма Инженер Moscow Регистрация: 14.10.2005 Сообщений: 77 Подскажите пожалуйста название команды определяющей координаты на ген. плане, для построения плана сетей трубопроводов?
Просмотров: 64222