(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)
)
页:
1
[2]