[DmAK]

Добрый вечер! Подскажите пожалуйста, как можно поменять 3D высоту на Уровень? Т.е. все те высоты, которые забиты в 3D высоте были в уровне, а 3D высота была обнулена. Может есть у кого-нибудь похожий Lisp? Буду признетален, очень нужно.
Объекты: точки, полилинии.

[Vombat]

Вы хотите обнулить координату "Z"?
Если так то Вам сюда

[DmAK]

нет, в свойствах объекта, например точки, есть помимо координат параметр "высота 3D".

Паренек мне дал съемочку, а там высоты всех точек и полилиний пробиты в параметр Высота 3D вместо координаты z, последняя везде "0". Если покрутить видовой куб, получается интересная карина.

Щас думаю уже как-нибудь вывести в txt X, Y, высоту 3D. Потом, чтоб загрузить обратно как координаты XYZ. Но как это зделать не соображу пока.

Кто сталкивался, поделитесь опытом пожалуйста.

[АлексЮстасу]

Сообщение от DmAK нет, в свойствах объекта, например точки, есть помимо координат параметр "высота 3D". Паренек мне дал съемочку, а там высоты всех точек и полилиний пробиты в параметр Высота 3D вместо координаты z, последняя везде "0". Если покрутить видовой куб, получается интересная карина. Щас думаю уже как-нибудь вывести в txt X, Y, высоту 3D. Потом, чтоб загрузить обратно как координаты XYZ. Но как это зделать не соображу пока. Кто сталкивался, поделитесь опытом пожалуйста.

Пока я не понимаю, чего нужно добиться. Что такое "Высота 3D вместо координаты z"?
Нужно преобразовать 3Дполилинии в 2Дполилинии (простые полилинии) с Elevation=Z исходных 3Дполилиний?
Тогда все просто - скачайте на форуме PLTOOLS, в нем есть ConvTo2d - Конвертировать линейные объекты в 2д.

[DmAK]

Ничего не нужно преобразовывать.

Проводим 2D - полилинию, идем в свойства, забиваем в строчку 3D высота цифру. Уровень оставляем равный нулю.
Такая картина у меня сейчас на съемке.

Так вот нужно перенести цифру из высоты 3D в уровень в случае с полилинией и из высоты 3D в координату Z в случае с точкой.

[АлексЮстасу]

Это какой Автокад? У меня 2008, 2006, но такого чуда с точками и обычными полилиниями не видывал. Нет у меня в свойствах "Высота 3Д" вообще.
Первое, что пришло в отсталую мою голову - это сохранить файл в версии постарше

[Profan]

В версиях 2006, 2008 "Высота 3D" обозначается просто "Высота".

[DmAK]

Тогда наверное надо поставить вопрос по другому. В новую тему.

[АлексЮстасу]

DmAK - Мне Ваш вопрос интересен - я сам работаю со съемками и планами. Если удастся понять, что у Вас, то, возможно, будет понятно что делать.

Profan - Вот мои "свойства" из Автокада 2008. Никакой просто "Высоты" я не вижу почему-то...

[Oliver_88]

Код:

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

 (defun test1 (/ nb dxf)
  (setq nb (ssget "_A"))
  (mapcar (function (lambda (x)(setq dxf (entget (cadr x)))
		      (cond
			(
			 (and (eq "LWPOLYLINE" (cdr (assoc 0 dxf))) (/= 0 (cdr(assoc 39 dxf))))
			 (setq dxf  (entmod (subst (cons 38 (cdr(assoc 39 dxf))) (assoc 38 dxf) dxf)))
			 (entupd (cdr (assoc -1 (entmod(subst (cons 39 0) (assoc 39 dxf) dxf)))))
			 )
			(
			 (and (eq "POINT" (cdr (assoc 0 dxf))) (assoc 39 dxf))
			 (setq dxf  (entmod(subst (reverse(cons (cdr(assoc 39 dxf)) (cdr(reverse (assoc 10 dxf))))) (assoc 10 dxf) dxf)))
			 (entupd (cdr (assoc -1 (entmod (subst (cons 39 0) (assoc 39 dxf) dxf)))))
			 )
			)
		      )
		    )
	  (ssnamex nb)
	  )
  )

Вызов (test1). Рубанет все точки и полилинии.

[DmAK]

У меня стоит ACAD'11.
Начиная с 2009 CAD' a есть Высота 3D.
Я не знаю зачем ее туда забили, но программа Robur, в которой я работаю, понимает только координату Z и Уровень.

А в CAD' повертеть сие чудо видовым кубом получается следующее)))

[АлексЮстасу]

Сообщение от DmAK У меня стоит ACAD'11. Начиная с 2009 CAD' a есть Высота 3D. Я не знаю зачем ее туда забили, но программа Robur, в которой я работаю, понимает только координату Z и Уровень. А в CAD' повертеть сие чудо видовым кубом получается следующее)))

Сохранить в 2000 или 2004 пробовали? Что получается?

[Vombat]

в RUS версии Autocad "Высота 3D", а в ENG "thickness"
Высота (Thickness) - определяет расстояние выдавливания нового объекта выше или ниже возвышения)

[АлексЮстасу]

Сообщение от tovdi в RUS версии Autocad "Высота 3D", а в ENG "thickness" Высота (Thickness) - определяет расстояние выдавливания нового объекта выше или ниже возвышения)

Спасибо. Теперь понятно.
Никогда Thickness еще не пользовался, и о преобразовании Thickness в Z еще не слышал.

Программка Oliver_88 - вроде бы преобразовывает?

[Oliver_88]

АлексЮстасу, извиняюсь за непонятные слова. Имел ввиду что для точек заменит высоту (Thickness, или 3Dвысоту) на координату Z, а для полилиний заменит высоту (Thickness, или 3Dвысоту) на уровень.
У меня работает на Autocad 2006 и на Autocad 2012. Оба русские.

[DmAK]

Oliver_88 , Спасибо огрмное, Код работает на убой!!! Вы мне очень помогли!

[Profan]

Мои соображения по поводу Thickness и ее применения в русских версиях
(цитата из темы http://www.caduser.ru/forum/index.ph...#message167683)

Еще маленький глюк в AutoCAD 2007 RUS. Если ввести команду "_QSELECT" ("БВЫБОР"), то для однострочного текста свойство "Высота" определяется не как "Высота текста", а как свойство "Thickness", которое для других объектов определяется системной переменной "Thickness" (Текущая трехмерная высота). А само свойство по смыслу "Высота текста" отсутствует. На текущий момент я обнаружил, что если в файле ax17rusres.dll, находящегося в папке ..\Program Files\AutoCAD 2007, заменить в строке ID 250 значение "Высота" на значение "Thickness", то в быстром выборе свойство "Высота" будет уже определять именно высоту однострочного текста, а для фильтрации по трехмерной высоте появится свойство "Thickness". Эта ошибка прослеживается и в русских версиях 2005, 2006.

[Son1cs]

Добрый день! возникла та же проблема с 3д толщиной, но в акад 2014. Пробовал сделать lisp c кодом который выложил Oliver_88, но он не работает.. пишет неизвестная команда.. Подскажите, пожалуйста, кто знает в чем дело..

[engngr]

Файл бы приложили.