[glav_spec]

Доброго времени суток, я начинающий пользователь автокада, ищу пути сокращения времени разработки чертежа. Можете ли вы ответить на такие вопросы:
я начинаю чертить план: в своем слое наношу оси, создаю соответствующий тип мультилинии и используя привязку веду по осям несущие стены, потом другим стилем перегородки и т.д. (параллельный вопрос — может быть есть способ лучше???). Когда стены прорисованы встает вопрос с проемами, задача: вставить в несущие стены оконные проемы таким образом, что бы толщина линий образующих стены в местах оконных проемов была тоньше (для наглядности) а линии несущих стен в местах дверных проемов просто исчезли. Как такого результата можно добиться наименьшими усилиями??? (очень надеюсь, что никого не запутал)

[v_alex]

Поищи тему "Хитрый блок"... там найдешь ответ на свой вопрос...

[Makswell]

Честно признаюсь, хотелось тоже что-то подобного, но решения так и не нашел. Как-то делал проёмы в виде блоков с маскировкой. Но обломало то, что блоки проёмов напрочь перекрывают оси, а оси должны быть всегда поверх всего. Больше ничего придумать не смог. Так что до сих пор стены с проёмами рисую линиями.

[skif58]

В таких случаях оси делаю Группой и на передний план (Порядок следования).

[Makswell]

skif58, да, так удобно (в смысле группой), но не совсем. Всё равно, при вставке нового блока-проема, или даже при его копировании - этот блок опять вылезает поверх осей. Операцию по изменению порядка следования надо проделывать заново. Это надо постоянно отслеживать.

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

А не проще сначала расставить блоки, а потом уже "поднимать" оси? Если уж на ADT не сесть ни в какую

[Makswell]

Сообщение от Кулик Алексей aka kpblc А не проще сначала расставить блоки, а потом уже "поднимать" оси? Если уж на ADT не сесть ни в какую

На ADT ни в какую. Уж что закупили, на том и приходится работать.

Вообще-то проёмы это полбеды, ещё например в стенах есть вентканалы, которые раскрываются на чердаке (если он теплый) и пересекают грань стены. Через них также всегда проходит ось. А уж как эти каналы будут меняться в процессе проектирования известно только Богу и ОВ-шникам.

Но не поэтому я отказался от этого метода. У меня просто постоянно было ощущение, что ситуация мне не подконтрольна. Я упомянул, что эти блоки закрывают линии осей при копировании или при вставке. А где гарантия, что при выполнении какой-нибудь хитрой команды, они опять всё не перекроют. Причём незаметно. Причём ещё и хаотично.

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

[glav_spec]

Нерадужная ситуация...
думал все намного проще: нажал кнопку указал место и вот уже окно а линия стены разбита и в месте проема изменила толщину. Много слышал про ADT - может все-таки сесть за него???

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

Я бы советовал - сейчас как раз занимаюсь его нормальной настройкой. Возможности поражают... Аж коленки трясутся
> Makswell, попробуй такой лиспик (написано "втупую", проверок минимум; все слои должны быть разморожены и разблокированы; внешние ссылки не отслеживаются):

Код:

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

(defun c:wipeout-front (/ adoc *error* blk_cont blk_lst selset _cmdecho)
  (defun *error* (msg)
    (if _cmdecho
      (setvar "cmdecho" _cmdecho)
      ) ;_ end of if
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if
      (and (equal (vla-get-islayout blk_def) :vlax-false)
          ;(not (wcmatch (vla-get-name blk_def) "`**"))
           (setq
             blk_cont (vl-remove-if-not
                        '(lambda (x)
                           (wcmatch (strcase (vla-get-objectname x)) "*WIPEOUT*")
                           ) ;_ end of lambda
                        ((lambda (/ res)
                           (vlax-for sub blk_def (setq res (cons sub res)))
                           ) ;_ end of lambda
                         )
                        ) ;_ end of vl-remove-if-not
             ) ;_ end of setq
           ) ;_ end of and
       (setq blk_lst (cons (vla-get-name blk_def) blk_lst))
       ) ;_ end of if
    ) ;_ end of vlax-for
  (if blk_lst
    (progn
      (setq selset
             (ssget
               "_X"
               (list
                 '(0 . "INSERT")
                 (cons
                   2
                   ((lambda (/ res)
                      (strcat
                        (car blk_lst)
                        (apply
                          'strcat
                          (mapcar '(lambda (x) (strcat x ",")) (cdr blk_lst))
                          ) ;_ end of apply
                        ) ;_ end of strcat
                      ) ;_ end of lambda
                    )
                   ) ;_ end of cons
                 ) ;_ end of list
               ) ;_ end of ssget
            ) ;_ end of setq
      (setq _cmdecho (getvar "cmdecho"))
      (setvar "cmdecho" 0)
      (command "_.draworder" selset "" "_f")
      (vla-regen adoc acallviewports)
      ) ;_ end of progn
    ) ;_ end of if
  (if _cmdecho
    (setvar "cmdecho" _cmdecho)
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

На дин.блоках не проверял. Возможно, даже будет работать

[Makswell]

Посмотрел. Поразбирался.
Спасибо, kpblc, программа нужная. Буду пользоваться.
Правда с учетом того, что я писал в предыдущих постах, там после
...
(setq _cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "_.draworder" selset "" "_f")
...

я добавил

Код:

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

(setq selset (ssget "_X" '((8 . "M-01-Оси"))))
(command "_.draworder" selset "" "_f")

Т.е. Оси всегда должны быть поверх всего.
У меня они все на одном слое. На нём кроме осей ничего больше нет, поэтому такое вот решение. "Такое вот" это в смысле не универсальное, хотя универсального здесь наверно и не придумать.

[keystut]

Хм, есть способ проще перечисленных, так меня учили когда я учился, специально для рисования окон и дверей, есть функция редактирование мультилинии (команда млред в русском акаде), Сначала в стиле мультилинии поставить галочку - показывать стыки, потом - млред-> добавить вершину, (вооружившись калькулятором и переставив ПСК в начало стены, указываем координаты одной и второй границ оконного проема, по всей стене (в тех местах появляются границы оконного проема)), потом млред - разорвать все, указываем мышью сначала одну границу проема, потом другую и так по всей стене, мультилиния в месте проема разрывается. Создаем стиль мультилинии окна, с тонкими линиями, и заполняем получившиеся проемы. Если надо убрать проем --> млред, удалить вершину, млред - соединит все.
В стене 40 метров, 10 проемов рисуются за 10 минут, включая рисование заполнений и проемов.
Единственное, вершины в мультилинию не будут добавляться, если её рисовать по часовой стрелке.

[Makswell]

Извиняюсь за тупой вопрос, но я просто в недоумении. Код из поста 9 (с моей добавкой из поста 10) вроде работал нормально. И вдруг перестал. Пишет:

Команда: wipeout-front Неизвестная команда "WIPEOUT-FRONT". Для вызова справки нажмите F1. Неизвестная команда "F". Для вызова справки нажмите F1. Неизвестная команда "WIPEOUT-FRONT". Для вызова справки нажмите F1. Неизвестная команда "F". Для вызова справки нажмите F1. Выполняется регенерация модели.

Причем даже если я даже загружаю через _.VLIDE
Шайтан прямо какой-то!

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

Знак подчеркивания не потерял?

[Makswell]

Вот прямо сейчас опять скопировал твой код прямо из форума (пост 9), вставил в редактор лисп. Загрузил, набрал в Автокаде wipeout-front - такой же результат.
Кстати ещё набрал в консоли VisualLISP тоже самое. Прошло всё тихо:

_$ wipeout-front nil _$

Блин, но ведь работало же

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

Попробуй выполнять пошагово. Кстати, какая версия AutoCAD'a и установлен ли на него ServicePack?

[Makswell]

У меня AutoCAD2008 SP1.
Ладно, буду рыться в коде, разбираться. Хотя как не кстати, как не кстати...

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

Да у тебя AutoCAD не находит знак "_" перед опцией команды _.draworder! Чего тут разбираться?

[Makswell]

Понял! Правильно ты упоминал о дин. блоках. Вот именно с ними и не работает. Если в списке blk_lst присутствуют такие имена, как *U1420 и т.п. то всё, кранты.
Сейчас думаю, как обойти.

PS Автокад не находит "_" перед опцией команды, если идет работа с файлом, где есть дин. блоки с макировкой. При работе лиспа в остальных файлах - он (Автокад) всё находит! Такая вот странность...

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

Я ж не зря писал:

На дин.блоках не проверял.

Сейчас попробую модифицировать код.
===
Добавлено: Попробуй, вдруг сработает (сейчас тестировать шансов нуль)

Код:

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

(defun c:wipeout-front (/ adoc *error* blk_cont blk_lst selset _cmdecho)
  (defun *error* (msg)
    (if _cmdecho
      (setvar "cmdecho" _cmdecho)
      ) ;_ end of if
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if
      (and (equal (vla-get-islayout blk_def) :vlax-false)
          ;(not (wcmatch (vla-get-name blk_def) "`**"))
           (setq
             blk_cont
              (vl-remove-if-not
                '(lambda (x)
                   (wcmatch (strcase (vla-get-objectname x))
                            "*WIPEOUT*"
                            ) ;_ end of wcmatch
                   ) ;_ end of lambda
                ((lambda (/ res)
                   (vlax-for sub blk_def (setq res (cons sub res)))
                   ) ;_ end of lambda
                 )
                ) ;_ end of vl-remove-if-not
             ) ;_ end of setq
           ) ;_ end of and
       (setq blk_lst
              (cons
                (cond
                  ((vlax-property-available-p blk_def 'effectivename)
                   (vla-get-effectivename blk_def)
                   )
                  (t (vla-get-name blk_def))
                  ) ;_ end of cond
                blk_lst
                ) ;_ end of cons
             ) ;_ end of setq
       ) ;_ end of if
    ) ;_ end of vlax-for
  (if blk_lst
    (progn
      (setq blk_lst  ((lambda (/ res)
                        (foreach item blk_lst
                          (if (not (member item res))
                            (setq res (cons item res))
                            ) ;_ end of if
                          ) ;_ end of foreach
                        res
                        ) ;_ end of lambda
                      )
            selset   (ssget
                       "_X"
                       (list
                         '(0 . "INSERT")
                         (cons
                           2
                           ((lambda (/ res)
                              (strcat
                                (car blk_lst)
                                (apply
                                  'strcat
                                  (mapcar '(lambda (x) (strcat x ",")) (cdr blk_lst))
                                  ) ;_ end of apply
                                ) ;_ end of strcat
                              ) ;_ end of lambda
                            )
                           ) ;_ end of cons
                         ) ;_ end of list
                       ) ;_ end of ssget
            _cmdecho (getvar "cmdecho")
            ) ;_ end of setq
      (setvar "cmdecho" 0)
      (command "_.draworder" selset "" "_f")
      (vla-regen adoc acallviewports)
      ) ;_ end of progn
    ) ;_ end of if
  (if _cmdecho
    (setvar "cmdecho" _cmdecho)
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Makswell]

К сожалению всё по прежнему.
Вот, прикладываю файл с дин.блоком с маскировкой, на котором я экпериментирую.

PS kpblc, лучше создавай новые посты, а то в "новых сообщениях" не видно, что в теме появилось что-то новое. Твой добавленый код я увидел случайно.

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

Я пас. Порядок отрисовки придется "ковырять" напрямую в словарях, а я в них "плаваю" слишком капитально

[Makswell]

Жаль.
Я так понял проблема в том, чтобы добавить вхождение дин. блока в набор (с фильтром по имени).
ssget это не делает. Но неужели нет другого способа? Ведь задача-то насущная.

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

Ну командными-то методами (в смысле - вручную) работает...

[Makswell]

Я вот подумал. А может попробовать ssadd. Типа такого:

(setq selset (ssadd))
;1 - Находим блок где есть wipeout
;2 - Получаем vla-указатель (obj) на этот блок
;потом...
(ssadd (vlax-vla-object->ename obj) selset)
;3 - повторяем п.1
;а дальше просто...
(command "_.draworder" selset "" "_f")

Как думаешь?

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

Удалил, чушь была написана.

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

Во, попробуй так:

Код:

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

(defun c:wipeout-front (/ adoc *error* blk_cont blk_lst selset _cmdecho)
  (defun *error* (msg)
    (if _cmdecho
      (setvar "cmdecho" _cmdecho)
      ) ;_ end of if
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if
      (and (equal (vla-get-islayout blk_def) :vlax-false)
          ;(not (wcmatch (vla-get-name blk_def) "`**"))
           (if (vlax-property-available-p blk_def 'isdynamicblock)
             (equal (vla-get-isdynamicblock blk_def) :vlax-false)
             (wcmatch (vla-get-name blk_def) "`**")
             ) ;_ end of if
           (setq
             blk_cont
              (vl-remove-if-not
                '(lambda (x)
                   (wcmatch (strcase (vla-get-objectname x))
                            "*WIPEOUT*"
                            ) ;_ end of wcmatch
                   ) ;_ end of lambda
                ((lambda (/ res)
                   (vlax-for sub blk_def (setq res (cons sub res)))
                   ) ;_ end of lambda
                 )
                ) ;_ end of vl-remove-if-not
             ) ;_ end of setq
           ) ;_ end of and
       (setq blk_lst (cons
                       (cond ((wcmatch (vla-get-name blk_def) "`**") "`**")
                             (t (vla-get-name blk_def))
                             ) ;_ end of cond
                       blk_lst
                       ) ;_ end of cons
             ) ;_ end of setq
       ) ;_ end of if
    ) ;_ end of vlax-for
  (if blk_lst
    (progn
      (setq blk_lst  ((lambda (/ res)
                        (foreach item blk_lst
                          (if (not (member item res))
                            (setq res (cons item res))
                            ) ;_ end of if
                          ) ;_ end of foreach
                        res
                        ) ;_ end of lambda
                      )
            selset   (ssget
                       "_X"
                       (list
                         '(0 . "INSERT")
                         (cons
                           2
                           ((lambda (/ res)
                              (strcat
                                (car blk_lst)
                                (apply
                                  'strcat
                                  (mapcar '(lambda (x) (strcat "," x))
                                          (cdr blk_lst)
                                          ) ;_ end of mapcar
                                  ) ;_ end of apply
                                ) ;_ end of strcat
                              ) ;_ end of lambda
                            )
                           ) ;_ end of cons
                         ) ;_ end of list
                       ) ;_ end of ssget
            _cmdecho (getvar "cmdecho")
            ) ;_ end of setq
      (setvar "cmdecho" 0)
      (command "_.draworder" selset "" "_f")
      (vla-regen adoc acallviewports)
      ) ;_ end of progn
    ) ;_ end of if
  (if _cmdecho
    (setvar "cmdecho" _cmdecho)
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Честно скажу, полной проверки не выполнял, ограничения как и в #9. Обычные wipeout'ы, которые не входят в блоки, обрабатывать не будет. Вроде как обрабатывает и простые, и динамические блоки

[Makswell]

Ты всё таки это сделал! Круто!
Спасибо, Алексей. Я твой должник.

[Volodich]

Странно, а я слои и размораживал и замораживал и включал и отключал, но почему-то все прекрасно срабатывает

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

Volodich, это про что?