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

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

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

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"

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

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

	Реклама i