- (defun c:Test ( / s e pr p pt a b ) (vl-load-com)
- ;; Tharwat 2014. cadtutor - mods by M.R. ;;
- (if (and (setq s (entsel)) (wcmatch (cdr (assoc 0 (entget (setq e (car s))))) "*POLYLINE"))
- (progn (setq pr (vlax-curve-getparamatpoint (car s) (setq p (vlax-curve-getclosestpointto (car s) (cadr s)))))
- (setq a (vlax-curve-getpointatparam (car s) (fix pr)))
- (setq b (vlax-curve-getpointatparam (car s) (1+ (fix pr))))
- (entmakex (list '(0 . "POINT") (cons 10 a) '(62 . 3)))
- (entmakex (list '(0 . "POINT") (cons 10 b) '(62 . 3)))
- )
- (princ "\n Nothing selected or not a Polyline <!>")
- )
- (princ)
- )
| 
