[===AAA===]

Всем привет!

Возникла задача программно перенести примитивы
из пространства "Модели" в пространство "Листа".

Теоретически я знаю 2 способа:

1. БПЛОК -> ВСТАВЬ
2. CUT -> PASTE

Разумеется всякие там фенечки по поводу выбора
объектов, перехода на нужный "Лист" напишу, не
проблема.

Мне просто не нравятся оба эти способа. Нет ли
чего поизящнее. Всего-то и надо, что у всех
выбранных объектов изменить группу 410 с
"Model' на "ЛИСТ-XXX".

Можно ли это сделать, если да, то как?

[===AAA===]

Пока отбой, поскольку нашел тему:

http://www.autocad.ru/cgi-bin/f1/board.cgi?t=16233vh

Буду посмотреть, если появятся вопросы - напишу.

Сорри за беспокойство.

[===AAA===]

Всем привет еще раз!

Рановато дал отбой. :-)

Эти функции копируют объекты из Модели в Лист, а мне
надо _перенос_. Конечно, я могу потом банально удалить
объекты из Модели через (command "_erase"), но выплывают
всякие проверки на заблокированные слои и т.п.

"Не будет ли любезен Многоуважаемый Джин" :-) просто
наваять мне маленькую функцию. Ну, не силен я в этих vla-... :-(((

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

chspace из Express Tools выполняет, по-моему, именно то, что надо.

[===AAA===]

Возможно, но не могу же я встроить это дело в виде
маленькой подпрограмы в свою. Нужна автономная
функция. :-(

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

Погоди, открой файл chspace.lsp из каталога c:\program files\autocad 200x\express, просмотри там код на предмет вызова сторонних функций (их там не так уж и много) и вставляй в свое.

[===AAA===]

Хорошо, погляжу.

Только что заметил твою расшифровку ника.
А до этого так и читал - "KPBLC" :-)

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

Хехехехе, я ее только сегодня присобачил

[===AAA===]

Привет!

Посмотрел. Не смог разобраться детально, т.к. там полно всяких
(acet-....) функций, а у меня экспресс не установлен, брал файл
на другой машине, но главное не это.

Как мне показалось там используется метод выбора всех объектов
модели в БЛОК с последующей вставкой его в пространство Листа.
Плюс всякие проверочки и масштабирование...

Т.е. возвращаюсь к своему первому посту - мне такой метод не
симпатичен. Поизящнее бы, через (vl-...) :-)

Запускаться эта штука будет только тогда, когда на Листе пусто.
Лимиты Листа установлю по Модели, системные переменные тоже.
Видовые экраны - нафиг, ликвидировать, как класс. Вот такой
вот частный случай.

[Эдуард]

Помоему ничего сложного нет.

Код:

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

(defun chspace_new (layout / copy_obj act_doc new_owner ms)
  (if
    (and
      (member layout (layoutlist))
      (setq copy_obj (ssget))
    )
     (progn
       (setq act_doc	(vla-get-ActiveDocument (vlax-get-acad-object))
	     act_layout	(vla-put-ActiveLayout
			  act_doc
			  (vla-item (vla-get-layouts act_doc) layout)
			)
       )
       (setq new_owner (vla-get-paperspace act_doc)

	     copy_obj  (mapcar 'vlax-ename->vla-object
			       (vl-remove-if
				 'listp
				 (mapcar 'cadr
					 (ssnamex copy_obj)
				 )
			       )
		       )
	     ms	       (vlax-make-safearray
			 vlax-vbObject
			 (cons 0 (1- (length copy_obj)))
		       )
       )
       (vlax-safearray-fill ms copy_obj)
       (vla-copyobjects
	 (vla-get-ActiveDocument (vlax-get-acad-object))
	 ms
	 new_owner
       )
       (mapcar 'vla-delete copy_obj)
     )
  )
  (princ)
)

Пример вызова (chspace_new "layout2")

[===AAA===]

Привет!

Действительно, все работает, как надо - спасибо огромное.

Правда, перед вызовом функции нужно делать проверку на
наличие "заблокированных" слоев, разблокировать их, а
затем блокировать обратно - иначе эта функция дает ошибку.

Ну да эти проверочки я и сам напишу по-старинке на обычном
AutoLISPe. Возможно, еще чего-нибудь проверить понадобится.

Еще раз - спасибочки!

[VVA]

Ну зачем же по старинке

Код:

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

(defun chspace_new (layout / copy_obj act_doc new_owner ms lays lay lock act_layout)
   (defun *error* (msg) 
    (princ msg)
    (vla-endundomark act_doc)
    (princ) 
    ) ;_ end of defun
  (if 
    (and 
      (member layout (layoutlist)) 
      (setq copy_obj (ssget)) 
    ) 
     (progn 
       (setq act_doc   (vla-get-ActiveDocument (vlax-get-acad-object)) 
        act_layout   (vla-put-ActiveLayout 
           act_doc 
           (vla-item (vla-get-layouts act_doc) layout) 
         )
	 lays (vla-get-layers act_doc)
       )
       (vla-startundomark act_doc)  
       (setq new_owner (vla-get-paperspace act_doc) 

        copy_obj  (mapcar 'vlax-ename->vla-object 
                (vl-remove-if 
             'listp 
             (mapcar 'cadr 
                (ssnamex copy_obj) 
             ) 
                ) 
             ) 
        ms          (vlax-make-safearray 
          vlax-vbObject 
          (cons 0 (1- (length copy_obj))) 
             ) 
       )
       (foreach x copy_obj
	 (setq lay (vla-item lays (vla-get-layer x)))
         (if (= (vla-get-lock lay) :vlax-true)
	   (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
	 )
       (vlax-safearray-fill ms copy_obj) 
       (vla-copyobjects 
            act_doc
            ms 
            new_owner 
       ) 
       (mapcar 'vla-delete copy_obj) 
     ) 
  )
  (if lock (foreach x lock (vla-put-lock x :vlax-true)))
  (vla-endundomark act_doc)
  (princ) 
)