[下载]：快速画测量点的方法

zhqchn

近日将CadAssis做了改进，增加了SCR功能，可根据不同参数重复执行某个命令，灵活性相当大，当初是为在cad中画出一百多个导线点而作的。

'
'               AutoCAD辅助程序(CadAssis)
'                  
'       编制:  甘肃省交通规划勘察设计院设计一室  陈志强
'               2000年十一月
'
'功能：        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指定的
'                符号(可根据需要自己指定)。
'
'说明： 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，并标注各点号

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?threadid=76624">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

liu19601987

不太明白其主要作用？

zhqchn

最初由 liu19601987 发布
[B]不太明白其主要作用？ [/B]

我想readme中已说得很清楚了，如果你做过道路设计，应该一看就明白。这个小程序主要是我工作过程中根据需要不断积累的用以简化操作的工具，主要是连接AutoCAD与Excel，其功能设置均来之道路设计工作的实际需要，因此个人认为它还是蛮实用的。

上个月在AutoCAD外挂版块贴出后，一些市政、水利的朋友也觉得用得着，因此这段时间花了不少精力完善它，希望他给更多的朋友带来便利！

fjbl

这个东东还是有点用的

比夫

很实用，谢谢楼主。