[iskatel111]

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

но вот есть команда BOUNDARY, которая делает то что нужно, только вручную нужно внутрь контура ткнуть. может есть возможность както автоматически определить все замкнутые контуры?

[kp+]

Самое простое - находите центр прямоугольника, в который вписывается одна из полилиний, входящая в контур (с помощью GetBoundingBox), и программно "тыкайте" в него. Впрочем, смотря какие полилинии. Если изолинии с зигзагами - может не помочь. Чертеж бы посмотреть...
А Вам неплохо бы посмотреть в сторону верт. решений типа Civil, приложений типа GeoniCS или спец. софта типа Mapinfo

[iskatel111]

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

[Солидворкер]

Сообщение от iskatel111 контура

Ведь в следующей строке это слово написано правильно....

[kp+]

Сообщение от iskatel111 там просто линии, например прямоугольник, нарисованный четырьмя линиями.

С этим отлично справится pltools, команда PL-JOIN. Может, этого будет и достаточно. Да и стандартную опцию join команды pline никто не отменял.
Потом, если не все найдется - можно продолжить искать контураы с помощью функции (boundary)
PS пример чертежа секретный?

[Олег (jr.)]

Сообщение от iskatel111 может есть возможность както автоматически определить все замкнутые контуры?

Определи указатель в документе на последний объект entlast:

Код:

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

(setq mark (entlast))

затем выдели с помощью:

Код:

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

(setvar "peditaccept" 1)
(command ".pedit" "_m" (ssget '((0 . "LINE"))) "" "J" "" "" "")
(while (setq next (entnext mark))
(setq joined_plines (cons (entlast) joined_plines))
(setq mark next)
)

далее циклом

Код:

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

(foreach pline joined_plines
;; ищем точку внутри
;; выполняем команду BOUNDARY, "которая делает то что нужно"
;; взрываем контур или оставляем как есть
)
(setvar "peditaccept" 0)

Проверь синтаксис, пишу прямо здесь

~'o'~

[VVA]

Сообщение от iskatel111 может есть возможность както автоматически определить все замкнутые контуры?

Сайт

Today I post a Lisp in theswamp.org: to find each closed boundary of selected object

Сам код

[Олег (jr.)]

Можно проще

Код:

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

;; FIND BOUNDARY
;;http://forum.dwg.ru/showpost.php?p=962437&postcount=7

;;; writed by Gian Paolo Cattaneo
(defun Point-in-ClosedCurve-p (l pt / ang p1 p2 n r at)
  (setq ang 0.0)
  (while (and (cadr l) (not at))
    (setq p1 (car l)
	  p2 (cadr l)
	  l  (cdr l)
	  an1 (- (angle pt p2) (angle pt p1))
    )    
    (if	(< an1 (- pi))
      (setq an1 (+ an1 pi pi))
      (if (> an1 pi)
	(setq an1 (- an1 pi pi))
      )
    )
    (if	(equal (abs an1) pi 1e-14)
      (setq at T)
    )
    (setq ang (+ ang an1))
  )
  ;;deal widding number  
  (if at
    0
    (progn
      (setq n (/ ang 2. pi))
      (if (and (> n 0) (equal (1+ (fix n)) n 1e-2))
 ;_Change Acc 1e-4 to 1e-2 for correct 2012-8-3
	(setq n (1+ (fix n)))
	(if (and (< n 0) (equal (1- (fix n)) n 1e-2))
 ;_Change Acc 1e-4 to 1e-2 for correct 2012-8-3
	  (setq n (1- (fix n)))
	  (setq n (fix n))
	)
      )
      (if (= (rem n 2) 0)
	-1
	1
      )
    )
  )
)

(defun C:ltop(/ joined_plines lst mark next pt pts x)
  (setq pts nil)
  (while (setq pt (getpoint "\nУкажи точку внутри контура или Enter для завершения: "))
    (setq pts (cons pt pts)))
(setq mark(entlast))
(setvar "peditaccept" 1)
(command "_pedit" "_m" (ssget '((0 . "LINE"))) "" "J" "" "" "")
(while (setq next (entnext mark))
(setq joined_plines (cons next joined_plines))
(setq mark next)
)
(foreach pline joined_plines
  (setq lst (vl-remove-if 'not(mapcar '(lambda(x)(if (eq 10 (car x)) (cdr x)))(entget pline))))
  (foreach pt pts
    
    (if (Point-in-ClosedCurve-p lst pt)
      
  (command "_chprop" pline "" "_color" 1 "")  
  )
      )
  )
(setvar "peditaccept" 0)
(princ)
  )

~'o'~