想法很好，关注该贴。
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">五、程序流程<br/>1、程序开始运行后首先提示选择物体1,若未选择，程序正常退出。<br/> 2、如果选择的是直线，程序提示选择物体2；否则跳转9步<br/> 3、如果未选择物体2，程序对前面选中的直线标线长；转第1步。<br/> 4、如果物体2选中的还是直线，程序判断是否是同一条直线；<br/> 5、若非同一条直线，程序判断两直线是否平行；<br/> 6、如果两直线不平行，程序标注两直线的角度；转第1步。<br/> 7、若两直线平行，程序提示选择物体3，若物体3为第一次选中的直线，程序标注对称尺寸；转第1步。<br/> 8、如果两直线平行，未选择物体3，程序标注两直线的垂直距离；转第1步。<br/> 9、如果物体1是圆或弧，程序提示选择物体2；否则跳转20步<br/> 10、若第9步选择的是直线，程序提示选择物体3；<br/> 11、若第10步选择了物体且为物体1，程序标注与直线对称的圆心距；转第1步。<br/> 12、若第10步未选择物体，程序标注圆心到直线的垂直距离；转第1步。<br/> 13、若第9步选择圆或弧，程序判断是否是同一个圆或弧；<br/> 14、若不是同一个弧，程序提示：是否切点标注？<br/> 15、如果选择了切点标注，程序提示：是否水平标注？否则转17步<br/> 16、程序根据上面的选择自动计算先前选择点的最近点相切标注；转第1步。<br/> 17、程序提示输入：是否对齐标注圆心距离？<br/> 18、程序按选择的方式标注两圆的中心距，转第1步。<br/> 19、若第9步选择的是同一个圆或弧，程序标注圆或弧的直径；转第1步。<br/> 20、若第9步未选择物体，程序判断物体1是否是弧；<br/> 21、若是弧，程序提示弧的标注方法：角度，弧长，半径<br/> 22、程序根据上面选择标注弧的角度，弧长，半径；转第1步。<br/> 23、若是圆，程序标注圆的半径；转第1步。<br/> 24、若物体1非直线、圆、弧，程序提示出错；转第1步。</font></p>
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana"><br/> </p></font>
本帖最后由 作者 于 2010-7-30 9:40:38 编辑 <br /><br /> <p>通过上面的步骤，如果有一定的编程基础，应该能自行编出程序了。下面给出编译后的程序。先试用，不久后在适当的时候公布源代码。使用命令:tt</p>
<p> </p>
<font face="Verdana">命令: _appload 已成功加载 ADIM.VLX。<br/>命令:<br/>命令:<br/>命令: tt<br/>未知命令“TT”。按 F1 查看帮助。</font>
文件传错了，13楼改了。
来试用下
<font face="Verdana">测试后~<br/>一.选择直线后空回车,无反应~<br/>二.选择两条直线时,标注的延伸线有时会直接在点选的地方做延伸,这样就和工件连在一起了~</font>
<p>这是更改过的，请测试：</p>
<p> </p>
<p><strong><font style="BACKGROUND-COLOR: #ffff00" face="楷体_GB2312" color="#ff0000">向ZZXXQQ版主表示敬意！</font></strong></p>
<p> </p>
<p> </p>
<p>直线标注有斜标无直标</p>
<p>圆（弧）标注无直径标注</p>