横截面上的现有道路

woodman78 · 发表于 2022-7-6 11:47:34

我从事道路设计，我们的大部分工作是道路覆盖和拓宽方案。作为设计的一部分，我们准备了拟议的横截面（见附图）。我们通常在横截面上标记现有道路的范围，这是一项劳动密集型工作。现有道路宽度因每个横截面而异，我们必须从现场测量的列表中读取。我已经包括了我们的一个横截面的图像。我想知道是否有人可以帮助创建一个lisp来读取文本文件，在dxf中搜索正确的横截面，然后在正确的偏移位置绘制线，并输入横截面上显示的尺寸。我知道这听起来是一项艰巨的工作，但这将对我们有很大帮助，我相信这将是一个很好的挑战。

谢谢

现有道路。txt文件

Brin · 发表于 2022-7-6 11:55:25

嗨，伍德曼，

我不太确定你要说的方法，但我使用MX做了类似的事情，基本上我只是用代表边界的字符串（在我的例子中通常是高速公路边界）创建了一个新模型然后我在每根绳子上建造一堵垂直的墙。正如您在示例中所做的那样，这个额外的模型与其余部分一起剪切，但它在该部分中给出了两条垂直线。（我们纯粹将其用作高速公路边界的清晰指示），但可以使用类似的方法来节省您一点时间，除非有人能想出更好的解决方案？

布林

woodman78 · 发表于 2022-7-6 12:03:09

我想为vanilla的用户设置这个，但我真的无法控制测量是如何进行的，所以我一直在尝试这样的工作。

无论如何，谢谢你。

woodman78 · 发表于 2022-7-6 12:13:28

有人对如何推动这一进程有什么想法吗。。。。即使只是开始。。。

CarlB · 发表于 2022-7-6 12:17:23

看起来文本文件在每个站只有2个数字，只定义了一个点。我假设会有更多的数据，如桩号和偏移来定义现有地面？
-在横截面详图中，仅在提议的截面断开处调用高程和偏移？
-好的，仔细阅读，您只想从文件中读取道路宽度和与中心线的偏移量，用于绘制蓝线和带有箭头的“现有道路”标签？

BIGAL · 发表于 2022-7-6 12:27:13

我会做以下事情

拾取CH标签并找到其CH eg 930（否则生成txt文件CH 930），然后拾取道路中心点。读取偏移值，并使用dim命令的极左和极右进行计算。

选择c/l点的原因是，看看你的横截面和各种基准面，自动一次完成所有工作将是一场噩梦。这将提供相同的垂直间距，然后在每个横截面上不要忘记水平缩放。

我很感激这仍然是手册，但你会惊讶它的工作速度有多快。还可以将文本文件创建为930 4.256 5.123，即使用固定数量的字符间距，然后可以将文件读入列表中一次，并使用substr命令读取CH left&right并在循环中查找匹配项。（这里还有读取逗号分隔的文件LISP搜索）

BIGAL · 发表于 2022-7-6 12:33:27

忘记了垂直线，你需要一对额外的拾取，底线和曲面（作为多段线），正如我之前所说的，由于变化的数量，主要任务是自动完成。

你对这个例子的理解是否有倒退？

我还将进一步研究，可能会在打开其他级别的情况下绘制两次横截面，并一次性复制和粘贴垂直线。

woodman78 · 发表于 2022-7-6 12:40:06

比格尔，我不知道你两次绘制横截面是什么意思。。。。。它仍然不会给我现有的道路。

如果我用lisp找到文本930，我该如何定位0点或cl？？从930文本到这一点的距离将因节而异。

woodman78 · 发表于 2022-7-6 12:41:00

改变一下策略怎么样，所以。。。。我可以从LeeMac为我编写的Lisp中快速生成链长和偏移量的列表。然后，可以使用该文本文件创建一个“带电”偏移命令，该命令将遍历列表，以便我不需要从单独的文档中读取dist。当lisp启动时，它将拾取第一个链测长度，并使用第一个偏移距离启动“偏移”命令。然后我只需要选择中心线和要偏移的边，然后它会将偏移加载到右侧，这样我可以再次只选择中心线和边。我稍后会返回并输入维度。

BIGAL · 发表于 2022-7-6 12:51:04

您所建议的“偏移”命令会偏移cl中有几个缺陷，如果cl低于或高于自然曲面，则该线不会很好地相交，因此我建议使用“延伸”命令使其工作完美。

我编写了这样一个lisp，可以修剪多余的横截面，这很容易，只是复制autocad命令的一个例子。

你问你是否愿意做一个选择风格的任务可以实现。我会先做暗部分，因为它比垂直线容易。

说一些类似的话

（setq pt1（getpoint“\n点击c/l点”））
（setq高于5.0）；此高度高于c/l，用于调暗

从列表中读取左侧和右侧偏移

（setq pt2（极坐标pt1右0.00））
（setq pt3（极坐标pt2左3.1416））
（setq pt5（极性pt1高于1.5708
（命令“dim”“hor”pt2 pt3 pt5”）

接下来，短画垂直线，然后使用extend命令（您需要在cl处拾取底线，以获得正确的偏移起点，但绘制线不使用偏移

类似于
（setq pt6（“\n选择自然表面”）
（命令“Extend”“L”“pt6”）；这将延伸绘制的最后一条线，重复绘制第二条垂直线

只需设置一个循环，使用“重复”说，限制设置为50拾取横截面，再次执行等，然后只需崩溃，按ESC或断键，稍后执行花式结束。

这将是学习lisp的良好起点

[编程交流] 横截面上的现有道路

发表回复

精选推荐