; error: bad function: #<VLA-OBJECT IAcadArc 0000023db6a1c268>

(defun C:NK1()
  (setq vlo1 (vlax-ename->vla-object (car (entsel "\nUzunluğu alınacak çizgi1: "))))
(setq uz1 (vlax-curve-getDistAtParam vlo1 (vlax-curve-getEndParam vlo1)))

    (setq vlo2 (vlax-ename->vla-object (car (entsel "\nUzunluğu alınacak çizgi2: "))))
(setq uz2 (vlax-curve-getDistAtParam vlo2 (vlax-curve-getEndParam vlo2)))

)

(defun C:NK2()
  (setq vlo1 (vlax-ename->vla-object (car (entsel "\nUzunluğu alınacak çizgi1: "))))
(setq uz1 (uzunluk(vlo1)))
 
  (setq vlo2 (vlax-ename->vla-object (car (entsel "\nUzunluğu alınacak çizgi2: "))))
  (setq uz2 (uzunluk(vlo2)))
)

(defun uzunluk (vlo_nesne)
(vlax-curve-getDistAtParam vlo_nesne (vlax-curve-getEndParam vlo_nesne))
  )

;Seçili nesne uzunluğunu alır
;Sonraki seçili nesneye uzunluk mesafesinde nokta ekler
;Nesne olarak; LINE, POLYLINE, ARC, CIRCLE, ELLIPSE, SPLINE seçilebilir
;
;Mesut Akcan
;akcansoft.blogspot.com
;29/1/2022
;
(vl-load-com)
(defun C:NK (/ uz1 uz2 ent tn p1 p2 nkt vlo1 vlo2)
  (setq vlo1 (vlax-ename->vla-object (car (entsel "\nUzunluğu alınacak nesne: ")))
  uz1 (uzunluk vlo1) ;seçili 1. nesne uzunluğu 

  ent (entsel "\nNokta konulacak nesne: ")
  tn (cadr ent) ;tıklama noktası
 
  vlo2 (vlax-ename->vla-object (car ent))
uz2 (uzunluk vlo2) ;seçili 2. nesne uzunluğu 
 
  p1 (vlax-curve-getStartPoint vlo2) ;2. nesne başlangıç noktası
  p2 (vlax-curve-getendPoint vlo2)   ;2. nesne bitiş noktası
)

  ;tıklama noktası başlangıç noktasına yakınsa
(if (< (distance tn p1)(distance tn p2))
(setq nkt (vlax-curve-getPointAtDist vlo2 uz1)) ; başlangıç noktasından ölç
  (setq nkt (vlax-curve-getPointAtDist vlo2 (- uz2 uz1))) ; bitiş noktasından ölç
  )
;nokta konumuna nokta ekle
    (entmake (list (cons 0 "POINT")(cons 10 nkt)))
  (princ)
)
;nesne uzunluğunu verir
(defun uzunluk (nesne)
(vlax-curve-getDistAtParam nesne (vlax-curve-getEndParam nesne))
)