Alıntı

---

kaan0624 :

---

Alıntı

---

alumina :

Alıntı

---

kaan0624 :

---

Kod:

(defun c:sl (/ ns sc ss n m p ls) (vl-load-com)
  (if (setq ns (ssget ":s" '((0 . "text")))
        sc (ssadd) ss (ssget "x" '((0 . "line"))))
    (progn
      (repeat (setq n (sslength ss))
        (setq n (1- n) m (ssname ss n) p (cdr (assoc
          10 (entget (ssname ns 0)))) ls (cons (list
            m (distance p (vlax-curve-getclosestpointto
              (vlax-ename->vla-object m) p))) ls)))
      (sssetfirst nil (ssadd (caar (vl-sort ls
        '(lambda(a b) (< (cadr a) (cadr b))))) sc))
    )
  ) (princ)
)

---