[Setvar]

Представляю фрагмент чертежа, являющийся результатом экспорта из Revit в AutoCAD. В файле присутствует объект BODY, который можно интерпретировать как стену и еще 2 объекта BODY, которые можно интерпретировать как трубы. Задача состоит в том, чтобы получить отверстие в стене в месте пересечения её трубами. Взаимодеqствие объектов BODY AutoCAD не обрабатывает. Поэтому для решения задачи я составил две программы преобразования тел BODY в тела 3DSOLID.
Первая обрабатывает BODY, которые представляются как стены.
Код:

Код:

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

(defun C:B-3DS-ST ( / fct bss lbss n m ent)
(setq fct (getvar "FACETERSMOOTHLEV"))
(setvar "FACETERSMOOTHLEV" 0)
(princ "\nВыберите объеты: ")
(setq bss (ssget))
(if bss
    (progn
    (setq lbss (sslength bss) n 0 m 0)
    (repeat lbss
            (setq ent (ssname bss n))
            (if (= (cdr (assoc 0 (entget ent))) "BODY")
                (progn
                (vl-cmdf "_CONVTOSURFACE" ent "")
                (vl-cmdf "_EXPLODE" "_L")
                (vl-cmdf "_SURFSCULPT" "_P" "")
                (setq m (+ m 1))
                ) ; progn
             ) ; if
             (setq n (+ n 1))
    ) ; repeat
    (princ "\nПреобразовано ") (princ m) (princ " тел BODY в 3DSOLID.")
    ) ; progn
    (princ "\nНичего не выбрано.")
) ; if
(setvar "FACETERSMOOTHLEV" fct)
(princ)
)

Вторая обрабатывает BODY, представляемые как трубы.
Код:

Код:

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

(defun C:B-3DS-TR ( / fct bss lbss n m ent)
(setq fct (getvar "FACETERSMOOTHLEV"))
(setvar "FACETERSMOOTHLEV" 0)
(princ "\nВыберите объеты: ")
(setq bss (ssget))
(if bss
    (progn
    (setq lbss (sslength bss) n 0 m 0)
    (repeat lbss
            (setq ent (ssname bss n))
            (if (= (cdr (assoc 0 (entget ent))) "BODY")
                (progn
                (vl-cmdf "_CONVTOSURFACE" ent "")
                (vl-cmdf "__Thicken" "_L" "" "1")
                (setq m (+ m 1))
                ) ; progn
             ) ; if
             (setq n (+ n 1))
    ) ; repeat
    (princ "\nПреобразовано ") (princ m) (princ " тел BODY в 3DSOLID.")
    ) ; progn
    (princ "\nНичего не выбрано.")
) ; if
(setvar "FACETERSMOOTHLEV" fct)
(princ)
)

Это очень неудобно. Можно ли раскопать какую-нибудь разницу в этих двух BODY, чтобы использовать 1 программу с внутренним разветвлением после выбора объектов в соответствии с этим гипотетически различием?

----- добавлено через ~4 мин. -----
Решение предлагается такое:

Код:

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

(defun C:B-3DS ( / echo fct bss lbss n m ent)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setq fct (getvar "FACETERSMOOTHLEV"))
(setvar "FACETERSMOOTHLEV" 0)
(princ "\nВыберите объеты: ")
(setq bss (ssget (list (cons 0  "BODY"))))
(if bss
    (progn
    (setq lbss (sslength bss) n 0 m 0)
    (repeat lbss
            (setq ent (ssname bss n))
            (if (= (cdr (assoc 0 (entget ent))) "BODY")
                (progn
                (vl-cmdf "_CONVTOSURFACE" ent "")
                (vl-cmdf "__Thicken" "_L" "" "1")
                (setq ent (entlast))
                (if (=  (cdr (assoc 0 (entget ent))) "SURFACE")
                    (progn
                    (vl-cmdf "_EXPLODE" "_L")
                    (vl-cmdf "_SURFSCULPT" "_P" "")
                    ) ; progn
                ) ; if
                (setq m (+ m 1))
                ) ; progn
            ) ; if
            (setq n (+ n 1))
    ) ; repeat
    (princ "\nПреобразовано ") (princ m) (princ " тел BODY в 3DSOLID.")
    ) ; progn
    (princ "\nНичего не выбрано.")
) ; if
(setvar "CMDECHO" echo)
(setvar "FACETERSMOOTHLEV" fct)
(princ)
)

Не очень красивое решение, но работает, правда, относительно долго при большом числе BODY в чертеже. Надо хладнокровно подождать.

[Boxa]

С очевидного, они в разных слоях и разного цвета =о)

Из не очевидного, у этих объектов разная структура XDATA.

Хотя данных для однозначного вывода маловато, нужно экспериментировать.

ЗЫ.
А зачем эти манипуляции производить в автокаде, почему нельзя это сделать в самом ревите?

[Setvar]

Слои и цвета могут быть достаточно произвольными и подчас слои могут иметь маловразумительные названия. Я и хочу сделать программу, инвариантную по отношению к слоям и цветам.

Сообщение от Boxa А зачем эти манипуляции производить в автокаде, почему нельзя это сделать в самом ревите?

Дело в том, что нет людей
а) уверенно работающих в Revit (проектировщики фактически на стадии освоения);
б) могущих программировать в среде Revit.
Я здесь описал только часть проблемы, но руководству приспичило, чтобы проектная документация по инженерным сетям выполнялась в Revit (якобы так требует заказчик). В AutoCAD MEP все давно уже мной решено, а с Revit я пока не очень дружу.

[ivp]

Подскажите пожалуйста почему скрипты не работают в ACAD 2007 ? Ругается на переменную:

>Command: properties
>Command: b-3ds-st
>; error: AutoCAD variable setting rejected: "FACETERSMOOTHLEV" 0

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

Возможно, 2007 не знает такой системной переменной.
Offtop: ИМХО - лиспы надо переделывать для корректной работы в любых (или почти любых) условиях...

[Boxa]

Сообщение от Setvar Я и хочу сделать программу, инвариантную по отношению к слоям и цветам.

Я думаю Вы уже разобрались в чем дело и как фильтровать, но на будущее все таки оставлю тут ссылку: http://adndevblog.typepad.com/aec/20...ata-xdata.html

ЗЫ.
Буквально пару недель назад, смотрел чертежи полученные экспортом из ревита и загнанные в один слой и в один цвет кем то из исполнителей.
Зачем это было сделано, для меня загадка, но с помощью вышеприведенной ссылки удалось все разложить по слоям, цветам и типам.