[转贴]：也许对你有用，如果有用，请说声好！

hsb-hy

我认为对测量的有点用，说明如下：

功能：        1.完成Dist与ID的功能，同时将结果按指定精度与项目写入文件，若此时
'                Excel已打开，则写入Excel活动单元格否则写入工作目录下的
'                DistOut.txt文件中
'        2.完成多义线在Acad与Excel之间的互导
'        3.根据不同参数重复执行某个命令,用SCRIPT也可实现,但此方法方便得多
'
'安装：        请将TABCTL32.OCX和TABCTCHS.DLL两个文件拷入\WINDOWS\system32目录中
'                主程序CadAssis_2K.exe不用安装，可在任意位置运行。
'
'
'用法：        1.Dist与ID: 打开Cad和Excel,指定一活动单元格，从面板复选框指定精度与范围
'                然后在Cad屏幕拾取两点(一点)
'        2.pline之Acad-〉Excel，在Dist面板指定输出精度(默认小数点后三位)，在Excel中
'                指定放置坐标的起始单元格位置，再在Pline面板中按下“-〉Excel”，选取
'                一根多义线(三维多义线跟轻量多义线均可)，最后到Excel中看看吧
'                若勾选“-〉Excel”按钮右边的复选框，则输出PLine坐标的同时还会输出与
'                之相交的直线的起终坐标及交点坐标
'        3.pline之Excel-〉Acad，在Excel中选取坐标值(二维选两列，三维选三列)，按下
'                “-〉Acad”CadAssis会分别生成LWpline跟3Dpline
'        4.SCR：在Command栏中填写要重复执行的命令，要注意将命令写成能在命令行执行的形式
'                如insert,应写成"-insert"，而text,就可直接填写"text",另外，命令可用简写
'                如上述两命令可写为"-i"、"dt",para1到para10栏根据command要求的顺序依次
'                填写(需要多少填多少，不必全部填满)，对于不变的参数，如text要求的字高、
'                旋转角度就可在程序面板上直接填写而要变的参数如文字插入起点、文本内容
'                则在Excel中按列填写，程序面板上只需将相应的输入栏右边的复选框勾上即可。
'                如果excel中相邻两列是x、y坐标，还需将输入栏右边的第二个复选框勾上。
'                有些命令执行中需要回车，如text，填写para时，回车符用EnterMark指定的
'                符号(可根据需要自己指定)。
'                text,circle,insert三个命令可直接选择，也可在command栏中直接填写命令
'              **注意：程序执行前一定要在Excel中将需要处理的数据区域全部选中，程序只处理
'                        选中区的数据
'                AutoNext选中时，Excel中应选中第一行数据，每“Draw”一次，程序读取一行
'                        数据，执行一次"command"命令，然后在Excel自动移向下一行。此方式
'                        是已知一系列点坐标，在图中用"zoom"依次察看时而写的，一般情况用不上
'
'说明： 1.为尽可能减小程序界面，各控件上的文字都采用了英文简写，甚至没有文字，请               
'                把鼠标指针在控件上停留一会儿就会有说明文字出现。
'
'
'更新：
'2000.11.28                因挡墙设计中，横断面常因设挡墙而须修改坡脚值
'                        遂写此程序，简化操作。
'
'2001.10.14                涵洞设计中，因需从横断面图上取用多个点的坐标
'                        以便后续计算，遂修改此量距程序，使之具有取点功能
'
'2003.08.01                1、应网友xzg_hello的要求，增加了多义线在Acad与Excel之间的互导
'                        2、同时修正了一些小bug
'                        3、将面板改成标签式，使界面缩小了1/3，将按钮放到右边，更便于操作
'                        输出精度默认值改为三位
'                        取消修改文字功能
'                        4、修正pline顶点坐标写入文本文件的错误

'20003.08.02                应lixiaochun的要求，修改程序，使多义线在Acad与Excel之间的互导
'                        时均符合当前用户坐标系

'20003.08.13                1、应msdg的要求，多义线从Acad导入Excel时增加了提取与之相交的
'                        直线的起终坐标及交点坐标的选项
'                        2、修改ID功能部分，使输出结果符合当前用户坐标系

'20003.08.16                1、增加SCR功能，根据给定的命令及其参数重复执行，用于将测量点快速
'                        输入cad，并标注各点号
'
'20004.03.20                1、改进SCR功能，Command栏改为下拉列表框，可直接选择命令，此时
'                        程序提示输入对应参数
'
'20004.03.29                1、修改程序启动时的显示位置，当屏幕分辨率为1024x768或800x600时
'                        程序界面位于屏幕左下角，其他分辨率时界面移至左上角,不再出现程序
'                        界面跑到屏幕之外的情况
'
'20004.04.26                1、采用“后期绑定”(感谢efan2000)，使程序不再与cad版本关联

jhytzsj

应该挺好的，楼主真是一个热心人，说明文件都写了这么多，一看就懂了。谢谢！