topic Re: code to create 3DPOLY from 3D LINes in Visual LISP, AutoLISP and General Customization Forum

code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Sat, 08 Aug 2026 19:49:23 GMT

I have a routine that creates a series of 3d LINEs for the boundary of a group of 3DFACEs.

Does anyone have an autoLisp (not visual lisp, I am using R14) that would join the 3D LINEs into a 3D POLYINE? The 3D LINEs are not in any order.

Re: code to create 3DPOLY from 3D LINes

Sea-Haven — Sat, 08 Aug 2026 23:30:45 GMT

A couple of ideas, this expects that all the lines are in same direction and in sequence.

(defun c:wow ( / ss lst ent pt) (setq ss (ssget '((0 . "LINE")))) (setq lst '()) (repeat (setq x (sslength ss)) (setq ent (entget (ssname ss (setq x (1- x))))) (setq lst (cons (cdr (assoc 10 ent)) lst)) ) (entmake '((0 . "POLYLINE") (70 . 9))) (foreach pt lst (entmake (list '(0 . "VERTEX") '(70 . 32) (cons 10 pt)))) (entmake '((0 . "SEQEND"))) (princ) )

A good idea is post a sample dwg use say WBLOCK to export your 3d lines.

Re: code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Sun, 09 Aug 2026 00:09:24 GMT

Well the lines are not in the same direction and not in sequence, if you define sequence as created sequentially. drawing attached.

Re: code to create 3DPOLY from 3D LINes

chriscowgill7373 — Sun, 09 Aug 2026 00:55:04 GMT

It is unfortunate that you are stuck on almost 30 year old software. The JOIN command would be able to handle it in newer versions. Have you tried the PLJOIN Bonus tool to make sure it didnt work?

Couldnt you just select all the lines, obtain the list of coordinates, sort that list and the remove duplicates and start the command feeding the filtered list into it? Or, were those functions not available in R14? It is very difficult to look at a task like this because it cant be tested. Maybe it works similar to lisp in LT or in MAC, so someone with one of those software might be able to write a code and test it.

Re: code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Sun, 09 Aug 2026 12:57:00 GMT

@chriscowgill7373 wrote:
It is unfortunate that you are stuck on almost 30 year old software. The JOIN command would be able to handle it in newer versions. Have you tried the PLJOIN Bonus tool to make sure it didnt work?
Couldnt you just select all the lines, obtain the list of coordinates, sort that list and the remove duplicates and start the command feeding the filtered list into it? Or, were those functions not available in R14? It is very difficult to look at a task like this because it cant be tested. Maybe it works similar to lisp in LT or in MAC, so someone with one of those software might be able to write a code and test it.

You are probably correct. I have found several PLJOIN type lisp routines, but of course they will not work with my old R14. Guess I will have to write my own.

Re: code to create 3DPOLY from 3D LINes

marko_ribar — Sun, 09 Aug 2026 18:00:02 GMT

Here, try these 2 variants... First one should be much faster... ~~Untested though (quickly written)~~...

(defun c:lins23dpoly ( / ss i lil lix liln li lii ) (if (setq ss (ssget (list (cons 0 "LINE")))) (progn (repeat (setq i (sslength ss)) (setq lil (cons (list (cdr (assoc 10 (setq lix (entget (ssname ss (setq i (1- i))))))) (cdr (assoc 11 lix))) lil)) ) (setq liln (cons (car lil) liln)) (while (setq li (car lil)) (setq lil (cdr lil)) (setq lii (vl-some (function (lambda (x) (if (or (equal (cadr li) (car x) 1e-8) (equal (cadr li) (cadr x) 1e-8)) x))) lil)) (cond ( (and lii (equal (cadr li) (car lii) 1e-8)) (setq liln (cons lii liln) lil (cons lii (vl-remove lii lil))) ) ( lii (setq liln (cons (reverse lii) liln) lil (cons (reverse lii) (vl-remove lii lil))) ) ) ) (entmake (list (cons 0 "POLYLINE") (cons 70 9))) (foreach pt (mapcar (function car) liln) (entmake (list (cons 0 "VERTEX") (cons 70 32) (cons 10 pt))) ) (entmake (list (cons 0 "SEQEND"))) ) ) (princ) ) (defun c:lins23dpoly-vanilla ( / _reverse _vl-some _vl-remove ss i lil lix liln li lii ) (defun _reverse ( lst / r ) (while lst (setq r (cons (car lst) r)) (setq lst (cdr lst)) ) r ) (defun _vl-some ( fun lst / func el r ) (setq func (eval fun)) (while (setq el (car lst)) (if (setq r (func el)) (setq lst nil) ) (setq lst (cdr lst)) ) r ) (defun _vl-remove ( el lst / e r ) (while (setq e (car lst)) (if (not (equal e el)) (setq r (cons e r)) ) (setq lst (cdr lst)) ) (_reverse r) ) (if (setq ss (ssget (list (cons 0 "LINE")))) (progn (repeat (setq i (sslength ss)) (setq lil (cons (list (cdr (assoc 10 (setq lix (entget (ssname ss (setq i (1- i))))))) (cdr (assoc 11 lix))) lil)) ) (setq liln (cons (car lil) liln)) (while (setq li (car lil)) (setq lil (cdr lil)) (setq lii (_vl-some (function (lambda (x) (if (or (equal (cadr li) (car x) 1e-8) (equal (cadr li) (cadr x) 1e-8)) x))) lil)) (cond ( (and lii (equal (cadr li) (car lii) 1e-8)) (setq liln (cons lii liln) lil (cons lii (_vl-remove lii lil))) ) ( lii (setq liln (cons (_reverse lii) liln) lil (cons (_reverse lii) (_vl-remove lii lil))) ) ) ) (entmake (list (cons 0 "POLYLINE") (cons 70 9))) (foreach pt (mapcar (function car) liln) (entmake (list (cons 0 "VERTEX") (cons 70 32) (cons 10 pt))) ) (entmake (list (cons 0 "SEQEND"))) ) ) (princ) )

HTH.

M.R.

Re: code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Sun, 09 Aug 2026 16:12:42 GMT

@marko_ribar wrote:
Here, try these 2 variants... First one should be much faster... Untested though (quickly written)...
HTH.
M.R.

I appreciate the effort, but as stated in my original post, I am usingR14, NO VL functions. The AI websites have the same reaction.

Re: code to create 3DPOLY from 3D LINes

leeminardi — Sun, 09 Aug 2026 16:20:26 GMT

@marko_ribar

Tested it and got

Re: code to create 3DPOLY from 3D LINes

marko_ribar — Sun, 09 Aug 2026 18:00:49 GMT

Thanks for reporting bug... Now fixed...

M.R.

Re: code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Sun, 09 Aug 2026 21:31:19 GMT

@marko_ribar wrote:
Here, try these 2 variants... First one should be much faster... ~~Untested though (quickly written)~~...
HTH.
M.R.

I tried the vanilla version in R14. Seems to work correctly down to this line:

(setq lii (_vl-some (function (lambda (x) (if (or (equal (cadr li) (car x) 1e-8) (equal (cadr li) (cadr x) 1e-8)) x))) lil))

Gives me: "ACAD error: null function"

Re: code to create 3DPOLY from 3D LINes

Sea-Haven — Mon, 10 Aug 2026 02:20:27 GMT

@marko_ribar worked fine in Bricscad, is the problem (_vl-some which may not be in R14 being a VL function.

My biggest suggestion would be maybe look at upgrading software to something more current, Bricscad Lite has lisp. There are others.

Re: code to create 3DPOLY from 3D LINes

marko_ribar — Mon, 10 Aug 2026 11:54:41 GMT

Here, I changed just slightly (_vl-some) function and line with (_vl-some) in routine body... It worked on my BricsCAD...

(defun c:lins23dpoly-vanilla ( / _reverse _vl-some _vl-remove ss i lil lix liln li lii ) (defun _reverse ( lst / r ) (while lst (setq r (cons (car lst) r)) (setq lst (cdr lst)) ) r ) (defun _vl-some ( fun lst / el r ) (while (setq el (car lst)) (if (apply fun (list el)) (setq r el lst nil) ) (setq lst (cdr lst)) ) r ) (defun _vl-remove ( el lst / e r ) (while (setq e (car lst)) (if (not (equal e el)) (setq r (cons e r)) ) (setq lst (cdr lst)) ) (_reverse r) ) (if (setq ss (ssget (list (cons 0 "LINE")))) (progn (repeat (setq i (sslength ss)) (setq lil (cons (list (cdr (assoc 10 (setq lix (entget (ssname ss (setq i (1- i))))))) (cdr (assoc 11 lix))) lil)) ) (setq liln (cons (car lil) liln)) (while (setq li (car lil)) (setq lil (cdr lil)) (setq lii (_vl-some (function (lambda (x) (or (equal (cadr li) (car x) 1e-8) (equal (cadr li) (cadr x) 1e-8)))) lil)) (cond ( (and lii (equal (cadr li) (car lii) 1e-8)) (setq liln (cons lii liln) lil (cons lii (_vl-remove lii lil))) ) ( lii (setq liln (cons (_reverse lii) liln) lil (cons (_reverse lii) (_vl-remove lii lil))) ) ) ) (entmake (list (cons 0 "POLYLINE") (cons 70 9))) (foreach pt (mapcar (function car) liln) (entmake (list (cons 0 "VERTEX") (cons 70 32) (cons 10 pt))) ) (entmake (list (cons 0 "SEQEND"))) ) ) (princ) )

HTH.

M.R.

Re: code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Mon, 10 Aug 2026 12:42:51 GMT

@marko_ribar wrote:
Here, I changed just slightly (_vl-some) function and line with (_vl-some) in routine body... It worked on my BricsCAD...
HTH.
M.R.

Still getting "null function" at this line:

(setq lii (_vl-some (function (lambda (x) (or (equal (cadr li) (car x) 1e-8) (equal (cadr li) (cadr x) 1e-8)))) lil))

Not getting to the "_vl-some" routine.

I am no expert lisp programmer, but could it be that the "function" call is not supported in my old R14?

Don't worry about this problem. I will write a "C" program that works in R14.

Re: code to create 3DPOLY from 3D LINes

marko_ribar — Mon, 10 Aug 2026 13:06:46 GMT

@autoid374ceb4990 wrote:
@marko_ribar wrote:
Here, I changed just slightly (_vl-some) function and line with (_vl-some) in routine body... It worked on my BricsCAD...
HTH.
M.R.
Still getting "null function" at this line:
(setq lii (_vl-some (function (lambda (x) (or (equal (cadr li) (car x) 1e-8) (equal (cadr li) (cadr x) 1e-8)))) lil))
Not getting to the "_vl-some" routine.
I am no expert lisp programmer, but could it be that the "function" call is not supported in my old R14?
Don't worry about this problem. I will write a "C" program that works in R14.

That is possible... Your AutoCAD is too old, but I prepared this mod. that may succeed... Please, test it now... It also worked on my BricsCAD...

(defun c:lins23dpoly-vanilla-foo ( / _reverse _foo _vl-remove ss i lil lix liln li lii ) (defun _reverse ( lst / r ) (while lst (setq r (cons (car lst) r)) (setq lst (cdr lst)) ) r ) (defun _foo ( li lst / el r ) (while (setq el (car lst)) (if (or (equal (cadr li) (car el) 1e-8) (equal (cadr li) (cadr el) 1e-8)) (setq r el lst nil) ) (setq lst (cdr lst)) ) r ) (defun _vl-remove ( el lst / e r ) (while (setq e (car lst)) (if (not (equal e el)) (setq r (cons e r)) ) (setq lst (cdr lst)) ) (_reverse r) ) (if (setq ss (ssget (list (cons 0 "LINE")))) (progn (repeat (setq i (sslength ss)) (setq lil (cons (list (cdr (assoc 10 (setq lix (entget (ssname ss (setq i (1- i))))))) (cdr (assoc 11 lix))) lil)) ) (setq liln (cons (car lil) liln)) (while (setq li (car lil)) (setq lil (cdr lil)) (setq lii (_foo li lil)) (cond ( (and lii (equal (cadr li) (car lii) 1e-8)) (setq liln (cons lii liln) lil (cons lii (_vl-remove lii lil))) ) ( lii (setq liln (cons (_reverse lii) liln) lil (cons (_reverse lii) (_vl-remove lii lil))) ) ) ) (entmake (list (cons 0 "POLYLINE") (cons 70 9))) (foreach pt (mapcar (function car) liln) (entmake (list (cons 0 "VERTEX") (cons 70 32) (cons 10 pt))) ) (entmake (list (cons 0 "SEQEND"))) ) ) (princ) )

HTH.

M.R.

Re: code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Mon, 10 Aug 2026 14:44:15 GMT

@marko_ribar wrote:
That is possible... Your AutoCAD is too old, but I prepared this mod. that may succeed... Please, test it now... It also worked on my BricsCAD...
HTH.
M.R.

Tried it, same error.

And for everyone that has suggested upgrading my AutoCAD - NOT going to do that. I am a retired civil engineer and land surveyor and I wrote all the software starting with AC 9 that I used in my business. I even still have an old HP 7580B pen plotter. Got tired of having to buy a new compiler every time AutoCAD upgraded, plus I did not like their "lend-lease" pricing policy. End rant.

Re: code to create 3DPOLY from 3D LINes

Sea-Haven — Tue, 11 Aug 2026 00:18:59 GMT

I run lisp code I wrote back in the 80's on current Acad and Bricscad, with no code changes. You refer to compiler did you also do some ADS coding ?

Bricscad can be purchased as perpetual.

Re: code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Tue, 11 Aug 2026 12:52:53 GMT

@Sea-Haven wrote:
I run lisp code I wrote back in the 80's on current Acad and Bricscad, with no code changes. You refer to compiler did you also do some ADS coding ?
Bricscad can be purchased as perpetual.

When I started in business I purchased an Apple II and started writing my business software in interpreted Basic. Then Apple brought out the Macintosh, and you had to purchase a $6000 Lisa machine to program the Mac. I switched to the IBM PC and converted all my Apple stuff to "C". Been using it ever since, compiled the "C" code into ARX programs for R14.

Re: code to create 3DPOLY from 3D LINes

jochen2 — Tue, 11 Aug 2026 13:07:40 GMT

Try out my PEDIT3D

Free download from

www.black-cad.de

Regards

Jochen

Re: code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Tue, 11 Aug 2026 13:17:02 GMT

@jochen2 wrote:
Try out my PEDIT3D
Free download from
www.black-cad.de
Regards
Jochen

Tried to load it. Got a "Load failed' error. Probably because I am using R14.

Re: code to create 3DPOLY from 3D LINes

autoid374ceb4990 — Tue, 11 Aug 2026 19:15:35 GMT

For those who have written code to do this, how about some pseudo code to explain the steps you used to convert the lines to a 3D POLY?