0 Members and 1 Guest are viewing this topic.
This ?Code - Auto/Visual Lisp: [Select](defun c:foo (/ s e a) (if (and (setq s (entsel "\n Select LWpolyline :")) (eq (cdr (assoc 0 (entget (setq e (car s))))) "LWPOLYLINE") ) (mapcar '(lambda (p) (vlax-curve-getpointatparam e p)) (list (setq a (fix (vlax-curve-getparamatpoint e (vlax-curve-getclosestpointto e (cadr s)) ) ) ) (1+ a) ) ) ))
At the moment it looks perfect!I modified the code for my needs and works well.Thank You !!