[ripeinik]

Добрый день, люди добрые! Помогите кто чем может,если может...

Есть проблема:
Есть куча отметок в форме текста по сетке типа но на самом деле нет, каждый текст сдвинут на чуть-чуть,причем каждый в свою сторону....

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

Делать это вручную я офигею, их там мильон штук на 5 чертежах (да-да,это кто-то типа "исполнительную" делал ВРУЧНУЮ забивая текст и зачем-то его при этом сдвигая...а мне теперь надо сделать поверхность но точную, а не абы какую...)

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

помогите, а то я ослепну...

[Дима_]

Сообщение от ripeinik ну, скажем так, между столбцами одинаково (20метров) а между строками благо их всего три можно сделать

на скорую руку как-то так, запускать командой test

Код:

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

  (vl-load-com)
(defun round(x)
  ((lambda (fx)
     (if (< (abs (- x fx)) 0.5) fx (if (< x 0) (1- fx) (1+ fx))))
   (fix x)))
(defun c:test()
  ((lambda (pt w h ent-lst doc)
     (vla-startundomark doc)
     (mapcar '(lambda (lst)
                ((lambda (x y)
                   (entmod (subst (list 10 x y (last (assoc 10 lst))) (assoc 10 lst) lst)))
                 (+ (* (round (/ (- (cadr (assoc 10 lst)) (car pt)) w)) w) (car pt))
                 (+ (* (round (/ (- (caddr (assoc 10 lst)) (cadr pt)) h)) h) (cadr pt))))
             ent-lst)
     (vla-endundomark doc))
   (getpoint "\nНачало сетки: ")
   (getdist "\nШаг по X: ")
   (getdist "\nШаг по Y: ")
   (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "*text")))))))
   (vla-get-activedocument (vlax-get-acad-object))))

p.s. - исправил округление...