grread使用例子 lisp_修改了下grread捕捉子函数应该能用了

;;; grread捕捉子函数

;;; name为移动的图元名，pt为光标点

;;; 返回值：如果有捕捉点则返回捕捉点，无则返回光标点

(defun osnappt (name pt / color d h k lst nearpt nearpt2 osmo pt1 pt2 pt3 pt4 pt5 ptx pty x)

(if name (entdel name))

(redraw)

(if (< (getvar "osmode") 16384)

(progn

(setq color (vla-get-autosnapmarkercolor (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))

h (/ (getvar "viewsize") (cadr (getvar "screensize"))) d (getvar "pickbox")

lst (list (* d h) (* (- d 0.5) h) (* (+ d 0.5) h)) k (* 1.5 d h))

(if (setq nearpt (osnap pt "_END,_CEN,_NOD,_QUA,_INS,_TAN,_EXT"))(setq osmo 1))

(if (and(setq nearpt2 (osnap pt "_NEA"))(not (equal nearpt nearpt2 k)))

(setq osmo 2 nearpt nearpt2))

(if (and(setq nearpt2 (osnap pt "_MID"))(equal nearpt nearpt2 k))

(setq osmo 3 nearpt nearpt2))

(if (and(setq nearpt2 (osnap pt "_INT"))(equal nearpt nearpt2 k))

(setq osmo 4 nearpt nearpt2))))

(if name(entdel name))

(if nearpt

(progn

(setq ptx (car nearpt)pty (cadr nearpt))

(foreach x lst

(setq pt1 (list (- ptx x) (- pty x)) pt2 (list (+ ptx x) (- pty x))

pt3 (list (+ ptx x) (+ pty x)) pt4 (list (- ptx x) (+ pty x))

pt5 (list ptx (+ pty x)))

(cond

((= osmo 1)(grvecs (list color pt1 pt2 pt2 pt3 pt3 pt4 pt4 pt1)))

((= osmo 2)(grvecs (list color pt1 pt2 pt2 pt4 pt3 pt4 pt3 pt1)))

((= osmo 3) (grvecs (list color pt1 pt2 pt2 pt5 pt5 pt1)))

((= osmo 4) (grvecs (list color pt1 pt3 color pt2 pt4)))))

(setq pt nearpt)))

pt

)

;;; 示例:动态移动文字

(defun c:qq (/ code ent gr loop name pt)

(if (setq name (car (entsel "\n选择文本:")))

(progn

(setq ent (entget name) loop t)

(princ "\n指定点:")

(while loop

(setq gr (grread t 15 0) code (car gr) pt (cadr gr))

(cond

((= code 3)(redraw) (setq loop nil))  ; 鼠标左键

((= code 5)                  ; 鼠标移动

(setq pt (osnappt name pt))

(entmod (setq ent (subst(cons 10 pt)(assoc 10 ent)ent))))

((= code 2)                  ; 键盘输入

(princ "\n键盘输入=")(princ pt))

((member code '(11 25))      ; 鼠标右击

(redraw)  (setq loop nil))))))

(princ)

)