snapping to the endpoint of a line

[autobot00]

Hey folks, heres my question. How do i snap to the end point of a line using entget?

for example i want to use:
(setq line (entget "\nSelect line:"))

but i want to get the endpoint closest to where i picked the line. this is not an assoc 11 question, i want it to find the endpoint as if i were using osnaps. Just incase there is any confusion i made a jpg showing what i want. Any ideas? thanks in advance.

[Anonymous]

Use (entsel.... and the find out where the point that is retuned by it is
closest to. You may also want to check to make sure you only select a line.
Something like

(if
(and
(setq Sel (entsel "\n Select line: "))
(setq EntData (entget (car Sel)))
(= (cdr (assoc 0 EntData)) "LINE")
(setq Pt (cadr Sel))
(setq StPt (cdr (assoc 10 EntData)))
(setq EndPt (cdr (assoc 11 EntData)))
)
(if (< (distance Pt StPt) (distacne Pt EndPt))
StPt
EndPt
)
)

--

Tim
"A blind man lets nothing block his vision."


wrote in message news:5249088@discussion.autodesk.com...
Hey folks, heres my question. How do i snap to the end point of a line
using entget?

for example i want to use:
(setq line (entget "\nSelect line:"))

but i want to get the endpoint closest to where i picked the line. this is
not an assoc 11 question, i want it to find the endpoint as if i were using
osnaps. Just incase there is any confusion i made a jpg showing what i
want. Any ideas? thanks in advance.

[EC-CAD]

(defun get_closest_endpoint ()
(setq line (entsel "\nSelect line:"))
(if line
(progn
(setq ent (car line))
(setq PT (cadr line))
(setq elist (entget ent))
(setq PA (cdr (assoc 10 elist)))
(setq PB (cdr (assoc 11 elist)))
(if (> (distance PT PA)(distance PT PB))
(setq PT PB)
(setq PT PA)
); if
); progn
); if
PT
); function
;;
;; Usage
;; (setq Pnt (get_closest_endpoint))

Bob

[autobot00]

sweet this works thank you.

[autobot00]

nice this one works too, thank you.

[Anonymous]

How about this?

(defun c:sln()
(setq ent (entsel))
(setq pt1 (osnap (cadr ent) "end"))
)

[autobot00]

well this is much less code and it works. i think i'll go with this one. thanks.

[devitg]

Just a lean rutine.
Thanks