Merhabalar cümleten. Benim şöyle bir sorum olacak herhangi bir texte tıkladığımda en yakınındaki line nasıl seçtiririm. Böyle bişey mümkünmüdür. Değerli hocalarıma selamlar
(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)
)
(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)
)
hocam bu lisp işime çok yarayacak, çoklu text seçecek şekilde yapmak zor olur mu
