求助LISP如何实现鼠标动态画图的功能

simon_hbedi · 发表于 2005-3-24 16:13:00

在CAD里画一曲线，曲线能够随着鼠标的移动而变化

north911 · 发表于 2005-3-24 16:21:00

我也在做这方面的事，要看你要画的曲线方程是什么

simon_hbedi · 发表于 2005-3-24 16:38:00

我工作中用的，用PLINE画的。

simon_hbedi · 发表于 2005-3-24 16:44:00

这是我画曲线的LISP程序 (defun C: kzqp (k / y x x0 y0 x1 y1 pp p1 p2 pl1 kk nx ny)
(setq k 8 nx 5000 ny 500)
(setq nx 5000 ny 500)
(setq p1 (getpoint "please input the first point:"))
(setq x1 (car p1))
(setq y1 (cadr p1))
(setq p2 (getpoint "please input the second point:"))
(setq x2 (car p2))
(setq y2 (cadr p2))
;(setq kk (/ (/ (* nx nx 4) ny) 100000000))
(setq kk (* k 0.002))
(command "pline" p1)
(if (< x1 (- x2 1.0))
(progn
(setq x (/ (- y1 y2) (- x1 x2)))
(setq x (/ (/ x 2.0) kk))
(setq x0 (- (/ (+ x1 x2) 2.0) x))
(setq x (- x1 x0))
(setq x (* kk x x))
(setq y0 (- y1 x))
(setq x x1)
(setq pl1 p1)
(while (<= x x2)
(setq y (+ y0 (* kk (- x x0) (- x x0))))
(setq pp (list x y))
(command pp)
(setq x (+ x 0.1))
)
)
)
(command "")
(princ)
)

ljpnb · 发表于 2005-3-24 16:59:00

你想怎么动态，第一点不动，第二点根据鼠标移动时，图形跟着变化，是这个意思吗？

north911 · 发表于 2005-3-24 17:05:00

好像是平抛物线方程，是悬链线的简化吧

simon_hbedi · 发表于 2005-3-25 08:30:00

第一点不动，第二点根据鼠标移动时，图形跟着变化

meflying · 发表于 2005-3-25 09:11:00

图形变化的规律是什么？

north911 · 发表于 2005-3-25 09:17:00

这个问题飞哥已经回答过了，你可以参考这个 dispbbs.asp?BoardID=3&ID=31551 不过要改动一下，不复杂

ljpnb · 发表于 2005-3-25 12:03:00

我给个思路，楼主的程序是通过两点来画一条曲线，当第二点在移动时，要先删除原先的曲线，重新根据鼠标新位置点的坐标，根据方程重画那条曲线，这样可以实现动态的变化，而不是用修改曲线数据来实现动态变化。

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