[编程交流] 我在找autolisp ro

(vl-load-com)
;; https://www.cadtutor.net/forum/topic/18257-entmake-functions/
(defun drawPoint (pt)
 (entmakex (list (cons 0 "POINT")
                 (cons 10 pt))))
                 
(defun c:pelp ( / ss i pt ent)
    (setq ss (ssget (list (cons 0 "LINE,POLYLINE,LWPOLYLINE"))))
    (setq i 0)
    (repeat (sslength ss)
        (setq ent (ssname ss i))
        ;; start point
        (setq pt (vlax-curve-getStartPoint (vlax-ename->vla-object ent)))
        (drawPoint pt)
        ;; end point
        (setq pt (vlax-curve-getEndPoint (vlax-ename->vla-object ent)))
        (drawPoint pt)
        (setq i (+ i 1))
    )
)