我想实现这这样的画板效果，不知各位大佬有没现成的例子

lovour

通过输入的坐标来实现上面的动画，达到一个路径移动的效果。

时髦猪

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
x	整数型	0
y	整数型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

画板1.画笔颜色 ＝ #天蓝
画板1.画板背景色 ＝ #黑色

子程序名	返回值类型	公开	备 注
_画板1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

加入成员 (x, 横向位置)
加入成员 (y, 纵向位置)
画板1.画点 (横向位置, 纵向位置, #天蓝 )

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
i	整数型

画板1.清除 (0, 0, 画板1.宽度, 画板1.高度)
计次循环首 (取数组成员数 (x), i)
如果真 (取数组成员数 (x) ＞ 0)
如果真 (x [i] ≥ 画板1.宽度 且 y [i] ≥ 画板1.高度)
删除成员 (x, i, 1)
删除成员 (y, i, 1)
到循环尾 ()
x [i] ＝ x [i] ＋ 5
y [i] ＝ y [i] ＋ 2
画板1.画点 (x [i], y [i], #天蓝 )
如果真 (取数组成员数 (x) ＞ 1 且 i ＜ 取数组成员数 (x))
画板1.画直线 (x [i], y [i], x [i ＋ 1], y [i ＋ 1])

调试输出 (x, y)

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 x, 整数型, , "0"<br /> .程序集变量 y, 整数型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 画板1.画笔颜色 ＝ #天蓝<br /> 画板1.画板背景色 ＝ #黑色<br /> <br /> .子程序 _画板1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 加入成员 (x, 横向位置)<br /> 加入成员 (y, 纵向位置)<br /> 画板1.画点 (横向位置, 纵向位置, #天蓝)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 i, 整数型<br /> <br /> 画板1.清除 (0, 0, 画板1.宽度, 画板1.高度)<br /> .计次循环首 (取数组成员数 (x), i)<br />     .如果真 (取数组成员数 (x) ＞ 0)<br />         .如果真 (x <i> ≥ 画板1.宽度 且 y <i> ≥ 画板1.高度)<br />             删除成员 (x, i, 1)<br />             删除成员 (y, i, 1)<br />             到循环尾 ()<br />         .如果真结束<br />         x <i> ＝ x <i> ＋ 5<br />         y <i> ＝ y <i> ＋ 2<br />         画板1.画点 (x <i>, y <i>, #天蓝)<br />         .如果真 (取数组成员数 (x) ＞ 1 且 i ＜ 取数组成员数 (x))<br />             画板1.画直线 (x <i>, y <i>, x [i ＋ 1], y [i ＋ 1])<br />         .如果真结束<br /> <br /> <br />         调试输出 (x, y)<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()

会有错误  但效果差不多

7ian

自动画画-完整开源-人人都能成为你画我猜大神
https://bbs.125.la/forum.php?mod=viewthread&tid=14679811
(出处: 精易论坛)
我的这个就是先算出每个点的坐标，再连线画的