0 Members and 1 Guest are viewing this topic.
Code: [Select](defun ilp ...
(defun ilp ...
(defun inters_w-line-2p (P1 P2 V VP fl / P) (if (setq p ((lambda (a b c) (inters a b (list (car a) (cadr a) c) (list (car b) (cadr b) c) fl) ) (trans p1 0 v) (trans p2 0 v) (caddr (trans vp 0 v)) ) ) (trans p v 0) ))
my variant:Code: [Select](defun inters_w-line-2p (P1 P2 V VP fl / P) (if (setq p ((lambda (a b c) (inters a b (list (car a) (cadr a) c) (list (car b) (cadr b) c) fl) ) (trans p1 0 v) (trans p2 0 v) (caddr (trans vp 0 v)) ) ) (trans p v 0) ))
Very nice trick Evgeniy