[glav_spec]

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

[Кулик Алексей 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, это про что?