怎么样在grread运行时能够捕捉到最近点或交点或端点，

露水2

这么快 我没有回复你就搞定了

samshs

那是怎麽解決的

zml84

http://zml84.blog.sohu.com/63822679.html

grread中捕捉练习.lsp

---

;;;grread函数练习
;;;效果：line起点随光标移动，
;;;      当捕捉到圆心时，将line起点移动的圆心。
;;;日期：zml84 于 2007-09-13 18:00
(defun
				C:XX1
				(/
				SS
				ENT
				TEST
				TMP
				MODE
				PT)
    (if	(setq
				SS
				(entsel
				"\n选择LINE对象:"))
	(progn
	    (setq
				ENT
				(entget
				(car
				SS)))
	    (setq
				TEST
				t)
	    (while
				TEST
		(setq
				TMP
				(grread
				t
				4
				0))
		(setq
				MODE
				(car
				TMP)
		      PT
				(cadr
				TMP)
		)
		(redraw)

vken7az2p

另外还有这篇文章也可以看看http://p4.xdcad.net/forum/showthread.php?s=&threadid=623760
在grread状态下实现捕捉功能并显示标记符号