node renumbering for pipe network

[ymg3]

MJML,

 

I believe it will still works.

 

Try it, or post a drawing with a typical pipe network that you need to process.

 

The proposal by Hippe013, you could get the same result by putting FSMODE to on and then issuing Command FS (Fastselect)

from the Express tool.

 

ymg

[MJLM]

After swiveling in my mind for quite some time, I managed to resolve the issue and came up with this code. It seems to do exactly what I wanted.

 

(setq hdls '())
(setq pl '())

(setq fln (entget (car (entsel))))

(setq hd (cdr (assoc 5 fln)))

(setq hdls (list hd))
(setq ss (ssget "X" '((0 . "LINE")))))
(setq h (sslength ss))

(setq j 0)
(repeat h 

	(setq pt10 (assoc 10 (entget (handent hd))))
	(setq pt11 (assoc 11 (entget (handent hd))))

	(setq s1 (ssget "X" (list (cons 0 "LINE") pt10)))
	(setq s2 (ssget "X" (list (cons 0 "LINE") (cons 11 (cdr pt10)))))
	(setq s3 (ssget "X" (list (cons 0 "LINE") pt11)))
	(setq s4 (ssget "X" (list (cons 0 "LINE") (cons 10 (cdr pt11)))))
	(setq s (acet-ss-union (list s1 s2 s3 s4)))
	(setq cnt (sslength s))

	(while (>= (setq cnt (1- cnt)) 0)
		(if (not (member (cdr (assoc 5 (entget (ssname s cnt)))) hdls))
			(setq hdls (append hdls (list (cdr (assoc 5 (entget (ssname s cnt)))))))
		)
	)

	(setq j (1+ j))
	(setq hd (nth j hdls))

)