Transv。配置文件

norbi_nw · 发表于 2022-7-8 11:51:19

嘿，你好。我的朋友让我问你们关于LISP或者一种做横向轮廓的方法（由TopoLT创建的）。我们把它们写在纸上，现在我们必须在autoCAD上创建它们。。。现在，你通常会问我，我们究竟是如何在纸上，而不是在autocad上实现它们的。。我们从某人那里得到的。因此，我们有一个图纸（一条道路，测量和所有），带有横向轮廓，但轮廓是错误的（错误的Z和点之间的距离）。。我们得到了很好的个人资料，包括数字化和打印。因此，任何创建要求指定第一个点的lisp的方法，单击某处，然后为该点指定Z，输入Z，然后它要求指定下一个点距离，输入距离，然后该点的Z，输入它，现在有2个点，因此lisp可以从2的方向创建一条线。。你需要2个点来创建一条直线。。。由于您现在手动输入了tose 2，lisp现在只要求下一个点距离和点的Z。或者，如果更简单一点，一个反转拓扑轮廓的lisp。。。从TopoLT的profile中，您将其放在一张图纸上（因此，从2D pls中，我们有数百个需要放回3D道路的profile）。。

lpseifert · 发表于 2022-7-8 11:59:25

这里我们把它们称为横截面
如何使用lisps

rustysilo · 发表于 2022-7-8 12:03:28

这就是我真正想要的。标记的polilyne，从图1到图2上的线（因此，当你从顶视图看时，你会看到一条直线，但当你向前看时，你会看到它，如图1所示-因此点之间的Z和距离将保持不变）。
谢谢你的lisp，测试它，但不是完全在我手中工作。同样在关于LISPs的教程中，我学到了很多。。
有时答案很简单，但你看不到：/

norbi_nw · 发表于 2022-7-8 12:07:11

是否要根据从纵断面获取的信息沿平面图中的横截面位置绘制三维线（包括高程）？？

lpseifert · 发表于 2022-7-8 12:13:46

在我听来就是这样。

如果你能把lisp写下来，他只需点击横截面中的剖面线，告诉它cl是什么，然后选择对齐方式，它就会在平面图中自动绘制3d多边形，这将是非常棒的。我想这需要一些繁重的编码。

norbi_nw · 发表于 2022-7-8 12:17:36

你能不能请那些从你那里得到指纹的人把所有的cadd文件发给你？

lpseifert · 发表于 2022-7-8 12:22:18

我们也有CAD文件。。需要在某处找到他们，但现在是星期五，所以工作日结束了。仍然在努力找到一个简单的方法。。谢谢你的帮助。
是的，还有带高程的横截面。。（这是Z）

rustysilo · 发表于 2022-7-8 12:26:24

你要用这些数据建立一个3d模型吗？

rustysilo · 发表于 2022-7-8 12:32:17

这就是你要找的吗？未进行广泛测试

copy


(defun c:test (/ begpt endpt zbeg pt1 d2 zval pt2)
 (setvar "cmdecho" 0)
 (setq    begpt (getpoint
       "\nPick start point of cross section location (in plan): "
         )
   endpt (getpoint begpt "\nPick endpoint of cross section: ")
   zbeg  (getreal "Enter elevation of start point: ")
   pt1   (list 0 0 zbeg)
 )
 (command "line" begpt endpt "")
 (command "ucs" "ob" (entlast))
 (entdel (entlast))
 (while
   (setq d2 (getdist pt1 "\nEnter distance to next point: "))
    (progn
      (setq zval (getreal "\nEnter elevation of next point: ")
        pt2  (list (+ (car pt1) d2) 0 zval)
      )
      (command "line" pt1 pt2 "")
      (setq pt1 pt2)
    )
 )
 (command "ucs" "p")
 (setvar "cmdecho" 1)
 (princ)
)

norbi_nw · 发表于 2022-7-8 12:36:18

最后一个口齿不清还行，但有一件事。。我们需要分数。。你的lisp创建了从顶视图看到的横截面，但Z没有任何意义。现在我知道我们需要什么了。我们只需要具有正确Z高程的点。。所以一条线上大约有5-6个点，海拔不同，但它们之间的距离不同。（点，作为中心点的绿色圆圈…）。因此，当我们单击该点时，它将显示正确的Z。你的lisp是可以的，但当你切换到前视图时，你无法选择该点（两条线相交的地方-如果我在那里放一个圆，它的Z是不正确的）。如果你做不到，这没问题，因为你表现出了你的关心，并且已经做了2个。。我们现在所做的只是从俯视图上看，用一个随机的Z复制一个点，用我们需要的修改它（例如98.04），然后用一个不同的Z从第一个3.42个单位再次粘贴，然后从第二个4.87个单位再次粘贴，再次更改Z，以此类推。他们之间基本上没有界限。只有几个点有Z和它们之间的距离。你的口齿不清创建了一条线，但我无法选择点（检查它）。。我错过什么了吗？

有没有一种方法可以从图形的所有点“提取”X，Y，Z？对于excell女士，是否为文本文件？？

[综合讨论] Transv。配置文件

发表回复

精选推荐