[Leo_fmf]

Помогите пожалуйста на написать на LISP функцию для расчленения всех таблиц и мультивыносок на конкретном листе.
Я думал получить набор из всех требуемых элементов, но не могу найти способ выделить (подсветить на экране) их, чтобы вызвать _EXPLODE. Хотя, может я копаю не в ту сторону...

[gomer]

Копай в сторону фильтров ssget, например (ssget '((0 . "ACAD_TABLE")))

[VVA]

Сообщение от Leo_fmf чтобы вызвать _EXPLODE

_EXPLODE вызывать с учетом сведений из этого поста

[Leo_fmf]

Спасибо, gomer, но получить набор для через ssget не проблема

Код:

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

 (setq nabor (ssget "_X" '((0 . "ACAD_TABLE") (410 . "MyLayOyt"))))

ГЛАВНОЕ как потом это использовать для расчленения

----- добавлено через ~5 мин. -----
Спасибо, VVA, сделал так и все работает

Код:

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

 (setq nabor (ssget "_X" '((0 . "ACAD_TABLE") (410 . "MyLayOyt"))))
(setq i '-1)
(repeat (sslength nabor)
        (command "_.explode" (ssname nabor (setq i (1+ i))) "")
)

----- добавлено через ~10 мин. -----
А для мультивыносок соответственно

Код:

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

 (setq nabor (ssget "_X" '((0 . "MULTILEADER") (410 . "MyLayOyt"))))
(setq i '-1)
(repeat (sslength nabor)
        (command "_.explode" (ssname nabor (setq i (1+ i))) "")
)

[gomer]

Сообщение от Leo_fmf ГЛАВНОЕ как потом это использовать для расчленения

Ах, вы об этом... в нормальных кадах таких ограничений нет...

[Leo_fmf]

Удивительно, на другом компьютере так не хочет работать, пришлось переделать так:

Код:

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

  (setq nabor (ssget "_X" '((0 . "ACAD_TABLE") (410 . "MyLayOyt"))))
(setq i '-1)
(repeat (sslength nabor)
        (command "_.explode" (ssname nabor (setq i (1+ i))))
)

а еще добавил проверку, что бы набор не был пустым

[VVA]

Leo_fmf, Любая команда работает только в текущем пространстве!
Его можно взять из переменной CTAB

Код:

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

 
(setq nabor (ssget "_X" (list '(0 . "ACAD_TABLE") (cons 410 (getvar "Ctab")))))
(setq i '-1)
(repeat (sslength nabor)(command "_.explode" (ssname nabor (setq i (1+ i)))))

----- добавлено через ~2 мин. -----

Сообщение от Leo_fmf а еще добавил проверку, что бы набор не был пустым

Не обязательно, в пустом наборе количество элементов=0. В этом случае repeat не сработает ни разу