有时候需要绘制一条和曲线长度相同的直线。

常规做法是，可以先测量曲线长度，再复制该长度，使用粘贴去绘制一条相同长度的直线。但是对象曲线比较多时，一条一条测量再绘制比较麻烦。

这里提供一个小程序，可以先选中所有对象曲线，执行程序，就会在ACS原点附近自动描绘出所有的直线。

使用方法如下：

1. 下载此VBA程序：PlaceLineFromArc.mvba。
communities.bentley.com/.../5140.PlaceLineFromArc.zip
2. 拷贝到...\WorkSpace\System\vba\文件夹中。
3. 启动MicroStation，打开DGN文件。
4. 选择菜单Utilities> Macro> Project Manager。
5. 在打开的VBA Project Manager窗口中点击上部的Load Project图标，找到PlaceLineFromArc.mvba程序并装载。
6. 选中对象Arc，执行程序，就会在ACS原点附近自动描绘出所有的直线。