Как переместить объекты из пространства модели в листы?

Автор Тема: Как переместить объекты из пространства модели в листы?  (Прочитано 5623 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Пашин ЕвгенийАвтор темы

  • ADN PRO
  • *
  • Сообщений: 662
  • Карма: 12
  • Skype: pashin.evgeniy
Требуется переместить объекты из пространства модели в листы.

1. Имеется чертеж с оформленными рамками в виде динамических блоков и объектами внутри них.
2. Требуется скопировать объекты, входящие в рамки (вместе с рамками) в листы. Объекты в пространстве модели должны остаться!!!

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Почитай в документации про метод CopyObjects.
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Отмечено как Решение Пашин Евгений 17-09-2015, 15:18:03

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Ну а это для затравки:
Код - Visual Basic [Выбрать]
  1. ' Этот код копирует все примитивы из Model
  2. ' в активный Layout
  3. ' Масштабы примитивов не меняются, так что
  4. ' они вероятно окажутся за пределами вида
  5. Sub CopyModelToActiveLayout()
  6.   Dim ents() As AcadEntity
  7.   ReDim ents(ThisDrawing.ModelSpace.Count - 1)
  8.   For i = 0 To ThisDrawing.ModelSpace.Count - 1
  9.    Set ents(i) = ThisDrawing.ModelSpace.Item(i)
  10.   Next
  11.   Dim layout As AcadLayout
  12.   Set layout = ThisDrawing.ActiveLayout
  13.   ThisDrawing.CopyObjects ents, layout.Block
  14. End Sub
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн Windcastle

  • ADN OPEN
  • **
  • Сообщений: 58
  • Карма: 0
Ничиге себе затравочка )))) Обязательно посмотрю и попробую!!! Сегодня ответственный день. Сегодня сдача задач. И там уже решится - оставят меня или нет ))) А от этого будет зависеть - буду я Вас беспокоить или нет в дальнейшем.

P.S. Я уже нашел другое решение. Сработает - поделюсь. Проверю Ваше и отпишусь.

Оффлайн Пашин ЕвгенийАвтор темы

  • ADN PRO
  • *
  • Сообщений: 662
  • Карма: 12
  • Skype: pashin.evgeniy
Код - Visual Basic [Выбрать]
  1. ThisDrawing.CopyObjects ents, layout.Block

Крутая штука!!!

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 13829
  • Карма: 1784
  • Рыцарь ObjectARX
  • Skype: rivilis
Можно скопировать примитивы сами на себя, а потом запустить для копии команду _CHSPACE
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение

Оффлайн Пашин ЕвгенийАвтор темы

  • ADN PRO
  • *
  • Сообщений: 662
  • Карма: 12
  • Skype: pashin.evgeniy
А это интересно!