Сброс координаты Z

Сброс координаты Z · 25.10.2007, 21:24

Привет!

Есть чертёж. Система координат - стандартная (2-мерная). Однако, некоторые элементы выполнены в 3D - это видно, когда я перевожу чертёж в изометрическую проекцию.

Итак, внимание вопрос! Как мне сбросить все Z-координаты в 0 ?
Т.е. сделать чертёж абсолютно плоским.

Profan · 25.10.2007, 21:33

Внимание, неадекватный ответ. Сбросить монитор на пол со страшной силой. Все координаты сбросятся.
Команда "_flatten" из "Express Tools".

LeonidSN · 25.10.2007, 23:06

Цитата:

Сообщение от Jin X

Привет!

Есть чертёж. Система координат - стандартная (2-мерная). Однако, некоторые элементы выполнены в 3D - это видно, когда я перевожу чертёж в изометрическую проекцию.

Итак, внимание вопрос! Как мне сбросить все Z-координаты в 0 ?
Т.е. сделать чертёж абсолютно плоским.

Когда-то в молодости накатал такой вот код, опускает все объекты LINE на плоскость; впоследствие намеревался расширить ассортимент опускаемых элементов... Прошло время, забросил LISP но с удивлением обнаружил, что что этой скромной поделки в большинстве случаев хватает. Запускается, как вы поняли, командой: 2D.

Код:

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

(defun C:2D ( / en_dat en_set # z10 z11  en new_en_set ## a10 a11)
     (setq en_set (ssget "X" '((0 . "LINE"))))
     (setq # 0)
                        
              (repeat(sslength en_set)
                     (setq en (ssname en_set #))
                     (setq en_dat(entget en))
                     (setq z10(subst 0.0000 (car(reverse(assoc 10 en_dat)))(assoc 10 en_dat)))
                     (setq z11(subst 0.0000 (car(reverse(assoc 11 en_dat)))(assoc 11 en_dat)))
                     (setq en_dat(subst z10 (assoc 10 en_dat) en_dat))
                     (setq en_dat(subst z11 (assoc 11 en_dat) en_dat)) 	   
                     (entmod en_dat)
                     (setq #(+ 1 #))      
             );;repeat
        
      );;defun

P.s. Если лисповцы побьют меня ногами, не обижусь, но и пользоваться этой софтинкой не перестану.

Елпанов Евгений · 26.10.2007, 00:16

Цитата:

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

Если лисповцы побьют меня ногами, не обижусь, но и пользоваться этой софтинкой не перестану.

Что вы, как можно!

Я прекрасно понимаю вашу любовь к своему творчеству, но можно сделать побыстрее, покороче и универсальнее. Уже давно сделано...
Если интересно, покажу, а если нет, уважать ваш труд и любовь к своей программе не перестану!

Кулик Алексей aka kpblc · 26.10.2007, 00:26

Конечно, интересно. Если там обрабатываются не только отрезки. Мне любопытно решение для окружностей, дуг и полилиний с дуговыми сегментами, расположенными в ОСК, не параллельной мировой по оси Z

Profan · 26.10.2007, 06:19

Действительно интересно, если там можно обойтись без формата WMF.

4атланин · 26.10.2007, 07:16

Есть еще способ, правда он работает не совсем так как хотелось бы:
Выделяешь нужные объекты и лезишь в свойства. Там меняешь координату Z на ноль.
Вот однако если весь чертеж выделить, то в свойствах координать нет вообще

Valery Brelovsky · 26.10.2007, 07:23

В 2000 пользовался использовал CHANGE, а теперь через свойства. Для CHANGE проблематично 3D полилинии с разными Z. Через свойства это всё решается.

Кулик Алексей aka kpblc · 26.10.2007, 08:10

Не всегда. Если примитивы нарисованы в мировой системе координат (ну или в их системе координат ось oZ параллельная мировой), то тогда действительно, замена Z=0, как правило, решает проблему. В остальных случаях приходится извращаться.

Jоhnny · 26.10.2007, 09:28

Цитата:

Сообщение от 4атланин

Есть еще способ, правда он работает не совсем так как хотелось бы:
Выделяешь нужные объекты и лезишь в свойства. Там меняешь координату Z на ноль.
Вот однако если весь чертеж выделить, то в свойствах координать нет вообще

Насколько мне известно, такая вещь прокатывает только с полилиниями, выставляется значение Elevation , а когда ты весь чертёж выделял туда могли попасть и другие примитивы.

Profan · 26.10.2007, 09:31

Elevation (Уровень) - это нечто другое, нежели координата Z объекта.

Кулик Алексей aka kpblc · 26.10.2007, 09:31

Фи-гуш-ки!
Запускайте код

Код:

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

(entmakex '((0 . "LWPOLYLINE")
            (100 . "AcDbEntity")
            (67 . 0)
            (100 . "AcDbPolyline")
            (90 . 10)
            (70 . 1)
            (43 . 0.0)
            (38 . -119161.0)
            (39 . 0.0)
            (10 -47690.4 -97342.1)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (10 93270.9 13182.3)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (10 89815.2 147937.0)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (10 39200.8 60270.1)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (10 28600.0 234973.0)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (10 -10264.8 99642.3)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (10 -106740.0 229475.0)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (10 -144235.0 81150.8)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (10 -246826.0 174788.0)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (10 -218273.0 32333.5)
            (40 . 0.0)
            (41 . 0.0)
            (42 . 0.0)
            (210 0.774446 0.0 -0.63264)
            )
          ) ;_ end of entmakex

И пытайтесь "сплющить". Это еще тут нет дуговых сегментов...

Profan · 26.10.2007, 09:34

Цитата:

Фи-гуш-ки!

Это про что?

v_alex · 26.10.2007, 09:35

а точки привязки размеров можно переместить в координату 0? также интересуют объекты SPDS можно так же обнулить? а то было пару чертежиков... заново проставлял все размеры и спдсовские объекты...

Кулик Алексей aka kpblc · 26.10.2007, 09:38

> Profan : Это адресовалось Johnny. Сорри.
---
Добавлено:
> v_alex : Для обработки размеров надо менять в них группы DXF 10-15, кажется. Для объектов СПДС - зависит от версии и наличия самой SPDS-ки (Object Enabler спасал не всегда).
Поправочка: лично я такого еще никогда не делал и не представляю, как все это менять.

v_alex · 26.10.2007, 09:45

Цитата:

Сообщение от Кулик Алексей aka kpblc

лично я такого еще никогда не делал и не представляю, как все это менять.

слава богу чертежики были небольшие и по слоям было все нарисовано... а если бы все было в одном слое... то конечно самоубийственно заменить все объекты... к тому же чертеж мой был... просто когда от архитекторов чертеж получил, то непосмотрел что линии и объекты скачут по координате Z... сверху то все нормально смотрится... а заметил когда применял команды offset и линия ускакивала неизвестно куда, либо цепочка размеров глючила и упорно нехотела замыкаться... с полилиниями проблемы были... в общем я быстренько сделал flatten и перебил выноски с размерами...

Кулик Алексей aka kpblc · 26.10.2007, 10:06

flatten грешит не всегда правильной работой с вылетами и невосстановлением некоторых системных переменных, насколько я помню.

Jоhnny · 26.10.2007, 10:17

на счёт фи-гу-шки не понял :\ а про элев не знаю что это такое просто видел где-то на форуме тему, что-то типа "как всё обнулить" и решил сюда отписаться, думаю хуже не станет, или это вообще принципиально разные вещи?

v_alex · 26.10.2007, 11:25

Цитата:

Сообщение от Кулик Алексей aka kpblc

flatten грешит не всегда правильной работой с вылетами и невосстановлением некоторых системных переменных, насколько я помню.

может быть... глубоко копать мне некогда... что флаттен неподправил - пришлось ручками довести до ума... главное РЕЗУЛЬТАТ меня устроил...

VVA · 26.10.2007, 11:30

Про Z из Download'a
http://dwg.ru/dnl/25
http://dwg.ru/dnl/296

Горян · 26.10.2007, 13:37

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

Кулик Алексей aka kpblc · 26.10.2007, 13:54

Запусти код, который я приводил. И приведи полилинию в плоский вид. Для гарантии неудобства сделай вид слева, создай блок, в который поместить эту полилинию, перейти в мировую систему, вставить блок. Ну как?

Archidar · 13.12.2016, 13:10

Возобновим тему: У меня Команды: Flatten, Z0 и иже сними на мультивыноски не действуют. Как тут быть?

Хмурый · 13.12.2016, 13:14

Archidar, это, скорей всего, не мультивыноски, а выноски СПДС.
Следует воспользоваться программой LISP. Обнуление координаты Z (аналог FLATTEN )
PS можно было, просто, поиском по форуму воспользоваться.

Archidar · 13.12.2016, 13:18

Цитата:

Сообщение от Хмурый

Archidar, это, скорей всего, не мультивыноски, а выноски СПДС.

Не-е, ну спдс от штатной мультивыноски я отличить могу.
Да, Superflatten сработал. Но я перестраховался: вырезал неплоские объекты в другой файл (лиспы зачастую фаталят акад), и в новом, легком файле обнулился. Только Спдс-объекты не упали на ноль.

Хмурый · 13.12.2016, 13:25

создал мультивыноску, поднял её на 2000.
применил Flatten. получил набор объектов при нулевой Z.
отправил выноску с уровня 2000 в космос на расстояние 1e99 и вернул назад на расстояние минус1e99. Получил мультивыноски на уровне Z равном нулю.
PS можешь фрагмент проблемного файла приложить

Archidar · 13.12.2016, 13:51

Как я уже говорил: В большом файле Flatten фаталится, а в маленьком прокатило. Сейчас не проблема, но неудобство с таблицами. Как их так раскорячило- ума не приложу. повернуты вокруг оси Х на полградуса.

Roman3R · 13.12.2016, 14:53

Примочка VetCAD++ (http://www.vetcad.ru/index.php?optio...&id=2&Itemid=7) , Утилиты - Обнуление Z координаты

Хмурый · 13.12.2016, 15:00

Archidar, SuperFlatten используй из ссылки в #24

MorganSpb · 24.07.2017, 09:04

А вообще z координату можно выключить? черчу всё в плоском виде, но z координата постоянно появляется, из за этого перестают соединяться линии и т.п.

Bull · 24.07.2017, 09:45

Цитата:

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

черчу всё в плоском виде, но z координата постоянно появляется,

У меня такого не было ни разу. "Следите за пальчиками" (с)

Кулик Алексей aka kpblc · 24.07.2017, 09:54

Цитата:

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

А вообще z координату можно выключить? черчу всё в плоском виде, но z координата постоянно появляется, из за этого перестают соединяться линии и т.п.

osnapz меняй. Заодно следи за elevation

VVA · 24.07.2017, 09:57

Цитата:

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

А вообще z координату можно выключить?

OsnapZ + LISP. Обнуление координаты Z (аналог FLATTEN ) (пост 2 - ссылки на известные "утюги Z" )

741520 · 13.11.2017, 16:19

Это самое лучшее решение из всех, что я пробывал. В ноль улетает все (мультивыноски, объекты спдс, арки и другие сложные объекты). Не требует никаких дополнительных программ.
(command "MOVE" (ssget "x") "" "0,0,0" "0,0,1e99")
(command "MOVE" (ssget "p") "" "0,0,0" "0,0,-1e99")
Команда приказывает автокаду перенести все объекты сначало вверх, а затем вниз на такое огромное расстояние, что автокад не может управится и просто округляет все до нуля

Bull · 13.11.2017, 16:27

Цитата:

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

Команда приказывает автокаду перенести все объекты сначало вверх, а затем вниз на такое огромное расстояние, что автокад не может управится и просто округляет все до нуля

Интересно, этот способ есть в "tips@tricks"?

Кулик Алексей aka kpblc · 13.11.2017, 17:28

Способ хорош, пока в чертеже нет примитивов с немировой системой координат. Уже много раз об этом говорили.

skkkk · 14.11.2017, 17:29

Интересно, можно как-то программно проверить, есть ли в чертеже такие объекты?

Кулик Алексей aka kpblc · 14.11.2017, 17:36

В ename-представлении проверяй 210 группу. Особенно для LW-полилиний, текстов, кругов, блоков и т.п.

VVA · 14.11.2017, 18:12

Цитата:

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

Интересно, этот способ есть в "tips@tricks"?

Этот способ описан в посте #2 по ссылке LISP. Обнуление координаты Z (аналог FLATTEN ) за №4

allar8 · 23.05.2018, 14:14

Цитата:

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

[Выделить все]
(defun C:2D ( / en_dat en_set # z10 z11 en new_en_set ## a10 a11)
(setq en_set (ssget "X" '((0 . "LINE"))))
(setq # 0)

(repeat(sslength en_set)
(setq en (ssname en_set #))
(setq en_dat(entget en))
(setq z10(subst 0.0000 (car(reverse(assoc 10 en_dat)))(assoc 10 en_dat)))
(setq z11(subst 0.0000 (car(reverse(assoc 11 en_dat)))(assoc 11 en_dat)))
(setq en_dat(subst z10 (assoc 10 en_dat) en_dat))
(setq en_dat(subst z11 (assoc 11 en_dat) en_dat))
(entmod en_dat)
(setq #(+ 1 #))
);;repeat

);;defun

А вот С этим файлом не справляется (см. вложение)

Кулик Алексей aka kpblc · 23.05.2018, 14:25

Файл после элементарной очистки весит 280 кб. А если удалить элементы на заблокированном слое - 247 кб.
P.S. Обрабатывал через flatten

allar8 · 23.05.2018, 14:42

Цитата:

Сообщение от Кулик Алексей aka kpblc

Файл после элементарной очистки весит 280 кб. А если удалить элементы на заблокированном слое - 247 кб.
P.S. Обрабатывал через flatten
Вложения

DWG 2010 Отутюжить.dwg (281.1 Кб, 0 просмотров)

А объекты обведенные облаками - просто удалили, что ли? (см вложение)
Не Flaten не SuperFlaten их не проецирует на плоскость XY почему - то у меня

----- добавлено через ~6 мин. -----
Хотя нет вроде не удаляли. А можете мне свой flatten скинуть?

Хмурый · 23.05.2018, 14:52

Цитата:

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

А вот С этим файлом не справляется (см. вложение)

так Superflatten взять. Останется только одна кривая мультивыноска

Цитата:

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

Хотя нет вроде не удаляли. А можете мне свой flatten скинуть?

А этот я вообще в 2014-ом открыть не могу. Бикоз оф мо рисентли вёршен

allar8 · 23.05.2018, 15:04

Цитата:

Сообщение от Кулик Алексей aka kpblc

айл после элементарной очистки весит 280 кб. А если удалить элементы на заблокированном слое - 247 кб.
P.S. Обрабатывал через flatten
Вложения

DWG 2010 Отутюжить.dwg (281.1 Кб, 3 просмотров)

Вроде получилось, но пришлось не спроецированные Superflatten потом отдельно проецировать flatten. Почемуто Superflatten за раз не справился с задачей

allar8 · 23.05.2018, 15:09

Цитата:

Сообщение от Хмурый

А этот я вообще в 2014-ом открыть не могу. Бикоз оф мо рисентли вёршен

Вот пересохранил

Хмурый · 23.05.2018, 15:13

Цитата:

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

Вот пересохранил

облачков не увидел. файл не чистил. Как уже написал: после однократного применения suherflatten остаётся одна кривая мультивыноска

allar8 · 23.05.2018, 15:18

Цитата:

Сообщение от Хмурый

Сообщение от allar8
Вот пересохранил
облачков не увидел. файл не чистил
Вложения

DWG 2010 Отутюжить review.dwg (1.11 Мб, 1 просмотров)

Облаком выделил неспроецированный объект (сделал вид спереди)
А по методу Алексея Кулика с использованием просто встроенной в exspress flatten все таки за раз получилось, если не выбирать блоки - рамки. Всем спасибо!

allar8 · 23.05.2018, 15:19

Забыл приложить

Хмурый · 23.05.2018, 15:28

Цитата:

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

Забыл приложить

я про неё и говорил

allar8 · 23.05.2018, 15:45

А еще бы "Толщину" всех объектов в ноль задать - такое возможно?

вложение

----- добавлено через ~4 мин. -----
С файлом побольше Flatten за раз не справляется - приходится по нескольку раз выбирать - видимо у нее ограничение есть какие то

allar8 · 24.05.2018, 09:20

Цитата:

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

С файлом побольше Flatten за раз не справляется

Вроде окончательно разобрался. Для Flatten нужно из выбора исключить все блоки. Т.е. как я понял она все это делает только с текстами, атрибутами блоков, отрезками, кругами, дугами, элипсами, полилиниями, 3D полилиниям, штриховками, сплайнами, телами(Solidы) и областями.

И похоже все-таки есть ограничения по максимально возможному кол-ву выбранных объектов.

Блоки надо либо разбивать. Ну а если с блоками повезло - т.е в них все в одной плоскости, то просто выбором всех блоков через свойства координату Z в 0.
Кстати суперFlatten несмотря на заявленные возможности делать все блоки разбиваемыми (если внутри блока стоит запрет на разбивку, как я понял) не справился вот с этими блоками (см. вложение).

Павел_22 · 26.08.2020, 05:47

Отписывюсь, что мне помогло решить проблему с координатой Z

Преобразование чертежа в плоский чертеж вручную или в AutoCAD LT
Откройте палитру «Свойства» в AutoCAD.
С помощью функции «Быстрый выбор» или команды БВЫБОР выберите объекты по типу (см. статью Использование функции «Быстрый выбор» для выбора объектов на чертеже AutoCAD).
На палитре свойств найдите значения параметров Начало Z, Конец Z и Центр Z (для определенных форм), измените каждое из них на любое целое число, отличающееся от 0 (нуля).
Сделайте то же самое, только теперь измените каждое значение на 0 (ноль). (Это позволяет исправить любые значения, которые больше 8 десятичных знаков и не отображаются на палитре свойств.)
Примечание. Чтобы использовать этот способ с определенными объектами, например блоками и группами, сначала их необходимо расчленить.
ЛИБО
Альтернатива изменению значения Z объектов на ноль
Используйте команду ИЗМЕНИТЬ.
Введите команду ИЗМЕНИТЬ.
Введите ВСЕ, чтобы выбрать все объекты, затем нажмите клавишу ENTER.
Введите P, что означает «Свойства» (Properties).
Введите Е, что означает «Отметка» (Elevation).
Введите 0, затем последний раз нажмите клавишу ENTER для завершения команды.
Примечание. Это решение не работает для сложных объектов, таких как 3D-объекты.

25.10.2007, 21:24		#1
Сброс координаты Z Jin X Регистрация: 19.10.2007 Сообщений: 4 Привет! Есть чертёж. Система координат - стандартная (2-мерная). Однако, некоторые элементы выполнены в 3D - это видно, когда я перевожу чертёж в изометрическую проекцию. Итак, внимание вопрос! Как мне сбросить все Z-координаты в 0 ? Т.е. сделать чертёж абсолютно плоским.
Просмотров: 46304

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как с заданным шагом снять координаты с полилиний в файл?	griniland	Программирование	8	22.01.2016 11:14
Как перевести координаты Модели в координаты Листа?	===AAA===	Программирование	6	24.10.2007 22:09
Где хранятся координаты полки выноски ОТНОСИТЕЛЬНО ТЕКСТА?	kp+	Программирование	2	31.07.2006 09:55
Как пересчитать координаты полилинии выбранной nentsel в МСК	kp+	Программирование	1	29.07.2005 20:49
Заводы мостовых ЖБК. Нужны координаты.	Admin	Автомобильные и железные дороги, мосты, тоннели и организация движения	5	24.11.2003 08:46