[LISP]怎样实时获得线图元与鼠标位置某坐标轴相交点坐标??

xialiang

请高手指点!!
我图中一线图元，怎样实时获得X=鼠标位置或Y=鼠标位置的直线与线图元交叉点的坐标？？？？

谢谢！！！

meflying

参考一下:

2. (defun c:test( / ent ents pt1 pt2 k)
3.   (setq ent (car (entsel)))
4.   (setq ents (entget ent))
5.   (setq pt1 (cdr (assoc 10 ents))
6. pt2 (cdr (assoc 11 ents)))
7.   (setq k (/ (- (cadr pt1) (cadr pt2)) (- (car pt1) (car pt2))))
8.   (while (/= (car (setq pt (grread 2 4))) 3)
9.     (prompt (strcat "\n" (rtos (caadr pt)) "," (rtos (+ (cadr pt1) (* (- (caadr pt) (car pt1)) k)))))
10.   )
11.   (princ)
12. )

(defun c:test( / ent ents pt1 pt2 k)   (setq ent (car (entsel)))   (setq ents (entget ent))   (setq pt1 (cdr (assoc 10 ents)) pt2 (cdr (assoc 11 ents)))   (setq k (/ (- (cadr pt1) (cadr pt2)) (- (car pt1) (car pt2))))   (while (/= (car (setq pt (grread 2 4))) 3)     (prompt (strcat "\n" (rtos (caadr pt)) "," (rtos (+ (cadr pt1) (* (- (caadr pt) (car pt1)) k)))))   )   (princ) )

xialiang

这个函数实现了动态的效果！

但是PRINTC出的数据不是连续的数据！！！怎样PRINTC出连续的数据？

请指点！

meflying

首先,我只是说参考,,,,给你一个方法而已,具体的细节你自己去完成.

另外,你说要连续,这可能吗?一条线段即使再短,也有无数个点,要连续就是要把这无数的点都打印出来......

xialiang

首先谢谢楼上的回贴!!

所谓的连续是相对而言的!相对与步长说的!!比如说是按毫米或是米递进的!

meflying

4楼的话这才是重点

"首先,我只是说参考,,,,给你一个方法而已,具体的细节你自己去完成."

xialiang

谢谢!