[求助]利用实时鼠标轨迹画等高线

watersoft888

工作中经常遇到矢量化地形图，主要是等高线的处理，用矢量化软件处理完以后，效果大都很差。所以经常需要手工描线，点的手都酸了，能不能通过编程，就想“画图”程序的画线一样，不用总点鼠标左键，沿着鼠标的轨迹，把等高线画出来？思路如下：

1、在等高线开始处点一下鼠标左键，按住不放，沿等高线轨迹移动鼠标，在等高线结束处松开鼠标左键。一条等高线即可画完。

2、编程思路，按一定时间间隔读取鼠标处的地形图坐标，然后把坐标导出到一个文件，再将坐标导入cad画线。

请大家讨论，并尽可能提供相关源码。lisp和vba即可。

watersoft888

多谢

创建一系列徒手画线段

 命令条目:sketch

下列信息基于假设数字化仪模式已打开。

记录增量 <当前>: 指定距离或按 ENTER 键

记录的增量值定义直线段的长度。定点设备移动的距离必须大于记录增量才能生成线段。

徒手画被捕捉为一系列独立的线。将 SKPOLY 系统变量设置为一个非零值将为每个连续的徒手画线条（而不是为多个线性对象）生成一个多段线。

徒手画。画笔(P) 退出(X) 结束(Q) 记录(R) 删除(E) 连接(C)。输入选项或按指针按钮

画笔（拾取按钮）

提笔和落笔。在用定点设备选取菜单项前必须提笔。

退出—ENTER（按钮 3）

记录及报告临时徒手画线段数并结束命令。

结束（按钮 4）

放弃从开始调用 SKETCH 命令或上一次使用“记录”选项时所有徒手画临时线段，并结束命令。

记录（按钮 2）

永久记录临时线段且不改变画笔的位置。用下面的提示报告线段的数量：

已记录 nnn 条直线。

删除（按钮 5）

删除临时线段的所有部分，如果画笔已落下则提起画笔。

选择删除端点。

连接（按钮 6）

落笔，继续从上次所画的线段的端点或上次删除的线段的端点开始画线。

连接: 移动到直线端点。

. （句点）（按钮 1）

落笔，从上次所画的直线的端点到画笔的当前位置绘制一条直线，然后提笔。

nonsmall

AutoCAD 自带的命令

SKETCH

_chaogang