[Pavel_GP]

Здравствуйте.
Подскажите плз, как удалить примитивы через "примитив" . Подскажите макрос или код.
Пример: Есть группа отрезков, необходимо удалить 5 отрезков через отрезок.
Пример прикладываю.
Красным - отрезки которые нужно удалить. Этих отрезков множество (в ручную долго удалять).
Спс.

[Дима_]

Удали все и массивом сделай новый

[pan]

Удалить все отрезки, а вместо них использовать примерно такой тип линий:

Код:

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

*ОГРАЖДЕНИЕ,Ограждение  |__|__|__|__|__|__|
A,0,[TRACK1,ltypeshp.shx,s=0.5,r=0,x=0,y=0.5],5.0

[Pavel_GP]

Сообщение от Дима_ Удали все и массивом сделай новый

Расстояние между отрезками может быть разным (не обязательно одинаковым) - массивом я бы сам сделал и не обращался за советом =). Поэтому необходимо удалить отрезки только так.

Сообщение от pan Удалить все отрезки, а вместо них использовать примерно такой тип линий:

У меня не забор. Это отрезки - соединять их нельзя.

ПыСы Жду еще советов.
Спс.

Читаю Н.Полещук, предполагаю тут можно воспользоваться функцией ssadd (добавить примитив в набор) и ssdel или ssnamex (удалить примитив из набора или извлечь по порядковому номеру). Как эти функции совместить я пока не знаю (может даже не они совсем тут применимы).
Спс

[Дима_]

Сообщение от Pavel_GP Жду решений Гуру- Lisp

Распорядился вроде?

[Pavel_GP]

Сообщение от Дима_ Распорядился вроде?

Ничего грубого своей фразой я не хотел сказать и некого напрячь.

[Дима_]

Ладно забей (показалось):

Код:

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

 (vl-load-com)
(defun c:jump-delete()
  ((lambda (pt1 adoc frec)
     ((lambda (pt2)
        (vla-startundomark adoc)
        (frec nil (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_F" (list pt1 pt2))))))
        (vla-endundomark adoc))
      (getpoint pt1 "\nКонец ")))
   (getpoint "\nНачало ")
   (vla-get-ActiveDocument(vlax-get-acad-object))
   (lambda (x lst)
     (if lst
        (progn (if x (entdel (car lst)))
               (frec (not x) (cdr lst)))))))

Удаляет через 1 примитив пересекающий линии (первый оставляет).
p.s. запуск jump-delete
p.p.s - чуть исправил

[TararykovDG]

Ну с Дима_ тягаться тяжело, но вот еще вариант

Код:

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

 
; Пример вызова: (del-obj 1 5) - один (начиная с первого) оставить пять удалить
(defun del-obj(save_count del_count / )
  (vl-load-com)
  ((lambda(first_point actdoc)
     (vla-startundomark actdoc)
     (if (and first_point
              (not (vl-catch-all-error-p first_point))
              )
       ((lambda(end_point)
          (if (and end_point
                   (not (vl-catch-all-error-p end_point))
                   )
            ((lambda(nbr i sum)
               (if nbr
                 (foreach item (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))
                   (if (> i save_count)
                     (entdel item)
                     )
                   (setq i (1+ i))
                   (if (> i sum)
                     (setq i 1)
                     )
                   )
                 )
               )
              (ssget "_F" (list first_point end_point))
              1
               (+ save_count del_count)
              )
            )
          )
         (vl-catch-all-apply 'getpoint
                             (list first_point "\nУкажите последнюю точку участка разряжения: ")
                             )
         )
       )
     (vla-endundomark actdoc)
     )
    (vl-catch-all-apply 'getpoint
                        (list "\nУкажите первую точку участка разряжения: ")
                        )
    (vla-get-activedocument (vlax-get-acad-object))
    )
  (princ)
  ); end c:del-obj

[Дима_]

Ну я дал - пока не увидел что TararykovDG сделал и не понял, что может и не через 1 "прыгать":

как удалить примитивы через "примитив"

и все тут (а "красными -отрезки которые нужно удалить"- отдельная история - дальтоник я)

Код:

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

 (vl-load-com)
(defun jump-delete(jump)
  ((lambda (pt1 adoc frec)
     ((lambda (pt2)
        (vla-startundomark adoc)
        (frec 0 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_F" (list pt1 pt2))))))
        (vla-endundomark adoc))
      (getpoint pt1 "\nКонец ")))
   (getpoint "\nНачало ")
   (vla-get-ActiveDocument(vlax-get-acad-object))
   (lambda (x lst)
     (if lst
        (if (zerop x)
            (frec jump (cdr lst))
            (progn (entdel (car lst))
                   (frec (1- x) (cdr lst))))))))

Запускать (jump-delete X), где X - через сколько прыгать (1 оставляет).

[Pavel_GP]

Дима_ TararykovDG
ВЫ гении.
Спс огромное