从文件导入数据以查找

ambigiousop · 发表于 2022-7-6 14:53:17

我有二维AutoCad绘图，我希望计算从一个点到另一个点的X和Y距离。基本上我只需要计算出一根电缆的长度。目前，我正在创建一条多边形线，然后将所有的X和Y距离相加，得出这个长度，但这个过程变得非常繁琐，而且容易出错。源点和目标点如下所示：

开始->结束
a->1
a->2
a->3
a->b

b->1
b->2
b->3
b->a

a和b在CAD上是不同的源点，但它们可以使用同一电缆线路的一部分到达其目的地：1、2和3。a和b之间也有交叉连接（当然长度相同）这仅仅是一个样本，我有兴趣或源和目标点。

LISP（甚至是附加软件）中是否有这样的计算方法？我敢打赌很多人以前都必须这样做。我想将CSV导入到程序或脚本中，并为我解决所有问题。

思想？

扎克

CarlB · 发表于 2022-7-6 15:05:05

是的，用lisp是可能的。
把这个贴在定制论坛上&你会得到一些回复。

但是首先，你能更清楚地解释一下吗，a>b的东西很难理解。草图会有帮助。

ambigiousop · 发表于 2022-7-6 15:09:00

因此，假设a和b是计算机交换机，1,2,3是工作站。每个工作站有两个NIC，分别运行到两个交换机。a和b之间也有交叉连接。

这有意义吗？

Lee Mac · 发表于 2022-7-6 15:18:42

只是一个快速的开始-没有太多时间：

copy


(defun c:leng ()
 (princ
   (strcat "\nLength: "
       (rtos
         (vla-get-Length
       (vlax-ename->vla-object
         (car
           (entsel "\nSelect Pline: ")
           )
         )
       )
         )
       )
   )
 (princ)
 )

选择您的Pline，这将为您提供快速、肮脏、无误捕捉的长度。

李

BIGAL · 发表于 2022-7-6 15:25:36

根据Carlb的说法，有很多普林Lisp程序的地方，听起来你需要将a设置为起始点，然后从a到每个垂直长度的距离变长（普林称之为垂直）非常简单

问题是，如果你有很多普林斯，你怎么知道哪些是普林斯。一气呵成不是问题，比如说创建一个文本文件或发送到excell

这个例子是你想要的吗
Pline1 0 10 15 17 25 32
PLINE20 7 12 15
Pline3 0 7 8 9 10 11

（可以像你那样改变图层吗？）

在此处搜索“pline dimension”，它接近您在过去几天中看到的内容，否则仅在自定义部分搜索“pline”