[Йинегве]

Добрый день!
На чертеже есть множество замкнутых полилиний. Почти все они залиты штриховкой. Можно ли каким-то способом выделить замкнутые полилинии, не залитые штриховкой? Общее число полилиний больше 1000. Не залитые штриховкой полилинии могут быть очень маленькими по площади и визуально определить их очень затруднительно.

[Sanmart]

Скорее всего, никак. Можно только по Closed=No.

[engngr]

Если штриховки ассоциативные, ещё можно было бы.

[name02]

Написал такую программку - проверка совпадение полилиний и штриховок выполняется по совпадению координат X и Y:

Код:

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

 (defun c:SELP (/ verteces_lst ss i ent hatch_lst pline_lst ss1)

  ;;составление списка координат вершин штриховки или полилинии
  (defun verteces_lst (ent /)
    ;;в зависимости от типа объекта берем нужную точечную пару

    (cond
      ((member '(0 . "HATCH") (entget ent))
       ;;удаляем из списка все кроме координат вершин (пары 11)
       (mapcar '(lambda	(x)
		  (list (cadr x) (caddr x))
		) ;_ end of lambda
	       (vl-remove-if-not
		 '(lambda (a)
		    (= (car a) 11)
		  ) ;_ end of lambda
		 (entget ent)
	       ) ;_ end of vl-remove-if-not

       ) ;_ end of mapcar
      )
      ((member '(0 . "LWPOLYLINE") (entget ent))
       ;;удаляем из списка все кроме координат вершин (пары 10)
       (mapcar 'cdr
	       (vl-remove-if-not
		 '(lambda (a)
		    (= (car a) 10)
		  ) ;_ end of lambda
		 (entget ent)
	       ) ;_ end of vl-remove-if-not
       ) ;_ end of mapcar
      ) ;_ end of cond
    ) ;_ end of setq


  ) ;_ end of defun


  (setq ss (ssget '((0 . "HATCH,LWPOLYLINE"))))

  ;;из общего набора выделяем отдельно штриховки и полилинии
  (repeat (setq i (sslength ss))
    (setq ent (ssname ss (setq i (1- i))))

    (cond
      ((wcmatch (cdr (assoc 0 (entget ent))) "HATCH")
       (setq hatch_lst (cons ent hatch_lst))
      )
      ((wcmatch (cdr (assoc 0 (entget ent))) "LWPOLYLINE")
       (setq pline_lst (cons ent pline_lst))
      )
      (T nil)
    ) ;_ end of cond
  ) ;_ end of repeat

  ;;набор для хранения итоговых полилиний
  (setq ss1 (ssadd))

  ;;проходим список полилиний и сравниваем координаты вершин с вершинами штриховок
  (mapcar '(lambda (x / pline_vert_lst i flag)
	     ;;определяем вершины координат полилинии
	     (setq pline_vert_lst (verteces_lst x))

	     ;;проходим все штриховки поочереди и определяем их координаты
	     ;;проверяем совпадение вершин штриховки и полилинии
	     (repeat (setq i (length hatch_lst))

	       (setq flag T)

	       ;;определяем вершины штриховки
	       (setq hatch_vert_lst (verteces_lst (nth (setq i (1- i)) hatch_lst)))

	       ;;если все вершины полилинии есть в списке вершин штриховки
	       (mapcar '(lambda	(b)
			  (if (null (member b hatch_vert_lst))
			    (setq flag nil)
			  ) ;_ end of if

			) ;_ end of lambda
		       pline_vert_lst
	       ) ;_ end of mapcar

	       ;;если после проверки - истина, то помещаем данную полилинию в список

	       (if (= flag T)
		 (ssadd x ss1)
	       ) ;_ end of if

	     ) ;_ end of while
	   ) ;_ end of lambda

	  pline_lst

  ) ;_ end of mapcar

  ;;если в итоге есть набор
  (sssetfirst nil ss1)

  (princ)

) ;_ end of defun

SELP.lsp

[Йинегве]

Сообщение от engngr Если штриховки ассоциативные, ещё можно было бы.

Да, штриховки ассоциативные

----- добавлено через 52 сек. -----

Сообщение от name02 Написал такую программку - проверка совпадение полилиний и штриховок выполняется по совпадению координат X и Y: Код: [Выделить все] (defun c:SELP (/ verteces_lst ss i ent hatch_lst pline_lst ss1) ;;составление списка координат вершин штриховки или полилинии (defun verteces_lst (ent /) ;;в зависимости от типа объекта берем нужную точечную пару (cond ((member '(0 . "HATCH") (entget ent)) ;;удаляем из списка все кроме координат вершин (пары 11) (mapcar '(lambda (x) (list (cadr x) (caddr x)) ) ;_ end of lambda (vl-remove-if-not '(lambda (a) (= (car a) 11) ) ;_ end of lambda (entget ent) ) ;_ end of vl-remove-if-not ) ;_ end of mapcar ) ((member '(0 . "LWPOLYLINE") (entget ent)) ;;удаляем из списка все кроме координат вершин (пары 10) (mapcar 'cdr (vl-remove-if-not '(lambda (a) (= (car a) 10) ) ;_ end of lambda (entget ent) ) ;_ end of vl-remove-if-not ) ;_ end of mapcar ) ;_ end of cond ) ;_ end of setq ) ;_ end of defun (setq ss (ssget '((0 . "HATCH,LWPOLYLINE")))) ;;из общего набора выделяем отдельно штриховки и полилинии (repeat (setq i (sslength ss)) (setq ent (ssname ss (setq i (1- i)))) (cond ((wcmatch (cdr (assoc 0 (entget ent))) "HATCH") (setq hatch_lst (cons ent hatch_lst)) ) ((wcmatch (cdr (assoc 0 (entget ent))) "LWPOLYLINE") (setq pline_lst (cons ent pline_lst)) ) (T nil) ) ;_ end of cond ) ;_ end of repeat ;;набор для хранения итоговых полилиний (setq ss1 (ssadd)) ;;проходим список полилиний и сравниваем координаты вершин с вершинами штриховок (mapcar '(lambda (x / pline_vert_lst i flag) ;;определяем вершины координат полилинии (setq pline_vert_lst (verteces_lst x)) ;;проходим все штриховки поочереди и определяем их координаты ;;проверяем совпадение вершин штриховки и полилинии (repeat (setq i (length hatch_lst)) (setq flag T) ;;определяем вершины штриховки (setq hatch_vert_lst (verteces_lst (nth (setq i (1- i)) hatch_lst))) ;;если все вершины полилинии есть в списке вершин штриховки (mapcar '(lambda (b) (if (null (member b hatch_vert_lst)) (setq flag nil) ) ;_ end of if ) ;_ end of lambda pline_vert_lst ) ;_ end of mapcar ;;если после проверки - истина, то помещаем данную полилинию в список (if (= flag T) (ssadd x ss1) ) ;_ end of if ) ;_ end of while ) ;_ end of lambda pline_lst ) ;_ end of mapcar ;;если в итоге есть набор (sssetfirst nil ss1) (princ) ) ;_ end of defun Вложение 262803

Спасибо, попробую