[MrBrown]

Здравствуйте!
На чертеже котлована масса отметок (примитивы "точка").
В атрибутах высота Z, например 115.25 записана так же, с точкой, а надо для нормального подсчета объемов Z=115250 (т.е без точки).
Помогите макросом, чтобы после выделения нужных точек величина
Z множалась бы на 1000.
Взялся было за ЛИСП, почитал, понял, что без mapcar и cddr не обойтись.
Но и только. Прошу помочь конкретным кодом. Спасибо.
зы. работаю в АutoCAD 2008 и редко в 2004.

[VVA]

MrBrown, Экспортируй командой COOR точки в EXCEL, затем умножь Z на 1000 (займет 2 секунды)

[MrBrown]

VVA, Мне не нужно работать с атрибутами точек в Excel.
Мне нужны "правильные" точки в пространстве модели!
(или я чего-то не понял...)

[Дима_]

Да без проблем - но учти, что случайно умножив 2-3 на 1000 раза у тебя точки очень далеко убегут:

Код:

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

(mapcar '(lambda (obj)
(entmod (subst 
(cons 10 (reverse (cons (* 1000 (last (assoc 10 (entget obj))))(cdr (reverse (cdr (assoc 10 (entget obj))))))))
(assoc 10 (entget obj))
(entget obj))))
(vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget (list (cons 0 "point")))))))

[engngr]

'Нормальный' такой подсчет объемов. Не проще было его скорректировать? (Или тупо всё в модели отмасштабить в 1к раз, что хуже.)

[MrBrown]

каким образом отмасштабировать или скорректировать?

[Valery Brelovsky]

Сообщение от MrBrown Здравствуйте! На чертеже котлована масса отметок (примитивы "точка"). В атрибутах высота Z, например 115.25 записана так же, с точкой, а надо для нормального подсчета объемов Z=115250 (т.е без точки). Помогите макросом, чтобы после выделения нужных точек величина Z множалась бы на 1000. Взялся было за ЛИСП, почитал, понял, что без mapcar и cddr не обойтись. Но и только. Прошу помочь конкретным кодом. Спасибо. зы. работаю в АutoCAD 2008 и редко в 2004.

Вы что объём котлована в Кубических миллиметрах собираетесь подсчитывать. Все программы работающие с геодезией проставляю к координаты точек и высоты в метрах. Т.е. изменив только значение "Z" вы не сможете получить парильный объём. Обратите внимание на сообщение engngr в посте #5. Выбираются все объекты для масштабирования точка относительно который масштабируют в данной ситуации это начало координат т.е. 0,0.

[engngr]

Мрбраун, я не знаком с вашей методикой подсчета объемов, поэтому вопрос по корректировке не ко мне. А отмасштабировать - командой масштабирования в акаде, через вставку блоком с изменением пропориции по з-оси, етц - как кто умеет и как кому нужно.

[MrBrown]

Всё получилось, всем большое спасибо за участие.
И всем удачи!