• Maxx
  • Восстановленный участник
  • На форуме с 10 сентября 2004г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Как повысить все точки на фиксированную величину?

Подскажите пожалуйста, как повысить или понизить все точки автоматически на фиксированную величину
(программы Автокад R14 или/и 2002 или с примененнием внешней другой программы).

  • Vitalij
  • Активный участник
  • Откуда: Литва
  • На форуме с 7 марта 2004г.
  • Сообщений: 673
  • Спасибо: 0

Re: Как повысить все точки на фиксированную величину?

Sofdesk Civil Survey

  • Сергей
  • Восстановленный участник
  • На форуме с 22 мая 2004г.
  • Сообщений: 33
  • Спасибо: 0

Re: Как повысить все точки на фиксированную величину?

Если не много точек , то лопатай, а так конечно лучше трактором.

  • Михаил
  • Восстановленный участник
  • На форуме с 28 июля 2004г.
  • Сообщений: 4
  • Спасибо: 0

Re: Как повысить все точки на фиксированную величину?

Trimble Geomatik Offis попробуй

  • На форуме с 10 августа 2004г.
  • Сообщений: 917
  • Спасибо: 5

Re: Как повысить все точки на фиксированную величину?

> Maxx
;Пример:
;Имеем список
(setq ldz '((0. 1.) (7. 1.) (8. 2.)(2. 3.) ( 4. 5.)))
;Имеем точку:
      pt '(15. 8.))
;Результат:
(setq a (mapcar '(lambda (x) (mapcar '+  pt  x )) ldz))
;Успехов

  • На форуме с 10 августа 2004г.
  • Сообщений: 917
  • Спасибо: 5

Re: Как повысить все точки на фиксированную величину?

> Олег(jr.)
Добавление.
Прошу извинения за неполное объяснение.
Если вам нужно повысить или понизить все точки, то, создав
вспомогательную точку pt задаем ей нулевое значение Х,
а значение Y - насколько мы повышаем весь список точек.
(Или отрицательное значение по Y, если понижаем)
Имеем список точек профиля земли:
(setq ldz '((0. 1.) (7. 1.) (8. 2.)(2. 3.) ( 4. 5.))
    pt '(0. 8.))
(setq a (mapcar '(lambda (x) (mapcar '+  pt  x )) ldz))
В данном случае все точки повышаются на 8 единиц.
Если нужно сдвинуть список по оси Y, задаем соответственно:
(setq pt '(8. 0.))
А в первом примере все точки будут смещаться
и по X и по Y (на 15 единиц по Х и на 8 - по Y.

  • Михаил
  • Восстановленный участник
  • На форуме с 28 июля 2004г.
  • Сообщений: 4
  • Спасибо: 0

Re: Как повысить все точки на фиксированную величину?

TGO для этого незаменимая вещь!!!!