[编程交流] 带2个箭头的样条曲线

(defun c:Test (/ s e st nd le ds)
 ;;; Tharwat 19. 03. 2013 ;;;
 (if (and (setq s (car (entsel "\n Select spline :")))
          (eq (cdr (assoc 0 (setq e (entget s)))) "SPLINE")
     )
   (progn
     (setq st (cdr (assoc 10 e))
           nd (cdr (assoc 11 (reverse e)))
           le (vlax-curve-getdistatpoint s nd)
           ds (/ le 50.)
     )
     (entmakex (list '(0 . "LWPOLYLINE")
                     '(100 . "AcDbEntity")
                     '(100 . "AcDbPolyline")
                     '(90 . 2)
                     '(70 . 0)
                     (cons 10 st)
                     '(40 . 0.0)
                     (cons 41 ds)
                     '(42 . 0.0)
                     (cons 10 (vlax-curve-getpointatdist s ds))
                     (cons 40 ds)
                     (cons 41 ds)
                     '(42 . 0.0)
                     (assoc 8 e)
               )
     )
     (entmakex
       (list '(0 . "LWPOLYLINE")
             '(100 . "AcDbEntity")
             '(100 . "AcDbPolyline")
             '(90 . 2)
             '(70 . 0)
             (cons 10 nd)
             '(40 . 0.0)
             (cons 41 ds)
             '(42 . 0.0)
             (cons 10 (vlax-curve-getpointatdist s (- le ds)))
             (cons 40 ds)
             (cons 41 ds)
             '(42 . 0.0)
             (assoc 8 e)
       )
     )
   )
 )
 (princ)
)