[shartal]

Получить набор объектов в разных пространствах возможно командой SSX, но при указания этого набора на вопрос команды Стереть, получаю ответ, что часть объектов в другом пространстве.

[Do$]

Код:

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

 (defun c:test (/ ss)
  (if (setq ss (ssget))
    (mapcar 'entdel
	    (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
    ) ;_ end of mapcar
  ) ;_ end of if
  (princ)
) ;_ end of defun

[TararykovDG]

Do$, так удаляться только объекты из пространства модели и одно листа (установленного текущим), на остальных листах объекты остануться.

[VVA]

TararykovDG, Действительно, не знал этого нюанса
Вариант 2

Код:

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

(defun c:test (/ ss)
  (vl-load-com)
  (if (setq ss (ssget))
    (mapcar 'vla-delete
        (mapcar 'vlax-ename->vla-object
	    (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
    )
    )
  )

[Do$]

Я проверял так - накидал на листе объектов, select, выбрал их, перешел в модель и запустил лисп. Объекты удалились. Может быть и не для всех вкладок это сработает - надо проверять и тестировать. может вместо entdel использовать vla-delete.
Наверное, если делать основательно, надо взять список объектов набора, разделить объекты по вкладкам и пройтись по ним, программно переключая вкладки и удаляя объекты на них.

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

Код:

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

 (vl-load-com)

(defun test (/ adoc)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (equal (vla-get-islayout blk_def) :vlax-true)
      (vlax-for ent blk_def
        (vl-catch-all-apply
          (function
            (lambda ()
              (vla-delete ent)
              ) ;_ end of LAMBDA
            ) ;_ end of function
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of vlax-for
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Не покатит?

[Do$]

Вроде надо удалить только выбранные на разных вкладках объекты, а не все вообще

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

При переходе из пространства в пространство, кажется, "набор" теряется. Или нет?

[gomer]

какой смысл? не понимаю... все равно по листам как макака скачешь или влом дельку нажать лишний раз?

[Do$]

Сообщение от Кулик Алексей aka kpblc При переходе из пространства в пространство, кажется, "набор" теряется. Или нет?

Теряется, но с помощью опции _p его можно запросить из другого пространства. Или с помощью SSX из Express'ов, как я понял.

[VVA]

vla-delete удаляет отовсюду, только что проверил

[shartal]

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

[Do$]

Пробуйте командными методами. Или, при наличии экспрессов, функцией acet-explode, передавая ей Ename объектов по одному.
А что принципиально мешает переключать программно вкладки?

[VVA]

Таблица представлена неименованным блоком *T### (по аналалогии в размерами *D###). Можно копировать содержимое этого блока в соответствующее пространство.
Код ниже это иллюстрирует

Код:

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

;;; Table Explode Explode table
;;; расчленение таблиц взрыв таблиц
;;;http://forum.dwg.ru/showthread.php?t=79917
(defun tablexplode ( ss / adoc blks u1 objlist e)
  ;;; ss - selection set
  ;;; Use
  ;;; (tablexplode (ssget "_X" (list(cons 0 "ACAD_TABLE"))))
(vl-load-com)
(setq adoc (vla-get-activedocument (vlax-get-acad-object))
        blks (vla-get-blocks adoc)
        ) ;_ end of setq
  (vla-startundomark adoc)
  (repeat (setq i (sslength ss))
    (and
      (setq e (ssname ss (setq i (1- i))))
      (setq objlist nil u1 (vla-item blks (cdr(assoc 2 (entget e)))))
      (wcmatch (vla-get-name u1) "`*T*")
      (vlax-for obj u1 (setq objlist (cons obj objlist)))
       (setq n (vla-get-InsertionPoint (vlax-ename->vla-object e)))
        (mapcar '(lambda(item)
                   (vla-move item (vlax-3d-point '(0 0 0)) n)
                   )
                (vlax-safearray->list
                  (vlax-variant-value
                    (vla-copyobjects
                      (vla-get-activedocument (vlax-get-acad-object))
                      (vlax-make-variant
                        (vlax-safearray-fill
                          (vlax-make-safearray
                            vlax-vbobject
                            (cons 0 (1- (length objlist)))
                            ) ;_ end of vlax-make-safearray
                          objlist
                          ) ;_ end of vlax-safearray-fill
                        ) ;_ end of vlax-make-variant
                      ;(vla-get-ModelSpace adoc)
                      (vla-get-block (vla-item (vla-get-layouts adoc) (cdr(assoc 410 (entget e)))))
                      ;;;(vla-get-block (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object))))
                      )
                    )
                  )
                )
      (vla-delete (vlax-ename->vla-object e))
      )
    )
  )

Вполне возможно, что нужно перед копированием вызывать vla-RecomputeTableBlock, чтобы быть уверенным, что описание блока *T соответствует таблице, или как будут вести себя поля внутри mtexta. Но это уже детали.