[Rexxx]

Добрый день. Нужен скрипт, который будет конвертировать каждую группу в отдельный 3D solid (т.е. все объекты, входящие в группу, должны быть представлены в виде одного 3D solid). Вручную это делается простым Объединением (union), но дело в том, что таких групп в проекте может быть несколько сотен, поэтому нужно автоматизированное решение в виде скрипта. Нашёл на этом же форуме скрипт, который проходит циклом по всем группам и разбивает их на отдельные объекты, но мне нужно, чтобы в итоге каждая отдельная группа была представлена одним отдельным объектом. Сам в LISP так и не смог разобраться, а сроки для решения задачи поджимают

Собсна вот код, который нашёл. Мб кому-то будет полезен:

Код:

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

; Ф-ция PurgeAllGroups
; Удаляет описание всех групп
; Аргумент [Тип]:
;   НЕТ
; Возвращает: Nil

  (defun PurgeAllGroups (/ grpList index grp)
  (setq grpList (dictsearch (namedobjdict) "ACAD_GROUP"))
  (setq index 1)
  (while (setq grp (nth index grplist))
    (if  (= (car grp) 3)
      (entdel (cdr (nth (+ index 1) grplist)))
    )
    (setq index (+ 1 index))
  )
  (princ))

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

Ха, а что будет, если в группе вдруг появится отрезок, размер или штриховка? Или (того лучше) - поверхность?

[Setvar]

Сообщение от Rexxx Нужен скрипт

Не надо путать скрипт (сценарий) и программу на AutoLisp. Файлы скриптов имеют расширение .scr, а файлы AutoLisp имеют расширение .lsp.