luusca Posted August 30, 2016 Share Posted August 30, 2016 (edited) 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 Quote Link to comment Share on other sites More sharing options...
alanjt Posted August 30, 2016 Share Posted August 30, 2016 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))) ) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.