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

[求助]利用实时鼠标轨迹画等高线
www.dimcax.com
[求助]利用实时鼠标轨迹画等高线
工作中经常遇到矢量化地形图，主要是等高线的处理，用矢量化软件处理完以后，效果大都很差。所以经常需要手工描线，点的手都酸了，能不能通过编程，就想“画图”程序的画线一样，不用总点鼠标左键，沿着鼠标的轨迹，把等高线画出来？思路如下：
1、在等高线开始处点一下鼠标左键，按住不放，沿等高线轨迹移动鼠标，在等高线结束处松开鼠标左键。一条等高线即可画完。
2、编程思路，按一定时间间隔读取鼠标处的地形图坐标，然后把坐标导出到一个文件，再将坐标导入cad画线。
请大家讨论，并尽可能提供相关源码。lisp和vba即可。
d
autocad 自带的命令
sketch
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
多谢
创建一系列徒手画线段
/bbs/ms-its:c:\program%20files\autocad%20 命令条目:sketch
下列信息基于假设数字化仪模式已打开。
记录增量 <当前>: 指定距离或按 enter 键
记录的增量值定义直线段的长度。定点设备移动的距离必须大于记录增量才能生成线段。
/bbs/ms-its:c:\program%20files\autocad%20
徒手画被捕捉为一系列独立的线。将 系统变量设置为一个非零值将为每个连续的徒手画线条（而不是为多个线性对象）生成一个多段线。
徒手画。输入选项或按指针按钮
画笔（拾取按钮）

提笔和落笔。在用定点设备选取菜单项前必须提笔。
退出—enter（按钮 3）

记录及报告临时徒手画线段数并结束命令。
结束（按钮 4）

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

永久记录临时线段且不改变画笔的位置。用下面的提示报告线段的数量：
已记录 nnn 条直线。
删除（按钮 5）

删除临时线段的所有部分，如果画笔已落下则提起画笔。
选择删除端点。
连接（按钮 6）

落笔，继续从上次所画的线段的端点或上次删除的线段的端点开始画线。
连接: 移动到直线端点。
. （句点）（按钮 1）

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