[Малявка]

Здравствуйте!
После перевода чертежа из пользовательской системы координат в мировую у всех примитивов "Point" значения Z стали отрицательными. Помогите пожалуйста лиспом, который бы менял у всех точек знак с минуса на плюс, оставляя значение Z прежним.
Спасибо.
p.s. Точки не имеют подписей типа "text" или "mtext".
Работаю в AutoCAD 2008 RUS.

[Елпанов Евгений]

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

ps. Хотя, можно и программу написать...

[Малявка]

Ё-маё! Ну я тупая!!!
Спасибо огромное! Не надо программы :-)
Ну, если на досуге нечем будет заняться, тогда нарисуйте программку.
А я код посмотрю. Сколько ни бьюсь - не въезжаю в лисп, увы.
Спасибо за совет!!! Как всё просто!

[Елпанов Евгений]

Сообщение от Малявка А я код посмотрю. Сколько ни бьюсь - не въезжаю в лисп, увы.

пример кода:

Код:

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

(defun c:test (/ b s)
  (if (setq s (ssget "_x" '((0 . "point") (-4 . "*,*,<") (10 0 0 0))))
    (foreach a (ssnamex s)
      (setq a (entget (cadr a))
	    b (assoc 10 a)
      )
      (entmod
	(subst (list (car b) (cadr b) (caddr b) (abs (cadddr b)))
	       b
	       a
	)
      )
    )
  )
  (princ)
)

ps. без проверок...