[fellow123]

Доброго времени суток!
Поискали на форуме, но так и не нашел ответ на вопрос: есть ли программным путем или стандартными средствами в Autocad решить проблему выбора объектов находящихся внутри замкнутой полилинии. Я занимаюсь топографическим съемками и при обновлении информации иногда нужно просто удалить старую находящуюся в определенном контуре и просто вставить обновленную. Если кто уже решал подобную задачу, подскажите!!
Заранее благодарен за ответы!

[fellow123]

Доброго времени суток!
Поискали на форуме, но так и не нашел ответ на вопрос: есть ли программным путем или стандартными средствами в Autocad решить проблему выбора объектов находящихся внутри замкнутой полилинии. Я занимаюсь топографическим съемками и при обновлении информации иногда нужно просто удалить старую находящуюся в определенном контуре и просто вставить обновленную. Если кто уже решал подобную задачу, подскажите!!
Заранее благодарен за ответы!

[Profan]

Использовать для выбора объектов секущий многоугольник (обвести им полилинию)?

[fellow123]

Сообщение от Profan Использовать для выбора объектов секущий многоугольник (обвести им полилинию)?

Можно подробней? Какая команда?

[Profan]

Команда "_ERASE" ("СТЕРЕТЬ") с опцией "_CP" ("СМ").

[fellow123]

не получается что то
секущий многоугольник имеется ввиду region?
как набрать в ком. строке: _erase_cp не проходит

[Profan]

Сначала ввести _erase, потом на запрос выбора объектов ввести _cp.

[fellow123]

Сообщение от Profan Команда "_ERASE" ("СТЕРЕТЬ") с опцией "_CP" ("СМ").

не получается что то
секущий многоугольник имеется ввиду region?
как набрать в ком. строке: _erase_cp не проходит

[Profan]

Смотри #6.

[fellow123]

Сообщение от Profan Сначала ввести _erase, потом на запрос выбора объектов ввести _cp.

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

[getr]

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

[fellow123]

Сообщение от getr Тоже как-то был озадачен похожей проблемой..решил для себя этим лиспом- попробуй, может пригодится...сразу оговорюсь,что не сильно разбираюсь в Lisp и данный код собрал из кусков..не помню уж в каких случаях,но бывает что работает не так как хочется..короче -пробуй.

Спасибо! работает!!

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

Чтобы по всем вершинам не кликать:

Код:

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

 (defun sel-by-pline (/ ent ss)
  (if (and (= (type (setq ent (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (ssname (ssget "_:E" '((0 . "LWPOLYLINE") (70 . 1))) 0)
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'ename
              ) ;_ end of =
           (= (type (setq ss (vl-catch-all-apply
                               (function
                                 (lambda ()
                                   (ssget "_wP"
                                          (mapcar
                                            (function cdr)
                                            (vl-remove-if-not
                                              (function
                                                (lambda (x)
                                                  (= (car x) 10)
                                                  ) ;_ end of lambda
                                                ) ;_ end of function
                                              (entget ent)
                                              ) ;_ end of vl-remove-if-not
                                            ) ;_ end of mapcar
                                          ) ;_ end of ssget
                                   ) ;_ end of lambda
                                 ) ;_ end of function
                               ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              ) ;_ end of =
           ) ;_ end of and
    (sssetfirst ss ss)
    ) ;_ end of if
  ) ;_ end of defun

Парочка "но": полилиния не должна иметь самопересечений; дуговые сегменты не обрабатываются.

[fellow123]

СпасибО!! Работает!!

[VVA]

LISP.Выделение объектов в области контура
Выделение объектов в области контура, AutoCAD
Выделение снаружи _pline
Удаление объектов находящихся за заданным контуром

[fellow123]

Еще один вопрос! Думаю он тоже может подойти к этой теме!
Может есть лисп который может сделать такие же действия только по заданным координатам Z (высотам, отметкам)? То есть удалить всю информацию ниже какой то отметки, высоты или выше.

[Victor]

А точно лисп нужен? Я обычно сбоку смотрю и стираю то что ниже опеделённой отметки. Часто бывает 3Д-линия идёт нормально,
а потом вдруг скачет на ноль. Я её отмечаю, возвращаюсь в обычный вид и исправляю ошибку.

[fellow123]

дело в том что я занимаюсь проектированием и нужно частенько делать погоризонтные планы. Было бы очень удобно если бы нужный диапазон отметок сразу отсекался автоматически!

[tujn08]

Привет! Как правильно использовать: (ssget "_WP"....?
или то, что поможет выбирать многоугольником, визуально показывая границы выбора (не секущей рамкой)
Хочу получить набор блоков из слоя, а визуально как если бы выбирал: (command "_select" "_wp").

Спасибо!

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

См.ключи ssget. Ну и не забывай про то, что при подобных режимах выбора все точки должны быть видны на экране.