Topic: limit contour

[Aldo]

Dear
I Contours in cad which must be processed in civil 3d, the inquiry is whether there is any way to generate a contour that delimits these contour lines, attach a file showing clearly what I need, I appreciate the care provided and support I provided.
regards

[ronjonp]

Here's a quick one that should work on your example based off of THIS thread. Welcome to TheSwamp 

Code - Auto/Visual Lisp: [Select]

1. (defun c:out (/ _daisychainsort e i l ss)
2.   (defun _daisychainsort (pt lst / tmp newlst dsort)
3.     (defun dsort (pt lst / d1 d2)
4.       (vl-sort lst (function (lambda (d1 d2) (< (distance pt d1) (distance pt d2)))))
5.     )
6.     (setq tmp (dsort pt lst))
7.     (while (setq tmp (dsort (car tmp) (cdr tmp))) (setq newlst (cons (car tmp) newlst)))
8.     (reverse newlst)
9.   )
10.   (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
11.     (progn (repeat (setq i (sslength ss))
12.         (setq e (ssname ss (setq i (1- i))))
13.         (setq l (cons (vlax-curve-getstartpoint e) l))
14.         (setq l (cons (vlax-curve-getendpoint e) l))
15.       )
16.       (setq l (_daisychainsort (car l) l))
17.       (entmakex (apply 'append
18.              (list (list   '(0 . "LWPOLYLINE")
19.                '(100 . "AcDbEntity")
20.                '(8 . "Boundary")
21.                '(100 . "AcDbPolyline")
22.                (cons 90 (length l))
23.                '(70 . 1)
24.               )
25.               (mapcar '(lambda (x) (cons 10 x)) l)
26.              )
27.            )
28.       )
29.     )
30.   )
31.   (princ)
32. )

[Aldo]

Excellent, it's just what I wanted, very grateful

[ronjonp]

Excellent, it's just what I wanted, very grateful

Glad to help 😁