iskopirajte kod dole u notepadu i sačuvajte dokument sa ekstenzijom .lsp
Poziva se komandom ""PP"
(defun C:PP (/ SS vla SPT MPT EPT)
(prompt "\nSelect Polylines")
(if (setq SS (ssget '((0 . "*POLYLINE"))))
(foreach poly (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
(setq vla (vlax-ename->vla-object poly)
SPT (vlax-curve-getStartPoint vla)
EPT (vlax-curve-getendpoint vla)
)
(entmake (list '(0 . "POINT") (cons 10 SPT)))
(entmake (list '(0 . "POINT") (cons 10 EPT)))
)
)
(princ)
)