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

xialiang · 发表于 2005-7-13 10:54:00

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

谢谢！！！

meflying · 发表于 2005-7-13 11:28:00

参考一下:

(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 · 发表于 2005-7-13 15:19:00

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

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

请指点！

meflying · 发表于 2005-7-13 17:45:00

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

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

xialiang · 发表于 2005-7-13 21:20:00

首先谢谢楼上的回贴!!

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

meflying · 发表于 2005-7-14 08:24:00

4楼的话这才是重点

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

xialiang · 发表于 2005-7-14 23:56:00

谢谢!

账号		自动登录	找回密码
密码			注册