[Dim Ka]

Простая, но очень сложная задача!
Доброго времени суток Уважаемые программисты и любители CADa.
Есть набор объектов: блоки, текст, размеры - на создание которых уходит очень мало времени,
а вот большая часть уходит на выделение, копирование, указание базовой точки и установку на позицию после
копирования: можно ли автоматизировать процесс, ведь большинство позиций - постоянны ?:
Алгоритм примерно таков:
1. Выделение объектов, которые находятся в прямоугольнике с координатами потивоположных углов:
Р1(6300,500), Р2(-700,-783).
2. Базовая точка для копирования = Р2(-700,-783)
3. Точка для вставки скопированных объектов Р3(-1300,а Y=2600+n1251),
т.е в позиции для вставки меняется координата Y и она зависит только от n, где n - целое число от 1 до 12 , запрашиваемое у пользователя (либо в ком. сроке, но лучше щёлкнуть на Text).
В итоге: после запуска программы указываем n и набор уже выделенных автоматически объектов копируется в точку Р3, в которой изменяется координата Y по указанному выше правилу.
Может быть есть другой путь решения этой рутинной "копипасты".
Помогите избавится от рутины, готов ждать месяц и два, лишь бы работало, потом за пять минут долечу.
Заранее благодарен, с Уважением Дмитрий.

[Кулик Алексей aka kpblc]

А чем _.array не угодил?

[Dim Ka]

А чем _.array не угодил?


Можно и через _array, только как? Ведь при вставке на нужную позицию в новом прямоугольнике объекты уже изменены мною( значения и местоположение), да и перескочить через позицию вряд ли удастся, т.е в итоге дожен получиться вертикальный набор из совершенно разных объектов. _array на такое способен?

[CB]

>Dim Ka

1. Выделение объектов, которые находятся в прямоугольнике с координатами потивоположных углов: Р1(6300,500), Р2(-700,-783). 2. Базовая точка для копирования = Р2(-700,-783) 3. Точка для вставки скопированных объектов Р3(-1300,а Y=2600+n1251), т.е в позиции для вставки меняется координата Y и она зависит только от n, где n - целое число от 1 до 12, запрашиваемое у пользователя

Код:

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

;;;Вариант 1
(defun test (/ n)
  (if (setq n (getint "\n Введите целое число от 1 до 12: "))
    (progn
      (vl-cmdf "_zoom" "_w" '(6300. 500.) '(-700. -783.))
      (vl-cmdf "_.copybase"
               '(-700. -783.)
               (ssget "_C" '(6300. 500.) '(-700. -783.))
               ""
               "_.pasteclip"
               "_non"
               (list -1300. (+ 2600. (* 1251. n)))
      ) ;_ end of command
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun
;;;Вызов (test)
;;;Вариант 2
(defun test1 (/ n)
  (if (setq n (getint "\n Введите целое число от 1 до 12: "))
    (progn
      (vl-cmdf "_zoom" "_w" '(6300. 500.) '(-700. -783.))
      (vl-cmdf "_.copy"
               (ssget "_C" '(6300. 500.) '(-700. -783.))
               ""
               '(-700. -783.)
               (list -1300. (+ 2600. (* 1251. n)))
      ) ;_ end of vl-cmdf
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun
;;;Вызов (test1)

[Dim Ka]

Вот эта да !, просто СУПЕР, всё работает именно так,как я и хотел. Огромное СПАСИБО СВ и Кулик А., мои два месяца ожидания
обернулись 2-х недельным отпуском и с`экономили 60% времени, надеюсь эта тема поможет не только мне в избавлении от рутины,
а "прозрачный" код легко приспособить под свои нужды.
С Уважением Дмитрий.