motee-z,
If you close your breaklines to make a continuous loop,
the 3dfaces will be erased by Triang program automatically.
if it's only selecting you want, then after triangulating close
the breaklines and use the polyline as a window crossing polygon.
Look at this section of code and modify:
;; ;
;; Erasing Triangles in Holes of Triangulation, ;
;; And Adjusting Triangle List ;
;; ;
;; Notes: This is a fast hack where we select 3Dfaces with a ;
;; Crossing Polygon then Computes their Centroid and ;
;; remove those whose centroid is inside the poly. ;
;; ;
;; Will change it eventually to offset the polyline ;
;; to the outside by a few millimeters, and make the ;
;; Selection by Window Polygon. ;
;; ;
(vl-cmdf "_ZOOM" "_E")
(foreach wp wpl
(setq wp (mapcar '(lambda (a) (list (car a) (cadr a))) wp))
(while (equal (car wp) (last wp) 0.001) (setq wp
(butlast wp)))
(setq ss (ssget "_CP" wp '((0 . "3DFACE"))))
(repeat (setq i (sslength ss))
(setq en (ssname ss (setq i (1- i)))
ent (entget en)
tp (list (cdr (assoc 11 ent))
(cdr (assoc 12 ent))
(cdr (assoc 13 ent))
)
)
(if (ptinpoly_p (centroid tp) wp)
(setq tr (list (vl-position (car tp) pl)
(vl-position (cadr tp) pl)
(vl-position (caddr tp) pl)
)
tl (vl-remove tr tl)
** (entdel en)
)
)
)
)
ymg
