[HELP] Lisp Parallelism Check

[luusca]

Hello people, can someone help me?

I'm trying to find a lisp like the example below, but i don't found.

 

It is a lisp checking the parallelism between the lines, the ideal is 1.5m when it is larger than this, paint the lines.

 

 

 

RESOLVED

Edited September 9, 2016 by luusca

[alanjt]

Quick and dirty..

 

replace

(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))

 

with

(if (> (distance p1 p2) 1.5)
 (entmake (list '(0 . "LINE") '(62 . 6) (cons 10 p1) (cons 11 p2)))
 (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))
)